Snapshot js_compiler / js_refmt_compiler

Author: ryyppy

lib/4.06.1/unstable/js_compiler.ml

@@ -110466,6 +110466,86 @@ let dump_deps_program
     (oc : out_channel) = 
   pp_deps_program ~output_prefix  kind x (P.from_channel oc)
 
+end
+module Jsoo_common : sig 
+#1 "jsoo_common.mli"
+(**
+This module is shared between different JSOO / Playground based modules
+*)
+module Js :
+  sig
+    module Unsafe :
+      sig
+        type any
+        external inject : 'a -> any = "%identity"
+        external get : 'a -> 'b -> 'c = "caml_js_get"
+        external set : 'a -> 'b -> 'c -> unit = "caml_js_set"
+        external pure_js_expr : string -> 'a = "caml_pure_js_expr"
+        val global : 'a
+        type obj
+        external obj : (string * any) array -> obj = "caml_js_object"
+      end
+    type (-'a, +'b) meth_callback
+    type 'a callback = (unit, 'a) meth_callback
+    external wrap_callback : ('a -> 'b) -> ('c, 'a -> 'b) meth_callback
+      = "caml_js_wrap_callback"
+    external wrap_meth_callback : ('a -> 'b) -> ('a, 'b) meth_callback
+      = "caml_js_wrap_meth_callback"
+    type +'a t
+    type js_string
+    external string : string -> js_string t = "caml_js_from_string"
+    external to_string : js_string t -> string = "caml_js_to_string"
+    external create_file : js_string t -> js_string t -> unit
+      = "caml_create_file"
+    external to_bytestring : js_string t -> string = "caml_js_to_byte_string"
+  end
+
+(*
+Creates a Js Error object for given location with and a certain error message
+*)
+val mk_js_error : Location.t -> string -> Js.Unsafe.obj
+
+end = struct
+#1 "jsoo_common.ml"
+module Js = struct
+  module Unsafe = struct
+    type any
+    external inject : 'a -> any = "%identity"
+    external get : 'a -> 'b -> 'c = "caml_js_get"
+    external set : 'a -> 'b -> 'c -> unit = "caml_js_set"
+    external pure_js_expr : string -> 'a = "caml_pure_js_expr"
+    let global = pure_js_expr "joo_global_object"
+    type obj
+    external obj : (string * any) array -> obj = "caml_js_object"
+  end
+  type (-'a, +'b) meth_callback
+  type 'a callback = (unit, 'a) meth_callback
+  external wrap_callback : ('a -> 'b) -> ('c, 'a -> 'b) meth_callback = "caml_js_wrap_callback"
+  external wrap_meth_callback : ('a -> 'b) -> ('a, 'b) meth_callback = "caml_js_wrap_meth_callback"
+  type + 'a t
+  type js_string
+  external string : string -> js_string t = "caml_js_from_string"
+  external to_string : js_string t -> string = "caml_js_to_string"
+  external create_file : js_string t -> js_string t -> unit = "caml_create_file"
+  external to_bytestring : js_string t -> string = "caml_js_to_byte_string"
+end
+
+let mk_js_error (loc: Location.t) (msg: string) = 
+  let (file,line,startchar) = Location.get_pos_info loc.Location.loc_start in
+  let (file,endline,endchar) = Location.get_pos_info loc.Location.loc_end in
+  Js.Unsafe.(obj
+  [|
+  "js_error_msg",
+    inject @@ Js.string (Printf.sprintf "Line %d, %d:\n  %s"  line startchar msg);
+  "row"    , inject (line - 1);
+  "column" , inject startchar;
+  "endRow" , inject (endline - 1);
+  "endColumn" , inject endchar;
+  "text" , inject @@ Js.string msg;
+  "type" , inject @@ Js.string "error"
+  |]
+  )
+  
 end
 module Js_fold_basic : sig 
 #1 "js_fold_basic.mli"
@@ -133074,29 +133154,7 @@ end = struct
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 (** *)
-module Js = struct
-  module Unsafe = struct
-    type any
-    external inject : 'a -> any = "%identity"
-    external get : 'a -> 'b -> 'c = "caml_js_get"
-    external set : 'a -> 'b -> 'c -> unit = "caml_js_set"
-    external pure_js_expr : string -> 'a = "caml_pure_js_expr"
-    let global = pure_js_expr "joo_global_object"
-    type obj
-    external obj : (string * any) array -> obj = "caml_js_object"
-  end
-  type (-'a, +'b) meth_callback
-  type 'a callback = (unit, 'a) meth_callback
-  external wrap_callback : ('a -> 'b) -> ('c, 'a -> 'b) meth_callback = "caml_js_wrap_callback"
-  external wrap_meth_callback : ('a -> 'b) -> ('a, 'b) meth_callback = "caml_js_wrap_meth_callback"
-  type + 'a t
-  type js_string
-  external string : string -> js_string t = "caml_js_from_string"
-  external to_string : js_string t -> string = "caml_js_to_string"
-  external create_file : js_string t -> js_string t -> unit = "caml_create_file"
-  external to_bytestring : js_string t -> string = "caml_js_to_byte_string"
-end
-
+module Js = Jsoo_common.Js
 
 (*
  Error:
@@ -133174,21 +133232,7 @@ let implementation ~use_super_errors ?(react_ppx_version=V3) prefix impl str  :
       begin match error_of_exn  e with
       | Some error ->
           Location.report_error Format.err_formatter  error;
-          let (file,line,startchar) = Location.get_pos_info error.loc.loc_start in
-          let (file,endline,endchar) = Location.get_pos_info error.loc.loc_end in
-          Js.Unsafe.(obj
-          [|
-            "js_error_msg",
-              inject @@ Js.string (Printf.sprintf "Line %d, %d:\n  %s"  line startchar error.msg);
-               "row"    , inject (line - 1);
-               "column" , inject startchar;
-               "endRow" , inject (endline - 1);
-               "endColumn" , inject endchar;
-               "text" , inject @@ Js.string error.msg;
-               "type" , inject @@ Js.string "error"
-          |]
-          );
-
+          Jsoo_common.mk_js_error error.loc error.msg
       | None ->
         Js.Unsafe.(obj [|
         "js_error_msg" , inject @@ Js.string (Printexc.to_string e)