Mercurial > urweb

comparison src/monoize.sml @ 1712:355dc023fbb8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Saving uw_event for all events (so stopPropagation works everywhere)
author Vladimir Shabanov <vshabanoff@gmail.com>
date Wed, 11 Apr 2012 03:05:26 +0400
parents 78ea155b6b14
children 1b3f82b09bb0
comparison
equal deleted inserted replaced
1711:78ea155b6b14 1712:355dc023fbb8
3110 result = (L'.TFfi ("Basis", "string"), loc)}), loc), 3110 result = (L'.TFfi ("Basis", "string"), loc)}), loc),
3111 fm) 3111 fm)
3112 end 3112 end
3113 | (L'.TFun (dom, _), _) => 3113 | (L'.TFun (dom, _), _) =>
3114 let 3114 let
3115 val s' = " " ^ lowercaseFirst x ^ "='" 3115 val e =
3116 val (e, s') =
3117 case #1 dom of 3116 case #1 dom of
3118 L'.TRecord [] => ((L'.EApp (e, (L'.ERecord [], loc)), loc), s') 3117 L'.TRecord [] => (L'.EApp (e, (L'.ERecord [], loc)), loc)
3119 | _ => ((L'.EApp ((L'.EApp (e, (L'.EFfiApp ("Basis", "kc", []), loc)), 3118 | _ => (L'.EApp ((L'.EApp (e, (L'.EFfiApp ("Basis", "kc", []), loc)),
3120 loc), (L'.ERecord [], loc)), loc), 3119 loc), (L'.ERecord [], loc)), loc)
3121 s' ^ "uw_event=event;") 3120 val s' = " " ^ lowercaseFirst x ^ "='uw_event=event;exec("
3122 val s' = s' ^ "exec("
3123 in 3121 in
3124 ((L'.EStrcat (s, 3122 ((L'.EStrcat (s,
3125 (L'.EStrcat ( 3123 (L'.EStrcat (
3126 (L'.EPrim (Prim.String s'), loc), 3124 (L'.EPrim (Prim.String s'), loc),
3127 (L'.EStrcat ( 3125 (L'.EStrcat (