UNPKG

bs-platform

Version:

bucklescript compiler, ocaml standard libary by bucklescript and its required runtime support

84 lines (65 loc) 1.85 kB
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 */