diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-20 13:30:19 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-20 13:30:19 -0400 |
| commit | b1997d2e699e92e83f7130b7b4a4c5467dcdcd27 (patch) | |
| tree | ab280240433798e7e1b8063804424ea76e7eed57 /src/cjr_print.sml | |
| parent | 26a8eaaa3429aea2e455d18ff9a0f6c661d90cef (diff) | |
Almost ready to have a form work
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 39 |
1 files changed, 37 insertions, 2 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 4cf3300d..218fcdee 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -208,13 +208,48 @@ fun p_decl env (dAll as (d, _) : decl) = newline] end -fun unurlify (t, loc) = +fun unurlify env (t, loc) = case t of TFfi ("Basis", "int") => string "lw_unurlifyInt(&request)" | TFfi ("Basis", "float") => string "lw_unurlifyFloat(&request)" | TFfi ("Basis", "string") => string "lw_unurlifyString(ctx, &request)" | TRecord 0 => string "lw_unit_v" + | TRecord i => + let + val xts = E.lookupStruct env i + in + box [string "({", + newline, + box (map (fn (x, t) => + box [p_typ env t, + space, + string x, + space, + string "=", + space, + unurlify env t, + string ";", + newline]) xts), + string "struct", + space, + string "__lws_", + string (Int.toString i), + space, + string "__lw_tmp", + space, + string "=", + space, + string "{", + space, + p_list_sep (box [string ",", space]) (fn (x, _) => string x) xts, + space, + string "};", + newline, + string "__lw_tmp;", + newline, + string "})"] + end | _ => (ErrorMsg.errorAt loc "Unable to choose a URL decoding function"; space) @@ -241,7 +276,7 @@ fun p_page env (s, n, ts) = space, string "=", space, - unurlify t, + unurlify env t, string ";", newline]) ts), p_enamed env n, |