@fncts/io 0.0.1

package/_cjs/Schedule/Interval.cjs

@@ -0,0 +1,154 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+exports.Interval = void 0;
+exports.after = after;
+exports.before = before;
+exports.empty = void 0;
+exports.intersect_ = intersect_;
+exports.isEmpty = void 0;
+exports.isNonEmpty = isNonEmpty;
+exports.lt_ = lt_;
+exports.makeInterval = void 0;
+exports.max_ = max_;
+exports.min_ = void 0;
+exports.size = size;
+exports.union_ = union_;
+
+var tsplus_module_1 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/constructors"));
+
+function _getRequireWildcardCache(nodeInterop) { if (typeof WeakMap !== "function") return null; var cacheBabelInterop = new WeakMap(); var cacheNodeInterop = new WeakMap(); return (_getRequireWildcardCache = function (nodeInterop) { return nodeInterop ? cacheNodeInterop : cacheBabelInterop; })(nodeInterop); }
+
+function _interopRequireWildcard(obj, nodeInterop) { if (!nodeInterop && obj && obj.__esModule) { return obj; } if (obj === null || typeof obj !== "object" && typeof obj !== "function") { return { default: obj }; } var cache = _getRequireWildcardCache(nodeInterop); if (cache && cache.has(obj)) { return cache.get(obj); } var newObj = {}; var hasPropertyDescriptor = Object.defineProperty && Object.getOwnPropertyDescriptor; for (var key in obj) { if (key !== "default" && Object.prototype.hasOwnProperty.call(obj, key)) { var desc = hasPropertyDescriptor ? Object.getOwnPropertyDescriptor(obj, key) : null; if (desc && (desc.get || desc.set)) { Object.defineProperty(newObj, key, desc); } else { newObj[key] = obj[key]; } } } newObj.default = obj; if (cache) { cache.set(obj, newObj); } return newObj; }
+
+const isEmpty = isEmpty_1;
+exports.isEmpty = isEmpty;
+const makeInterval = makeInterval_1;
+exports.makeInterval = makeInterval;
+const min_ = min_1;
+/**
+ * @tsplus type fncts.io.Schedule.Interval
+ * @tsplus companion fncts.io.Schedule.IntervalOps
+ */
+
+exports.min_ = min_;
+
+class Interval {
+  constructor(startMilliseconds, endMilliseconds) {
+    this.startMilliseconds = startMilliseconds;
+    this.endMilliseconds = endMilliseconds;
+  }
+
+}
+/**
+ * @tsplus static fncts.io.Schedule.IntervalOps after
+ */
+
+
+exports.Interval = Interval;
+
+function after(start) {
+  return makeInterval_1(start, Number.MAX_SAFE_INTEGER);
+}
+/**
+ * @tsplus static fncts.io.Schedule.IntervalOps before
+ */
+
+
+function before(end) {
+  return makeInterval_1(Number.MIN_SAFE_INTEGER, end);
+}
+/**
+ * @tsplus static fncts.io.Schedule.IntervalOps empty
+ */
+
+
+const empty_1 = /*#__PURE__*/new Interval(Number.MIN_SAFE_INTEGER, Number.MIN_SAFE_INTEGER);
+const empty = empty_1;
+/**
+ * @tsplus getter fncts.io.Schedule.Interval isEmpty
+ */
+
+exports.empty = empty;
+
+function isEmpty_1(self) {
+  return self.startMilliseconds >= self.endMilliseconds;
+}
+/**
+ * @tsplus fluent fncts.io.Schedule.Interval intersect
+ */
+
+
+function intersect_(self, that) {
+  const start = Math.max(self.startMilliseconds, that.startMilliseconds);
+  const end = Math.min(self.endMilliseconds, that.endMilliseconds);
+  return makeInterval_1(start, end);
+}
+/**
+ * @tsplus fluent fncts.io.Schedule.Interval lt
+ * @tsplus operator fncts.io.Schedule.Interval <
+ */
+
+
+function lt_(self, that) {
+  return min_1(self, that) === self;
+}
+/**
+ * @tsplus static fncts.io.Schedule.IntervalOps __call
+ */
+
+
+function makeInterval_1(start, end) {
+  if (start <= end) return makeInterval_1(start, end);else return empty_1;
+}
+/**
+ * @tsplus fluent fncts.io.Schedule.Interval max
+ */
+
+
+function max_(self, that) {
+  const m = min_1(self, that);
+  if (m === self) return that;else return self;
+}
+/**
+ * @tsplus fluent fncts.io.Schedule.Interval min
+ */
+
+
+function min_1(self, that) {
+  if (self.endMilliseconds <= that.startMilliseconds) return self;
+  if (that.endMilliseconds <= self.startMilliseconds) return that;
+  if (self.startMilliseconds < that.startMilliseconds) return self;
+  if (that.startMilliseconds < self.startMilliseconds) return that;
+  if (self.endMilliseconds <= that.endMilliseconds) return self;
+  return that;
+}
+/**
+ * @tsplus getter fncts.io.Schedule.Interval isNonEmpty
+ */
+
+
+function isNonEmpty(self) {
+  return !isEmpty_1(self);
+}
+/**
+ * @tsplus getter fncts.io.Schedule.Interval size
+ */
+
+
+function size(self) {
+  return self.endMilliseconds - self.startMilliseconds;
+}
+/**
+ * @tsplus fluent fncts.io.Schedule.Interval union
+ */
+
+
+function union_(self, that) {
+  const istart = Math.max(self.startMilliseconds, that.startMilliseconds);
+  const iend = Math.min(self.endMilliseconds, that.endMilliseconds);
+  if (istart <= iend) return tsplus_module_1.nothing();else return tsplus_module_1.just(makeInterval_1(istart, iend));
+}
+//# sourceMappingURL=Interval.cjs.map

package/_cjs/Schedule/Interval.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"Interval.cjs","mappings":";;;;;;;;;;;;;;;;;;;;;;;;;MA8BgBA,OAAO;;MAwBPC,YAAY;;MAiBZC,IAAI;AAvEpB;;;;;;;AAIM,MAAOC,QAAP,CAAe;EACnBC,YAAqBC,iBAArB,EAAyDC,eAAzD,EAAgF;IAA3D;IAAoC;EAA2B;;AADjE;AAIrB;;;;;;;AAGM,SAAUC,KAAV,CAAgBC,KAAhB,EAA6B;EACjC,OAAOC,eAASD,KAAT,EAAgBE,MAAM,CAACC,gBAAvB,CAAP;AACD;AAED;;;;;AAGM,SAAUC,MAAV,CAAiBC,GAAjB,EAA4B;EAChC,OAAOJ,eAASC,MAAM,CAACI,gBAAhB,EAAkCD,GAAlC,CAAP;AACD;AAED;;;;;AAGO,MAAME,uBAAkB,IAAIZ,QAAJ,CAAaO,MAAM,CAACI,gBAApB,EAAsCJ,MAAM,CAACI,gBAA7C,CAAxB;MAAME,KAAK;AAElB;;;;;;AAGA,mBAAwBC,IAAxB,EAAsC;EACpC,OAAOA,IAAI,CAACZ,iBAAL,IAA0BY,IAAI,CAACX,eAAtC;AACD;AAED;;;;;AAGM,SAAUY,UAAV,CAAqBD,IAArB,EAAqCE,IAArC,EAAmD;EACvD,MAAMX,KAAK,GAAGY,IAAI,CAACC,GAAL,CAASJ,IAAI,CAACZ,iBAAd,EAAiCc,IAAI,CAACd,iBAAtC,CAAd;EACA,MAAMQ,GAAG,GAAKO,IAAI,CAACE,GAAL,CAASL,IAAI,CAACX,eAAd,EAA+Ba,IAAI,CAACb,eAApC,CAAd;EACA,OAAOG,eAASD,KAAT,EAAgBK,GAAhB,CAAP;AACD;AAED;;;;;;AAIM,SAAUU,GAAV,CAAcN,IAAd,EAA8BE,IAA9B,EAA4C;EAChD,OAAOK,YAASL,IAAT,MAAmBF,IAA1B;AACD;AAED;;;;;AAGA,wBAA6BT,KAA7B,EAA4CK,GAA5C,EAAuD;EACrD,IAAIL,KAAK,IAAIK,GAAb,EAAkB,OAAOJ,eAASD,KAAT,EAAgBK,GAAhB,CAAP,CAAlB,KACK;AACN;AAED;;;;;AAGM,SAAUY,IAAV,CAAeR,IAAf,EAA+BE,IAA/B,EAA6C;EACjD,MAAMO,CAAC,GAAGF,YAASL,IAAT,CAAV;EACA,IAAIO,CAAC,KAAKT,IAAV,EAAgB,OAAOE,IAAP,CAAhB,KACK,OAAOF,IAAP;AACN;AAED;;;;;AAGA,eAAqBA,IAArB,EAAqCE,IAArC,EAAmD;EACjD,IAAIF,IAAI,CAACX,eAAL,IAAwBa,IAAI,CAACd,iBAAjC,EAAoD,OAAOY,IAAP;EACpD,IAAIE,IAAI,CAACb,eAAL,IAAwBW,IAAI,CAACZ,iBAAjC,EAAoD,OAAOc,IAAP;EACpD,IAAIF,IAAI,CAACZ,iBAAL,GAAyBc,IAAI,CAACd,iBAAlC,EAAqD,OAAOY,IAAP;EACrD,IAAIE,IAAI,CAACd,iBAAL,GAAyBY,IAAI,CAACZ,iBAAlC,EAAqD,OAAOc,IAAP;EACrD,IAAIF,IAAI,CAACX,eAAL,IAAwBa,IAAI,CAACb,eAAjC,EAAkD,OAAOW,IAAP;EAClD,OAAOE,IAAP;AACD;AAED;;;;;AAGM,SAAUQ,UAAV,CAAqBV,IAArB,EAAmC;EACvC,OAAO,WAACA,IAAD,CAAP;AACD;AAED;;;;;AAGM,SAAUW,IAAV,CAAeX,IAAf,EAA6B;EACjC,OAAOA,IAAI,CAACX,eAAL,GAAuBW,IAAI,CAACZ,iBAAnC;AACD;AAED;;;;;AAGM,SAAUwB,MAAV,CAAiBZ,IAAjB,EAAiCE,IAAjC,EAA+C;EACnD,MAAMW,MAAM,GAAGV,IAAI,CAACC,GAAL,CAASJ,IAAI,CAACZ,iBAAd,EAAiCc,IAAI,CAACd,iBAAtC,CAAf;EACA,MAAM0B,IAAI,GAAKX,IAAI,CAACE,GAAL,CAASL,IAAI,CAACX,eAAd,EAA+Ba,IAAI,CAACb,eAApC,CAAf;EACA,IAAIwB,MAAM,IAAIC,IAAd,EAAoB,OAAOC,yBAAP,CAApB,KACK,OAAOA,qBAAKvB,eAASqB,MAAT,EAAiBC,IAAjB,CAAL,CAAP;AACN","names":["isEmpty","makeInterval","min_","Interval","constructor","startMilliseconds","endMilliseconds","after","start","makeInterval_1","Number","MAX_SAFE_INTEGER","before","end","MIN_SAFE_INTEGER","empty_1","empty","self","intersect_","that","Math","max","min","lt_","min_1","max_","m","isNonEmpty","size","union_","istart","iend","tsplus_module_1"],"sourceRoot":"","sources":["../../_src/Schedule/Interval.ts"],"sourcesContent":[null]}

package/_cjs/Schedule/api/driver.cjs

@@ -0,0 +1,50 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+exports.driver = driver;
+
+var tsplus_module_1 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Ref/api/get"));
+
+var tsplus_module_2 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/IO/api"));
+
+var tsplus_module_3 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Clock/api"));
+
+var tsplus_module_4 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/constructors"));
+
+var tsplus_module_5 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Ref/api/set"));
+
+var tsplus_module_6 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Schedule/Decision"));
+
+var tsplus_module_7 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/exceptions"));
+
+var tsplus_module_8 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/destructors"));
+
+var tsplus_module_9 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Schedule/Driver"));
+
+var tsplus_module_10 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Ref/constructors"));
+
+function _getRequireWildcardCache(nodeInterop) { if (typeof WeakMap !== "function") return null; var cacheBabelInterop = new WeakMap(); var cacheNodeInterop = new WeakMap(); return (_getRequireWildcardCache = function (nodeInterop) { return nodeInterop ? cacheNodeInterop : cacheBabelInterop; })(nodeInterop); }
+
+function _interopRequireWildcard(obj, nodeInterop) { if (!nodeInterop && obj && obj.__esModule) { return obj; } if (obj === null || typeof obj !== "object" && typeof obj !== "function") { return { default: obj }; } var cache = _getRequireWildcardCache(nodeInterop); if (cache && cache.has(obj)) { return cache.get(obj); } var newObj = {}; var hasPropertyDescriptor = Object.defineProperty && Object.getOwnPropertyDescriptor; for (var key in obj) { if (key !== "default" && Object.prototype.hasOwnProperty.call(obj, key)) { var desc = hasPropertyDescriptor ? Object.getOwnPropertyDescriptor(obj, key) : null; if (desc && (desc.get || desc.set)) { Object.defineProperty(newObj, key, desc); } else { newObj[key] = obj[key]; } } } newObj.default = obj; if (cache) { cache.set(obj, newObj); } return newObj; }
+
+/**
+ * @tsplus getter fncts.io.Schedule driver
+ */
+function driver(schedule, __tsplusTrace) {
+  return tsplus_module_2.map_(tsplus_module_10.make(() => [tsplus_module_4.nothing(), schedule.initial]), ref => {
+    const next = (inp, __tsplusTrace) => tsplus_module_2.gen(function* (_) {
+      const state = yield* _(tsplus_module_2.map_(tsplus_module_1.get(ref), ([_, s]) => s, __tsplusTrace), __tsplusTrace);
+      const now = yield* _(tsplus_module_3.currentTime, __tsplusTrace);
+      const [state1, out, decision] = yield* _(schedule.step(now, inp, state, __tsplusTrace), __tsplusTrace);
+      return yield* _(tsplus_module_6.match_(decision, () => tsplus_module_2.apSecond_(tsplus_module_5.set_(ref, [tsplus_module_4.just(out), state1]), tsplus_module_2.failNow(tsplus_module_4.nothing(), __tsplusTrace), __tsplusTrace), interval => tsplus_module_2.as_(tsplus_module_2.apSecond_(tsplus_module_5.set_(ref, [tsplus_module_4.just(out), state1]), tsplus_module_3.sleep(interval.startMilliseconds - now, __tsplusTrace), __tsplusTrace), () => out)), __tsplusTrace);
+    });
+
+    const last = tsplus_module_2.flatMap_(tsplus_module_1.get(ref), ([mOut, _]) => tsplus_module_8.match_(mOut, () => tsplus_module_2.failNow(new tsplus_module_7.NoSuchElementError("There is no value left"), __tsplusTrace), tsplus_module_2.succeedNow), __tsplusTrace);
+    const reset = tsplus_module_5.set_(ref, [tsplus_module_4.nothing(), schedule.initial]);
+    const state = tsplus_module_2.map_(tsplus_module_1.get(ref), ([_, state]) => state, __tsplusTrace);
+    return tsplus_module_9.makeDriver(next, last, reset, state);
+  }, __tsplusTrace);
+}
+//# sourceMappingURL=driver.cjs.map

package/_cjs/Schedule/api/driver.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"driver.cjs","mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAEA;;;AAGM,SAAUA,MAAV,CACJC,QADI,EAEJC,aAFI,EAEkB;EAEtB,OAAOC,iDAAuC,CAACC,yBAAD,EAAYH,QAAQ,CAACI,OAArB,CAAvC,GAA2EC,GAAD,IAAQ;IACvF,MAAMC,IAAI,GAAG,CAACC,GAAD,EAAUN,aAAV,KACXC,oBAAO,WAAWM,CAAX,EAAY;MACjB,MAAMC,KAAK,GAAqB,OAAOD,CAAC,CAACN,+CAAY,CAAC,CAACM,CAAD,EAAIE,CAAJ,CAAD,KAAYA,CAAxB,EAL/CT,aAK+C,CAAD,EAL9CA,aAK8C,CAAxC;MACA,MAAMU,GAAG,GAAuB,OAAOH,CAAC,8BAN9CP,aAM8C,CAAxC;MACA,MAAM,CAACW,MAAD,EAASC,GAAT,EAAcC,QAAd,IAA0B,OAAON,CAAC,CAACR,QAAQ,CAACe,IAAT,CAAcJ,GAAd,EAAmBJ,GAAnB,EAAwBE,KAAxB,EAP/CR,aAO+C,CAAD,EAP9CA,aAO8C,CAAxC;MACA,OAAO,OAAOO,CAAC,CACbQ,iCACE,MAAMd,oDAAQ,CAACC,qBAAKU,GAAL,CAAD,EAAYD,MAAZ,CAAR,GAAsCV,wBAAWC,yBAAX,EAVtDF,aAUsD,CAAtC,EAVhBA,aAUgB,CADR,EAEGgB,QAAD,IACEf,wEACO,CAACC,qBAAKU,GAAL,CAAD,EAAYD,MAAZ,CADP,GAEYM,sBAAYD,QAAQ,CAACE,iBAAT,GAA6BR,GAAzC,EAdxBV,aAcwB,CAFZ,EAZZA,aAYY,GAE0D,MACpDY,GAHN,CAHJ,CADa,EARrBZ,aAQqB,CAAf;IAUD,CAdD,CADF;;IAiBA,MAAMmB,IAAI,GAAGlB,mDAAgB,CAAC,CAACmB,IAAD,EAAOb,CAAP,CAAD,KAC3Bc,6BAAW,MAAMpB,wBAAW,oBAAIqB,kBAAJ,CAAuB,wBAAvB,CAAX,EArBrBtB,aAqBqB,CAAjB,EAA6EC,0BAA7E,CADW,EApBfD,aAoBe,CAAb;IAIA,MAAMuB,KAAK,GAAGC,0BAAQ,CAACtB,yBAAD,EAAYH,QAAQ,CAACI,OAArB,CAAR,CAAd;IAEA,MAAMK,KAAK,GAAGP,+CAAY,CAAC,CAACM,CAAD,EAAIC,KAAJ,CAAD,KAAgBA,KAA5B,EA1BhBR,aA0BgB,CAAd;IAEA,OAAOyB,2BAAOpB,IAAP,EAAac,IAAb,EAAmBI,KAAnB,EAA0Bf,KAA1B,CAAP;EACD,CA3BM,EAFPR,aAEO,CAAP;AA4BD","names":["driver","schedule","__tsplusTrace","tsplus_module_2","tsplus_module_4","initial","ref","next","inp","_","state","s","now","state1","out","decision","step","tsplus_module_6","interval","tsplus_module_3","startMilliseconds","last","mOut","tsplus_module_8","NoSuchElementError","reset","tsplus_module_5","tsplus_module_9"],"sourceRoot":"","sources":["../../../_src/Schedule/api/driver.ts"],"sourcesContent":[null]}