datahike 0.7.1630

package/is.simm.partial_cps.async.js

@@ -0,0 +1,142 @@
+var $CLJS = require("./cljs_env");
+var $jscomp = $CLJS.$jscomp;
+var COMPILED = false;
+require("./cljs.core.js");
+require("./is.simm.partial_cps.runtime.js");
+var environ=$CLJS.environ || ($CLJS.environ = {});
+var fress=$CLJS.fress || ($CLJS.fress = {});
+var datahike=$CLJS.datahike || ($CLJS.datahike = {});
+var clojure=$CLJS.clojure || ($CLJS.clojure = {});
+var hasch=$CLJS.hasch || ($CLJS.hasch = {});
+var tailrecursion=$CLJS.tailrecursion || ($CLJS.tailrecursion = {});
+var superv=$CLJS.superv || ($CLJS.superv = {});
+var geheimnis=$CLJS.geheimnis || ($CLJS.geheimnis = {});
+var is=$CLJS.is || ($CLJS.is = {});
+var cljs=$CLJS.cljs || ($CLJS.cljs = {});
+var cljs_node_io=$CLJS.cljs_node_io || ($CLJS.cljs_node_io = {});
+var goog=$CLJS.goog || ($CLJS.goog = {});
+var konserve=$CLJS.konserve || ($CLJS.konserve = {});
+var datalog=$CLJS.datalog || ($CLJS.datalog = {});
+var spec_tools=$CLJS.spec_tools || ($CLJS.spec_tools = {});
+var taoensso=$CLJS.taoensso || ($CLJS.taoensso = {});
+var incognito=$CLJS.incognito || ($CLJS.incognito = {});
+var medley=$CLJS.medley || ($CLJS.medley = {});
+var me=$CLJS.me || ($CLJS.me = {});
+
+$CLJS.SHADOW_ENV.setLoaded("is.simm.partial_cps.async.js");
+
+goog.provide('is.simm.partial_cps.async');
+/**
+ * Awaits the asynchronous execution of continuation-passing style function
+ * async-cb, applying it to args and two extra callback functions: resolve and
+ * raise. cps-fn is expected to eventually either call resolve with the result,
+ * call raise with the exception or just throw in the calling thread. The
+ * return value of cps-fn is ignored. Effectively returns the value passed to
+ * resolve or throws the exception passed to raise (or thrown) but does not
+ * block the calling tread.
+ * 
+ * Must be called in an asynchronous function. Note that any nested functions
+ * defined with fn, letfn, reify or deftype are considered outside of
+ * asynchronous scope.
+ */
+is.simm.partial_cps.async.await$ = (function is$simm$partial_cps$async$await(async_cb){
+throw cljs.core.ex_info.cljs$core$IFn$_invoke$arity$2("await called outside of asynchronous scope",new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Keyword(null,"async-cb","async-cb",-1776859474),async_cb], null));
+});
+is.simm.partial_cps.async._STAR_in_trampoline_STAR_ = false;
+/**
+ * Invoke a CPS continuation, handling Thunk returns via trampoline.
+ * 
+ *   This is the universal continuation invocation wrapper that ensures
+ *   Thunks are properly trampolined, preventing stack overflow in loops.
+ * 
+ *   Usage:
+ *  (invoke-continuation resolve-fn value)
+ *  (invoke-continuation reject-fn error)
+ * 
+ *   If the continuation returns a Thunk, it will be executed via trampoline.
+ *   This is essential for loop/recur constructs in CPS-transformed code.
+ */
+is.simm.partial_cps.async.invoke_continuation = (function is$simm$partial_cps$async$invoke_continuation(var_args){
+var args__5732__auto__ = [];
+var len__5726__auto___42732 = arguments.length;
+var i__5727__auto___42733 = (0);
+while(true){
+if((i__5727__auto___42733 < len__5726__auto___42732)){
+args__5732__auto__.push((arguments[i__5727__auto___42733]));
+
+var G__42734 = (i__5727__auto___42733 + (1));
+i__5727__auto___42733 = G__42734;
+continue;
+} else {
+}
+break;
+}
+
+var argseq__5733__auto__ = ((((1) < args__5732__auto__.length))?(new cljs.core.IndexedSeq(args__5732__auto__.slice((1)),(0),null)):null);
+return is.simm.partial_cps.async.invoke_continuation.cljs$core$IFn$_invoke$arity$variadic((arguments[(0)]),argseq__5733__auto__);
+});
+
+(is.simm.partial_cps.async.invoke_continuation.cljs$core$IFn$_invoke$arity$variadic = (function (cont_fn,args){
+var result = cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cont_fn,args);
+if((result instanceof is.simm.partial_cps.runtime.Thunk)){
+if(cljs.core.truth_(is.simm.partial_cps.async._STAR_in_trampoline_STAR_)){
+return result;
+} else {
+var _STAR_in_trampoline_STAR__orig_val__42698 = is.simm.partial_cps.async._STAR_in_trampoline_STAR_;
+var _STAR_in_trampoline_STAR__temp_val__42699 = true;
+(is.simm.partial_cps.async._STAR_in_trampoline_STAR_ = _STAR_in_trampoline_STAR__temp_val__42699);
+
+try{var r = result;
+while(true){
+if((r instanceof is.simm.partial_cps.runtime.Thunk)){
+var G__42736 = (function (){var fexpr__42703 = r.f;
+return (fexpr__42703.cljs$core$IFn$_invoke$arity$0 ? fexpr__42703.cljs$core$IFn$_invoke$arity$0() : fexpr__42703.call(null, ));
+})();
+r = G__42736;
+continue;
+} else {
+return r;
+}
+break;
+}
+}finally {(is.simm.partial_cps.async._STAR_in_trampoline_STAR_ = _STAR_in_trampoline_STAR__orig_val__42698);
+}}
+} else {
+return result;
+}
+}));
+
+(is.simm.partial_cps.async.invoke_continuation.cljs$lang$maxFixedArity = (1));
+
+/** @this {Function} */
+(is.simm.partial_cps.async.invoke_continuation.cljs$lang$applyTo = (function (seq42689){
+var G__42690 = cljs.core.first(seq42689);
+var seq42689__$1 = cljs.core.next(seq42689);
+var self__5711__auto__ = this;
+return self__5711__auto__.cljs$core$IFn$_invoke$arity$variadic(G__42690,seq42689__$1);
+}));
+
+/**
+ * Provides effect handler code for await.
+ * 
+ *   Receives ctx map containing:
+ *   - :env - macro expansion environment (&env)
+ *   - :r - success continuation
+ *   - :e - error continuation
+ *   - :breakpoints - registered breakpoints
+ *   Plus any additional macro-specific context fields.
+ */
+is.simm.partial_cps.async.await_handler = (function is$simm$partial_cps$async$await_handler(ctx,r,e){
+return (function (args){
+if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(cljs.core.count(args),(1))){
+} else {
+throw (new Error(["Assert failed: ",["Expected 1 argument, got ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(args)].join(''),"\n","(= (count args) 1)"].join('')));
+}
+
+var env = new cljs.core.Keyword(null,"env","env",-1815813235).cljs$core$IFn$_invoke$arity$1(ctx);
+return cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol("cljs.core","letfn","cljs.core/letfn",-874326064,null),null,(1),null)),(new cljs.core.List(null,cljs.core.vec(cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$1((new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol(null,"safe-r__42708__auto__","safe-r__42708__auto__",1565370415,null),null,(1),null)),(new cljs.core.List(null,cljs.core.vec(cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$1((new cljs.core.List(null,new cljs.core.Symbol(null,"v__42709__auto__","v__42709__auto__",-923735235,null),null,(1),null)))))),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol(null,"try","try",-1273693247,null),null,(1),null)),(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol(null,"if","if",1181717262,null),null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol("is.simm.partial-cps.async","*in-trampoline*","is.simm.partial-cps.async/*in-trampoline*",612257243,null),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$2((new cljs.core.List(null,r,null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol(null,"v__42709__auto__","v__42709__auto__",-923735235,null),null,(1),null))))),null,(1),null)),(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol("cljs.core","binding","cljs.core/binding",2050379843,null),null,(1),null)),(new cljs.core.List(null,cljs.core.vec(cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$2((new cljs.core.List(null,new cljs.core.Symbol("is.simm.partial-cps.async","*in-trampoline*","is.simm.partial-cps.async/*in-trampoline*",612257243,null),null,(1),null)),(new cljs.core.List(null,true,null,(1),null)))))),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol("cljs.core","loop","cljs.core/loop",-1829423021,null),null,(1),null)),(new cljs.core.List(null,cljs.core.vec(cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$2((new cljs.core.List(null,new cljs.core.Symbol(null,"result__42710__auto__","result__42710__auto__",-401313854,null),null,(1),null)),(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$2((new cljs.core.List(null,r,null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol(null,"v__42709__auto__","v__42709__auto__",-923735235,null),null,(1),null))))),null,(1),null)))))),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol(null,"if","if",1181717262,null),null,(1),null)),(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol("cljs.core","instance?","cljs.core/instance?",2044751870,null),null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol(null,"is.simm.partial_cps.runtime.Thunk","is.simm.partial_cps.runtime.Thunk",-92524847,null),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,new cljs.core.Symbol(null,"result__42710__auto__","result__42710__auto__",-401313854,null),null,(1),null))], 0)))),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$2((new cljs.core.List(null,new cljs.core.Symbol(null,"recur","recur",1202958259,null),null,(1),null)),(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$1((new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$2((new cljs.core.List(null,new cljs.core.Symbol(null,".-f",".-f",-1624449551,null),null,(1),null)),(new cljs.core.List(null,cljs.core.with_meta(new cljs.core.Symbol(null,"result__42710__auto__","result__42710__auto__",-401313854,null),cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.array_map,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Keyword(null,"file","file",-1269645878),null,(1),null)),(new cljs.core.List(null,"is/simm/partial_cps/async.cljc",null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,new cljs.core.Keyword(null,"line","line",212345235),null,(1),null)),(new cljs.core.List(null,70,null,(1),null)),(new cljs.core.List(null,new cljs.core.Keyword(null,"column","column",2078222095),null,(1),null)),(new cljs.core.List(null,76,null,(1),null)),(new cljs.core.List(null,new cljs.core.Keyword(null,"end-line","end-line",1837326455),null,(1),null)),(new cljs.core.List(null,70,null,(1),null)),(new cljs.core.List(null,new cljs.core.Keyword(null,"end-column","end-column",1425389514),null,(1),null)),(new cljs.core.List(null,83,null,(1),null)),(new cljs.core.List(null,new cljs.core.Keyword(null,"tag","tag",-1290361223),null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol(null,"is.simm.partial_cps.runtime.Thunk","is.simm.partial_cps.runtime.Thunk",-92524847,null),null,(1),null))], 0)))))),null,(1),null))))),null,(1),null))))),null,(1),null))))),null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol(null,"result__42710__auto__","result__42710__auto__",-401313854,null),null,(1),null))], 0)))),null,(1),null))], 0)))),null,(1),null))], 0)))),null,(1),null))], 0)))),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,new cljs.core.Symbol(null,"catch","catch",-1616370245,null),null,(1),null)),(new cljs.core.List(null,(cljs.core.truth_(new cljs.core.Keyword(null,"js-globals","js-globals",1670394727).cljs$core$IFn$_invoke$arity$1(env))?new cljs.core.Keyword(null,"default","default",-1987822328):new cljs.core.Symbol("is.simm.partial-cps.async","Throwable","is.simm.partial-cps.async/Throwable",-1695148487,null)),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,new cljs.core.Symbol(null,"t__42711__auto__","t__42711__auto__",-776906523,null),null,(1),null)),(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$2((new cljs.core.List(null,e,null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol(null,"t__42711__auto__","t__42711__auto__",-776906523,null),null,(1),null))))),null,(1),null))], 0)))),null,(1),null))], 0)))),null,(1),null))], 0)))),null,(1),null)))))),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,cljs.core.sequence.cljs$core$IFn$_invoke$arity$1(cljs.core.seq(cljs.core.concat.cljs$core$IFn$_invoke$arity$variadic((new cljs.core.List(null,cljs.core.first(args),null,(1),null)),(new cljs.core.List(null,new cljs.core.Symbol(null,"safe-r__42708__auto__","safe-r__42708__auto__",1565370415,null),null,(1),null)),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([(new cljs.core.List(null,e,null,(1),null))], 0)))),null,(1),null))], 0))));
+});
+});
+is.simm.partial_cps.async.breakpoints = new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Symbol("is.simm.partial-cps.async","await","is.simm.partial-cps.async/await",-496235343,null),new cljs.core.Symbol("is.simm.partial-cps.async","await-handler","is.simm.partial-cps.async/await-handler",1922316794,null)], null);
+
+//# sourceMappingURL=is.simm.partial_cps.async.js.map

package/is.simm.partial_cps.async.js.map

@@ -0,0 +1 @@
+{"version":3,"sources":["is/simm/partial_cps/async.cljc"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;AAMA;;;;;;;;;;;;;mCAAA,nCAAMA,6EAYHC;AAZH,AAaE,MAAO,gDAAA,6CAAA,2CAAA,xIAACC,sMAAgED;;AAE1E,sDAAA,tDAAeE;AAEf,AAAA;;;;;;;;;;;;;gDAAA,wDAAAC,xGAAMM;AAAN,AAAA,IAAAL,qBAAA;AAAA,AAAA,IAAAC,0BAAA,AAAA;AAAA,AAAA,IAAAC,wBAAA;;AAAA,AAAA,GAAA,CAAAA,wBAAAD;AAAA,AAAA,AAAAD,wBAAA,CAAA,UAAAE;;AAAA,eAAA,CAAAA,wBAAA;;;;AAAA;;;;AAAA,IAAAC,uBAAA,EAAA,CAAA,MAAA,AAAAH,4BAAA,AAAA,KAAAI,qBAAA,AAAAJ,yBAAA,KAAA,IAAA,OAAA;AAAA,AAAA,OAAAK,mFAAA,CAAA,UAAA,MAAAF;;;AAAA,AAAA,CAAA,qFAAA,rFAAME,gGAYHM,QAAUC;AAZb,AAaE,IAAMC,SAAO,AAACC,8CAAMH,QAAQC;AAA5B,AACE,GAAI,mBAAWG,lBAAkCF;AAC/C,oBAAIf;AACFe;;AAEA,IAAAG,4CAAUlB;IAAVmB,4CAAA;AAAA,AAAA,uDAAAA,tDAAUnB;;AAAV,IAAA,AACE,IAAOoB,IAAEL;;AAAT,AACE,GAAI,cAAWE,bAAkCG;AAC/C,eAAO,iBAAAC,eAAC,AAAwCD;AAAzC,AAAA,QAAAC,6CAAAA,+CAAAA;;;;;AACPD;;;;UAJN,AAAA,uDAAAF,tDAAUlB;;;AAKZe;;;;AAvBN,CAAA,wEAAA,xEAAMR;;AAAN;AAAA,CAAA,kEAAA,WAAAC,7EAAMD;AAAN,AAAA,IAAAE,WAAA,AAAAC,gBAAAF;IAAAA,eAAA,AAAAG,eAAAH;AAAA,AAAA,IAAAI,qBAAA;AAAA,AAAA,OAAAA,wDAAAH,SAAAD;;;AAAA,AAyBA;;;;;;;;;;0CAAA,1CAAMc,4FASHC,IAAIH,EAAEI;AATT,AAUE,kBAAKV;AAAL,AACE,GAAQ,mEAAA,nEAACY,6CAAE,AAACC,gBAAMb;AAAlB;AAAA,AAAA,MAAA,KAAAW,MAAA,CAAA,2GAAA,KAAA,9FAA2B,CAAA,wEAAiCX;;;AAC5D,IAAMqB,MAAI,AAAA,kFAAMZ;AAAhB,AAAA,OAAAK,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,4EAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAC,cAAA,AAAAJ,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,2FAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAC,cAAA,AAAAJ,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,KAAA,AAAA,iFAAA,KAAA,IAAA,WAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,wDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,qDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,+HAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,OAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,iFAAA,KAAA,IAAA,UAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,gFAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAC,cAAA,AAAAJ,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,KAAA,AAAA,+HAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,KAAA,KAAA,IAAA,WAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,2EAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAC,cAAA,AAAAJ,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,KAAA,AAAA,2FAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,OAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,iFAAA,KAAA,IAAA,UAAA,KAAA,IAAA,WAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,qDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,oFAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,kHAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAA,2FAAA,KAAA,IAAA,eAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,KAAA,AAAA,2DAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,KAAA,AAAA,wDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAE,oBAAA,AAAA,2FAAA,AAAAjB,8CAAAkB,oBAAA,AAAAN,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,sDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,iCAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,oDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,GAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,yDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,GAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,6DAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,GAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,iEAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,GAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,oDAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,kHAAA,KAAA,IAAA,iBAAA,KAAA,IAAA,UAAA,KAAA,IAAA,UAAA,KAAA,IAAA,UAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,2FAAA,KAAA,IAAA,eAAA,KAAA,IAAA,eAAA,KAAA,IAAA,eAAA,KAAA,IAAA,eAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,KAAA,AAAA,4DAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,8SAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAA,iFAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,+CAAA,KAAAC,eAAA,OAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,iFAAA,KAAA,IAAA,UAAA,KAAA,IAAA,eAAA,KAAA,IAAA,eAAA,KAAA,IAAA,eAAA,KAAA,IAAA,WAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,KAAA,AAAAH,iDAAA,AAAAC,cAAA,AAAAC,sDAAA,KAAAC,eAAA,2BAAA,KAAA,IAAA,OAAA,KAAAA,eAAA,KAAA,AAAA,2FAAA,KAAA,IAAA,yDAAA,KAAAA,eAAA,OAAA,KAAA,IAAA,eAAA,KAAA,IAAA,1hNAImBX,khDAEiBA,upHAKb,uHAAA,4DAAA,AAAA,jKAAI,AAAA,+FAAae,ohBAA+BX,odAChE,AAACd,gBAAMI,qOAAeU;;;AAEjC,wCAAA,2CAAA,AAAA,4GAAA,AAAA,/LAAcY","names":["is.simm.partial-cps.async/await","async-cb","cljs.core.ex_info","is.simm.partial-cps.async/*in-trampoline*","var_args","args__5732__auto__","len__5726__auto__","i__5727__auto__","argseq__5733__auto__","cljs.core/IndexedSeq","is.simm.partial-cps.async/invoke-continuation","seq42689","G__42690","cljs.core/first","cljs.core/next","self__5711__auto__","cont-fn","args","result","cljs.core.apply","is.simm.partial_cps.runtime/Thunk","*in-trampoline*-orig-val__42698","*in-trampoline*-temp-val__42699","r","fexpr__42703","is.simm.partial-cps.async/await-handler","ctx","e","js/Error","cljs.core._EQ_","cljs.core/count","cljs.core.sequence","cljs.core/seq","cljs.core.concat","cljs.core/List","cljs.core/vec","cljs.core/with-meta","cljs.core/array-map","env","is.simm.partial-cps.async/breakpoints"],"sourcesContent":["(ns is.simm.partial-cps.async\n  (:refer-clojure :exclude [await])\n  (:require [is.simm.partial-cps.runtime :as runtime]\n            #?(:clj [is.simm.partial-cps.ioc :refer [has-breakpoints? invert]]))\n  #?(:cljs (:require-macros [is.simm.partial-cps.async :refer [async]])))\n\n(defn await\n  \"Awaits the asynchronous execution of continuation-passing style function\n   async-cb, applying it to args and two extra callback functions: resolve and\n   raise. cps-fn is expected to eventually either call resolve with the result,\n   call raise with the exception or just throw in the calling thread. The\n   return value of cps-fn is ignored. Effectively returns the value passed to\n   resolve or throws the exception passed to raise (or thrown) but does not\n   block the calling tread.\n\n   Must be called in an asynchronous function. Note that any nested functions\n   defined with fn, letfn, reify or deftype are considered outside of\n   asynchronous scope.\"\n  [async-cb]\n  (throw (ex-info \"await called outside of asynchronous scope\" {:async-cb async-cb})))\n\n(def ^:dynamic *in-trampoline* false)\n\n(defn invoke-continuation\n  \"Invoke a CPS continuation, handling Thunk returns via trampoline.\n\n  This is the universal continuation invocation wrapper that ensures\n  Thunks are properly trampolined, preventing stack overflow in loops.\n\n  Usage:\n    (invoke-continuation resolve-fn value)\n    (invoke-continuation reject-fn error)\n\n  If the continuation returns a Thunk, it will be executed via trampoline.\n  This is essential for loop/recur constructs in CPS-transformed code.\"\n  [cont-fn & args]\n  (let [result (apply cont-fn args)]\n    (if (instance? is.simm.partial_cps.runtime.Thunk result)\n      (if *in-trampoline*\n        result  ; Already in trampoline, return Thunk\n        ;; Not in trampoline, execute it\n        (binding [*in-trampoline* true]\n          (loop [r result]\n            (if (instance? is.simm.partial_cps.runtime.Thunk r)\n              (recur ((.-f ^is.simm.partial_cps.runtime.Thunk r)))\n              r))))\n      result)))\n\n(defn await-handler\n  \"Provides effect handler code for await.\n\n  Receives ctx map containing:\n  - :env - macro expansion environment (&env)\n  - :r - success continuation\n  - :e - error continuation\n  - :breakpoints - registered breakpoints\n  Plus any additional macro-specific context fields.\"\n  [ctx r e]\n  (fn [args]\n    (assert (= (count args) 1) (str \"Expected 1 argument, got \" args))\n    (let [env (:env ctx)]\n      `(letfn [(safe-r# [v#]\n                 (try\n                   (if *in-trampoline*\n                     (~r v#)\n                     (binding [*in-trampoline* true]\n                       (loop [result# (~r v#)]\n                         (if (instance? is.simm.partial_cps.runtime.Thunk result#)\n                                  ;; If continuation returns a thunk, trampoline it\n                           (recur ((.-f ^is.simm.partial_cps.runtime.Thunk result#)))\n                           result#))))\n                   (catch ~(if (:js-globals env) :default `Throwable) t# (~e t#))))]\n         (~(first args) safe-r# ~e)))))\n\n(def ^:no-doc breakpoints\n  {`await `await-handler})\n\n#?(:clj\n   (defmacro async\n     \"Defines a function that takes a successful and exceptional continuation,\n   and runs the body, suspending execution whenever any of the breakpoints (await) is\n   encountered, and eventually calling one of the continuations with the\n   result.\n\n   A call of the form (breakpoint args..) is forwarded to the corresponding handler\n   (handler succ exc args..), which is expected to eventually call either succ\n   with the value or exc with exception to substitute the original call result\n   and resuming the execution.\"\n     [& body]\n     (let [r (gensym) e (gensym)\n           params {:r r :e e :env &env :breakpoints breakpoints}\n           form (cons 'do body)]\n       `(fn [~r ~e]\n          (try\n            (if *in-trampoline*\n              ~(invert params form)\n              (binding [*in-trampoline* true]\n                (loop [result# ~(invert params form)]\n                  (if (instance? is.simm.partial_cps.runtime.Thunk result#)\n                    ;; If continuation returns a thunk, trampoline it\n                    (recur ((.-f ^is.simm.partial_cps.runtime.Thunk result#)))\n                    result#))))\n            (catch ~(if (:js-globals &env) :default `Throwable) t# (~e t#)))))))\n"],"x_google_ignoreList":[0]}

package/is.simm.partial_cps.runtime.js

@@ -0,0 +1,65 @@
+var $CLJS = require("./cljs_env");
+var $jscomp = $CLJS.$jscomp;
+var COMPILED = false;
+require("./cljs.core.js");
+var environ=$CLJS.environ || ($CLJS.environ = {});
+var fress=$CLJS.fress || ($CLJS.fress = {});
+var datahike=$CLJS.datahike || ($CLJS.datahike = {});
+var clojure=$CLJS.clojure || ($CLJS.clojure = {});
+var hasch=$CLJS.hasch || ($CLJS.hasch = {});
+var tailrecursion=$CLJS.tailrecursion || ($CLJS.tailrecursion = {});
+var superv=$CLJS.superv || ($CLJS.superv = {});
+var geheimnis=$CLJS.geheimnis || ($CLJS.geheimnis = {});
+var is=$CLJS.is || ($CLJS.is = {});
+var cljs=$CLJS.cljs || ($CLJS.cljs = {});
+var cljs_node_io=$CLJS.cljs_node_io || ($CLJS.cljs_node_io = {});
+var goog=$CLJS.goog || ($CLJS.goog = {});
+var konserve=$CLJS.konserve || ($CLJS.konserve = {});
+var datalog=$CLJS.datalog || ($CLJS.datalog = {});
+var spec_tools=$CLJS.spec_tools || ($CLJS.spec_tools = {});
+var taoensso=$CLJS.taoensso || ($CLJS.taoensso = {});
+var incognito=$CLJS.incognito || ($CLJS.incognito = {});
+var medley=$CLJS.medley || ($CLJS.medley = {});
+var me=$CLJS.me || ($CLJS.me = {});
+
+$CLJS.SHADOW_ENV.setLoaded("is.simm.partial_cps.runtime.js");
+
+goog.provide('is.simm.partial_cps.runtime');
+is.simm.partial_cps.runtime.bound_fn = (function is$simm$partial_cps$runtime$bound_fn(f){
+return cljs.core.identity;
+});
+
+/**
+* @constructor
+*/
+is.simm.partial_cps.runtime.Thunk = (function (f){
+this.f = f;
+});
+
+(is.simm.partial_cps.runtime.Thunk.getBasis = (function (){
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [new cljs.core.Symbol(null,"f","f",43394975,null)], null);
+}));
+
+(is.simm.partial_cps.runtime.Thunk.cljs$lang$type = true);
+
+(is.simm.partial_cps.runtime.Thunk.cljs$lang$ctorStr = "is.simm.partial-cps.runtime/Thunk");
+
+(is.simm.partial_cps.runtime.Thunk.cljs$lang$ctorPrWriter = (function (this__5287__auto__,writer__5288__auto__,opt__5289__auto__){
+return cljs.core._write(writer__5288__auto__,"is.simm.partial-cps.runtime/Thunk");
+}));
+
+/**
+ * Positional factory function for is.simm.partial-cps.runtime/Thunk.
+ */
+is.simm.partial_cps.runtime.__GT_Thunk = (function is$simm$partial_cps$runtime$__GT_Thunk(f){
+return (new is.simm.partial_cps.runtime.Thunk(f));
+});
+
+/**
+ * Create a thunk for trampolining
+ */
+is.simm.partial_cps.runtime.__GT_thunk = (function is$simm$partial_cps$runtime$__GT_thunk(f){
+return (new is.simm.partial_cps.runtime.Thunk(f));
+});
+
+//# sourceMappingURL=is.simm.partial_cps.runtime.js.map

package/is.simm.partial_cps.runtime.js.map

@@ -0,0 +1 @@
+{"version":3,"sources":["is/simm/partial_cps/runtime.cljc"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;AAGA,uCAAA,vCAAeA,sFACZC;AADH,AAYWC;;AAEX,AAAA;;;;;;;AAAA;AAAA,CAAA,6CAAA,7CAASK;AAAT,AAAA,AAAA;;;AAAA,CAAA,mDAAA,nDAASA;;AAAT,CAAA,sDAAA,tDAASA;;AAAT,CAAA,2DAAA,WAAAJ,mBAAAC,qBAAAC,9GAASE;AAAT,AAAA,OAAAD,iBAAAF,qBAAA;;;AAAA;;;yCAAA,zCAASI,0FAAOP;AAAhB,AAAA,YAAAM,kCAAgBN;;;AAAPM,AAET;;;yCAAA,zCAAME,0FAEHR;AAFH,AAGE,YAAAM,kCAAQN","names":["is.simm.partial-cps.runtime/bound-fn","f","cljs.core/identity","this__5287__auto__","writer__5288__auto__","opt__5289__auto__","cljs.core/-write","is.simm.partial-cps.runtime/Thunk","is.simm.partial-cps.runtime/->Thunk","is.simm.partial-cps.runtime/->thunk"],"sourcesContent":["(ns is.simm.partial-cps.runtime\n  (:refer-clojure :exclude [bound-fn]))\n\n(defn ^:no-doc bound-fn\n  [f]\n  #?(:clj\n     (let [bound-frame (clojure.lang.Var/getThreadBindingFrame)]\n       (fn [& args]\n         (let [call-site-frame (clojure.lang.Var/getThreadBindingFrame)]\n           (clojure.lang.Var/resetThreadBindingFrame bound-frame)\n           (try\n             (apply f args)\n             (finally\n               (clojure.lang.Var/resetThreadBindingFrame call-site-frame))))))\n     ;; no dynamic binding support for async code in cljs (same for core.async)\n     :cljs identity))\n\n(deftype Thunk [f])\n\n(defn ->thunk\n  \"Create a thunk for trampolining\"\n  [f]\n  (Thunk. f))\n"],"x_google_ignoreList":[0]}