71 lines
1.2 KiB
JavaScript
71 lines
1.2 KiB
JavaScript
|
|
|
|
import * as Caml from "./caml.js";
|
|
import * as Caml_int64 from "./caml_int64.js";
|
|
import * as Caml_format from "./caml_format.js";
|
|
import * as Caml_js_exceptions from "./caml_js_exceptions.js";
|
|
|
|
function pred(n) {
|
|
return Caml_int64.sub(n, Caml_int64.one);
|
|
}
|
|
|
|
function abs(n) {
|
|
if (Caml.i64_ge(n, Caml_int64.zero)) {
|
|
return n;
|
|
} else {
|
|
return Caml_int64.neg(n);
|
|
}
|
|
}
|
|
|
|
function lognot(n) {
|
|
return Caml_int64.xor(n, Caml_int64.neg_one);
|
|
}
|
|
|
|
function of_string_opt(s) {
|
|
try {
|
|
return Caml_format.int64_of_string(s);
|
|
}
|
|
catch (raw_exn){
|
|
var exn = Caml_js_exceptions.internalToOCamlException(raw_exn);
|
|
if (exn.RE_EXN_ID === "Failure") {
|
|
return ;
|
|
}
|
|
throw exn;
|
|
}
|
|
}
|
|
|
|
var compare = Caml_int64.compare;
|
|
|
|
var equal = Caml_int64.equal;
|
|
|
|
var zero = Caml_int64.zero;
|
|
|
|
var one = Caml_int64.one;
|
|
|
|
var minus_one = Caml_int64.neg_one;
|
|
|
|
var succ = Caml_int64.succ;
|
|
|
|
var max_int = Caml_int64.max_int;
|
|
|
|
var min_int = Caml_int64.min_int;
|
|
|
|
var to_string = Caml_int64.to_string;
|
|
|
|
export {
|
|
zero ,
|
|
one ,
|
|
minus_one ,
|
|
succ ,
|
|
pred ,
|
|
abs ,
|
|
max_int ,
|
|
min_int ,
|
|
lognot ,
|
|
of_string_opt ,
|
|
to_string ,
|
|
compare ,
|
|
equal ,
|
|
}
|
|
/* No side effect */
|