snapshotml

Author: bobzhang

jscomp/all.depend

@@ -346,7 +346,8 @@ core/lam_analysis.cmx : core/lam.cmx core/lam_analysis.cmi
 core/lam_closure.cmx : core/lam_analysis.cmx core/lam.cmx ext/ident_set.cmx \
     ext/ident_map.cmx core/lam_closure.cmi
 core/js_cmj_format.cmx : ext/string_map.cmx core/lam.cmx \
-    common/js_config.cmx ext/ext_pervasives.cmx core/js_cmj_format.cmi
+    common/js_config.cmx ext/ext_string.cmx ext/ext_pervasives.cmx \
+    core/js_cmj_format.cmi
 core/js_fun_env.cmx : ext/ident_set.cmx ext/ext_list.cmx core/js_fun_env.cmi
 core/js_call_info.cmx : core/js_call_info.cmi
 core/js_closure.cmx : ext/ident_set.cmx core/js_closure.cmi
@@ -654,17 +655,17 @@ bsb/bsb_build_util.cmx : ext/literals.cmx ext/ext_sys.cmx ext/ext_string.cmx \
     bsb/bsb_build_util.cmi
 bsb/bsb_config.cmx : ext/string_set.cmx ext/literals.cmx ext/ext_string.cmx \
     ext/ext_filename.cmx bsb/bsb_config.cmi
-bsb/bsb_config_parse.cmx : ext/string_hash_set.cmx ext/literals.cmx \
-    ext/ext_string.cmx ext/ext_json.cmx ext/ext_filename.cmx \
+bsb/bsb_config_parse.cmx : ext/string_map.cmx ext/string_hash_set.cmx \
+    ext/literals.cmx ext/ext_string.cmx ext/ext_json.cmx ext/ext_filename.cmx \
     ext/ext_file_pp.cmx bsb/bsb_default.cmx bsb/bsb_config_types.cmx \
     bsb/bsb_config.cmx bsb/bsb_build_util.cmx bsb/bsb_build_ui.cmx \
     bsb/bsb_build_schemas.cmx bsb/bsb_config_parse.cmi
 bsb/bsb_config_types.cmx : ext/string_hash_set.cmx bsb/bsb_config.cmx \
     bsb/bsb_build_ui.cmx
 bsb/bsb_default.cmx : ext/string_set.cmx ext/literals.cmx \
     ext/ext_pervasives.cmx ext/ext_filename.cmx bsb/bsb_config_types.cmx \
-    bsb/bsb_config.cmx bsb/bsb_build_util.cmx common/bs_pkg.cmx \
-    bsb/bsb_default.cmi
+    bsb/bsb_config.cmx bsb/bsb_build_util.cmx common/bs_version.cmx \
+    common/bs_pkg.cmx bsb/bsb_default.cmi
 bsb/bsb_dep_infos.cmx : bsb/bsb_dep_infos.cmi
 bsb/bsb_dir.cmx : bsb/bsb_dir.cmi
 bsb/bsb_file.cmx : bsb/bsb_file.cmi

jscomp/bin/all_ounit_tests.ml

@@ -1294,6 +1294,12 @@ val map2i : (int -> 'a -> 'b -> 'c ) -> 'a array -> 'b array -> 'c array
 
 val to_list_map : ('a -> 'b option) -> 'a array -> 'b list 
 
+val to_list_map_acc : 
+  ('a -> 'b option) -> 
+  'a array -> 
+  'b list -> 
+  'b list 
+
 val of_list_map : ('a -> 'b) -> 'a list -> 'b array 
 
 val rfind_with_index : 'a array -> ('a -> 'b -> bool) -> 'b -> int
@@ -1414,15 +1420,20 @@ let map2i f a b =
   else
     Array.mapi (fun i a -> f i  a ( Array.unsafe_get b i )) a 
 
-let to_list_map f a =
-  let rec tolist i res =
+
+ let rec tolist_aux a f  i res =
     if i < 0 then res else
       let v = Array.unsafe_get a i in
-      tolist (i - 1)
+      tolist_aux a f  (i - 1)
         (match f v with
          | Some v -> v :: res
-         | None -> res) in
-  tolist (Array.length a - 1) []
+         | None -> res) 
+
+let to_list_map f a = 
+  tolist_aux a f (Array.length a - 1) []
+
+let to_list_map_acc f a acc = 
+  tolist_aux a f (Array.length a - 1) acc
 
 
 (* TODO: What would happen if [f] raise, memory leak? *)
@@ -2262,7 +2273,19 @@ let suites =
         Ext_array.of_list_map succ [] =~ [||];
         Ext_array.of_list_map succ [1]  =~ [|2|];
         Ext_array.of_list_map succ [1;2;3]  =~ [|2;3;4|];
-    end
+    end; 
+    __LOC__ >:: begin fun _ -> 
+        Ext_array.to_list_map_acc
+        (fun x -> if x mod 2 = 0 then Some x else None )
+        [|1;2;3;4;5;6|] [1;2;3]
+        =~ [2;4;6;1;2;3]
+    end;
+    __LOC__ >:: begin fun _ -> 
+        Ext_array.to_list_map_acc
+        (fun x -> if x mod 2 = 0 then Some x else None )
+        [|1;2;3;4;5;6|] []
+        =~ [2;4;6]
+    end;
     ]
 end
 module Ounit_tests_util
@@ -3539,7 +3562,10 @@ val commonjs : string
 val amdjs : string 
 val goog : string 
 val es6 : string 
+val es6_global : string
+val amdjs_global : string 
 val unused_attribute : string 
+val dash_nostdlib : string
 end = struct
 #1 "literals.ml"
 (* Copyright (C) 2015-2016 Bloomberg Finance L.P.
@@ -3639,8 +3665,10 @@ let commonjs = "commonjs"
 let amdjs = "amdjs"
 let goog = "goog"
 let es6 = "es6"
-
+let es6_global = "es6-global"
+let amdjs_global = "amdjs-global"
 let unused_attribute = "Unused attribute " 
+let dash_nostdlib = "-nostdlib"
 end
 module Ounit_cmd_util : sig 
 #1 "ounit_cmd_util.mli"

jscomp/bin/bsb.d

@@ -49,10 +49,12 @@ bin/bsb.ml : ext/hash_set_gen.ml
 bin/bsb.ml : ext/resize_array.ml
 bin/bsb.ml : bsb/bsb_build_ui.mli
 bin/bsb.ml : bsb/bsb_dep_infos.ml
+bin/bsb.ml : common/bs_version.ml
 bin/bsb.ml : ext/ext_filename.mli
 bin/bsb.ml : ext/resize_array.mli
 bin/bsb.ml : bsb/bsb_build_util.ml
 bin/bsb.ml : bsb/bsb_dep_infos.mli
+bin/bsb.ml : common/bs_version.mli
 bin/bsb.ml : ext/ext_pervasives.ml
 bin/bsb.ml : bsb/bsb_build_util.mli
 bin/bsb.ml : common/binary_cache.ml