make stdlib configurable < part 1>

Author: bobzhang

jscomp/bsb/bsb_config_parse.ml

@@ -25,7 +25,7 @@
 
 (* let get_list_string = Bsb_build_util.get_list_string *)
 let (//) = Ext_path.combine
-let current_package : Bsb_pkg_types.t = Global Bs_version.package_name
+
 let resolve_package cwd  package_name = 
   let x =  Bsb_pkg.resolve_bs_package ~cwd package_name  in
   {
@@ -113,6 +113,7 @@ let check_stdlib (map : json_map) cwd (*built_in_package*) =
   | None 
   | Some _ ->
     begin
+      let current_package : Bsb_pkg_types.t = Global !Bs_version.package_name in  
       if Sys.getenv_opt "RES_SKIP_STDLIB_CHECK" = None then begin 
         let stdlib_path = 
           Bsb_pkg.resolve_bs_package ~cwd current_package in 

jscomp/bsb/bsb_exception.ml

@@ -57,12 +57,12 @@ let print (fmt : Format.formatter) (x : error) =
     | None -> Ext_string.empty
     | Some x -> " in " ^ x in
     let name = Bsb_pkg_types.to_string name in 
-    if Ext_string.equal name Bs_version.package_name then
+    if Ext_string.equal name !Bs_version.package_name then
       Format.fprintf fmt
       "File \"bsconfig.json\", line 1\n\
-       @{<error>Error:@} package @{<error>bs-platform@} is not found %s\n\
+       @{<error>Error:@} package @{<error>%s@} is not found %s\n\
        It's the basic, required package. If you have it installed globally,\n\
-       Please run `npm link bs-platform` to make it available" in_json
+       Please run `npm link bs-platform` to make it available" name in_json
     else
       Format.fprintf fmt
         "File \"bsconfig.json\", line 1\n\

jscomp/build_version.js

@@ -42,7 +42,7 @@ fs.writeFileSync(
 let version = "${version}"
 let header = 
    "// Generated by ReScript, PLEASE EDIT WITH CARE"  
-let package_name = "${name}"   
+let package_name = ref "${name}"   
     `,
   "utf8"
 );

jscomp/common/bs_version.ml

@@ -22,8 +22,8 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)    
-let version = "8.4.0"
+let version = "8.5.0"
 let header = 
    "// Generated by ReScript, PLEASE EDIT WITH CARE"  
-let package_name = "bs-platform"   
+let package_name = ref "bs-platform"   
 

jscomp/common/bs_version.mli

@@ -26,4 +26,4 @@ val version : string
 
 val header : string 
 
-val package_name : string
+val package_name : string ref

jscomp/core/js_name_of_module_id.ml

@@ -34,6 +34,7 @@ let fix_path_for_windows : string -> string =
   else fun s -> s 
 
 
+(* dependency is runtime module *)  
 let get_runtime_module_path 
     (dep_module_id : Lam_module_ident.t) 
     (current_package_info : Js_packages_info.t)

jscomp/core/js_packages_info.ml

@@ -56,7 +56,7 @@ type package_name  =
 
 
 
-let runtime_package_name = "bs-platform"
+
 
 
 let (//) = Filename.concat    
@@ -70,7 +70,7 @@ let runtime_dir_of_module_system (ms : module_system ) =
 let runtime_package_path 
     (ms : module_system) 
     js_file =        
-  runtime_package_name // "lib" // runtime_dir_of_module_system ms // js_file
+  !Bs_version.package_name // "lib" // runtime_dir_of_module_system ms // js_file
 
 
 type t =
@@ -86,6 +86,14 @@ let runtime_package_specs : t = {
     {module_system = NodeJS; path = "lib/js"; suffix = Js};
   ]
 }   
+
+(**
+  populated by the command line
+*)
+let runtime_test_package_specs : t = {
+  name = Pkg_runtime; 
+  module_systems = []
+}
 let same_package_by_name (x : t) (y : t) = x.name = y.name 
 
 let is_runtime_package (x : t) = 
@@ -112,16 +120,10 @@ let empty : t =
     module_systems =  []
   }
 
-let from_name (name : string) =
-  if name = runtime_package_name then 
-    {
-      name = Pkg_runtime ; module_systems = [] 
-    }
-  else 
-    {
-      name = Pkg_normal name  ;
-      module_systems = [] 
-    }
+let from_name (name : string) : t = {
+  name = Pkg_normal name  ;
+  module_systems = [] 
+}
 
 let is_empty  (x : t) =
   x.name = Pkg_empty
@@ -156,7 +158,7 @@ let dump_package_name fmt (x : package_name) =
   match x with 
   | Pkg_empty -> Format.fprintf fmt "@empty_pkg@"
   | Pkg_normal s -> Format.pp_print_string fmt s 
-  | Pkg_runtime -> Format.pp_print_string fmt runtime_package_name
+  | Pkg_runtime -> Format.pp_print_string fmt "@runtime"
 
 let dump_packages_info 
     (fmt : Format.formatter) 
@@ -208,7 +210,7 @@ let query_package_infos
         compatible k.module_system  module_system)  with
     | Some k -> 
       let rel_path = k.path in 
-      let pkg_rel_path = runtime_package_name // rel_path in 
+      let pkg_rel_path = !Bs_version.package_name // rel_path in 
       Package_found 
         { 
           rel_path ;
@@ -221,7 +223,8 @@ let query_package_infos
 
 let get_js_path 
     (x : t )
-    module_system 
+    (module_system : module_system) 
+    : string
   = 
   match Ext_list.find_first x.module_systems (fun k -> 
       compatible k.module_system  module_system) with

jscomp/core/js_packages_info.mli

@@ -47,6 +47,9 @@ type package_info = {
 type t 
 
 val runtime_package_specs : t 
+
+val runtime_test_package_specs : t  
+
 val is_runtime_package:
   t ->
   bool

jscomp/core/js_packages_state.ml

@@ -33,6 +33,11 @@ let set_package_name name =
   else
     Bsc_args.bad_arg "duplicated flag for -bs-package-name"
 
+let make_runtime () : unit = 
+  packages_info :=  Js_packages_info.runtime_package_specs
+
+let make_runtime_test () : unit = 
+  packages_info := Js_packages_info.runtime_test_package_specs  
 let set_package_map module_name = 
     (* set_package_name name ; 
     let module_name = Ext_namespace.namespace_of_package_name name  in  *)

jscomp/core/js_packages_state.mli

@@ -26,6 +26,11 @@
 
 val set_package_name : string -> unit 
 
+val make_runtime:
+  unit -> unit
+
+val make_runtime_test:   
+  unit -> unit
 val set_package_map : string -> unit 
 
 val get_packages_info :