Toplevel: restore the ability to use js globals as externals

Author: hhugo

runtime/dynlink.js

@@ -42,15 +42,16 @@ function caml_dynlink_close_lib (idx) {
 //Requires: caml_jsstring_of_string
 function caml_dynlink_lookup_symbol (idx, fun_name) {
   var name = caml_jsstring_of_string(fun_name);
-  console.log("Dynlink: look for symbol ", name);
+  console.log("Dynlink: looking for symbol", name);
   if(current_libs[idx] && current_libs[idx][name])
-    return current_libs[idx][name];
+    return {name: name, symbol: current_libs[idx][name]};
   return 0;
 }
 
 //Provides: caml_dynlink_add_primitive
 //Requires: caml_global_data
 function caml_dynlink_add_primitive (dll_addr) {
+  globalThis.jsoo_runtime[dll_addr.name] = dll_addr.symbol;
   return caml_global_data.prim_count++;
 }
 

toplevel/test/test_toplevel.ml

@@ -5,6 +5,18 @@ let fmt = Format.std_formatter
 let () =
   Js_of_ocaml.Sys_js.set_channel_flusher stderr (fun str -> Printf.printf "<ERR>: %s" str)
 
+let () =
+  Js_of_ocaml_toplevel.JsooTop.execute
+    true
+    ~pp_code:fmt
+    ~highlight_location:(fun _ -> ())
+    fmt
+    {|
+external parseInt : float -> int = "parseInt"
+let f = 3.14
+let () = Printf.printf "parseInt(%f) = %d\n" f (parseInt f);;
+|}
+
 let () =
   Js_of_ocaml_toplevel.JsooTop.execute
     true

toplevel/test/test_toplevel.reference

@@ -1,4 +1,12 @@
 
+external parseInt : float -> int = "parseInt"
+let f = 3.14
+let () = Printf.printf "parseInt(%f) = %d\n" f (parseInt f);;
+Dynlink: looking for symbol parseInt
+parseInt(3.140000) = 3
+external parseInt : float -> int = "parseInt"
+val f : float = 3.14
+
 let () = print_endline "hello";;
 hello
 1+;;