earlgrey/bootstrap/macros/quote.js

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

'use strict';require('earlgrey-runtime/6');let $targ$1;let $targ$0;let $0$0;let unescape$0;let $1$0;let Source$0;let $2$0;let qq$0;let overridable$0;let opg$0;$0$0=require("../lex");unescape$0=getProperty($0$0,"unescape","../lex");$1$0=require("../location");Source$0=getProperty($1$0,"Source","../location");$2$0=require("./helpers");qq$0=getProperty($2$0,"qq","./helpers");overridable$0=getProperty($2$0,"overridable","./helpers");opg$0=require("opg");if((typeof(module)==="undefined")){$targ$1=undefined;(global["module"]=$targ$1);(void 0);}$targ$0=(function(mac$0){let t0$3;let t0$6;let t0$17;let t1$10;let t0$21;let $targ$2;let unquote_mac$0;let $targ$3;let quote_mac$0;let tok$0;let gr$0;let prio$0;let finalize$0;let parser$0;let parse$0;let $targ$4;let wq_mac$0;let $targ$5;let interpolate_mac$0;let exports$0;exports$0=({});$targ$2=(function(temp$0$0,info$0,form$0,expr$0){let t0$0;let x$0;let t0$2;let t1$1;let t2$0;let t3$0;let $targ$6;let x$1;let t0$1;let t1$0;let context$0;let ph$0$0;t0$0=temp$0$0;context$0=t0$0;ph$0$0=t0$0;t0$1=ph$0$0;t1$0=t0$1.length;if(((t1$0===2)&&((t0$1[0]==="expr")&&(t0$1[1]==="head")))){return ["nostep"];}else{if(((x$0=ph$0$0),((x$0 instanceof Array)&&(x$0[0]==="pattern")))){$targ$6=expr$0;t0$2=$targ$6;if((Array.isArray(t0$2)&&((t1$1=t0$2.length),((t1$1===3)&&((t0$2[0]==="data")&&((t2$0=t0$2[1]),(Array.isArray(t2$0)&&((t3$0=t2$0.length),((t3$0===1)&&(t2$0[0]==="void")))))))))){x$1=t0$2[2];}else{___match_error($targ$6,"#data{#void{}, x}");}return ["calc",x$1];}else{throw send(send(ErrorFactory(["syntax","unquote"]),"create", true),__amp____colon__([(("Cannot unquote in context "+context$0)+".")],({"expr":expr$0,"::objinsert":1})));}}});t0$3=getProjector(mac$0("^"))($targ$2);if(t0$3[0]){unquote_mac$0=t0$3[1];}else{___match_error($targ$2,"mac{\"^\"}! unquote_mac{match context, info, form, expr}");}$targ$3=(function(temp$1$0,info$1,form$1,temp$2$0){let t0$4;let t0$5;let t1$2;let parsed$0;let context$1;let ph$1$0;let expr$1;let s$0;t0$4=temp$1$0;context$1=t0$4;ph$1$0=t0$4;t0$5=temp$2$0;expr$1=t0$5;if((Array.isArray(t0$5)&&((t1$2=t0$5.length),((t1$2===2)&&(t0$5[0]==="value"))))){s$0=t0$5[1];}else{___match_error(temp$2$0);}parsed$0=info$1.go(Source$0(s$0,"<quasiquote>"),"source","parse");return info$1.mark(qq$0(parsed$0));});t0$6=getProjector(mac$0("`"))($targ$3);if(t0$6[0]){quote_mac$0=t0$6[1];}else{___match_error($targ$3,"mac{\"`\"}! quote_mac{match context, info, form, expr and #value{s}}");}tok$0=opg$0.tokenize.Tokenizer(({"regexps":({"open":"\\{","close":"\\}","other":"(?:\\\\.|[^\\{\\}])+"}),"post":[(function(temp$3$0){let t0$7;let t0$8;let tok$1;let ph$2$0;t0$7=temp$3$0;tok$1=t0$7;ph$2$0=t0$7;t0$8=ph$2$0;if((___hasprop(t0$8,"type")&&(t0$8.type==="open"))){return [({"token":"","type":"other","location":tok$1.location.at_start()}),tok$1];}else{return tok$1;}})]}));gr$0=(new opg$0.parse.TokenGroups(({"open":["open"],"close":["close"],"other":["str","other"]})));prio$0=(new opg$0.parse.PriorityOrder(gr$0,({"open":({"left":1002,"right":0}),"close":({"left":0,"right":1003}),"other":({"left":1000,"right":1000})})));finalize$0=(function finalize(temp$4$0){let t0$9;let t0$11;let t1$4;let t2$2;let tag$0;let arg$0;let text$0;let bridge$$18544$0;let m$0;let rval$0;let text$1;let args$0;let token$0;let open$0;let ph$4$0;let _arg$0;let close$0;let $$18547$0;let $$18548$0;let t0$10;let t1$3;let t2$1;let t3$1;let t4$0;let zazz$0;let ph$3$0;t0$9=temp$4$0;zazz$0=t0$9;ph$3$0=t0$9;t0$10=ph$3$0;t1$3=t0$10.length;if(((t1$3===5)&&((t0$10[0]===null)&&((t2$1=t0$10[1]),(___hasprop(t2$1,"type")&&((t2$1.type==="open")&&(___hasprop(t2$1,"token")&&((t3$1=t2$1.token),(open$0=t3$1),(ph$4$0=t3$1),(_arg$0=t0$10[2]),(t4$0=t0$10[3]),(___hasprop(t4$0,"type")&&((t4$0.type==="close")&&(___hasprop(t4$0,"token")&&((close$0=t4$0.token),(t0$10[4]===null))))))))))))){arg$0=(_arg$0||__amp__(["join",""],({"text":""})));text$0=((open$0+arg$0.text)+close$0);bridge$$18544$0=ph$4$0;if((((t0$11=getProjector(RegExp("\\$([^\\{]*){",""))(bridge$$18544$0)),(t0$11[0]&&((t1$4=t0$11[1]),(t2$2=t1$4.length),((t2$2===2)&&(t1$4[0],(tag$0=t1$4[1]),true)))))||((tag$0=""),true))){return __amp____colon__(["bracket",tag$0,arg$0.text],({"text":text$0}));}else{return ___match_error(ph$4$0,"R\"\\$([^\\{]*){\"! {_, tag} or tag is \"\"");}}else{if(((t1$3===3)&&((t0$10[0]===null)&&((t2$1=t0$10[1]),(___hasprop(t2$1,"token")&&((token$0=t2$1.token),(t0$10[2]===null))))))){return __amp____colon__(["join",token$0],({"text":token$0}));}else{args$0=ph$3$0;rval$0=["join"];text$1="";m$0=null;$3:for(m$0 of enumerate(args$0)){let x$2;let sub$0;let token$1;let $$18649$0;let t0$13;let t1$6;let i$0;let arg$1;let ph$5$0;let t0$12;let t1$5;let t2$3;t0$12=m$0;if((Array.isArray(t0$12)&&((t1$5=t0$12.length),(t1$5===2)))){i$0=t0$12[0];t2$3=t0$12[1];arg$1=t2$3;ph$5$0=t2$3;t0$13=ph$5$0;if((___hasprop(t0$13,"token")&&((token$1=t0$13.token),equal((i$0%2),1)))){rval$0.push(token$1);text$1=(text$1+token$1);}else{if((Array.isArray(t0$13)&&((t1$6=t0$13.length),((t1$6>=1)&&(t0$13[0]==="join"))))){sub$0=Array.prototype.slice.call(t0$13,1);text$1=(text$1+arg$1.text);rval$0=rval$0.concat(sub$0);}else{if(((x$2=ph$5$0),((x$2 instanceof Array)&&(x$2[0]==="bracket")))){text$1=(text$1+arg$1.text);rval$0.push(arg$1);}else{if((ph$5$0===null)){undefined;}else{___match_error(ph$5$0);}}}}}else{___match_error(m$0);}}return __amp____colon__(rval$0,({"text":text$1}));}}});parser$0=(new opg$0.parse.Parser(tok$0,prio$0.getOrder(),finalize$0));parse$0=(function parse(text$2){return parser$0.parse(text$2);});$targ$4=(function(context$2,info$2,form$2,temp$5$0){let t0$14;let t1$7;let f$0;let f$1;let v$0;let $$18731$0;let $$18732$0;let $$18733$0;let t0$16;let t1$9;let t2$5;let t3$3;let elements$0;let ph$6$0;let t0$15;let t1$8;let t2$4;let t3$2;let t4$1;let t5$0;let t6$0;let t7$0;let t8$0;let t9$0;let t10$0;let t11$0;let t12$0;let m$1$0;let x$3;t0$14=temp$5$0;if((Array.isArray(t0$14)&&((t1$7=t0$14.length),((t1$7===2)&&(t0$14[0]==="data"))))){x$3=t0$14[1];}else{___match_error(temp$5$0);}m$1$0=x$3;if((Array.isArray(m$1$0)&&((t0$15=m$1$0.length),((t0$15===3)&&((m$1$0[0]==="send")&&((t1$8=m$1$0[1]),(Array.isArray(t1$8)&&((t2$4=t1$8.length),((t2$4===2)&&((t1$8[0]==="symbol")&&((t1$8[1]==="ENode")&&((t3$2=m$1$0[2]),(Array.isArray(t3$2)&&((t4$1=t3$2.length),((t4$1===4)&&((t3$2[0]==="data")&&((t5$0=t3$2[1]),(Array.isArray(t5$0)&&((t6$0=t5$0.length),((t6$0===1)&&((t5$0[0]==="data")&&((t7$0=t3$2[2]),(Array.isArray(t7$0)&&((t8$0=t7$0.length),((t8$0===2)&&((t7$0[0]==="data")&&((t9$0=t7$0[1]),(Array.isArray(t9$0)&&((t10$0=t9$0.length),((t10$0===2)&&((t9$0[0]==="symbol")&&((t9$0[1]==="=")&&((t11$0=t3$2[3]),(Array.isArray(t11$0)&&((t12$0=t11$0.length),((t12$0>=1)&&(t11$0[0]==="data"))))))))))))))))))))))))))))))))))))){elements$0=Array.prototype.slice.call(t11$0,1);ph$6$0=elements$0;t0$16=ph$6$0;if((($$18732$0=Array.isArray(t0$16))&&((t1$9=t0$16.length),((t1$9===1)&&((t2$5=t0$16[0]),(v$0=t2$5),(Array.isArray(t2$5)&&((t3$3=t2$5.length),((t3$3===2)&&((t2$5[0]==="value")&&(typeof(t2$5[1])==="string")))))))))){return v$0;}else{if(($$18732$0&&((t1$9>=1)&&((t2$5=t0$16[0]),(Array.isArray(t2$5)&&((t3$3=t2$5.length),((t3$3===2)&&((t2$5[0]==="value")&&(typeof(t2$5[1])==="string"))))))))){Array.prototype.slice.call(t0$16,1);f$0=(function f(x$4,y$0){return ["send",["symbol","+"],["data",x$4,y$0]];});return elements$0.reduce(f$0);}else{f$1=(function f(x$5,y$1){return ["send",["symbol","+"],["data",x$5,y$1]];});return elements$0.reduce(f$1,["value",""]);}}}else{return ["send",["send",x$3,["send",["symbol","."],["data",["void"],["symbol","to-string"]]]],["data"]];}});t0$17=getProjector(overridable$0)($targ$4);if((t0$17[0]&&((t1$10=getProjector(mac$0("wrap-quote"))(t0$17[1])),t1$10[0]))){wq_mac$0=t1$10[1];}else{___match_error($targ$4,"overridable! mac{\"wrap-quote\"}! wq_mac{context, info, form, `{^x}`}");}$targ$5=(function(context$3,info$3,form$3,temp$6$0){let t0$18;let t1$11;let t0$19;let bridge$$18912$0;let m$2;let $targ$7;let contents$0;let parts$0;let current$0;let push$0;let wq$0;let s$1;t0$18=temp$6$0;if((Array.isArray(t0$18)&&((t1$11=t0$18.length),((t1$11===2)&&(t0$18[0]==="value"))))){s$1=t0$18[1];}else{___match_error(temp$6$0);}$targ$7=parse$0(s$1);bridge$$18912$0=$targ$7;if(((Array.isArray(bridge$$18912$0)&&((t0$19=bridge$$18912$0.length),((t0$19>=1)&&((bridge$$18912$0[0]==="join")&&((contents$0=Array.prototype.slice.call(bridge$$18912$0,1)),true)))))||((contents$0=[]),true))){}else{___match_error($targ$7,"#join{*contents} or contents is {}");}parts$0=[];current$0="";push$0=(function push(){if(nequal(current$0,"")){parts$0.push(["value",current$0]);current$0="";return current$0;}});m$2=null;$4:for(m$2 of contents$0){let p$0;let ph$7$0;let expr$2;let s$2;let $$18921$0;let t0$20;let t1$12;t0$20=m$2;if((typeof(t0$20)==="string")){s$2=t0$20;current$0=(current$0+unescape$0(s$2));}else{if((Array.isArray(t0$20)&&((t1$12=t0$20.length),((t1$12===3)&&(t0$20[0]==="bracket"))))){ph$7$0=t0$20[1];expr$2=t0$20[2];push$0();p$0=form$3.env.mark(["parse",expr$2]);if((ph$7$0==="")){parts$0.push(p$0);}else{___match_error(ph$7$0);}}else{___match_error(m$2);}}}push$0();wq$0=form$3.env.mark(["symbol","wrap-quote"]);return ["send",wq$0,["data",["send",["symbol","ENode"],["data",["data"],["data",["symbol","="]],["data"].concat(parts$0)]]]];});t0$21=getProjector(mac$0("'"))($targ$5);if(t0$21[0]){interpolate_mac$0=t0$21[1];}else{___match_error($targ$5,"mac{\"'\"}! interpolate_mac{context, info, form, #value{s}}");}return exports$0;});(module["exports"]=$targ$0);(void 0);
//# sourceMappingURL=quote.js.map