std_map_added

generator/Makefile

@@ -34,6 +34,7 @@ ASSEMBLY_JS_FILES := \
 	LibList.unlog.js \
 	LibOption.unlog.js \
 	LibProd.unlog.js \
+	StdMap.unlog.js \
 	Heap.unlog.js \
 	Shared.unlog.js \
 	Compare.js \

generator/js_of_ast.ml

@@ -120,6 +120,7 @@ let map_cstr_fields ?loc bind (cstr : constructor_description) elements =
   with   Map_fields_elements_mismatch_number_args -> 
      error ?loc ("Insufficient fieldnames for arguments to " ^ cstr.cstr_name)
   
+
 (****************************************************************)
 (* PPF HELPERS *)
 

generator/stdlib_ml/stdlib.js

@@ -90,6 +90,10 @@ var string_eq = function(x, y)  {
   return x === y; 
 };
 
+var string_compare = function(x, y) {
+  return x.localeCompare(y);
+};
+
 var strappend = function(x, y) { 
   if (typeof(x) != "string" || typeof(y) != "string")
     throw "strappend invalid arguments";

generator/stdlib_ml/stdlib.mli

@@ -125,6 +125,7 @@ val ( || ) : bool -> bool -> bool  (* beware of strict vs lazy semantics: todo d
 (* todo : factorize and clean up *)
 
 val string_eq : string -> string -> bool (* === *)
+val string_compare : string -> string -> float (* actually returns an int *)
 
 (*
    val string_concat : string -> string -> string (* + *)