Mercurial > urweb

comparison src/mono_print.sml @ 1073:b2311dfb3158

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initializers and setval
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Dec 2009 14:20:41 -0500
parents 217eb87dde31
children 0657e5adc938
comparison
equal deleted inserted replaced
1072:9001966ae1c8 1073:b2311dfb3158
318 p_exp env e, 318 p_exp env e,
319 string ")"] 319 string ")"]
320 | ENextval e => box [string "nextval(", 320 | ENextval e => box [string "nextval(",
321 p_exp env e, 321 p_exp env e,
322 string ")"] 322 string ")"]
323 | ESetval (e1, e2) => box [string "setval(",
324 p_exp env e1,
325 string ",",
326 space,
327 p_exp env e2,
328 string ")"]
323 | EUnurlify (e, _) => box [string "unurlify(", 329 | EUnurlify (e, _) => box [string "unurlify(",
324 p_exp env e, 330 p_exp env e,
325 string ")"] 331 string ")"]
326 | EJavaScript (m, e) => box [string "JavaScript(", 332 | EJavaScript (m, e) => box [string "JavaScript(",
327 p_mode env m, 333 p_mode env m,
483 space, 489 space,
484 string s] 490 string s]
485 | DStyle s => box [string "style", 491 | DStyle s => box [string "style",
486 space, 492 space,
487 string s] 493 string s]
494 | DInitializer e => box [string "initializer",
495 space,
496 p_exp env e]
488 497
489 498
490 fun p_file env file = 499 fun p_file env file =
491 let 500 let
492 val (pds, _) = ListUtil.foldlMap (fn (d, env) => 501 val (pds, _) = ListUtil.foldlMap (fn (d, env) =>