diff options
author | 2009-10-06 17:36:45 -0400 | |
---|---|---|
committer | 2009-10-06 17:36:45 -0400 | |
commit | f0999e0e7b8ae0f3e0ac622d4d70e8a1da61f47e (patch) | |
tree | b83f18305aa8814ca95cf3a7e6a8829f789d8380 /src/cjr_print.sml | |
parent | 82ed38468f5da48ce6e9f6ec336cf5b11ca4bb4d (diff) |
Versioned1 demo working
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 9f337b5b..25666d97 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -536,23 +536,6 @@ fun getPargs (e, _) = | _ => raise Fail "CjrPrint: getPargs" -fun p_ensql t e = - case t of - Int => box [string "uw_Basis_attrifyInt(ctx, ", e, string ")"] - | Float => box [string "uw_Basis_attrifyFloat(ctx, ", e, string ")"] - | String => e - | Bool => box [string "(", e, string " ? \"TRUE\" : \"FALSE\")"] - | Time => box [string "uw_Basis_attrifyTime(ctx, ", e, string ")"] - | Blob => box [e, string ".data"] - | Channel => box [string "uw_Basis_attrifyChannel(ctx, ", e, string ")"] - | Client => box [string "uw_Basis_attrifyClient(ctx, ", e, string ")"] - | Nullable String => e - | Nullable t => box [string "(", - e, - string " == NULL ? NULL : ", - p_ensql t (box [string "(*", e, string ")"]), - string ")"] - fun notLeaky env allowHeapAllocated = let fun nl ok (t, _) = |