Mercurial > urweb

comparison src/monoize.sml @ 800:e92cfac1608f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper lifting of MonoEnv stored expressions; avoidance of onchange clobbering
author Adam Chlipala <adamc@hcoop.net>
date Thu, 14 May 2009 13:18:31 -0400
parents 2c463eee89fa
children ef6de4075dc1
comparison
equal deleted inserted replaced
799:9330ba3a2799 800:e92cfac1608f
2496 let 2496 let
2497 val s = (L'.EPrim (Prim.String (String.concat ["<", tag])), loc) 2497 val s = (L'.EPrim (Prim.String (String.concat ["<", tag])), loc)
2498 2498
2499 val assgns = List.mapPartial 2499 val assgns = List.mapPartial
2500 (fn ("Source", _, _) => NONE 2500 (fn ("Source", _, _) => NONE
2501 | ("Onchange", e, _) =>
2502 SOME (strcat [str "addOnChange(d,",
2503 (L'.EJavaScript (L'.Script, e, NONE), loc),
2504 str ")"])
2501 | (x, e, _) => 2505 | (x, e, _) =>
2502 SOME (strcat [str ("d." ^ lowercaseFirst x ^ "="), 2506 SOME (strcat [str ("d." ^ lowercaseFirst x ^ "="),
2503 (L'.EJavaScript (L'.Script, e, NONE), loc), 2507 (L'.EJavaScript (L'.Script, e, NONE), loc),
2504 str ";"])) 2508 str ";"]))
2505 attrs 2509 attrs