bs-platform
Version:
bucklescript compiler, ocaml standard libary by bucklescript and its required runtime support
547 lines (501 loc) • 17.3 kB
JavaScript
;
var Obj = require("./obj.js");
var Block = require("./block.js");
var Curry = require("./curry.js");
var $$Buffer = require("./buffer.js");
var Printf = require("./printf.js");
var Caml_array = require("./caml_array.js");
var Pervasives = require("./pervasives.js");
var Caml_js_exceptions = require("./caml_js_exceptions.js");
var Caml_external_polyfill = require("./caml_external_polyfill.js");
var Caml_builtin_exceptions = require("./caml_builtin_exceptions.js");
var printers = {
contents: /* [] */0
};
var locfmt = /* Format */[
/* String_literal */Block.__(11, [
"File \"",
/* String */Block.__(2, [
/* No_padding */0,
/* String_literal */Block.__(11, [
"\", line ",
/* Int */Block.__(4, [
/* Int_d */0,
/* No_padding */0,
/* No_precision */0,
/* String_literal */Block.__(11, [
", characters ",
/* Int */Block.__(4, [
/* Int_d */0,
/* No_padding */0,
/* No_precision */0,
/* Char_literal */Block.__(12, [
/* "-" */45,
/* Int */Block.__(4, [
/* Int_d */0,
/* No_padding */0,
/* No_precision */0,
/* String_literal */Block.__(11, [
": ",
/* String */Block.__(2, [
/* No_padding */0,
/* End_of_format */0
])
])
])
])
])
])
])
])
])
]),
"File \"%s\", line %d, characters %d-%d: %s"
];
function field(x, i) {
var f = x[i];
if (Obj.is_block(f)) {
if ((f.tag | 0) === Obj.string_tag) {
return Curry._1(Printf.sprintf(/* Format */[
/* Caml_string */Block.__(3, [
/* No_padding */0,
/* End_of_format */0
]),
"%S"
]), f);
} else if ((f.tag | 0) === Obj.double_tag) {
return Pervasives.string_of_float(f);
} else {
return "_";
}
} else {
return Curry._1(Printf.sprintf(/* Format */[
/* Int */Block.__(4, [
/* Int_d */0,
/* No_padding */0,
/* No_precision */0,
/* End_of_format */0
]),
"%d"
]), f);
}
}
function other_fields(x, i) {
if (i >= x.length) {
return "";
} else {
return Curry._2(Printf.sprintf(/* Format */[
/* String_literal */Block.__(11, [
", ",
/* String */Block.__(2, [
/* No_padding */0,
/* String */Block.__(2, [
/* No_padding */0,
/* End_of_format */0
])
])
]),
", %s%s"
]), field(x, i), other_fields(x, i + 1 | 0));
}
}
function fields(x) {
var match = x.length;
switch (match) {
case 0 :
case 1 :
return "";
case 2 :
return Curry._1(Printf.sprintf(/* Format */[
/* Char_literal */Block.__(12, [
/* "(" */40,
/* String */Block.__(2, [
/* No_padding */0,
/* Char_literal */Block.__(12, [
/* ")" */41,
/* End_of_format */0
])
])
]),
"(%s)"
]), field(x, 1));
default:
return Curry._2(Printf.sprintf(/* Format */[
/* Char_literal */Block.__(12, [
/* "(" */40,
/* String */Block.__(2, [
/* No_padding */0,
/* String */Block.__(2, [
/* No_padding */0,
/* Char_literal */Block.__(12, [
/* ")" */41,
/* End_of_format */0
])
])
])
]),
"(%s%s)"
]), field(x, 1), other_fields(x, 2));
}
}
function to_string(x) {
var _param = printers.contents;
while(true) {
var param = _param;
if (param) {
var s;
try {
s = Curry._1(param[0], x);
}
catch (exn){
s = undefined;
}
if (s !== undefined) {
return s;
}
_param = param[1];
continue ;
}
if (x === Caml_builtin_exceptions.out_of_memory) {
return "Out of memory";
}
if (x === Caml_builtin_exceptions.stack_overflow) {
return "Stack overflow";
}
if (x[0] === Caml_builtin_exceptions.match_failure) {
var match = x[1];
var $$char = match[2];
return Curry._5(Printf.sprintf(locfmt), match[0], match[1], $$char, $$char + 5 | 0, "Pattern matching failed");
}
if (x[0] === Caml_builtin_exceptions.assert_failure) {
var match$1 = x[1];
var $$char$1 = match$1[2];
return Curry._5(Printf.sprintf(locfmt), match$1[0], match$1[1], $$char$1, $$char$1 + 6 | 0, "Assertion failed");
}
if (x[0] === Caml_builtin_exceptions.undefined_recursive_module) {
var match$2 = x[1];
var $$char$2 = match$2[2];
return Curry._5(Printf.sprintf(locfmt), match$2[0], match$2[1], $$char$2, $$char$2 + 6 | 0, "Undefined recursive module");
}
if ((x.tag | 0) !== 0) {
return x[0];
}
var constructor = x[0][0];
return constructor + fields(x);
};
}
function print(fct, arg) {
try {
return Curry._1(fct, arg);
}
catch (raw_x){
var x = Caml_js_exceptions.internalToOCamlException(raw_x);
Curry._1(Printf.eprintf(/* Format */[
/* String_literal */Block.__(11, [
"Uncaught exception: ",
/* String */Block.__(2, [
/* No_padding */0,
/* Char_literal */Block.__(12, [
/* "\n" */10,
/* End_of_format */0
])
])
]),
"Uncaught exception: %s\n"
]), to_string(x));
Pervasives.flush(Pervasives.stderr);
throw x;
}
}
function $$catch(fct, arg) {
try {
return Curry._1(fct, arg);
}
catch (raw_x){
var x = Caml_js_exceptions.internalToOCamlException(raw_x);
Pervasives.flush(Pervasives.stdout);
Curry._1(Printf.eprintf(/* Format */[
/* String_literal */Block.__(11, [
"Uncaught exception: ",
/* String */Block.__(2, [
/* No_padding */0,
/* Char_literal */Block.__(12, [
/* "\n" */10,
/* End_of_format */0
])
])
]),
"Uncaught exception: %s\n"
]), to_string(x));
return Pervasives.exit(2);
}
}
function convert_raw_backtrace_slot(param) {
return Pervasives.failwith("convert_raw_backtrace_slot not implemented");
}
function convert_raw_backtrace(bt) {
try {
return undefined;
}
catch (raw_exn){
var exn = Caml_js_exceptions.internalToOCamlException(raw_exn);
if (exn[0] === Caml_builtin_exceptions.failure) {
return ;
}
throw exn;
}
}
function format_backtrace_slot(pos, slot) {
var info = function (is_raise) {
if (is_raise) {
if (pos === 0) {
return "Raised at";
} else {
return "Re-raised at";
}
} else if (pos === 0) {
return "Raised by primitive operation at";
} else {
return "Called from";
}
};
if (slot.tag) {
if (slot[/* is_raise */0]) {
return ;
} else {
return Curry._1(Printf.sprintf(/* Format */[
/* String */Block.__(2, [
/* No_padding */0,
/* String_literal */Block.__(11, [
" unknown location",
/* End_of_format */0
])
]),
"%s unknown location"
]), info(false));
}
} else {
return Curry._6(Printf.sprintf(/* Format */[
/* String */Block.__(2, [
/* No_padding */0,
/* String_literal */Block.__(11, [
" file \"",
/* String */Block.__(2, [
/* No_padding */0,
/* Char_literal */Block.__(12, [
/* "\"" */34,
/* String */Block.__(2, [
/* No_padding */0,
/* String_literal */Block.__(11, [
", line ",
/* Int */Block.__(4, [
/* Int_d */0,
/* No_padding */0,
/* No_precision */0,
/* String_literal */Block.__(11, [
", characters ",
/* Int */Block.__(4, [
/* Int_d */0,
/* No_padding */0,
/* No_precision */0,
/* Char_literal */Block.__(12, [
/* "-" */45,
/* Int */Block.__(4, [
/* Int_d */0,
/* No_padding */0,
/* No_precision */0,
/* End_of_format */0
])
])
])
])
])
])
])
])
])
])
]),
"%s file \"%s\"%s, line %d, characters %d-%d"
]), info(slot[/* is_raise */0]), slot[/* filename */1], slot[/* is_inline */5] ? " (inlined)" : "", slot[/* line_number */2], slot[/* start_char */3], slot[/* end_char */4]);
}
}
function print_raw_backtrace(outchan, raw_backtrace) {
var backtrace = convert_raw_backtrace(raw_backtrace);
if (backtrace === undefined) {
return Printf.fprintf(outchan, /* Format */[
/* String_literal */Block.__(11, [
"(Program not linked with -g, cannot print stack backtrace)\n",
/* End_of_format */0
]),
"(Program not linked with -g, cannot print stack backtrace)\n"
]);
}
for(var i = 0 ,i_finish = backtrace.length; i < i_finish; ++i){
var str = format_backtrace_slot(i, Caml_array.caml_array_get(backtrace, i));
if (str !== undefined) {
Curry._1(Printf.fprintf(outchan, /* Format */[
/* String */Block.__(2, [
/* No_padding */0,
/* Char_literal */Block.__(12, [
/* "\n" */10,
/* End_of_format */0
])
]),
"%s\n"
]), str);
}
}
}
function print_backtrace(outchan) {
return print_raw_backtrace(outchan, undefined);
}
function raw_backtrace_to_string(raw_backtrace) {
var backtrace = convert_raw_backtrace(raw_backtrace);
if (backtrace === undefined) {
return "(Program not linked with -g, cannot print stack backtrace)\n";
}
var b = $$Buffer.create(1024);
for(var i = 0 ,i_finish = backtrace.length; i < i_finish; ++i){
var str = format_backtrace_slot(i, Caml_array.caml_array_get(backtrace, i));
if (str !== undefined) {
Curry._1(Printf.bprintf(b, /* Format */[
/* String */Block.__(2, [
/* No_padding */0,
/* Char_literal */Block.__(12, [
/* "\n" */10,
/* End_of_format */0
])
]),
"%s\n"
]), str);
}
}
return $$Buffer.contents(b);
}
function backtrace_slot_is_raise(l) {
return l[/* is_raise */0];
}
function backtrace_slot_is_inline(l) {
if (l.tag) {
return false;
} else {
return l[/* is_inline */5];
}
}
function backtrace_slot_location(l) {
if (l.tag) {
return ;
} else {
return {
filename: l[/* filename */1],
line_number: l[/* line_number */2],
start_char: l[/* start_char */3],
end_char: l[/* end_char */4]
};
}
}
function backtrace_slots(raw_backtrace) {
var backtrace = convert_raw_backtrace(raw_backtrace);
if (backtrace === undefined) {
return ;
}
var usable_slot = function (param) {
if (param.tag) {
return false;
} else {
return true;
}
};
var exists_usable = function (_i) {
while(true) {
var i = _i;
if (i === -1) {
return false;
}
if (usable_slot(Caml_array.caml_array_get(backtrace, i))) {
return true;
}
_i = i - 1 | 0;
continue ;
};
};
if (exists_usable(backtrace.length - 1 | 0)) {
return backtrace;
}
}
function get_backtrace(param) {
return raw_backtrace_to_string(undefined);
}
function register_printer(fn) {
printers.contents = /* :: */[
fn,
printers.contents
];
}
function exn_slot(x) {
if (x.tag) {
return x;
} else {
return x[0];
}
}
function exn_slot_id(x) {
var slot = exn_slot(x);
return slot[1];
}
function exn_slot_name(x) {
var slot = exn_slot(x);
return slot[0];
}
var uncaught_exception_handler = {
contents: undefined
};
function set_uncaught_exception_handler(fn) {
uncaught_exception_handler.contents = fn;
}
function record_backtrace(prim) {
}
function backtrace_status(prim) {
}
function get_raw_backtrace(prim) {
}
function get_callstack(prim) {
}
var Slot = {
is_raise: backtrace_slot_is_raise,
is_inline: backtrace_slot_is_inline,
$$location: backtrace_slot_location,
format: format_backtrace_slot
};
function raw_backtrace_length(prim) {
return Caml_external_polyfill.resolve("caml_raw_backtrace_length")(prim);
}
function get_raw_backtrace_slot(prim, prim$1) {
return Caml_external_polyfill.resolve("caml_raw_backtrace_slot")(prim, prim$1);
}
function get_raw_backtrace_next_slot(prim) {
return Caml_external_polyfill.resolve("caml_raw_backtrace_next_slot")(prim);
}
exports.to_string = to_string;
exports.print = print;
exports.$$catch = $$catch;
exports.print_backtrace = print_backtrace;
exports.get_backtrace = get_backtrace;
exports.record_backtrace = record_backtrace;
exports.backtrace_status = backtrace_status;
exports.register_printer = register_printer;
exports.get_raw_backtrace = get_raw_backtrace;
exports.print_raw_backtrace = print_raw_backtrace;
exports.raw_backtrace_to_string = raw_backtrace_to_string;
exports.get_callstack = get_callstack;
exports.set_uncaught_exception_handler = set_uncaught_exception_handler;
exports.backtrace_slots = backtrace_slots;
exports.Slot = Slot;
exports.raw_backtrace_length = raw_backtrace_length;
exports.get_raw_backtrace_slot = get_raw_backtrace_slot;
exports.convert_raw_backtrace_slot = convert_raw_backtrace_slot;
exports.get_raw_backtrace_next_slot = get_raw_backtrace_next_slot;
exports.exn_slot_id = exn_slot_id;
exports.exn_slot_name = exn_slot_name;
/* No side effect */