Mercurial > urweb

comparison src/settings.sml @ 856:86ec89baee01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cgi protocol
author Adam Chlipala <adamc@hcoop.net>
date Tue, 23 Jun 2009 17:59:23 -0400
parents 28e42b22424d
children 3d2f6cb6d54a
comparison
equal deleted inserted replaced
855:28e42b22424d 856:86ec89baee01
264 val http = {name = "http", 264 val http = {name = "http",
265 link = clibFile "request.o" ^ " " ^ clibFile "http.o", 265 link = clibFile "request.o" ^ " " ^ clibFile "http.o",
266 supportsPush = true} 266 supportsPush = true}
267 267
268 val () = addProtocol http 268 val () = addProtocol http
269 val () = addProtocol {name = "cgi",
270 link = clibFile "request.o" ^ " " ^ clibFile "cgi.o",
271 supportsPush = false}
269 272
270 val curProto = ref http 273 val curProto = ref http
271 fun setProtocol p = curProto := p 274 fun setProtocol name =
275 case getProtocol name of
276 NONE => raise Fail ("Unknown protocol " ^ name)
277 | SOME p => curProto := p
272 fun currentProtocol () = !curProto 278 fun currentProtocol () = !curProto
273 279
274 end 280 end