@fncts/io 0.0.24 → 0.0.26

package/_mjs/IO/api/core-scope.mjs

@@ -1,97 +0,0 @@
-import * as tsplus_module_1 from "@fncts/io/FiberScope/constructors";
-import * as tsplus_module_2 from "@fncts/base/data/Maybe/constructors";
-import * as tsplus_module_3 from "@fncts/io/FiberRef/unsafe";
-import * as tsplus_module_4 from "@fncts/io/FiberRef/api";
-import * as tsplus_module_5 from "@fncts/io/IO/api";
-import * as tsplus_module_6 from "@fncts/base/data/Maybe/api";
-import * as tsplus_module_7 from "@fncts/io/IO/api/fork";
-export const daemonChildren = daemonChildren_1;
-export const raceFibersWith = raceFibersWith_1;
-import { AtomicBoolean } from "@fncts/base/internal/AtomicBoolean";
-import { unsafeMakeChildFiber } from "@fncts/io/IO/api/fork";
-/**
- * @tsplus getter fncts.io.IO daemonChildren
- */
-function daemonChildren_1(self, __tsplusTrace) {
-  return tsplus_module_4.locally(tsplus_module_3.forkScopeOverride, tsplus_module_2.just(tsplus_module_1.global), __tsplusTrace)(self);
-}
-/**
- * @tsplus pipeable fncts.io.IO raceFibersWith
- */
-function raceFibersWith_1(right, leftWins, rightWins, __tsplusTrace) {
-  return left => {
-    return tsplus_module_5.withFiberRuntime((parentState, parentStatus) => {
-      const right0 = right();
-      const parentRuntimeFlags = parentStatus.runtimeFlags;
-      function complete(winner, loser, cont, ab, cb) {
-        if (ab.compareAndSet(true, false)) {
-          cb(cont(winner, loser));
-        }
-      }
-      const raceIndicator = new AtomicBoolean(true);
-      const leftFiber = unsafeMakeChildFiber(left, parentState, parentRuntimeFlags, null, __tsplusTrace);
-      const rightFiber = unsafeMakeChildFiber(right0, parentState, parentRuntimeFlags, null, __tsplusTrace);
-      leftFiber.setFiberRef(tsplus_module_3.forkScopeOverride, tsplus_module_2.just(parentState.scope));
-      rightFiber.setFiberRef(tsplus_module_3.forkScopeOverride, tsplus_module_2.just(parentState.scope));
-      return tsplus_module_5.async(cb => {
-        leftFiber.addObserver(() => complete(leftFiber, rightFiber, leftWins, raceIndicator, cb));
-        rightFiber.addObserver(() => complete(rightFiber, leftFiber, rightWins, raceIndicator, cb));
-        leftFiber.startFork(left);
-        rightFiber.startFork(right0);
-      });
-    }, __tsplusTrace);
-  };
-}
-/**
- * Returns an effect that races this effect with the specified effect, calling
- * the specified finisher as soon as one result or the other has been computed.
- *
- * @tsplus pipeable fncts.io.IO raceWith
- */
-export function raceWith(right, leftWins, rightWins, __tsplusTrace) {
-  return left => {
-    return raceFibersWith_1(right, (winner, loser) => tsplus_module_5.flatMap(exit => {
-      switch (exit._tag) {
-        case "Success" /* ExitTag.Success */:
-          return tsplus_module_5.flatMap(() => leftWins(exit, loser), __tsplusTrace)(winner.inheritAll);
-        case "Failure" /* ExitTag.Failure */:
-          return leftWins(exit, loser);
-      }
-    }, __tsplusTrace)(winner.await), (winner, loser) => tsplus_module_5.flatMap(exit => {
-      switch (exit._tag) {
-        case "Success" /* ExitTag.Success */:
-          return tsplus_module_5.flatMap(() => rightWins(exit, loser), __tsplusTrace)(winner.inheritAll);
-        case "Failure" /* ExitTag.Failure */:
-          return rightWins(exit, loser);
-      }
-    }, __tsplusTrace)(winner.await), __tsplusTrace)(left);
-  };
-}
-/**
- * Transplants specified effects so that when those effects fork other
- * effects, the forked effects will be governed by the scope of the
- * fiber that executes this effect.
- *
- * This can be used to "graft" deep grandchildren onto a higher-level
- * scope, effectively extending their lifespans into the parent scope.
- *
- * @tsplus static fncts.io.IOOps transplant
- */
-export function transplant(f, __tsplusTrace) {
-  return tsplus_module_5.withFiberRuntime(fiberState => {
-    const scopeOverride = fiberState.getFiberRef(tsplus_module_3.forkScopeOverride);
-    const scope = tsplus_module_6.getOrElse(() => fiberState.scope)(scopeOverride);
-    return f(tsplus_module_4.locally(tsplus_module_3.forkScopeOverride, tsplus_module_2.just(scope), __tsplusTrace));
-  }, __tsplusTrace);
-}
-/**
- * Forks the effect into a new fiber attached to the global scope. Because the
- * new fiber is attached to the global scope, when the fiber executing the
- * returned effect terminates, the forked fiber will continue running.
- *
- * @tsplus getter fncts.io.IO forkDaemon
- */
-export function forkDaemon(ma, __tsplusTrace) {
-  return daemonChildren_1(tsplus_module_7.fork(ma, __tsplusTrace), __tsplusTrace);
-}
-//# sourceMappingURL=core-scope.mjs.map

package/_mjs/IO/api/core-scope.mjs.map

@@ -1 +0,0 @@
-{"version":3,"file":"core-scope.mjs","mappings":";;;;;;;aAYgBA,cAAc;aAOdC,cAAc;AAhB9B,SAASC,aAAa,QAAQ,oCAAoC;AAClE,SAASC,oBAAoB,QAAQ,uBAAuB;AAK5D;;;AAGA,0BAAwCC,IAAiB,EAAEC,aAAsB;EAC/E,OAAOC,2DAAmCC,4CAAuB,EADRF,cACS,CAACD,IAAI,CAAC;AAC1E;AAEA;;;AAGA,0BACEI,KAA0B,EAC1BC,QAAmF,EACnFC,SAAoF,EACpFL,aAAsB;EAEtB,OAAQM,IAAiB,IAA0C;IACjE,OAAOC,iCAAoB,CAACC,WAAW,EAAEC,YAAY,KAAI;MACvD,MAAMC,MAAM,GAAeP,KAAK,EAAE;MAClC,MAAMQ,kBAAkB,GAAGF,YAAY,CAACG,YAAY;MACpD,SAASC,QAAQ,CACfC,MAA2B,EAC3BC,KAA0B,EAC1BC,IAAgF,EAChFC,EAAiB,EACjBC,EAA6B;QAE7B,IAAID,EAAE,CAACE,aAAa,CAAC,IAAI,EAAE,KAAK,CAAC,EAAE;UACjCD,EAAE,CAACF,IAAI,CAACF,MAAM,EAAEC,KAAK,CAAC,CAAC;;MAE3B;MAEA,MAAMK,aAAa,GAAG,IAAIvB,aAAa,CAAC,IAAI,CAAC;MAC7C,MAAMwB,SAAS,GAAOvB,oBAAoB,CAACQ,IAAI,EAAEE,WAAW,EAAEG,kBAAkB,EAAE,IAAI,EAAEX,aAAa,CAAC;MACtG,MAAMsB,UAAU,GAAMxB,oBAAoB,CAACY,MAAM,EAAEF,WAAW,EAAEG,kBAAkB,EAAE,IAAI,EAAEX,aAAa,CAAC;MACxGqB,SAAS,CAACE,WAAW,oCAA6BrB,qBAAKM,WAAW,CAACgB,KAAK,CAAC,CAAC;MAC1EF,UAAU,CAACC,WAAW,oCAA6BrB,qBAAKM,WAAW,CAACgB,KAAK,CAAC,CAAC;MAE3E,OAAOjB,sBAAUW,EAAE,IAAI;QACrBG,SAAS,CAACI,WAAW,CAAC,MAAMZ,QAAQ,CAACQ,SAAS,EAAEC,UAAU,EAAElB,QAAQ,EAAEgB,aAAa,EAAEF,EAAE,CAAC,CAAC;QACzFI,UAAU,CAACG,WAAW,CAAC,MAAMZ,QAAQ,CAACS,UAAU,EAAED,SAAS,EAAEhB,SAAS,EAAEe,aAAa,EAAEF,EAAE,CAAC,CAAC;QAC3FG,SAAS,CAACK,SAAS,CAACpB,IAAI,CAAC;QACzBgB,UAAU,CAACI,SAAS,CAAChB,MAAM,CAAC;MAC9B,CAAC,CAAC;IACJ,CAAC,EA9BHV,cA8BI;EACJ,CAAC;AACH;AAEA;;;;;;AAMA,OAAM,SAAU2B,QAAQ,CACtBxB,KAA2B,EAC3BC,QAAoE,EACpEC,SAAqE,EACrEL,aAAsB;EAEtB,OAAQM,IAAiB,IAA4C;IACnE,OAAOsB,iBACLzB,KAAK,EACL,CAACW,MAAM,EAAEC,KAAK,KACZR,wBAAsBsB,IAAI,IAAI;MAC5B,QAAQA,IAAI,CAACC,IAAI;QACf;UACE,OAAOvB,wBAA0B,MAAMH,QAAQ,CAACyB,IAAI,EAAEd,KAAK,CAAC,EATxEf,eASmBc,MAAM,CAACiB,UAAU,CAAqC;QAC/D;UACE,OAAO3B,QAAQ,CAACyB,IAAI,EAAEd,KAAK,CAAC;MAAC;IAEnC,CAAC,EAbPf,eAMMc,MAAM,CAACkB,KAAK,CAOV,EACJ,CAAClB,MAAM,EAAEC,KAAK,KACZR,wBAAsBsB,IAAI,IAAI;MAC5B,QAAQA,IAAI,CAACC,IAAI;QACf;UACE,OAAOvB,wBAA0B,MAAMF,SAAS,CAACwB,IAAI,EAAEd,KAAK,CAAC,EAlBzEf,eAkBmBc,MAAM,CAACiB,UAAU,CAAsC;QAChE;UACE,OAAO1B,SAAS,CAACwB,IAAI,EAAEd,KAAK,CAAC;MAAC;IAEpC,CAAC,EAtBPf,eAeMc,MAAM,CAACkB,KAAK,CAOV,EAtBRhC,eAGSM,IAAI,CAoBV;EACH,CAAC;AACH;AAIA;;;;;;;;;;AAUA,OAAM,SAAU2B,UAAU,CAAUC,CAA8B,EAAElC,aAAsB;EACxF,OAAOO,iCAAqB4B,UAAU,IAAI;IACxC,MAAMC,aAAa,GAAGD,UAAU,CAACE,WAAW,mCAA4B;IACxE,MAAMb,KAAK,GAAWc,gCAAwBH,UAAU,CAACX,KAAK,EAAxCY,aAAa,CAA4B;IAC/D,OAAOF,CAAC,CAACjC,2DAAmCC,qBAAKsB,KAAK,CAAC,EAJSxB,cAIR,CAAC;EAC3D,CAAC,EALiEA,cAKhE;AACJ;AAEA;;;;;;;AAOA,OAAM,SAAUuC,UAAU,CAAUC,EAAe,EAAExC,aAAsB;EACzE,6CAAOwC,EAAE,EAD0CxC;AAErD","names":["daemonChildren","raceFibersWith","AtomicBoolean","unsafeMakeChildFiber","self","__tsplusTrace","tsplus_module_4","tsplus_module_2","right","leftWins","rightWins","left","tsplus_module_5","parentState","parentStatus","right0","parentRuntimeFlags","runtimeFlags","complete","winner","loser","cont","ab","cb","compareAndSet","raceIndicator","leftFiber","rightFiber","setFiberRef","scope","addObserver","startFork","raceWith","raceFibersWith_1","exit","_tag","inheritAll","await","transplant","f","fiberState","scopeOverride","getFiberRef","tsplus_module_6","forkDaemon","ma"],"sourceRoot":"","sources":["../../../_src/IO/api/core-scope.ts"],"sourcesContent":[null]}

package/_src/FiberRefs/join.ts

@@ -1,71 +0,0 @@
-/**
- * @tsplus pipeable fncts.io.FiberRefs join
- */
-export function join(fiberId: FiberId.Runtime, that: FiberRefs) {
-  return (self: FiberRefs): FiberRefs => {
-    const parentFiberRefs = FiberRefs.reverseGet(self);
-    const childFiberRefs  = FiberRefs.reverseGet(that);
-    const fiberRefLocals  = childFiberRefs.foldLeftWithIndex(parentFiberRefs, (ref, parentFiberRefs, childStack) => {
-      const childValue = childStack.head[1];
-      if (childStack.head[0] == fiberId) {
-        return parentFiberRefs;
-      }
-      return parentFiberRefs.get(ref).match(
-        () => {
-          if (Equatable.strictEquals(childValue, ref.initial)) return parentFiberRefs;
-          return parentFiberRefs.set(ref, Cons([fiberId, childValue] as const));
-        },
-        (parentStack) => {
-          const [ancestor, wasModified] = findAncestor(ref, parentStack, childStack);
-          if (!wasModified) return parentFiberRefs;
-          const patch    = ref.diff(ancestor, childValue);
-          const oldValue = parentStack.head[1];
-          const newValue = ref.join(oldValue, ref.patch(patch)(oldValue));
-          if (oldValue === newValue) return parentFiberRefs;
-          let newStack: Cons<readonly [FiberId.Runtime, unknown]>;
-          if (parentStack.isEmpty()) {
-            newStack = Cons([fiberId, newValue] as const);
-          } else {
-            const [parentFiberId] = parentStack.head;
-            if (parentFiberId == fiberId) {
-              newStack = Cons([parentFiberId, newValue], parentStack.tail);
-            } else {
-              newStack = Cons([fiberId, newValue], parentStack);
-            }
-          }
-          return parentFiberRefs.set(ref, newStack);
-        },
-      );
-    });
-    return FiberRefs.get(fiberRefLocals);
-  };
-}
-
-function compareFiberId(left: FiberId.Runtime, right: FiberId.Runtime): number {
-  const compare = Number.Ord.compare(right.startTime)(left.startTime);
-  return compare === 0 ? Number.Ord.compare(right.id)(left.id) : compare;
-}
-
-/**
- * @tsplus tailRec
- */
-function findAncestor(
-  ref: FiberRef<any>,
-  parentStack: List<readonly [FiberId.Runtime, any]>,
-  childStack: List<readonly [FiberId.Runtime, any]>,
-  childModified = false,
-): readonly [any, boolean] {
-  if (parentStack.isNonEmpty() && childStack.isNonEmpty()) {
-    const [parentFiberId]            = parentStack.head;
-    const [childFiberId, childValue] = childStack.head;
-    const compare                    = compareFiberId(parentFiberId, childFiberId);
-    if (compare < 0) {
-      return findAncestor(ref, parentStack, childStack.tail, true);
-    } else if (compare > 0) {
-      return findAncestor(ref, parentStack.tail, childStack, childModified);
-    } else {
-      return [childValue, childModified];
-    }
-  }
-  return [ref.initial, true];
-}