enforcing snapshot in CI mode

Author: bobzhang

.travis.yml

@@ -1,14 +1,13 @@
 language: node_js
 
-git:
-  submodules: false
-# subtree now
 
 env:
   - BS_TRAVIS_CI=1
 node_js:
   - 6
 
+# before_install: make -C jscomp force-snapshotml    
+# https://docs.travis-ci.com/user/customizing-the-build/#the-build-lifecycle
 # script: npm run coveralls
 # if we turn on this script, we should make
 # sure `npm test` is executed

lib/bsdep.ml

@@ -27250,7 +27250,7 @@ let set_current_file f  = current_file := f
 let get_current_file () = !current_file
 let get_module_name () =
   Filename.chop_extension
-    (Filename.basename (String.uncapitalize !current_file))
+    (Filename.basename (Ext_string.uncapitalize_ascii !current_file))
 
 let iset_debug_file _ = ()
 let set_debug_file  f = debug_file := f
@@ -35857,7 +35857,7 @@ let init () =
                     ( {pcd_name = {loc ; txt = con_name} ; pcd_args ; pcd_loc }:
                         Parsetree.constructor_declaration)
                     -> (* TODO: add type annotations *)
-                      let little_con_name = String.uncapitalize con_name  in
+                      let little_con_name = Ext_string.uncapitalize_ascii con_name  in
                       let arity = List.length pcd_args in 
                       Ast_comb.single_non_rec_value {loc ; txt = little_con_name}
                         (
@@ -35922,7 +35922,7 @@ let init () =
                   (fun  ({pcd_name = {loc ; txt = con_name} ; pcd_args ; pcd_loc }:
                            Parsetree.constructor_declaration)
                     -> 
-                      Ast_comb.single_non_rec_val {loc ; txt = (String.uncapitalize con_name)}
+                      Ast_comb.single_non_rec_val {loc ; txt = (Ext_string.uncapitalize_ascii con_name)}
                         (Ext_list.fold_right 
                            (fun x acc -> Typ.arrow "" x acc) 
                            pcd_args

lib/bsppx.ml

@@ -9192,7 +9192,7 @@ let set_current_file f  = current_file := f
 let get_current_file () = !current_file
 let get_module_name () =
   Filename.chop_extension
-    (Filename.basename (String.uncapitalize !current_file))
+    (Filename.basename (Ext_string.uncapitalize_ascii !current_file))
 
 let iset_debug_file _ = ()
 let set_debug_file  f = debug_file := f
@@ -17862,7 +17862,7 @@ let init () =
                     ( {pcd_name = {loc ; txt = con_name} ; pcd_args ; pcd_loc }:
                         Parsetree.constructor_declaration)
                     -> (* TODO: add type annotations *)
-                      let little_con_name = String.uncapitalize con_name  in
+                      let little_con_name = Ext_string.uncapitalize_ascii con_name  in
                       let arity = List.length pcd_args in 
                       Ast_comb.single_non_rec_value {loc ; txt = little_con_name}
                         (
@@ -17927,7 +17927,7 @@ let init () =
                   (fun  ({pcd_name = {loc ; txt = con_name} ; pcd_args ; pcd_loc }:
                            Parsetree.constructor_declaration)
                     -> 
-                      Ast_comb.single_non_rec_val {loc ; txt = (String.uncapitalize con_name)}
+                      Ast_comb.single_non_rec_val {loc ; txt = (Ext_string.uncapitalize_ascii con_name)}
                         (Ext_list.fold_right 
                            (fun x acc -> Typ.arrow "" x acc) 
                            pcd_args

lib/whole_compiler.ml

@@ -23079,7 +23079,7 @@ let set_current_file f  = current_file := f
 let get_current_file () = !current_file
 let get_module_name () =
   Filename.chop_extension
-    (Filename.basename (String.uncapitalize !current_file))
+    (Filename.basename (Ext_string.uncapitalize_ascii !current_file))
 
 let iset_debug_file _ = ()
 let set_debug_file  f = debug_file := f
@@ -59978,7 +59978,7 @@ end = struct
 
 
 let find_in_path_uncap path name =
-  let uname = String.uncapitalize name in
+  let uname = Ext_string.uncapitalize_ascii name in
   let rec try_dir = function
     | [] -> None
     | dir::rem ->      
@@ -111306,7 +111306,7 @@ let init () =
                     ( {pcd_name = {loc ; txt = con_name} ; pcd_args ; pcd_loc }:
                         Parsetree.constructor_declaration)
                     -> (* TODO: add type annotations *)
-                      let little_con_name = String.uncapitalize con_name  in
+                      let little_con_name = Ext_string.uncapitalize_ascii con_name  in
                       let arity = List.length pcd_args in 
                       Ast_comb.single_non_rec_value {loc ; txt = little_con_name}
                         (
@@ -111371,7 +111371,7 @@ let init () =
                   (fun  ({pcd_name = {loc ; txt = con_name} ; pcd_args ; pcd_loc }:
                            Parsetree.constructor_declaration)
                     -> 
-                      Ast_comb.single_non_rec_val {loc ; txt = (String.uncapitalize con_name)}
+                      Ast_comb.single_non_rec_val {loc ; txt = (Ext_string.uncapitalize_ascii con_name)}
                         (Ext_list.fold_right 
                            (fun x acc -> Typ.arrow "" x acc) 
                            pcd_args

scripts/install.js

@@ -151,9 +151,14 @@ function non_windows_npm_release() {
         return true // already built before
     }
     if (checkPrebuilt()) {
+        // release mode, already has bsc.exe
         child_process.execSync(make + " libs && " + make + " install", root_dir_config)
     } else {
         tryToProvideOCamlCompiler()
+        if(process.env.BS_TRAVIS_CI){
+            console.log('Enforcing snapshot in CI mode')
+            child_process.execSync("make -C jscomp force-snapshotml", root_dir_config)
+        }
         child_process.execSync(make + " world && " + make + " install", root_dir_config)
     }
 }