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 | abe2d7ed6e151579cd6f13fd0ce92e29bb83a23d (patch) | |
tree | 07742ac1accf17b7abc4153c890887c5a20ad464 /src/fastcgi.sml | |
parent | 861dbf0153f3383666dc0f3c35675d0b9a625b8d (diff) |
sigfile directive
Diffstat (limited to 'src/fastcgi.sml')
-rw-r--r-- | src/fastcgi.sml | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/src/fastcgi.sml b/src/fastcgi.sml index c2e81d92..31feaee9 100644 --- a/src/fastcgi.sml +++ b/src/fastcgi.sml @@ -28,11 +28,24 @@ structure Fastcgi :> FASTCGI = struct open Settings +open Print.PD Print val () = addProtocol {name = "fastcgi", compile = "", linkStatic = Config.lib ^ "/../liburweb_fastcgi.a", linkDynamic = "-lurweb_fastcgi", - 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]} end |