diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-03-27 11:26:06 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-03-27 11:26:06 -0400 |
| commit | 0b941d68e7ceba9302d57eb8083e8244602a09ce (patch) | |
| tree | f74a786d667b2b1c70bb39e9a1bfb5c8f58bd5d5 /src/cjr_print.sml | |
| parent | bef4dd04f19c2001561e9e889116f5a2f8905bc0 (diff) | |
| parent | 8e114ff992a3e730f2eb42095267969eebf75c36 (diff) | |
Merge.
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 73e0316d..1b1d656d 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -3260,6 +3260,16 @@ fun p_file env (ds, ps) = string "))"])) NONE cookies + val cookieCode = foldl (fn (evar, acc) => + SOME (case acc of + NONE => string ("uw_unnull(uw_Basis_getenv(ctx, \"" + ^ Prim.toCString evar ^ "\"))") + | SOME acc => box [string ("uw_Basis_strcat(ctx, uw_unnull(uw_Basis_getenv(ctx, \"" + ^ Prim.toCString evar ^ "\")), uw_Basis_strcat(ctx, \"/\", "), + acc, + string "))"])) + cookieCode (SideCheck.readEnvVars ()) + fun makeChecker (name, rules : Settings.rule list) = box [string "static int ", string name, |