Mercurial > urweb

comparison src/jscomp.sml @ 961:8c37699de273

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Grid sorting working
author Adam Chlipala <adamc@hcoop.net>
date Sat, 19 Sep 2009 13:32:33 -0400
parents 6f34950825b6
children 8371d12ae63f
comparison
equal deleted inserted replaced
960:6f34950825b6 961:8c37699de273
872 (strcat [str ("(" ^ s), 872 (strcat [str ("(" ^ s),
873 e, 873 e,
874 str ")"], 874 str ")"],
875 st) 875 st)
876 end 876 end
877 | EBinop ("strcmp", e1, e2) =>
878 let
879 val (e1, st) = jsE inner (e1, st)
880 val (e2, st) = jsE inner (e2, st)
881 in
882 (strcat [str "strcmp(",
883 e1,
884 str ",",
885 e2,
886 str ")"],
887 st)
888 end
877 | EBinop (s, e1, e2) => 889 | EBinop (s, e1, e2) =>
878 let 890 let
879 val s = 891 val s =
880 case s of 892 case s of
881 "!strcmp" => "==" 893 "!strcmp" => "=="