UNPKG

bs-platform

Version:

ReScript compiler, OCaml standard libary by ReScript and its required runtime support

84 lines (65 loc) 1.86 kB
import * as Curry from "./curry.mjs"; import * as $$Buffer from "./buffer.mjs"; import * as Pervasives from "./pervasives.mjs"; import * as CamlinternalFormat from "./camlinternalFormat.mjs"; 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 */