Mercurial > urweb

comparison src/http.sml @ 1164:8679ba87cf3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sigfile directive
author Adam Chlipala <adamc@hcoop.net>
date Thu, 11 Feb 2010 09:10:01 -0500
parents d4cd54a4ea06
children d2ad997ca157
comparison
equal deleted inserted replaced
1163:6c507826fae9 1164:8679ba87cf3c
26 *) 26 *)
27 27
28 structure Http :> HTTP = struct 28 structure Http :> HTTP = struct
29 29
30 open Settings 30 open Settings
31 open Print.PD Print
31 32
32 val () = addProtocol {name = "http", 33 val () = addProtocol {name = "http",
33 compile = "", 34 compile = "",
34 linkStatic = Config.lib ^ "/../liburweb_http.a", 35 linkStatic = Config.lib ^ "/../liburweb_http.a",
35 linkDynamic = "-lurweb_http", 36 linkDynamic = "-lurweb_http",
36 persistent = true} 37 persistent = true,
38 code = fn () => box [string "void uw_global_custom() {",
39 newline,
40 case getSigFile () of
41 NONE => box []
42 | SOME sf => box [string "extern char *uw_sig_file;",
43 newline,
44 string "uw_sig_file = \"",
45 string sf,
46 string "\";",
47 newline],
48 string "}",
49 newline]}
50
37 val () = setProtocol "http" 51 val () = setProtocol "http"
38 52
39 end 53 end