Mercurial > urweb

comparison src/monoize.sml @ 976:68eda5b0636d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
demo/react works with interpretation
author Adam Chlipala <adamc@hcoop.net>
date Tue, 22 Sep 2009 17:12:20 -0400
parents 8371d12ae63f
children 27a3412d23e4
comparison
equal deleted inserted replaced
975:8fe576c0bee9 976:68eda5b0636d
2680 in 2680 in
2681 case attrs of 2681 case attrs of
2682 [("Signal", e, _)] => 2682 [("Signal", e, _)] =>
2683 ((L'.EStrcat 2683 ((L'.EStrcat
2684 ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">dyn(\"" 2684 ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">dyn(\""
2685 ^ tag ^ "\", exec(")), loc), 2685 ^ tag ^ "\", execD(")), loc),
2686 (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc), 2686 (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc),
2687 (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc), 2687 (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc),
2688 fm) 2688 fm)
2689 | _ => raise Fail "Monoize: Bad dyn attributes" 2689 | _ => raise Fail "Monoize: Bad dyn attributes"
2690 end 2690 end