Stdlib namespace for Core modules

Author: cknitt

compiler/core/res_compmisc.ml

@@ -54,7 +54,10 @@ let initial_env ?modulename () =
   let initial = Env.initial_safe_string in
   let env =
     if !Clflags.nopervasives then initial
-    else open_implicit_module "Pervasives" initial
+    else
+      initial
+      |> open_implicit_module "Pervasives"
+      |> open_implicit_module "Stdlib"
   in
   List.fold_left
     (fun env m -> open_implicit_module m env)

compiler/gentype/TranslateTypeExprFromTypes.ml

@@ -86,7 +86,7 @@ let translate_constr ~config ~params_translation ~(path : Path.t) ~type_env =
     {dependencies = []; type_ = string_t}
   | (["Js"; "Types"; "bigint_val"] | ["BigInt"; "t"]), [] ->
     {dependencies = []; type_ = bigint_t}
-  | (["Js"; "Date"; "t"] | ["Date"; "t"]), [] ->
+  | (["Js"; "Date"; "t"] | ["Date"; "t"] | ["Stdlib_Date"; "t"]), [] ->
     {dependencies = []; type_ = date_t}
   | ["Map"; "t"], [param_translation1; param_translation2] ->
     {
@@ -110,7 +110,7 @@ let translate_constr ~config ~params_translation ~(path : Path.t) ~type_env =
       dependencies = param_translation.dependencies;
       type_ = weakset_t param_translation.type_;
     }
-  | (["Js"; "Re"; "t"] | ["RegExp"; "t"]), [] ->
+  | (["Js"; "Re"; "t"] | ["Stdlib_RegExp"; "t"]), [] ->
     {dependencies = []; type_ = regexp_t}
   | (["FB"; "unit"] | ["unit"]), [] -> {dependencies = []; type_ = unit_t}
   | ( (["FB"; "array"] | ["array"] | ["Js"; ("Array" | "Array2"); "t"]),

compiler/ml/ast_untagged_variants.ml

@@ -179,8 +179,8 @@ let type_to_instanceof_backed_obj (t : Types.type_expr) =
   | Tconstr (path, _, _) when Path.same path Predef.path_array -> Some Array
   | Tconstr (path, _, _) -> (
     match Path.name path with
-    | "Js_date.t" -> Some Date
-    | "Js_re.t" -> Some RegExp
+    | "Stdlib_Date.t" -> Some Date
+    | "Stdlib_RegExp.t" -> Some RegExp
     | "Js_file.t" -> Some File
     | "Js_blob.t" -> Some Blob
     | _ -> None)

lib/es6/Int.js

@@ -1,6 +1,6 @@
 
 
-import * as $$Array from "./Array.js";
+import * as Stdlib_Array from "./Stdlib_Array.js";
 
 function fromString(x, radix) {
   let maybeInt = radix !== undefined ? parseInt(x, radix) : parseInt(x);
@@ -46,7 +46,7 @@ function range(start, end, optionsOpt) {
     let range$2 = options.inclusive === true ? range$1 + 1 | 0 : range$1;
     length = Math.ceil(range$2 / abs(step)) | 0;
   }
-  return $$Array.fromInitializer(length, i => start + Math.imul(i, step) | 0);
+  return Stdlib_Array.fromInitializer(length, i => start + Math.imul(i, step) | 0);
 }
 
 function rangeWithOptions(start, end, options) {

lib/es6/List.js

@@ -1,6 +1,6 @@
 
 
-import * as $$Array from "./Array.js";
+import * as Stdlib_Array from "./Stdlib_Array.js";
 import * as Primitive_int from "./Primitive_int.js";
 import * as Primitive_option from "./Primitive_option.js";
 
@@ -648,7 +648,7 @@ function toArray(x) {
 
 function toShuffled(xs) {
   let v = toArray(xs);
-  $$Array.shuffle(v);
+  Stdlib_Array.shuffle(v);
   return fromArray(v);
 }
 

lib/es6/Stdlib.js

@@ -0,0 +1,33 @@
+
+
+
+let $$Array;
+
+let $$Date;
+
+let Dict;
+
+let $$Promise;
+
+let $$RegExp;
+
+let Result;
+
+let $$Set;
+
+let $$String;
+
+let $$Symbol;
+
+export {
+  $$Array,
+  $$Date,
+  Dict,
+  $$Promise,
+  $$RegExp,
+  Result,
+  $$Set,
+  $$String,
+  $$Symbol,
+}
+/* No side effect */