diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-02-11 09:10:01 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-02-11 09:10:01 -0500 |
| commit | a91daf909f14d7bf3bd94cbec672497e1f23d400 (patch) | |
| tree | 07742ac1accf17b7abc4153c890887c5a20ad464 /src/http.sml | |
| parent | b65df4c602043d867a7cfe41c664b8e987a7f9a7 (diff) | |
sigfile directive
Diffstat (limited to 'src/http.sml')
| -rw-r--r-- | src/http.sml | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/http.sml b/src/http.sml index 4054eb1e..a760e195 100644 --- a/src/http.sml +++ b/src/http.sml @@ -28,12 +28,26 @@ structure Http :> HTTP = struct open Settings +open Print.PD Print val () = addProtocol {name = "http", compile = "", linkStatic = Config.lib ^ "/../liburweb_http.a", linkDynamic = "-lurweb_http", - persistent = true} + persistent = true, + code = fn () => box [string "void uw_global_custom() {", + newline, + case getSigFile () of + NONE => box [] + | SOME sf => box [string "extern char *uw_sig_file;", + newline, + string "uw_sig_file = \"", + string sf, + string "\";", + newline], + string "}", + newline]} + val () = setProtocol "http" end |