bs-platform/lib/js/spacetime.js

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

'use strict';

var Caml_gc = require("./caml_gc.js");
var Caml_io = require("./caml_io.js");
var Pervasives = require("./pervasives.js");
var Caml_external_polyfill = require("./caml_external_polyfill.js");
var Caml_builtin_exceptions = require("./caml_builtin_exceptions.js");

function if_spacetime_enabled(f) {
  return /* () */0;
}

function create(path) {
  return /* record */[
          /* channel */Pervasives.stdout,
          /* closed */true
        ];
}

function save_event(time, t, event_name) {
  return if_spacetime_enabled((function (param) {
                return Caml_external_polyfill.resolve("caml_spacetime_only_works_for_native_code")(time, t[/* channel */0], event_name);
              }));
}

function save_and_close(time, t) {
  return if_spacetime_enabled((function (param) {
                if (t[/* closed */1]) {
                  throw [
                        Caml_builtin_exceptions.failure,
                        "Series is closed"
                      ];
                }
                Caml_external_polyfill.resolve("caml_spacetime_only_works_for_native_code")(time, t[/* channel */0]);
                var oc = t[/* channel */0];
                Caml_io.caml_ml_flush(oc);
                Caml_external_polyfill.resolve("caml_ml_close_channel")(oc);
                t[/* closed */1] = true;
                return /* () */0;
              }));
}

var Series = {
  create: create,
  save_event: save_event,
  save_and_close: save_and_close
};

function take(time, param) {
  var channel = param[/* channel */0];
  var closed = param[/* closed */1];
  return if_spacetime_enabled((function (param) {
                if (closed) {
                  throw [
                        Caml_builtin_exceptions.failure,
                        "Series is closed"
                      ];
                }
                Caml_gc.caml_gc_minor(/* () */0);
                return Caml_external_polyfill.resolve("caml_spacetime_only_works_for_native_code")(time, channel);
              }));
}

var Snapshot = {
  take: take
};

function save_event_for_automatic_snapshots(event_name) {
  return if_spacetime_enabled((function (param) {
                return Caml_external_polyfill.resolve("caml_spacetime_only_works_for_native_code")(event_name);
              }));
}

var enabled = false;

exports.enabled = enabled;
exports.Series = Series;
exports.Snapshot = Snapshot;
exports.save_event_for_automatic_snapshots = save_event_for_automatic_snapshots;
/* No side effect */