playground: bring back load_modules

Author: jchavarri

jscomp/core/config_util.ml

@@ -30,7 +30,7 @@
 let find_in_path_uncap path name =
   let uname = Ext_string.uncapitalize_ascii name in
   let rec try_dir = function
-    | [] -> None
+    | [] -> if Sys.file_exists name then Some name else None
     | dir::rem ->      
       let ufullname = Filename.concat dir uname in
       if Sys.file_exists ufullname then Some ufullname

jscomp/main/jsoo_main.ml

@@ -103,30 +103,10 @@ 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
 ;;
 
-(* To add a directory to the load path *)
-
-let dir_directory d =
-  Config.load_path := d :: !Config.load_path
-
-
-let () =
-  dir_directory "/static/cmis"
-
 let make_compiler name impl =
   export name
     (Js.Unsafe.(obj
@@ -141,15 +121,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