datahike 0.7.1630

package/cljs.analyzer.passes.and_or.js

@@ -0,0 +1,141 @@
+var $CLJS = require("./cljs_env");
+var $jscomp = $CLJS.$jscomp;
+var COMPILED = false;
+require("./cljs.core.js");
+require("./cljs.analyzer.passes.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("cljs.analyzer.passes.and_or.js");
+
+goog.provide('cljs.analyzer.passes.and_or');
+cljs.analyzer.passes.and_or.simple_ops = new cljs.core.PersistentHashSet(null, new cljs.core.PersistentArrayMap(null, 9, [new cljs.core.Keyword(null,"js","js",1768080579),null,new cljs.core.Keyword(null,"host-field","host-field",-72662140),null,new cljs.core.Keyword(null,"const","const",1709929842),null,new cljs.core.Keyword(null,"var","var",-769682797),null,new cljs.core.Keyword(null,"quote","quote",-262615245),null,new cljs.core.Keyword(null,"invoke","invoke",1145927159),null,new cljs.core.Keyword(null,"js-var","js-var",-1177899142),null,new cljs.core.Keyword(null,"host-call","host-call",1059629755),null,new cljs.core.Keyword(null,"local","local",-1497766724),null], null), null);
+cljs.analyzer.passes.and_or.__GT_expr_env = (function cljs$analyzer$passes$and_or$__GT_expr_env(ast){
+return cljs.core.assoc_in(ast,new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [new cljs.core.Keyword(null,"env","env",-1815813235),new cljs.core.Keyword(null,"context","context",-830191113)], null),new cljs.core.Keyword(null,"expr","expr",745722291));
+});
+cljs.analyzer.passes.and_or.simple_op_QMARK_ = (function cljs$analyzer$passes$and_or$simple_op_QMARK_(ast){
+return cljs.core.contains_QMARK_(cljs.analyzer.passes.and_or.simple_ops,new cljs.core.Keyword(null,"op","op",-1882987955).cljs$core$IFn$_invoke$arity$1(ast));
+});
+cljs.analyzer.passes.and_or.simple_test_expr_QMARK_ = (function cljs$analyzer$passes$and_or$simple_test_expr_QMARK_(p__119145){
+var map__119146 = p__119145;
+var map__119146__$1 = cljs.core.__destructure_map(map__119146);
+var ast = map__119146__$1;
+var op = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__119146__$1,new cljs.core.Keyword(null,"op","op",-1882987955));
+return cljs.core.boolean$((function (){var and__5000__auto__ = cljs.analyzer.passes.and_or.simple_op_QMARK_(ast);
+if(and__5000__auto__){
+var G__119148 = (function (){var or__5002__auto__ = new cljs.core.Keyword(null,"tag","tag",-1290361223).cljs$core$IFn$_invoke$arity$1(ast);
+if(cljs.core.truth_(or__5002__auto__)){
+return or__5002__auto__;
+} else {
+if(cljs.core.truth_((function (){var fexpr__119149 = new cljs.core.PersistentHashSet(null, new cljs.core.PersistentArrayMap(null, 2, [new cljs.core.Keyword(null,"var","var",-769682797),null,new cljs.core.Keyword(null,"local","local",-1497766724),null], null), null);
+return (fexpr__119149.cljs$core$IFn$_invoke$arity$1 ? fexpr__119149.cljs$core$IFn$_invoke$arity$1(op) : fexpr__119149.call(null, op));
+})())){
+return new cljs.core.Keyword(null,"tag","tag",-1290361223).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"info","info",-317069002).cljs$core$IFn$_invoke$arity$1(ast));
+} else {
+return null;
+}
+}
+})();
+var fexpr__119147 = new cljs.core.PersistentHashSet(null, new cljs.core.PersistentArrayMap(null, 2, [new cljs.core.Symbol(null,"seq","seq",-177272256,null),"null",new cljs.core.Symbol(null,"boolean","boolean",-278886877,null),"null"], null), null);
+return (fexpr__119147.cljs$core$IFn$_invoke$arity$1 ? fexpr__119147.cljs$core$IFn$_invoke$arity$1(G__119148) : fexpr__119147.call(null, G__119148));
+} else {
+return and__5000__auto__;
+}
+})());
+});
+cljs.analyzer.passes.and_or.single_binding_let_QMARK_ = (function cljs$analyzer$passes$and_or$single_binding_let_QMARK_(ast){
+return ((cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(new cljs.core.Keyword(null,"let","let",-1282412701),new cljs.core.Keyword(null,"op","op",-1882987955).cljs$core$IFn$_invoke$arity$1(ast))) && (cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2((1),cljs.core.count(new cljs.core.Keyword(null,"bindings","bindings",1271397192).cljs$core$IFn$_invoke$arity$1(ast)))));
+});
+cljs.analyzer.passes.and_or.no_statements_QMARK_ = (function cljs$analyzer$passes$and_or$no_statements_QMARK_(let_ast){
+return cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(cljs.core.PersistentVector.EMPTY,new cljs.core.Keyword(null,"statements","statements",600349855).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(let_ast)));
+});
+cljs.analyzer.passes.and_or.returns_if_QMARK_ = (function cljs$analyzer$passes$and_or$returns_if_QMARK_(let_ast){
+return cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(new cljs.core.Keyword(null,"if","if",-458814265),new cljs.core.Keyword(null,"op","op",-1882987955).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"ret","ret",-468222814).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(let_ast))));
+});
+cljs.analyzer.passes.and_or.simple_test_binding_let_QMARK_ = (function cljs$analyzer$passes$and_or$simple_test_binding_let_QMARK_(ast){
+return ((cljs.analyzer.passes.and_or.single_binding_let_QMARK_(ast)) && (((cljs.analyzer.passes.and_or.no_statements_QMARK_(ast)) && (((cljs.analyzer.passes.and_or.simple_test_expr_QMARK_(new cljs.core.Keyword(null,"init","init",-1875481434).cljs$core$IFn$_invoke$arity$1(cljs.core.first(new cljs.core.Keyword(null,"bindings","bindings",1271397192).cljs$core$IFn$_invoke$arity$1(ast))))) && (cljs.analyzer.passes.and_or.returns_if_QMARK_(ast)))))));
+});
+cljs.analyzer.passes.and_or.test_EQ_then_QMARK_ = (function cljs$analyzer$passes$and_or$test_EQ_then_QMARK_(if_ast){
+return cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(cljs.core.dissoc.cljs$core$IFn$_invoke$arity$2(new cljs.core.Keyword(null,"test","test",577538877).cljs$core$IFn$_invoke$arity$1(if_ast),new cljs.core.Keyword(null,"env","env",-1815813235)),cljs.core.dissoc.cljs$core$IFn$_invoke$arity$2(new cljs.core.Keyword(null,"then","then",460598070).cljs$core$IFn$_invoke$arity$1(if_ast),new cljs.core.Keyword(null,"env","env",-1815813235)));
+});
+cljs.analyzer.passes.and_or.test_EQ_else_QMARK_ = (function cljs$analyzer$passes$and_or$test_EQ_else_QMARK_(if_ast){
+return cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(cljs.core.dissoc.cljs$core$IFn$_invoke$arity$2(new cljs.core.Keyword(null,"test","test",577538877).cljs$core$IFn$_invoke$arity$1(if_ast),new cljs.core.Keyword(null,"env","env",-1815813235)),cljs.core.dissoc.cljs$core$IFn$_invoke$arity$2(new cljs.core.Keyword(null,"else","else",-1508377146).cljs$core$IFn$_invoke$arity$1(if_ast),new cljs.core.Keyword(null,"env","env",-1815813235)));
+});
+cljs.analyzer.passes.and_or.simple_and_QMARK_ = (function cljs$analyzer$passes$and_or$simple_and_QMARK_(ast){
+return ((cljs.analyzer.passes.and_or.simple_test_binding_let_QMARK_(ast)) && (cljs.analyzer.passes.and_or.test_EQ_else_QMARK_(new cljs.core.Keyword(null,"ret","ret",-468222814).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(ast)))));
+});
+cljs.analyzer.passes.and_or.simple_or_QMARK_ = (function cljs$analyzer$passes$and_or$simple_or_QMARK_(ast){
+return ((cljs.analyzer.passes.and_or.simple_test_binding_let_QMARK_(ast)) && (cljs.analyzer.passes.and_or.test_EQ_then_QMARK_(new cljs.core.Keyword(null,"ret","ret",-468222814).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(ast)))));
+});
+cljs.analyzer.passes.and_or.optimizable_and_QMARK_ = (function cljs$analyzer$passes$and_or$optimizable_and_QMARK_(ast){
+return ((cljs.analyzer.passes.and_or.simple_and_QMARK_(ast)) && (cljs.analyzer.passes.and_or.simple_test_expr_QMARK_(new cljs.core.Keyword(null,"then","then",460598070).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"ret","ret",-468222814).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(ast))))));
+});
+cljs.analyzer.passes.and_or.optimizable_or_QMARK_ = (function cljs$analyzer$passes$and_or$optimizable_or_QMARK_(ast){
+return ((cljs.analyzer.passes.and_or.simple_or_QMARK_(ast)) && (cljs.analyzer.passes.and_or.simple_test_expr_QMARK_(new cljs.core.Keyword(null,"else","else",-1508377146).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"ret","ret",-468222814).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(ast))))));
+});
+cljs.analyzer.passes.and_or.remove_loop_let = (function cljs$analyzer$passes$and_or$remove_loop_let(fn_ast,local){
+return cljs.core.update.cljs$core$IFn$_invoke$arity$3(fn_ast,new cljs.core.Keyword(null,"loop-lets","loop-lets",2036794185),(function (loop_lets){
+return cljs.core.map.cljs$core$IFn$_invoke$arity$2((function (m){
+return cljs.core.update.cljs$core$IFn$_invoke$arity$3(m,new cljs.core.Keyword(null,"params","params",710516235),(function (xs){
+return cljs.core.remove.cljs$core$IFn$_invoke$arity$2((function (p1__119159_SHARP_){
+return cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(local,new cljs.core.Keyword(null,"name","name",1843675177).cljs$core$IFn$_invoke$arity$1(p1__119159_SHARP_));
+}),xs);
+}));
+}),loop_lets);
+}));
+});
+cljs.analyzer.passes.and_or.remove_local_pass = (function cljs$analyzer$passes$and_or$remove_local_pass(local){
+return (function (env,ast,opts){
+var G__119162 = cljs.core.update_in.cljs$core$IFn$_invoke$arity$4(ast,new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [new cljs.core.Keyword(null,"env","env",-1815813235),new cljs.core.Keyword(null,"locals","locals",535295783)], null),cljs.core.dissoc,local);
+if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(new cljs.core.Keyword(null,"fn","fn",-1175266204),new cljs.core.Keyword(null,"op","op",-1882987955).cljs$core$IFn$_invoke$arity$1(ast))){
+return cljs.analyzer.passes.and_or.remove_loop_let(G__119162,local);
+} else {
+return G__119162;
+}
+});
+});
+cljs.analyzer.passes.and_or.optimize_and = (function cljs$analyzer$passes$and_or$optimize_and(ast){
+var map__119163 = cljs.core.first(new cljs.core.Keyword(null,"bindings","bindings",1271397192).cljs$core$IFn$_invoke$arity$1(ast));
+var map__119163__$1 = cljs.core.__destructure_map(map__119163);
+var init = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__119163__$1,new cljs.core.Keyword(null,"init","init",-1875481434));
+var name = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__119163__$1,new cljs.core.Keyword(null,"name","name",1843675177));
+return new cljs.core.PersistentArrayMap(null, 7, [new cljs.core.Keyword(null,"op","op",-1882987955),new cljs.core.Keyword(null,"js","js",1768080579),new cljs.core.Keyword(null,"env","env",-1815813235),new cljs.core.Keyword(null,"env","env",-1815813235).cljs$core$IFn$_invoke$arity$1(ast),new cljs.core.Keyword(null,"segs","segs",-1940299576),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["((",") && (","))"], null),new cljs.core.Keyword(null,"args","args",1315556576),new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [init,cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$2(cljs.analyzer.passes.and_or.__GT_expr_env(new cljs.core.Keyword(null,"then","then",460598070).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"ret","ret",-468222814).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(ast)))),new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [cljs.analyzer.passes.and_or.remove_local_pass(name)], null))], null),new cljs.core.Keyword(null,"form","form",-1624062471),new cljs.core.Keyword(null,"form","form",-1624062471).cljs$core$IFn$_invoke$arity$1(ast),new cljs.core.Keyword(null,"children","children",-940561982),new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [new cljs.core.Keyword(null,"args","args",1315556576)], null),new cljs.core.Keyword(null,"tag","tag",-1290361223),new cljs.core.Symbol(null,"boolean","boolean",-278886877,null)], null);
+});
+cljs.analyzer.passes.and_or.optimize_or = (function cljs$analyzer$passes$and_or$optimize_or(ast){
+var map__119165 = cljs.core.first(new cljs.core.Keyword(null,"bindings","bindings",1271397192).cljs$core$IFn$_invoke$arity$1(ast));
+var map__119165__$1 = cljs.core.__destructure_map(map__119165);
+var init = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__119165__$1,new cljs.core.Keyword(null,"init","init",-1875481434));
+var name = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__119165__$1,new cljs.core.Keyword(null,"name","name",1843675177));
+return new cljs.core.PersistentArrayMap(null, 7, [new cljs.core.Keyword(null,"op","op",-1882987955),new cljs.core.Keyword(null,"js","js",1768080579),new cljs.core.Keyword(null,"env","env",-1815813235),new cljs.core.Keyword(null,"env","env",-1815813235).cljs$core$IFn$_invoke$arity$1(ast),new cljs.core.Keyword(null,"segs","segs",-1940299576),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["((",") || (","))"], null),new cljs.core.Keyword(null,"args","args",1315556576),new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [init,cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$2(cljs.analyzer.passes.and_or.__GT_expr_env(new cljs.core.Keyword(null,"else","else",-1508377146).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"ret","ret",-468222814).cljs$core$IFn$_invoke$arity$1(new cljs.core.Keyword(null,"body","body",-2049205669).cljs$core$IFn$_invoke$arity$1(ast)))),new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [cljs.analyzer.passes.and_or.remove_local_pass(name)], null))], null),new cljs.core.Keyword(null,"form","form",-1624062471),new cljs.core.Keyword(null,"form","form",-1624062471).cljs$core$IFn$_invoke$arity$1(ast),new cljs.core.Keyword(null,"children","children",-940561982),new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [new cljs.core.Keyword(null,"args","args",1315556576)], null),new cljs.core.Keyword(null,"tag","tag",-1290361223),new cljs.core.Symbol(null,"boolean","boolean",-278886877,null)], null);
+});
+cljs.analyzer.passes.and_or.optimize = (function cljs$analyzer$passes$and_or$optimize(env,ast,_){
+if(cljs.analyzer.passes.and_or.optimizable_and_QMARK_(ast)){
+return cljs.analyzer.passes.and_or.optimize_and(ast);
+} else {
+if(cljs.analyzer.passes.and_or.optimizable_or_QMARK_(ast)){
+return cljs.analyzer.passes.and_or.optimize_or(ast);
+} else {
+return ast;
+
+}
+}
+});
+
+//# sourceMappingURL=cljs.analyzer.passes.and_or.js.map

package/cljs.analyzer.passes.and_or.js.map

@@ -0,0 +1 @@
+{"version":3,"sources":["cljs/analyzer/passes/and_or.cljc"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;AAWA,yCAAA,iFAAA,sDAAA,qEAAA,4DAAA,wDAAA,4DAAA,8DAAA,+DAAA,oEAAA,tmBAAKA;AAGL,4CAAA,5CAAMC,gGAAYC;AAAlB,AACE,8BAAA,mFAAA,oDAAA,mEAAA,jOAACC,mBAASD;;AAEZ,+CAAA,/CAAME,sGAAYF;AAAlB,AACE,OAACG,0BAAUL,uCAAW,AAAA,gFAAKE;;AAE7B,sDAAA,8DAAAI,pHAAMI;AAAN,AAAA,IAAAH,cAAAD;IAAAC,kBAAA,AAAAC,4BAAAD;UAAAA,NACmBL;SADnB,AAAAO,4CAAAF,gBAAA,jEACWI;AADX,AAEE,OAACC,mBACC,iBAAAC,oBAAK,AAACT,6CAAWF;AAAjB,AAAA,GAAAW;AACK,IAAAC,YACE,iBAAAE,mBAAI,AAAA,kFAAMd;AAAV,AAAA,oBAAAc;AAAAA;;AACI,oBAAM,iBAAAC,gBAAA,iFAAA,wDAAA;AAAA,AAAA,QAAAA,8CAAAA,kDAAAA,NAAgBN,+BAAAA;;AAAtB,AACE,OAAA,kFAAA,AAAA,mFAAIT;;AADN;;;;IAFNa,gBAAA,AAAA;AAAA,AAAA,QAAAA,8CAAAA,4CAAAD,aAAAC,yBAAAD;;AADLD;;;;AAMJ,wDAAA,xDAAMK,wHAAqBhB;AAA3B,AACE,SAAK,6CAAA,7CAACiB,iGAAO,AAAA,gFAAKjB,WACb,6CAAA,7CAACiB,iDAAI,AAACC,gBAAM,AAAA,2FAAIlB;;AAEvB,mDAAA,nDAAMmB,8GAAgBC;AAAtB,AACE,oDAAA,7CAACH,8EAAK,AAAA,8FAAA,AAAA,oFAAIG;;AAEZ,gDAAA,hDAAMC,wGAAaD;AAAnB,AACE,oDAAA,7CAACH,8FAAM,AAAA,gFAAA,AAAA,iFAAA,AAAA,oFAAIG;;AAEb,6DAAA,7DAAME,kIAA0BtB;AAAhC,AACE,yEAAA,6DAAA,7HAAK,AAACgB,sDAAoBhB,YACrB,AAACmB,iDAAenB,YAChB,AAACQ,oDAAkB,AAAA,oFAAA,gBAAA,AAAA,2FAAIR,3GAAcuB,wHACrC,AAACF,8CAAYrB;;AAEpB,kDAAA,lDAAMwB,4GAAYC;AAAlB,AAGE,OAACR,6CAAE,yIAAA,zIAACS,+CAAO,AAAA,kFAAOD,6DACf,yIAAA,zIAACC,+CAAO,AAAA,kFAAOD;;AAEpB,kDAAA,lDAAME,4GAAYF;AAAlB,AAGE,OAACR,6CAAE,yIAAA,zIAACS,+CAAO,AAAA,kFAAOD,6DACf,2IAAA,3IAACC,+CAAO,AAAA,oFAAOD;;AAEpB,gDAAA,hDAAMG,wGAAa5B;AAAnB,AACE,SAAK,AAACsB,2DAAyBtB,UAC1B,AAAC2B,gDAAW,AAAA,iFAAA,AAAA,oFAAI3B;;AAEvB,+CAAA,/CAAM6B,sGAAY7B;AAAlB,AACE,SAAK,AAACsB,2DAAyBtB,UAC1B,AAACwB,gDAAW,AAAA,iFAAA,AAAA,oFAAIxB;;AAEvB,qDAAA,rDAAM8B,kHAAkB9B;AAAxB,AACE,SAAK,AAAC4B,8CAAY5B,UACb,AAACQ,oDAAkB,AAAA,kFAAA,AAAA,iFAAA,AAAA,oFAAIR;;AAE9B,oDAAA,pDAAM+B,gHAAiB/B;AAAvB,AACE,SAAK,AAAC6B,6CAAW7B,UACZ,AAACQ,oDAAkB,AAAA,oFAAA,AAAA,iFAAA,AAAA,oFAAIR;;AAE9B,8CAAA,9CAAMgC,oGAAiBC,OAAOC;AAA9B,AACE,6DAAA,tDAACC,+CAAOF,sEACN,WAAKG;AAAL,AACE,OAACC,4CACC,WAAKC;AAAL,AACE,wDAAA,jDAACH,+CAAOG,0DACN,WAAKC;AAAL,AAAS,sDAAA,WAAAC,1DAACC;AAAD,AAAS,OAACxB,6CAAEiB,MAAM,AAAA,mFAAAM;GAAWD;;GAC1CH;;;AAER,gDAAA,hDAAMM,wGAAmBR;AAAzB,AACE,kBAAKS,IAAI3C,IAAI4C;AAAb,AACE,IAAAC,YAAQ,sDAAA,mFAAA,oDAAA,7LAACC,kDAAU9C,2MAAmB+C,iBAAOb;AAA7C,AAAA,GACE,6CAAA,7CAACjB,+FAAM,AAAA,gFAAKjB;AAAM,mDAAA6C,5CAACb,sDAAgBE;;AADrCW;;;;AAGJ,2CAAA,3CAAMG,8FAAchD;AAApB,AACE,IAAAiD,cAA0B,gBAAA,AAAA,2FAAIjD,3GAAcuB;IAA5C0B,kBAAA,AAAA3C,4BAAA2C;WAAA,AAAA1C,4CAAA0C,gBAAA,nEAAcC;WAAd,AAAA3C,4CAAA0C,gBAAA,nEAAmBE;AAAnB,AAAA,kDAAA,kDAAA,iDAAA,2IAAA,sDAAA,mFAAA,KAAA,SAAA,aAAA,qDAAA,ilBAAA,+IAAA,6DAAA,mFAAA,6DAAA,oDAAA,AAAA,jxCAEQ,AAAA,kFAAMnD,iTAEJkD,KACA,iWAAA,jWAACE,wDACC,AAACrD,0CAAW,AAAA,kFAAA,AAAA,iFAAA,AAAA,oFAAIC,2FACf,AAAC0C,8CAAkBS,6EACvB,AAAA,oFAAOnD;;AAIlB,0CAAA,1CAAMqD,4FAAarD;AAAnB,AACE,IAAAsD,cAA0B,gBAAA,AAAA,2FAAItD,3GAAcuB;IAA5C+B,kBAAA,AAAAhD,4BAAAgD;WAAA,AAAA/C,4CAAA+C,gBAAA,nEAAcJ;WAAd,AAAA3C,4CAAA+C,gBAAA,nEAAmBH;AAAnB,AAAA,kDAAA,kDAAA,iDAAA,2IAAA,sDAAA,mFAAA,KAAA,SAAA,aAAA,qDAAA,mlBAAA,+IAAA,6DAAA,mFAAA,6DAAA,oDAAA,AAAA,nxCAEQ,AAAA,kFAAMnD,iTAEJkD,KACA,mWAAA,nWAACE,wDACC,AAACrD,0CAAW,AAAA,oFAAA,AAAA,iFAAA,AAAA,oFAAIC,2FACf,AAAC0C,8CAAkBS,6EACvB,AAAA,oFAAOnD;;AAIlB,uCAAA,vCAAMuD,sFAAUZ,IAAI3C,IAAIwD;AAAxB,AACE,GACE,AAAC1B,mDAAiB9B;AAAK,OAACgD,yCAAahD;;AADvC,GAEE,AAAC+B,kDAAgB/B;AAAM,OAACqD,wCAAYrD;;AAFtC,AAGQA","names":["cljs.analyzer.passes.and-or/simple-ops","cljs.analyzer.passes.and-or/->expr-env","ast","cljs.core/assoc-in","cljs.analyzer.passes.and-or/simple-op?","cljs.core/contains?","p__119145","map__119146","cljs.core/--destructure-map","cljs.core.get","cljs.analyzer.passes.and-or/simple-test-expr?","op","cljs.core/boolean","and__5000__auto__","G__119148","fexpr__119147","or__5002__auto__","fexpr__119149","cljs.analyzer.passes.and-or/single-binding-let?","cljs.core._EQ_","cljs.core/count","cljs.analyzer.passes.and-or/no-statements?","let-ast","cljs.analyzer.passes.and-or/returns-if?","cljs.analyzer.passes.and-or/simple-test-binding-let?","cljs.core/first","cljs.analyzer.passes.and-or/test=then?","if-ast","cljs.core.dissoc","cljs.analyzer.passes.and-or/test=else?","cljs.analyzer.passes.and-or/simple-and?","cljs.analyzer.passes.and-or/simple-or?","cljs.analyzer.passes.and-or/optimizable-and?","cljs.analyzer.passes.and-or/optimizable-or?","cljs.analyzer.passes.and-or/remove-loop-let","fn-ast","local","cljs.core.update","loop-lets","cljs.core.map","m","xs","p1__119159#","cljs.core.remove","cljs.analyzer.passes.and-or/remove-local-pass","env","opts","G__119162","cljs.core.update_in","cljs.core/dissoc","cljs.analyzer.passes.and-or/optimize-and","map__119163","init","name","cljs.analyzer.passes.walk","cljs.analyzer.passes.and-or/optimize-or","map__119165","cljs.analyzer.passes.and-or/optimize","_"],"sourcesContent":[";; Copyright (c) Rich Hickey. All rights reserved.\n;; The use and distribution terms for this software are covered by the\n;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)\n;; which can be found in the file epl-v10.html at the root of this distribution.\n;; By using this software in any fashion, you are agreeing to be bound by\n;; the terms of this license.\n;; You must not remove this notice, or any other, from this software.\n\n(ns cljs.analyzer.passes.and-or\n  (:require [cljs.analyzer.passes :as passes]))\n\n(def simple-ops\n  #{:var :js-var :local :invoke :const :host-field :host-call :js :quote})\n\n(defn ->expr-env [ast]\n  (assoc-in ast [:env :context] :expr))\n\n(defn simple-op? [ast]\n  (contains? simple-ops (:op ast)))\n\n(defn simple-test-expr?\n  [{:keys [op] :as ast}]\n  (boolean\n    (and (simple-op? ast)\n         ('#{boolean seq}\n           (or (:tag ast)\n               (when (#{:local :var} op)\n                 (-> ast :info :tag)))))))\n\n(defn single-binding-let? [ast]\n  (and (= :let (:op ast))\n       (= 1 (count (-> ast :bindings)))))\n\n(defn no-statements? [let-ast]\n  (= [] (-> let-ast :body :statements)))\n\n(defn returns-if? [let-ast]\n  (= :if (-> let-ast :body :ret :op)))\n\n(defn simple-test-binding-let? [ast]\n  (and (single-binding-let? ast)\n       (no-statements? ast)\n       (simple-test-expr? (-> ast :bindings first :init))\n       (returns-if? ast)))\n\n(defn test=then? [if-ast]\n  ;; remove :env, if same, local will differ only by\n  ;; :context (:expr | :statement)\n  (= (dissoc (:test if-ast) :env)\n     (dissoc (:then if-ast) :env)))\n\n(defn test=else? [if-ast]\n  ;; remove :env, if same, local will differ only by\n  ;; :context (:expr | :statement)\n  (= (dissoc (:test if-ast) :env)\n     (dissoc (:else if-ast) :env)))\n\n(defn simple-and? [ast]\n  (and (simple-test-binding-let? ast)\n       (test=else? (-> ast :body :ret))))\n\n(defn simple-or? [ast]\n  (and (simple-test-binding-let? ast)\n       (test=then? (-> ast :body :ret))))\n\n(defn optimizable-and? [ast]\n  (and (simple-and? ast)\n       (simple-test-expr? (-> ast :body :ret :then))))\n\n(defn optimizable-or? [ast]\n  (and (simple-or? ast)\n       (simple-test-expr? (-> ast :body :ret :else))))\n\n(defn remove-loop-let [fn-ast local]\n  (update fn-ast :loop-lets\n    (fn [loop-lets]\n      (map\n        (fn [m]\n          (update m :params\n            (fn [xs] (remove #(= local (:name %)) xs))))\n        loop-lets))))\n\n(defn remove-local-pass [local]\n  (fn [env ast opts]\n    (cond-> (update-in ast [:env :locals] dissoc local)\n      (= :fn (:op ast)) (remove-loop-let local))))\n\n(defn optimize-and [ast]\n  (let [{:keys [init name]} (-> ast :bindings first)]\n    {:op :js\n     :env (:env ast)\n     :segs [\"((\" \") && (\" \"))\"]\n     :args [init\n            (passes/walk\n              (->expr-env (-> ast :body :ret :then))\n              [(remove-local-pass name)])]\n     :form (:form ast)\n     :children [:args]\n     :tag 'boolean}))\n\n(defn optimize-or [ast]\n  (let [{:keys [init name]} (-> ast :bindings first)]\n    {:op :js\n     :env (:env ast)\n     :segs [\"((\" \") || (\" \"))\"]\n     :args [init\n            (passes/walk\n              (->expr-env (-> ast :body :ret :else))\n              [(remove-local-pass name)])]\n     :form (:form ast)\n     :children [:args]\n     :tag 'boolean}))\n\n(defn optimize [env ast _]\n  (cond\n    (optimizable-and? ast) (optimize-and ast)\n    (optimizable-or? ast)  (optimize-or ast)\n    :else ast))\n"],"x_google_ignoreList":[0]}

package/cljs.analyzer.passes.js

@@ -0,0 +1,104 @@
+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("cljs.analyzer.passes.js");
+
+goog.provide('cljs.analyzer.passes');
+cljs.analyzer.passes.apply_passes = (function cljs$analyzer$passes$apply_passes(var_args){
+var G__119116 = arguments.length;
+switch (G__119116) {
+case 2:
+return cljs.analyzer.passes.apply_passes.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)]));
+
+break;
+case 3:
+return cljs.analyzer.passes.apply_passes.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)]));
+
+break;
+default:
+throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
+
+}
+});
+
+(cljs.analyzer.passes.apply_passes.cljs$core$IFn$_invoke$arity$2 = (function (ast,passes){
+return cljs.analyzer.passes.apply_passes.cljs$core$IFn$_invoke$arity$3(ast,passes,null);
+}));
+
+(cljs.analyzer.passes.apply_passes.cljs$core$IFn$_invoke$arity$3 = (function (ast,passes,opts){
+return cljs.core.reduce.cljs$core$IFn$_invoke$arity$3((function (ast__$1,pass){
+var G__119122 = new cljs.core.Keyword(null,"env","env",-1815813235).cljs$core$IFn$_invoke$arity$1(ast__$1);
+var G__119123 = ast__$1;
+var G__119124 = opts;
+return (pass.cljs$core$IFn$_invoke$arity$3 ? pass.cljs$core$IFn$_invoke$arity$3(G__119122,G__119123,G__119124) : pass.call(null, G__119122,G__119123,G__119124));
+}),ast,passes);
+}));
+
+(cljs.analyzer.passes.apply_passes.cljs$lang$maxFixedArity = 3);
+
+cljs.analyzer.passes.walk = (function cljs$analyzer$passes$walk(var_args){
+var G__119127 = arguments.length;
+switch (G__119127) {
+case 2:
+return cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)]));
+
+break;
+case 3:
+return cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)]));
+
+break;
+default:
+throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
+
+}
+});
+
+(cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$2 = (function (ast,passes){
+return cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$3(ast,passes,null);
+}));
+
+(cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$3 = (function (ast,passes,opts){
+return cljs.core.reduce.cljs$core$IFn$_invoke$arity$3((function (ast__$1,child_k){
+return cljs.core.assoc.cljs$core$IFn$_invoke$arity$3(ast__$1,child_k,(function (){var child = cljs.core.get.cljs$core$IFn$_invoke$arity$2(ast__$1,child_k);
+if(cljs.core.vector_QMARK_(child)){
+return cljs.core.into.cljs$core$IFn$_invoke$arity$3(cljs.core.PersistentVector.EMPTY,cljs.core.map.cljs$core$IFn$_invoke$arity$1((function (p1__119125_SHARP_){
+return cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$3(p1__119125_SHARP_,passes,opts);
+})),child);
+} else {
+return cljs.analyzer.passes.walk.cljs$core$IFn$_invoke$arity$3(child,passes,opts);
+}
+})());
+}),(function (){var G__119133 = ast;
+if((G__119133 == null)){
+return null;
+} else {
+return cljs.analyzer.passes.apply_passes.cljs$core$IFn$_invoke$arity$3(G__119133,passes,opts);
+}
+})(),new cljs.core.Keyword(null,"children","children",-940561982).cljs$core$IFn$_invoke$arity$1(ast));
+}));
+
+(cljs.analyzer.passes.walk.cljs$lang$maxFixedArity = 3);
+
+
+//# sourceMappingURL=cljs.analyzer.passes.js.map

package/cljs.analyzer.passes.js.map

@@ -0,0 +1 @@
+{"version":3,"sources":["cljs/analyzer/passes.cljc"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;AAUA,AAAA,oCAAA,4CAAAA,hFAAME;AAAN,AAAA,IAAAD,YAAA,AAAA;AAAA,AAAA,QAAAA;KAAA;AAAA,OAAAC,gEAAA,CAAA,UAAA,MAAA,CAAA,UAAA;;;KAAA;AAAA,OAAAA,gEAAA,CAAA,UAAA,MAAA,CAAA,UAAA,MAAA,CAAA,UAAA;;;;AAAA,MAAA,KAAAC,MAAA,CAAA,8DAAA,AAAA;;;;;AAAA,CAAA,kEAAA,lEAAMD,6EACFE,IAAIC;AADR,AAEG,kFAAA,3EAACC,gEAAaF,IAAIC;;;AAFrB,CAAA,kEAAA,lEAAMH,6EAGFE,IAAIC,OAAOE;AAHf,AAIG,OAACC,+CACC,WAAKJ,QAAIK;AAAT,AACE,IAAAC,YAAM,AAAA,kFAAMN;IAAZO,YAAiBP;IAAjBQ,YAAqBL;AAArB,AAAA,gFAAAG,UAAAC,UAAAC,6BAAAF,UAAAC,UAAAC,7IAACH,qCAAAA,oEAAAA;GACHL,IAAIC;;;AAPT,CAAA,4DAAA,5DAAMH;;AAAN,AASA,AAAA,4BAAA,oCAAAF,hEAAMc;AAAN,AAAA,IAAAD,YAAA,AAAA;AAAA,AAAA,QAAAA;KAAA;AAAA,OAAAC,wDAAA,CAAA,UAAA,MAAA,CAAA,UAAA;;;KAAA;AAAA,OAAAA,wDAAA,CAAA,UAAA,MAAA,CAAA,UAAA,MAAA,CAAA,UAAA;;;;AAAA,MAAA,KAAAX,MAAA,CAAA,8DAAA,AAAA;;;;;AAAA,CAAA,0DAAA,1DAAMW,qEACFV,IAAIC;AADR,AAEG,0EAAA,nEAACU,wDAAKX,IAAIC;;;AAFb,CAAA,0DAAA,1DAAMS,qEAGFV,IAAIC,OAAOE;AAHf,AAIG,OAACC,+CACC,WAAKJ,QAAIY;AAAT,AACE,OAACC,8CAAMb,QACLY,QACA,iBAAME,QAAM,AAACC,4CAAIf,QAAIY;AAArB,AACE,GAAI,AAACI,wBAAQF;AACX,oDAAA,7CAACG,8EAAQ,4CAAA,WAAAC,vDAACC;AAAD,AAAM,+DAAAD,xDAACP,0EAAOV,OAAOE;IAAOW;;AACrC,OAACH,wDAAKG,MAAMb,OAAOE;;;GAC3B,iBAAAiB,YAAQpB;AAAR,AAAA,GAAA,CAAAoB,aAAA;AAAA;;AAAY,uEAAAA,hEAAClB,0EAAaD,OAAOE;;KAAO,AAAA,2FAAWH;;;AAZxD,CAAA,oDAAA,pDAAMU;;AAAN","names":["var_args","G__119116","cljs.analyzer.passes/apply-passes","js/Error","ast","passes","cljs.analyzer.passes.apply_passes","opts","cljs.core.reduce","pass","G__119122","G__119123","G__119124","G__119127","cljs.analyzer.passes/walk","cljs.analyzer.passes.walk","child-k","cljs.core.assoc","child","cljs.core.get","cljs.core/vector?","cljs.core.into","p1__119125#","cljs.core.map","G__119133"],"sourcesContent":[";; Copyright (c) Rich Hickey. All rights reserved.\n;; The use and distribution terms for this software are covered by the\n;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)\n;; which can be found in the file epl-v10.html at the root of this distribution.\n;; By using this software in any fashion, you are agreeing to be bound by\n;; the terms of this license.\n;; You must not remove this notice, or any other, from this software.\n\n(ns cljs.analyzer.passes)\n\n(defn apply-passes\n  ([ast passes]\n   (apply-passes ast passes nil))\n  ([ast passes opts]\n   (reduce\n     (fn [ast pass]\n       (pass (:env ast) ast opts))\n     ast passes)))\n\n(defn walk\n  ([ast passes]\n   (walk ast passes nil))\n  ([ast passes opts]\n   (reduce\n     (fn [ast child-k]\n       (assoc ast\n         child-k\n         (let [child (get ast child-k)]\n           (if (vector? child)\n             (into [] (map #(walk % passes opts)) child)\n             (walk child passes opts)))))\n     (some-> ast (apply-passes passes opts)) (:children ast))))\n"],"x_google_ignoreList":[0]}