earlgrey/lib5/macros/operators.js

Programming language compiling to JavaScript, featuring macros, dynamic typing annotations and pattern matching.

'use strict';require('earlgrey-runtime/5');var $targ$1=void 0;var $targ$0=void 0;var $0$0=void 0;var partial_pattern$0=void 0;var make_assigner$0=void 0;var overridable$0=void 0;$0$0=require("./helpers");partial_pattern$0=getProperty($0$0,"partial_pattern","./helpers");make_assigner$0=getProperty($0$0,"make_assigner","./helpers");overridable$0=getProperty($0$0,"overridable","./helpers");if(typeof module==="undefined"){$targ$1=undefined;global["module"]=$targ$1;void 0;}$targ$0=function $targ$0(mac$0){var m$0=void 0;var acc$0=void 0;var temp$0=void 0;var defns$0=void 0;var t0$2=void 0;var t0$5=void 0;var t1$3=void 0;var t0$7=void 0;var t1$5=void 0;var t0$9=void 0;var t1$7=void 0;var t0$11=void 0;var t1$9=void 0;var t0$13=void 0;var t1$11=void 0;var t0$16=void 0;var t0$19=void 0;var t1$14=void 0;var t0$21=void 0;var $targ$2=void 0;var is_mac$0=void 0;var $targ$3=void 0;var minus_mac$0=void 0;var $targ$4=void 0;var append_mac$0=void 0;var $targ$5=void 0;var range_mac$0=void 0;var $targ$6=void 0;var xrange_mac$0=void 0;var $targ$7=void 0;var floor_mac$0=void 0;var $targ$8=void 0;var times_mac$0=void 0;var $targ$9=void 0;var exp_mac$0=void 0;var $targ$10=void 0;var shift_mac$0=void 0;var exports$0=void 0;exports$0={};defns$0={"===":partial_pattern$0("==="),"!==":partial_pattern$0("!=="),"in":partial_pattern$0("__in__"),"==":partial_pattern$0("equal"),"!=":partial_pattern$0("nequal"),"<=":partial_pattern$0("<="),">=":partial_pattern$0(">="),"<":partial_pattern$0("<"),">":partial_pattern$0(">"),"+=":make_assigner$0("+"),"-=":make_assigner$0("-"),"*=":make_assigner$0("*"),"/=":make_assigner$0("/"),"<<=":make_assigner$0("<<"),">>=":make_assigner$0(">>"),">>>=":make_assigner$0(">>>"),"++=":make_assigner$0("++"),"?=":make_assigner$0("match"),"or=":make_assigner$0("or"),"and=":make_assigner$0("and"),"each=":make_assigner$0("each")};acc$0=[];temp$0=null;m$0=null;var _iteratorNormalCompletion=true;var _didIteratorError=false;var _iteratorError=undefined;try{$1:for(var _iterator=items(defns$0)[Symbol.iterator](),_step;!(_iteratorNormalCompletion=(_step=_iterator.next()).done);_iteratorNormalCompletion=true){m$0=_step.value;var k$0=void 0;var v$0=void 0;var t0$0=void 0;var t1$0=void 0;t0$0=m$0;if(Array.isArray(t0$0)&&(t1$0=t0$0.length,t1$0===2)){k$0=t0$0[0];v$0=t0$0[1];temp$0=mac$0(k$0)(v$0);acc$0.push(temp$0);}else{___match_error(m$0);}}}catch(err){_didIteratorError=true;_iteratorError=err;}finally{try{if(!_iteratorNormalCompletion&&_iterator.return){_iterator.return();}}finally{if(_didIteratorError){throw _iteratorError;}}}$targ$2=function $targ$2(ph$0$0,temp$1$0,form$0,temp$2$0){var t0$1=void 0;var t1$1=void 0;var x$1=void 0;var x$0=void 0;var y$0=void 0;t0$1=temp$2$0;if(Array.isArray(t0$1)&&(t1$1=t0$1.length,t1$1===3&&t0$1[0]==="data")){x$0=t0$1[1];y$0=t0$1[2];}else{___match_error(temp$2$0);}if(x$1=ph$0$0,x$1 instanceof Array&&x$1[0]==="pattern"){return["replace",x$0,y$0];}else{return["send",["symbol","==="],["data",x$0,y$0]];}};t0$2=getProjector(mac$0("is"))($targ$2);if(t0$2[0]){is_mac$0=t0$2[1];}else{___match_error($targ$2,"mac{\"is\"}! is_mac{match, _, form, #data{x, y}}");}$targ$3=function $targ$3(context$0,temp$3$0,form$1,temp$4$0){var t0$3=void 0;var other$0=void 0;var n$0=void 0;var $$18511$0=void 0;var $$18512$0=void 0;var t0$4=void 0;var t1$2=void 0;var t2$0=void 0;var t3$0=void 0;var t4$0=void 0;var t5$0=void 0;var t6$0=void 0;var expr$0=void 0;var ph$1$0=void 0;t0$3=temp$4$0;expr$0=t0$3;ph$1$0=t0$3;t0$4=ph$1$0;t1$2=t0$4.length;if(t1$2===3&&t0$4[0]==="data"&&(t2$0=t0$4[1],Array.isArray(t2$0)&&(t3$0=t2$0.length,t3$0===1&&t2$0[0]==="void"&&(t4$0=t0$4[2],Array.isArray(t4$0)&&(t5$0=t4$0.length,t5$0===2&&t4$0[0]==="value"&&(t6$0=t4$0[1],typeof t6$0==="number")))))){n$0=t6$0;return["value",-n$0];}else{if(t1$2===1&&t0$4[0]==="void"){return["variable","-"];}else{other$0=ph$1$0;return["send",["variable","-"],expr$0];}}};t0$5=getProjector(overridable$0)($targ$3);if(t0$5[0]&&(t1$3=getProjector(mac$0("-"))(t0$5[1]),t1$3[0])){minus_mac$0=t1$3[1];}else{___match_error($targ$3,"overridable! mac{\"-\"}! minus_mac{context, _, form, match expr}");}$targ$4=function $targ$4(context$1,temp$5$0,form$2,ph$2$0){var other$1=void 0;var x$4=void 0;var y$1=void 0;var x$3=void 0;var x$2=void 0;var $$18587$0=void 0;var $$18588$0=void 0;var $$18589$0=void 0;var $$18590$0=void 0;var t0$6=void 0;var t1$4=void 0;var t2$1=void 0;var t3$1=void 0;t0$6=ph$2$0;t1$4=t0$6.length;if(($$18589$0=t1$4===3)&&($$18590$0=t0$6[0]==="data")&&(t2$1=t0$6[1],Array.isArray(t2$1)&&(t3$1=t2$1.length,t3$1===1&&t2$1[0]==="void"))){x$2=t0$6[2];return["send",["variable","++"],["data",["void"],x$2]];}else{if($$18590$0&&(x$3=t0$6[1],t2$1=t0$6[2],Array.isArray(t2$1)&&(t3$1=t2$1.length,t3$1===1&&t2$1[0]==="void"))){return["send",["variable","++"],["data",x$3,["void"]]];}else{if($$18590$0){x$4=t0$6[1];y$1=t0$6[2];return["send",["send",x$4,["send",["symbol","."],["data",["void"],["symbol","concat"]]]],["data",y$1]];}else{if(t1$4===1&&t0$6[0]==="void"){return["send",["symbol","->"],["data",["data",["symbol","x"],["symbol","y"]],["send",["send",["symbol","x"],["send",["symbol","."],["data",["void"],["symbol","concat"]]]],["data",["symbol","y"]]]]];}else{other$1=ph$2$0;return["send",["symbol","___build_array"],["data",other$1]];}}}}};t0$7=getProjector(overridable$0)($targ$4);if(t0$7[0]&&(t1$5=getProjector(mac$0("++"))(t0$7[1]),t1$5[0])){append_mac$0=t1$5[1];}else{___match_error($targ$4,"overridable! mac{\"++\"}! append_mac{context, _, form, match}");}$targ$5=function $targ$5(context$2,temp$6$0,form$3,ph$3$0){var x$7=void 0;var y$2=void 0;var x$6=void 0;var x$5=void 0;var $$18659$0=void 0;var $$18660$0=void 0;var $$18661$0=void 0;var $$18662$0=void 0;var t0$8=void 0;var t1$6=void 0;var t2$2=void 0;var t3$2=void 0;t0$8=ph$3$0;t1$6=t0$8.length;if(($$18661$0=t1$6===3)&&($$18662$0=t0$8[0]==="data")&&(t2$2=t0$8[1],Array.isArray(t2$2)&&(t3$2=t2$2.length,t3$2===1&&t2$2[0]==="void"))){x$5=t0$8[2];return["send",["symbol","range"],["data",["value",1],x$5]];}else{if($$18662$0&&(x$6=t0$8[1],t2$2=t0$8[2],Array.isArray(t2$2)&&(t3$2=t2$2.length,t3$2===1&&t2$2[0]==="void"))){return["send",["symbol","range"],["data",x$6]];}else{if($$18662$0){x$7=t0$8[1];y$2=t0$8[2];return["send",["symbol","range"],["data",x$7,y$2]];}else{if(t1$6===1&&t0$8[0]==="void"){return["symbol","range"];}else{return ___match_error(ph$3$0,"#void{}");}}}}};t0$9=getProjector(overridable$0)($targ$5);if(t0$9[0]&&(t1$7=getProjector(mac$0(".."))(t0$9[1]),t1$7[0])){range_mac$0=t1$7[1];}else{___match_error($targ$5,"overridable! mac{\"..\"}! range_mac{context, _, form, match}");}$targ$6=function $targ$6(context$3,temp$7$0,form$4,ph$4$0){var x$10=void 0;var y$3=void 0;var x$9=void 0;var x$8=void 0;var $$18730$0=void 0;var $$18731$0=void 0;var $$18732$0=void 0;var $$18733$0=void 0;var t0$10=void 0;var t1$8=void 0;var t2$3=void 0;var t3$3=void 0;t0$10=ph$4$0;t1$8=t0$10.length;if(($$18732$0=t1$8===3)&&($$18733$0=t0$10[0]==="data")&&(t2$3=t0$10[1],Array.isArray(t2$3)&&(t3$3=t2$3.length,t3$3===1&&t2$3[0]==="void"))){x$8=t0$10[2];return["send",["symbol","range"],["data",["value",0],["send",["symbol","-"],["data",x$8,["value",1]]]]];}else{if($$18733$0&&(x$9=t0$10[1],t2$3=t0$10[2],Array.isArray(t2$3)&&(t3$3=t2$3.length,t3$3===1&&t2$3[0]==="void"))){return["send",["symbol","range"],["data",x$9]];}else{if($$18733$0){x$10=t0$10[1];y$3=t0$10[2];return["send",["symbol","range"],["data",x$10,["send",["symbol","-"],["data",y$3,["value",1]]]]];}else{return ___match_error(ph$4$0,"#data{x, y}");}}}};t0$11=getProjector(overridable$0)($targ$6);if(t0$11[0]&&(t1$9=getProjector(mac$0("..."))(t0$11[1]),t1$9[0])){xrange_mac$0=t1$9[1];}else{___match_error($targ$6,"overridable! mac{\"...\"}! xrange_mac{context, _, form, match}");}$targ$7=function $targ$7(context$4,temp$8$0,form$5,ph$5$0){var a$0=void 0;var b$0=void 0;var $$18797$0=void 0;var $$18798$0=void 0;var t0$12=void 0;var t1$10=void 0;t0$12=ph$5$0;t1$10=t0$12.length;if(t1$10===1&&t0$12[0]==="void"){return["send",["symbol","->"],["data",["data",["symbol","a"],["symbol","b"]],["send",["send",["symbol","Math"],["send",["symbol","."],["data",["void"],["symbol","floor"]]]],["data",["send",["symbol","/"],["data",["symbol","a"],["symbol","b"]]]]]]];}else{if(t1$10===3&&t0$12[0]==="data"){a$0=t0$12[1];b$0=t0$12[2];return["send",["send",["symbol","Math"],["send",["symbol","."],["data",["void"],["symbol","floor"]]]],["data",["send",["symbol","/"],["data",a$0,b$0]]]];}else{return ___match_error(ph$5$0,"#data{a, b}");}}};t0$13=getProjector(overridable$0)($targ$7);if(t0$13[0]&&(t1$11=getProjector(mac$0("//"))(t0$13[1]),t1$11[0])){floor_mac$0=t1$11[1];}else{___match_error($targ$7,"overridable! mac{\"//\"}! floor_mac{context, _, form, match}");}$targ$8=function $targ$8(context$5,temp$9$0,form$6,expr$1){var x$11=void 0;var x$12=void 0;var t0$15=void 0;var other$2=void 0;var val$0=void 0;var $$18843$0=void 0;var $$18844$0=void 0;var $$18845$0=void 0;var t0$14=void 0;var t1$12=void 0;var t2$4=void 0;var bridge$$18840$0=void 0;var t3$4=void 0;var t4$1=void 0;var m$1$0=void 0;m$1$0=[context$5,expr$1];if(($$18843$0=Array.isArray(m$1$0))&&(t0$14=m$1$0.length,($$18845$0=t0$14===2)&&(x$11=m$1$0[0],x$11 instanceof Array&&x$11[0]==="pattern")&&(t1$12=m$1$0[1],Array.isArray(t1$12)&&(t2$4=t1$12.length,t2$4===1&&t1$12[0]==="void")))){return["dynsplice",["ignore"]];}else{if($$18845$0&&(bridge$$18840$0=m$1$0[0],((x$12=bridge$$18840$0,x$12 instanceof Array&&x$12[0]==="pattern")||Array.isArray(bridge$$18840$0)&&(t0$15=bridge$$18840$0.length,t0$15===2&&bridge$$18840$0[0]==="expr"&&bridge$$18840$0[1]==="data"))&&(t1$12=m$1$0[1],Array.isArray(t1$12)&&(t2$4=t1$12.length,t2$4===3&&t1$12[0]==="data"&&(t3$4=t1$12[1],Array.isArray(t3$4)&&(t4$1=t3$4.length,t4$1===1&&t3$4[0]==="void")))))){val$0=t1$12[2];return["dynsplice",val$0];}else{if($$18845$0&&(m$1$0[0],t1$12=m$1$0[1],Array.isArray(t1$12)&&(t2$4=t1$12.length,t2$4===1&&t1$12[0]==="void"))){return["variable","*"];}else{other$2=m$1$0;return["send",["variable","*"],expr$1];}}}};t0$16=getProjector(mac$0("*"))($targ$8);if(t0$16[0]){times_mac$0=t0$16[1];}else{___match_error($targ$8,"mac{\"*\"}! times_mac{context, _, form, expr}");}$targ$9=function $targ$9(context$6,temp$10$0,form$7,expr$2){var x$13=void 0;var x$14=void 0;var t0$18=void 0;var a$1=void 0;var b$1=void 0;var val$1=void 0;var $$18950$0=void 0;var $$18951$0=void 0;var $$18952$0=void 0;var $$18953$0=void 0;var $$18954$0=void 0;var $$18955$0=void 0;var $$18956$0=void 0;var t0$17=void 0;var t1$13=void 0;var t2$5=void 0;var bridge$$18947$0=void 0;var t3$5=void 0;var t4$2=void 0;var m$2$0=void 0;m$2$0=[context$6,expr$2];if(($$18950$0=Array.isArray(m$2$0))&&(t0$17=m$2$0.length,($$18952$0=t0$17===2)&&(x$13=m$2$0[0],x$13 instanceof Array&&x$13[0]==="pattern")&&(t1$13=m$2$0[1],Array.isArray(t1$13)&&(t2$5=t1$13.length,t2$5===1&&t1$13[0]==="void")))){return["objsplice",["ignore"]];}else{if($$18952$0&&(bridge$$18947$0=m$2$0[0],((x$14=bridge$$18947$0,x$14 instanceof Array&&x$14[0]==="pattern")||Array.isArray(bridge$$18947$0)&&(t0$18=bridge$$18947$0.length,t0$18===2&&bridge$$18947$0[0]==="expr"&&bridge$$18947$0[1]==="data"))&&(t1$13=m$2$0[1],Array.isArray(t1$13)&&(t2$5=t1$13.length,t2$5===3&&t1$13[0]==="data"&&(t3$5=t1$13[1],Array.isArray(t3$5)&&(t4$2=t3$5.length,t4$2===1&&t3$5[0]==="void")))))){val$1=t1$13[2];return["objsplice",val$1];}else{if($$18952$0&&(m$2$0[0],t1$13=m$2$0[1],($$18955$0=Array.isArray(t1$13))&&(t2$5=t1$13.length,t2$5===1&&t1$13[0]==="void"))){return["send",["symbol","Math"],["send",["symbol","."],["data",["void"],["symbol","pow"]]]];}else{if($$18955$0&&t2$5===3&&t1$13[0]==="data"){a$1=t1$13[1];b$1=t1$13[2];return["send",["send",["symbol","Math"],["send",["symbol","."],["data",["void"],["symbol","pow"]]]],["data",a$1,b$1]];}else{return ___match_error(m$2$0,"{_, #data{a, b}}");}}}}};t0$19=getProjector(overridable$0)($targ$9);if(t0$19[0]&&(t1$14=getProjector(mac$0("**"))(t0$19[1]),t1$14[0])){exp_mac$0=t1$14[1];}else{___match_error($targ$9,"overridable! mac{\"**\"}! exp_mac{context, _, form, expr}");}$targ$10=function $targ$10(ph$6$0,temp$11$0,form$8,expr$3){var x$15=void 0;var t0$20=void 0;var t1$15=void 0;var $targ$11=void 0;var variable$0=void 0;var result$0=void 0;if(x$15=ph$6$0,x$15 instanceof Array&&x$15[0]==="pattern"){$targ$11=expr$3;t0$20=$targ$11;if(Array.isArray(t0$20)&&(t1$15=t0$20.length,t1$15===3&&t0$20[0]==="data")){variable$0=t0$20[1];result$0=t0$20[2];}else{___match_error($targ$11,"#data{variable, result}");}[variable$0,result$0];return["project",["send",["symbol","->"],["data",["data",variable$0],["data",["symbol","true"],result$0]]],variable$0];}else{return["send",["variable",">>"],expr$3];}};t0$21=getProjector(mac$0(">>"))($targ$10);if(t0$21[0]){shift_mac$0=t0$21[1];}else{___match_error($targ$10,"mac{\">>\"}! shift_mac{match, _, form, expr}");}return exports$0;};module["exports"]=$targ$0;void 0;
//# sourceMappingURL=operators.js.map