Mercurial > urweb

diff 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
line wrap: on
line diff
--- a/src/jscomp.sml	Sat Sep 19 10:56:09 2009 -0400
+++ b/src/jscomp.sml	Sat Sep 19 13:32:33 2009 -0400
@@ -874,6 +874,18 @@
                                          str ")"],
                                  st)
                             end
+                          | EBinop ("strcmp", e1, e2) =>
+                            let
+                                val (e1, st) = jsE inner (e1, st)
+                                val (e2, st) = jsE inner (e2, st)
+                            in
+                                (strcat [str "strcmp(",
+                                         e1,
+                                         str ",",
+                                         e2,
+                                         str ")"],
+                                 st)
+                            end                                
                           | EBinop (s, e1, e2) =>
                             let
                                 val s =