rose-ash/shared/static/wasm/sx_browser.bc.wasm.assets/jsoo_runtime-f96b44a8.wasm.map

{"version":3,"sections":[{"offset":{"line":0,"column":979},"map":{"version":3,"sources":["/builtin/blackbox.ml","/root/.opam/5.2.0/lib/js_of_ocaml-compiler/runtime/jsoo_runtime.ml"],"sourcesContent":["(* generated code *)","(* Js_of_ocaml library\n * http://www.ocsigen.org/js_of_ocaml/\n *\n * This program is free software; you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, with linking exception;\n * either version 2.1 of the License, or (at your option) any later version.\n *\n * This program is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with this program; if not, write to the Free Software\n * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n *)\n\nmodule Js = struct\n  type t\n\n  type 'a js_array = t\n\n  type ('a, 'b) meth_callback = t\n\n  external string : string -> t = \"caml_jsstring_of_string\"\n\n  external to_string : t -> string = \"caml_string_of_jsstring\"\n\n  external bytestring : string -> t = \"caml_jsbytes_of_string\"\n\n  external to_bytestring : t -> string = \"caml_string_of_jsbytes\"\n\n  external bool : bool -> t = \"caml_js_from_bool\"\n\n  external to_bool : t -> bool = \"caml_js_to_bool\"\n\n  external array : 'a array -> t = \"caml_js_from_array\"\n\n  external to_array : t -> 'a array = \"caml_js_to_array\"\n\n  external number_of_float : float -> t = \"caml_js_from_float\"\n\n  external float_of_number : t -> float = \"caml_js_to_float\"\n\n  external number_of_int32 : int32 -> t = \"caml_js_from_int32\"\n\n  external int32_of_number : t -> int32 = \"caml_js_to_int32\"\n\n  external number_of_nativeint : nativeint -> t = \"caml_js_from_nativeint\"\n\n  external nativeint_of_number : t -> nativeint = \"caml_js_to_nativeint\"\n\n  external typeof : t -> t = \"caml_js_typeof\"\n\n  external instanceof : t -> t -> bool = \"caml_js_instanceof\"\n\n  external debugger : unit -> unit = \"debugger\"\n\n  external get : t -> t -> t = \"caml_js_get\"\n\n  external set : t -> t -> t -> unit = \"caml_js_set\"\n\n  external delete : t -> t -> unit = \"caml_js_delete\"\n\n  external call : t -> t -> t array -> t = \"caml_js_call\"\n\n  external fun_call : t -> t array -> t = \"caml_js_fun_call\"\n\n  external meth_call : t -> string -> t array -> t = \"caml_js_meth_call\"\n\n  external new_obj : t -> t array -> t = \"caml_js_new\"\n\n  external new_obj_arr : t -> t js_array -> t = \"caml_ojs_new_arr\"\n\n  external obj : (string * t) array -> t = \"caml_js_object\"\n\n  external equals : t -> t -> bool = \"caml_js_equals\"\n\n  external strict_equals : t -> t -> bool = \"caml_js_strict_equals\"\n\n  external pure_expr : (unit -> 'a) -> 'a = \"caml_js_pure_expr\"\n\n  external eval_string : string -> 'a = \"caml_js_eval_string\"\n\n  external js_expr : string -> 'a = \"caml_js_expr\"\n\n  external pure_js_expr : string -> 'a = \"caml_pure_js_expr\"\n\n  external callback : ('b -> 'a) -> ('b, 'a) meth_callback\n    = \"caml_js_wrap_callback_unsafe\"\n\n  external callback_with_arguments :\n    (t js_array -> 'b) -> ('c, t js_array -> 'b) meth_callback\n    = \"caml_js_wrap_callback_arguments\"\n\n  external callback_with_arity : int -> ('a -> 'b) -> ('c, 'a -> 'b) meth_callback\n    = \"caml_js_wrap_callback_strict\"\n\n  external meth_callback : ('b -> 'a) -> ('b, 'a) meth_callback\n    = \"caml_js_wrap_meth_callback_unsafe\"\n\n  external meth_callback_with_arity : int -> ('b -> 'a) -> ('b, 'a) meth_callback\n    = \"caml_js_wrap_meth_callback_strict\"\n\n  external meth_callback_with_arguments :\n    ('b -> t js_array -> 'a) -> ('b, t js_array -> 'a) meth_callback\n    = \"caml_js_wrap_meth_callback_arguments\"\n\n  external wrap_callback : ('a -> 'b) -> ('c, 'a -> 'b) meth_callback\n    = \"caml_js_wrap_callback\"\n\n  external wrap_meth_callback : ('a -> 'b) -> ('a, 'b) meth_callback\n    = \"caml_js_wrap_meth_callback\"\n\n  external runtime_value : string -> 'a = \"caml_jsoo_runtime_value\"\n  (** [runtime_value \"FOO\"] returns the JavaScript value FOO provided by the JavaScript runtime (with '//Provides: FOO'). The string argument must be a string literal. *)\n\n  external custom_identifier : Obj.t -> string = \"caml_custom_identifier\"\nend\n\nmodule Sys = struct\n  type 'a callback = 'a\n\n  external create_file : name:string -> content:string -> unit = \"caml_create_file\"\n\n  external read_file : name:string -> string = \"caml_read_file_content\"\n\n  external set_channel_output' : out_channel -> (js_string:Js.t -> unit) callback -> unit\n    = \"caml_ml_set_channel_output\"\n\n  external set_channel_input' : in_channel -> (unit -> string) callback -> unit\n    = \"caml_ml_set_channel_refill\"\n\n  external mount_point : unit -> string list = \"caml_list_mount_point\"\n\n  external mount_autoload : string -> (string -> string -> string option) callback -> unit\n    = \"caml_mount_autoload\"\n\n  external unmount : string -> unit = \"caml_unmount\"\n\n  type redirection\n\n  external redirect_channel : out_channel -> into:out_channel -> redirection\n    = \"caml_ml_channel_redirect\"\n\n  external restore_channel : out_channel -> redirection -> unit\n    = \"caml_ml_channel_restore\"\n\n  module Config = struct\n    external use_js_string : unit -> bool = \"caml_jsoo_flags_use_js_string\"\n\n    type effects_backend =\n      [ `Disabled\n      | `Cps\n      | `Double_translation\n      ]\n\n    external effects_ : unit -> string = \"caml_jsoo_flags_effects\"\n\n    let effects () =\n      match effects_ () with\n      | \"disabled\" -> `Disabled\n      | \"cps\" -> `Cps\n      | \"double-translation\" -> `Double_translation\n      | _ -> assert false\n  end\n\n  let version = Runtime_version.s\n\n  let git_version = Runtime_version.git_version\nend\n\nmodule Error : sig\n  type t\n\n  val raise_ : t -> 'a\n\n  val attach_js_backtrace : exn -> force:bool -> exn\n  (** Attach a JavaScript error to an OCaml exception.  if [force = false] and a\n    JavaScript error is already attached, it will do nothing. This function is useful to\n    store and retrieve information about JavaScript stack traces.\n\n    Attaching JavaScript errors will happen automatically when compiling with\n    [--enable with-js-error]. *)\n\n  val of_exn : exn -> t option\n  (** Extract a JavaScript error attached to an OCaml exception, if any.  This is useful to\n      inspect an eventual stack trace, especially when sourcemap is enabled. *)\n\n  exception Exn of t\n  (** The [Error] exception wrap javascript exceptions when caught by OCaml code.\n      In case the javascript exception is not an instance of javascript [Error],\n      it will be serialized and wrapped into a [Failure] exception.\n  *)\nend = struct\n  type t\n\n  exception Exn of t\n\n  let _ = Callback.register_exception \"jsError\" (Exn (Obj.magic [||]))\n\n  external raise_ : t -> 'a = \"caml_throw_js_exception\"\n\n  external of_exn : exn -> t option = \"caml_js_error_option_of_exception\"\n\n  external attach_js_backtrace : exn -> force:bool -> exn = \"caml_exn_with_js_backtrace\"\nend\n\n[@@@ocaml.warning \"-32-60\"]\n\nmodule For_compatibility_only = struct\n  (* Add primitives for compatibility reasons. Existing users might\n     depend on it (e.g. gen_js_api), we don't want the ocaml compiler\n     to complain about these missing primitives. *)\n\n  external caml_js_from_string : string -> Js.t = \"caml_js_from_string\"\n\n  external caml_js_to_byte_string : Js.t -> string = \"caml_js_to_byte_string\"\n\n  external caml_js_to_string : Js.t -> string = \"caml_js_to_string\"\n\n  external caml_list_of_js_array : 'a Js.js_array -> 'a list = \"caml_list_of_js_array\"\n\n  external caml_list_to_js_array : 'a list -> 'a Js.js_array = \"caml_list_to_js_array\"\n\n  external variable : string -> 'a = \"caml_js_var\"\n\n  external caml_string_of_array : 'a array -> string = \"caml_string_of_array\"\nend\n\nmodule Typed_array = struct\n  type ('a, 'b) typedArray = Js.t\n\n  type arrayBuffer = Js.t\n\n  type uint8Array = Js.t\n\n  external kind : ('a, 'b) typedArray -> ('a, 'b) Bigarray.kind\n    = \"caml_ba_kind_of_typed_array\"\n\n  external from_genarray :\n    ('a, 'b, Bigarray.c_layout) Bigarray.Genarray.t -> ('a, 'b) typedArray\n    = \"caml_ba_to_typed_array\"\n\n  external to_genarray :\n    ('a, 'b) typedArray -> ('a, 'b, Bigarray.c_layout) Bigarray.Genarray.t\n    = \"caml_ba_from_typed_array\"\n\n  module Bigstring = struct\n    type t = (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t\n\n    external to_arrayBuffer : t -> arrayBuffer = \"bigstring_to_array_buffer\"\n\n    external to_uint8Array : t -> uint8Array = \"bigstring_to_typed_array\"\n\n    external of_arrayBuffer : arrayBuffer -> t = \"bigstring_of_array_buffer\"\n\n    external of_uint8Array : uint8Array -> t = \"bigstring_of_typed_array\"\n  end\n\n  external string_of_uint8Array : uint8Array -> string = \"caml_string_of_uint8_array\"\n\n  external bytes_of_uint8Array : uint8Array -> bytes = \"caml_bytes_of_uint8_array\"\n\n  external uint8Array_of_bytes : bytes -> uint8Array = \"caml_uint8_array_of_bytes\"\nend\n\nmodule Int64 = struct\n  external create_int64_lo_mi_hi : int -> int -> int -> Int64.t\n    = \"caml_int64_create_lo_mi_hi\"\nend\n\nmodule Effect : sig\n  external assume_no_perform : (unit -> 'a) -> 'a = \"caml_assume_no_perform\"\n  (** Passing a function [f] as argument of `assume_no_perform` guarantees that,\n      when compiling with `--effects=double-translation`, the direct-style\n      version of [f] is called, which is faster than the CPS version. As a\n      consequence, performing an effect in a transitive callee of [f] will\n      raise `Effect.Unhandled`, regardless of any effect handlers installed\n      before the call to `assume_no_perform`, unless a new effect handler was\n      installed in the meantime.\n\n      This behaviour is the same when double translation is disabled. *)\nend = struct\n  external assume_no_perform : (unit -> 'a) -> 'a = \"caml_assume_no_perform\"\nend\n"],"names":[],"mappings":"yBCiKY,QAAW,YAEN,sBADK,uBAEU,SACnB,iBAAY,C,qDAmCf,EDxMV,0CCwMU,cAA4D,2E","ignoreList":[0]}}]}