bs-platform
Version:
bucklescript compiler, ocaml standard libary by bucklescript and its required runtime support
84 lines (65 loc) • 1.85 kB
JavaScript
import * as Curry from "./curry.js";
import * as $$Buffer from "./buffer.js";
import * as Pervasives from "./pervasives.js";
import * as CamlinternalFormat from "./camlinternalFormat.js";
function kfprintf(k, o, param) {
return CamlinternalFormat.make_printf((function (o, acc) {
CamlinternalFormat.output_acc(o, acc);
return Curry._1(k, o);
}), o, /* End_of_acc */0, param[0]);
}
function kbprintf(k, b, param) {
return CamlinternalFormat.make_printf((function (b, acc) {
CamlinternalFormat.bufput_acc(b, acc);
return Curry._1(k, b);
}), b, /* End_of_acc */0, param[0]);
}
function ikfprintf(k, oc, param) {
return CamlinternalFormat.make_iprintf(k, oc, param[0]);
}
function fprintf(oc, fmt) {
return kfprintf((function (prim) {
}), oc, fmt);
}
function bprintf(b, fmt) {
return kbprintf((function (prim) {
}), b, fmt);
}
function ifprintf(oc, fmt) {
return ikfprintf((function (prim) {
}), oc, fmt);
}
function printf(fmt) {
return fprintf(Pervasives.stdout, fmt);
}
function eprintf(fmt) {
return fprintf(Pervasives.stderr, fmt);
}
function ksprintf(k, param) {
var k$prime = function (param, acc) {
var buf = $$Buffer.create(64);
CamlinternalFormat.strput_acc(buf, acc);
return Curry._1(k, $$Buffer.contents(buf));
};
return CamlinternalFormat.make_printf(k$prime, undefined, /* End_of_acc */0, param[0]);
}
function sprintf(fmt) {
return ksprintf((function (s) {
return s;
}), fmt);
}
var kprintf = ksprintf;
export {
fprintf ,
printf ,
eprintf ,
sprintf ,
bprintf ,
ifprintf ,
kfprintf ,
ikfprintf ,
ksprintf ,
kbprintf ,
kprintf ,
}
/* No side effect */