Merge pull request #4393 from jchavarri/load-modules-3

Playground: Bring back load_modules API

Author: bobzhang

jscomp/main/jsoo_main.ml

@@ -103,17 +103,6 @@ let implementation ~use_super_errors impl str  : Js.Unsafe.obj =
 let compile impl ~use_super_errors  =
     implementation ~use_super_errors impl
 
-
-
-
-(* let load_module cmi_path cmi_content cmj_name cmj_content =
-  Js.create_file cmi_path cmi_content;
-  Js_cmj_datasets.data_sets :=
-    Map_string.add !Js_cmj_datasets.data_sets
-      cmj_name (lazy (Js_cmj_format.from_string cmj_content))
-       *)
-
-
 let export (field : string) v =
   Js.Unsafe.set (Js.Unsafe.global) field v
 ;;
@@ -122,10 +111,8 @@ let export (field : string) v =
 
 let dir_directory d =
   Config.load_path := d :: !Config.load_path
-
-
 let () =
-  dir_directory "/static/cmis"
+  dir_directory "/static"
 
 let make_compiler name impl =
   export name
@@ -141,15 +128,12 @@ let make_compiler name impl =
                       (fun _ code ->
                          (compile impl ~use_super_errors:true (Js.to_string code)));                    
                     "version", Js.Unsafe.inject (Js.string (Bs_version.version));
-                    (* "load_module",
+                    "load_module",
                     inject @@
                     Js.wrap_meth_callback
-                      (fun _ cmi_path cmi_content cmj_name cmj_content ->
-                        let cmj_bytestring = Js.to_bytestring cmj_content in
-                        (* HACK: force string tag to ASCII (9) to avoid
-                         * UTF-8 encoding *)
-                        Js.Unsafe.set cmj_bytestring "t" 9;
-                        load_module cmi_path cmi_content (Js.to_string cmj_name) cmj_bytestring); *)
+                      (fun _ cmi_path cmi_content cmj_path cmj_content ->
+                        Js.create_file cmi_path cmi_content;
+                        Js.create_file cmj_path cmj_content);
                   |]))
 let () = make_compiler "ocaml" Parse.implementation