@fncts/io 0.0.6 → 0.0.7

package/_src/IO/api/zipC.ts

@@ -1,4 +1,5 @@
 import { tuple } from "@fncts/base/data/function";
+import { AtomicReference } from "@fncts/base/internal/AtomicReference";
 
 /**
  * @tsplus fluent fncts.io.IO zipC
@@ -6,3 +7,63 @@ import { tuple } from "@fncts/base/data/function";
 export function zipC_<R, E, A, R1, E1, B>(self: IO<R, E, A>, that: IO<R1, E1, B>): IO<R & R1, E | E1, readonly [A, B]> {
   return self.zipWithC(that, tuple);
 }
+
+/**
+ * @tsplus fluent fncts.io.IO zipWithC
+ */
+export function zipWithC_<R, E, A, R1, E1, B, C>(
+  self: IO<R, E, A>,
+  that: IO<R1, E1, B>,
+  f: (a: A, b: B) => C,
+): IO<R & R1, E | E1, C> {
+  return IO.descriptorWith((descriptor) =>
+    IO.uninterruptibleMask(({ restore }) => {
+      const future = Future.unsafeMake<void, C>(FiberId.none);
+      const ref    = new AtomicReference<Maybe<Either<A, B>>>(Nothing());
+      return IO.transplant((graft) =>
+        graft(
+          restore(self).matchCauseIO(
+            (cause) => future.fail(undefined) > IO.failCauseNow(cause),
+            (a) =>
+              ref.getAndSet(Just(Either.left(a))).match(
+                () => IO.unit,
+                (value) =>
+                  value.match(
+                    () => IO.unit,
+                    (b) => future.succeed(f(a, b)).asUnit,
+                  ),
+              ),
+          ),
+        )
+          .forkDaemon.zip(
+            graft(
+              restore(that).matchCauseIO(
+                (cause) => future.fail(undefined) > IO.failCauseNow(cause),
+                (b) =>
+                  ref.getAndSet(Just(Either.right(b))).match(
+                    () => IO.unit,
+                    (value) =>
+                      value.match(
+                        (a) => future.succeed(f(a, b)).asUnit,
+                        () => IO.unit,
+                      ),
+                  ),
+              ),
+            ).forkDaemon,
+          )
+          .flatMap(([left, right]) =>
+            restore(future.await).matchCauseIO(
+              (cause) =>
+                left
+                  .interruptAs(descriptor.id)
+                  .zipC(right.interruptAs(descriptor.id))
+                  .flatMap(([left, right]) =>
+                    left.zipC(right).match(IO.failCauseNow, () => IO.failCauseNow(cause.stripFailures)),
+                  ),
+              (c) => left.inheritRefs.zip(right.inheritRefs).as(c),
+            ),
+          ),
+      );
+    }),
+  );
+}

package/_src/IO/api.ts

@@ -92,15 +92,15 @@ export function asyncInterrupt<R, E, A>(
   return new Async(register, blockingOn, __tsplusTrace);
 }
 
-// /**
-//  * Attempts to convert defects into a failure, throwing away all information
-//  * about the cause of the failure.
-//  *
-//  * @tsplus fluent fncts.io.IO absorbWith
-//  */
-// export function absorbWith_<R, E, A>(ma: IO<R, E, A>, f: (e: E) => unknown, __tsplusTrace?: string) {
-//   return ma.sandbox.matchIO((cause) => IO.failNow(cause.squash(f)), IO.succeedNow)
-// }
+/**
+ * Attempts to convert defects into a failure, throwing away all information
+ * about the cause of the failure.
+ *
+ * @tsplus fluent fncts.io.IO absorbWith
+ */
+export function absorbWith_<R, E, A>(ma: IO<R, E, A>, f: (e: E) => unknown, __tsplusTrace?: string) {
+  return ma.sandbox.matchIO((cause) => IO.failNow(cause.squashWith(f)), IO.succeedNow)
+}
 
 /**
  * @tsplus fluent fncts.io.IO apFirst

package/_src/IO.ts

@@ -47,9 +47,9 @@ export * from "./IO/api/sleep.js";
 export * from "./IO/api/stateful.js";
 export * from "./IO/api/timeout.js";
 export * from "./IO/api/withChildren.js";
+export * from "./IO/api/withEarlyRelease.js";
 export * from "./IO/api/withFinalizer.js";
 export * from "./IO/api/withFinalizerExit.js";
 export * from "./IO/api/withRuntimeConfig.js";
 export * from "./IO/api/zipC.js";
-export * from "./IO/api/zipWithC.js";
 // codegen:end

package/_src/Stream/api.ts

@@ -2931,6 +2931,16 @@ export function unwrapScoped<R0, E0, R, E, A>(
   return Stream.scoped(stream).flatten;
 }
 
+/**
+ * @tsplus getter fncts.io.Stream zipWithIndex
+ */
+export function zipWithIndex_<R, E, A>(
+  self: Stream<R, E, A>,
+  __tsPlusTrace?: string,
+): Stream<R, E, readonly [A, number]> {
+  return self.mapAccum(0, (index, a) => [index + 1, [a, index]]);
+}
+
 /**
  * Zips the two streams so that when a value is emitted by either of the two
  * streams, it is combined with the latest value from the other stream to

package/_src/internal/Hub.ts

@@ -633,7 +633,7 @@ class UnboundedHubSubscription<A> extends SubscriptionInternal<A> {
       } else {
         const a = this.subscriberHead.next!.value;
 
-        if (a !== null) {
+        if (a != null) {
           polled = a;
           this.subscriberHead.subscribers -= 1;
 
@@ -655,13 +655,12 @@ class UnboundedHubSubscription<A> extends SubscriptionInternal<A> {
   }
 
   pollUpTo(n: number): Conc<A> {
-    let builder    = Conc.empty<A>();
-    const default_ = null;
-    let i          = 0;
+    let builder = Conc.empty<A>();
+    let i       = 0;
 
     while (i !== n) {
-      const a = this.poll(default_ as unknown as A);
-      if (a === default_) {
+      const a = this.poll(null as unknown as A);
+      if (a == null) {
         i = n;
       } else {
         builder = builder.append(a);

package/package.json

@@ -1,8 +1,8 @@
 {
   "name": "@fncts/io",
-  "version": "0.0.6",
+  "version": "0.0.7",
   "dependencies": {
-    "@fncts/base": "0.0.6",
+    "@fncts/base": "0.0.7",
     "@fncts/typelevel": "0.0.6"
   },
   "exports": {

package/IO/api/zipWithC.d.ts

@@ -1,9 +0,0 @@
-import { IO } from "@fncts/io/IO/definition";
-import { FiberId } from "@fncts/base/data/FiberId";
-import { Exit } from "@fncts/base/data/Exit";
-import { Fiber } from "@fncts/io/Fiber/definition";
-/**
- * @tsplus fluent fncts.io.IO zipWithC
- * @tsplus location "@fncts/io/IO/api/zipWithC"
- */
-export declare function zipWithC_<R, E, A, R1, E1, B, C>(self: IO<R, E, A>, that: IO<R1, E1, B>, f: (a: A, b: B) => C): IO<R & R1, E | E1, C>;

package/_cjs/IO/api/zipWithC.cjs

@@ -1,40 +0,0 @@
-"use strict";
-
-Object.defineProperty(exports, "__esModule", {
-  value: true
-});
-exports.zipWithC_ = zipWithC_;
-
-var tsplus_module_1 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/IO/api/core-scope"));
-
-var tsplus_module_2 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/IO/api"));
-
-var tsplus_module_3 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Cause/api"));
-
-var tsplus_module_4 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Exit/api"));
-
-var tsplus_module_5 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Fiber/api/interruptAs"));
-
-var tsplus_module_6 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/Fiber/api/join"));
-
-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 fileName_1 = "(@fncts/io) src/IO/api/zipWithC.ts";
-
-/**
- * @tsplus fluent fncts.io.IO zipWithC
- */
-function zipWithC_(self, that, f) {
-  const g = (b, a) => f(a, b);
-
-  return tsplus_module_1.transplant(graft => tsplus_module_2.descriptorWith(d => tsplus_module_1.raceWith_(graft(self), () => graft(that), (exit, fiber) => coordinateZipWithC()(d.id, f, true, exit, fiber), (exit, fiber) => coordinateZipWithC()(d.id, g, false, exit, fiber), fileName_1 + ":13:27"), fileName_1 + ":12:22"), fileName_1 + ":11:23");
-}
-
-function coordinateZipWithC() {
-  return (fiberId, f, leftWinner, winner, loser) => {
-    return tsplus_module_4.match_(winner, cw => tsplus_module_2.flatMap_(tsplus_module_5.interruptAs(loser, fiberId), exit => tsplus_module_4.match_(exit, cl => leftWinner ? tsplus_module_2.failCauseNow(tsplus_module_3.both(cw, cl), fileName_1 + ":34:50") : tsplus_module_2.failCauseNow(tsplus_module_3.both(cl, cw), fileName_1 + ":34:88"), () => tsplus_module_2.failCauseNow(cw, fileName_1 + ":35:34")), fileName_1 + ":32:43"), x => tsplus_module_2.map_(tsplus_module_6.join(loser), y => f(x, y), fileName_1 + ":38:28"));
-  };
-}
-//# sourceMappingURL=zipWithC.cjs.map

package/_cjs/IO/api/zipWithC.cjs.map

@@ -1 +0,0 @@
-{"version":3,"file":"zipWithC.cjs","mappings":";;;;;;;;;;;;;;;;;;;;;;;;;AAAA;;;AAGM,SAAUA,SAAV,CACJC,IADI,EAEJC,IAFI,EAGJC,CAHI,EAGgB;EAEpB,MAAMC,CAAC,GAAG,CAACC,CAAD,EAAOC,CAAP,KAAgBH,CAAC,CAACG,CAAD,EAAID,CAAJ,CAA3B;;EAEA,OAAOE,2BAAeC,KAAD,IACnBC,+BAAmBC,CAAD,IAChBH,+BAAK,CAACN,IAAD,CAAL,EAAW,MACTO,KAAK,CAACN,IAAD,CADP,EAEE,CAACS,IAAD,EAAOC,KAAP,KAAiBC,kBAAkB,GAAUH,CAAC,CAACI,EAAZ,EAAgBX,CAAhB,EAAmB,IAAnB,EAAyBQ,IAAzB,EAA+BC,KAA/B,CAFrC,EAGE,CAACD,IAAD,EAAOC,KAAP,KAAiBC,kBAAkB,GAAUH,CAAC,CAACI,EAAZ,EAAgBV,CAAhB,EAAmB,KAAnB,EAA0BO,IAA1B,EAAgCC,KAAhC,CAHrC,EAG2EG,qBAH3E,CADF,EAKGA,qBALH,CADK,EAOJA,qBAPI,CAAP;AASD;;AAED,SAASF,kBAAT,GAA2B;EACzB,OAAO,CACLG,OADK,EAELb,CAFK,EAGLc,UAHK,EAILC,MAJK,EAKLC,KALK,KAMH;IACF,OAAOC,+BACJC,EAAD,IACEZ,4DAAkBO,OAAlB,GAAoCL,IAAD,IACjCS,6BACGE,EAAD,IAASL,UAAU,GAAGR,6BAAgBc,qBAAWF,EAAX,EAAeC,EAAf,CAAhB,EAAkCP,qBAAlC,CAAH,GAAyCN,6BAAgBc,qBAAWD,EAAX,EAAeD,EAAf,CAAhB,EAAkCN,qBAAlC,CAD9D,EAEE,MAAMN,6BAAgBY,EAAhB,EAAkBN,qBAAlB,CAFR,CADF,EAIGA,qBAJH,CAFG,EAQJS,CAAD,IAAOf,kDAAgBgB,CAAD,IAAOtB,CAAC,CAACqB,CAAD,EAAIC,CAAJ,CAAvB,EAA6BV,qBAA7B,CARF,CAAP;EAUD,CAjBD;AAkBD","names":["zipWithC_","self","that","f","g","b","a","tsplus_module_1","graft","tsplus_module_2","d","exit","fiber","coordinateZipWithC","id","fileName_1","fiberId","leftWinner","winner","loser","tsplus_module_4","cw","cl","tsplus_module_3","x","y"],"sourceRoot":"","sources":["../../../_src/IO/api/zipWithC.ts"],"sourcesContent":[null]}

package/_mjs/IO/api/zipWithC.mjs

@@ -1,23 +0,0 @@
-const fileName_1 = "(@fncts/io) src/IO/api/zipWithC.ts";
-import * as tsplus_module_1 from "@fncts/io/IO/api/core-scope";
-import * as tsplus_module_2 from "@fncts/io/IO/api";
-import * as tsplus_module_3 from "@fncts/base/data/Cause/api";
-import * as tsplus_module_4 from "@fncts/base/data/Exit/api";
-import * as tsplus_module_5 from "@fncts/io/Fiber/api/interruptAs";
-import * as tsplus_module_6 from "@fncts/io/Fiber/api/join";
-/**
- * @tsplus fluent fncts.io.IO zipWithC
- */
-
-export function zipWithC_(self, that, f) {
-  const g = (b, a) => f(a, b);
-
-  return tsplus_module_1.transplant(graft => tsplus_module_2.descriptorWith(d => tsplus_module_1.raceWith_(graft(self), () => graft(that), (exit, fiber) => coordinateZipWithC()(d.id, f, true, exit, fiber), (exit, fiber) => coordinateZipWithC()(d.id, g, false, exit, fiber), fileName_1 + ":13:27"), fileName_1 + ":12:22"), fileName_1 + ":11:23");
-}
-
-function coordinateZipWithC() {
-  return (fiberId, f, leftWinner, winner, loser) => {
-    return tsplus_module_4.match_(winner, cw => tsplus_module_2.flatMap_(tsplus_module_5.interruptAs(loser, fiberId), exit => tsplus_module_4.match_(exit, cl => leftWinner ? tsplus_module_2.failCauseNow(tsplus_module_3.both(cw, cl), fileName_1 + ":34:50") : tsplus_module_2.failCauseNow(tsplus_module_3.both(cl, cw), fileName_1 + ":34:88"), () => tsplus_module_2.failCauseNow(cw, fileName_1 + ":35:34")), fileName_1 + ":32:43"), x => tsplus_module_2.map_(tsplus_module_6.join(loser), y => f(x, y), fileName_1 + ":38:28"));
-  };
-}
-//# sourceMappingURL=zipWithC.mjs.map

package/_mjs/IO/api/zipWithC.mjs.map

@@ -1 +0,0 @@
-{"version":3,"file":"zipWithC.mjs","mappings":";;;;;;;AAAA;;;;AAGA,OAAM,SAAUA,SAAV,CACJC,IADI,EAEJC,IAFI,EAGJC,CAHI,EAGgB;EAEpB,MAAMC,CAAC,GAAG,CAACC,CAAD,EAAOC,CAAP,KAAgBH,CAAC,CAACG,CAAD,EAAID,CAAJ,CAA3B;;EAEA,OAAOE,2BAAeC,KAAD,IACnBC,+BAAmBC,CAAD,IAChBH,+BAAK,CAACN,IAAD,CAAL,EAAW,MACTO,KAAK,CAACN,IAAD,CADP,EAEE,CAACS,IAAD,EAAOC,KAAP,KAAiBC,kBAAkB,GAAUH,CAAC,CAACI,EAAZ,EAAgBX,CAAhB,EAAmB,IAAnB,EAAyBQ,IAAzB,EAA+BC,KAA/B,CAFrC,EAGE,CAACD,IAAD,EAAOC,KAAP,KAAiBC,kBAAkB,GAAUH,CAAC,CAACI,EAAZ,EAAgBV,CAAhB,EAAmB,KAAnB,EAA0BO,IAA1B,EAAgCC,KAAhC,CAHrC,EAG2EG,qBAH3E,CADF,EAKGA,qBALH,CADK,EAOJA,qBAPI,CAAP;AASD;;AAED,SAASF,kBAAT,GAA2B;EACzB,OAAO,CACLG,OADK,EAELb,CAFK,EAGLc,UAHK,EAILC,MAJK,EAKLC,KALK,KAMH;IACF,OAAOC,+BACJC,EAAD,IACEZ,4DAAkBO,OAAlB,GAAoCL,IAAD,IACjCS,6BACGE,EAAD,IAASL,UAAU,GAAGR,6BAAgBc,qBAAWF,EAAX,EAAeC,EAAf,CAAhB,EAAkCP,qBAAlC,CAAH,GAAyCN,6BAAgBc,qBAAWD,EAAX,EAAeD,EAAf,CAAhB,EAAkCN,qBAAlC,CAD9D,EAEE,MAAMN,6BAAgBY,EAAhB,EAAkBN,qBAAlB,CAFR,CADF,EAIGA,qBAJH,CAFG,EAQJS,CAAD,IAAOf,kDAAgBgB,CAAD,IAAOtB,CAAC,CAACqB,CAAD,EAAIC,CAAJ,CAAvB,EAA6BV,qBAA7B,CARF,CAAP;EAUD,CAjBD;AAkBD","names":["zipWithC_","self","that","f","g","b","a","tsplus_module_1","graft","tsplus_module_2","d","exit","fiber","coordinateZipWithC","id","fileName_1","fiberId","leftWinner","winner","loser","tsplus_module_4","cw","cl","tsplus_module_3","x","y"],"sourceRoot":"","sources":["../../../_src/IO/api/zipWithC.ts"],"sourcesContent":[null]}

package/_src/IO/api/zipWithC.ts

@@ -1,41 +0,0 @@
-/**
- * @tsplus fluent fncts.io.IO zipWithC
- */
-export function zipWithC_<R, E, A, R1, E1, B, C>(
-  self: IO<R, E, A>,
-  that: IO<R1, E1, B>,
-  f: (a: A, b: B) => C,
-): IO<R & R1, E | E1, C> {
-  const g = (b: B, a: A) => f(a, b);
-
-  return IO.transplant((graft) =>
-    IO.descriptorWith((d) =>
-      graft(self).raceWith(
-        graft(that),
-        (exit, fiber) => coordinateZipWithC<E, E1>()(d.id, f, true, exit, fiber),
-        (exit, fiber) => coordinateZipWithC<E, E1>()(d.id, g, false, exit, fiber),
-      ),
-    ),
-  );
-}
-
-function coordinateZipWithC<E, E2>() {
-  return <B, X, Y>(
-    fiberId: FiberId,
-    f: (a: X, b: Y) => B,
-    leftWinner: boolean,
-    winner: Exit<E | E2, X>,
-    loser: Fiber<E | E2, Y>,
-  ) => {
-    return winner.match(
-      (cw) =>
-        loser.interruptAs(fiberId).flatMap((exit) =>
-          exit.match(
-            (cl) => (leftWinner ? IO.failCauseNow(Cause.both(cw, cl)) : IO.failCauseNow(Cause.both(cl, cw))),
-            () => IO.failCauseNow(cw),
-          ),
-        ),
-      (x) => loser.join.map((y) => f(x, y)),
-    );
-  };
-}