comparison src/cgi.sml @ 1164:8679ba87cf3c

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 Cgi :> CGI = struct 28 structure Cgi :> CGI = struct
29 29
30 open Settings 30 open Settings
31 open Print.PD Print
31 32
32 val () = addProtocol {name = "cgi", 33 val () = addProtocol {name = "cgi",
33 compile = "", 34 compile = "",
34 linkStatic = Config.lib ^ "/../liburweb_cgi.a", 35 linkStatic = Config.lib ^ "/../liburweb_cgi.a",
35 linkDynamic = "-lurweb_cgi", 36 linkDynamic = "-lurweb_cgi",
36 persistent = false} 37 persistent = false,
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]}
37 50
38 end 51 end