diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 10:31:11 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 10:31:11 -0400 |
commit | b6c1b15d74dcf84fdb174eecc31cdf64a98f07a3 (patch) | |
tree | 5e1f870d80f1e625b95a2fae835753a0103a3285 /src | |
parent | 29f71e629bfe700a4bfcc7d2018bdab305d6fc3e (diff) |
Improvements while working on Graftid
Diffstat (limited to 'src')
-rw-r--r-- | src/jscomp.sml | 8 | ||||
-rw-r--r-- | src/settings.sml | 6 |
2 files changed, 9 insertions, 5 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index d10bfd50..c01b9e10 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -824,11 +824,11 @@ fun process file = val (e, st) = jsE inner (e', st) in - (strcat (str "(" + (strcat (str "(d0=" + :: e + :: str "," :: List.revAppend (cases, - [str "d0=", - e, - str ",c0())"])), st) + [str "c0())"])), st) end | EStrcat (e1, e2) => diff --git a/src/settings.sml b/src/settings.sml index d04720c8..bdadb318 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -144,7 +144,11 @@ val jsFuncsBase = basisM [("alert", "alert"), ("onFail", "onFail"), ("onConnectFail", "onConnectFail"), ("onDisconnect", "onDisconnect"), - ("onServerError", "onServerError")] + ("onServerError", "onServerError"), + ("attrifyString", "escape"), + ("attrifyInt", "ts"), + ("attrifyFloat", "ts"), + ("attrifyBool", "bs")] val jsFuncs = ref jsFuncsBase fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls fun jsFunc x = M.find (!jsFuncs, x) |