view release on metacpan or  search on metacpan

lib/Farabi/files/public/assets/perlito/perlito5.min.js  view on Meta::CPAN

else{if((Hash_octal).hasOwnProperty(v_c2)){(function(){var v_p;(v_p=((p5num(v_pos)+2)));if(p5bool(Hash_octal.p5hget(p5pkg["Perlito5::Grammar::String"].substr([v_str,v_p,1],0)))){(v_p)++;};if(p5bool(Hash_octal.p5hget(p5pkg["Perlito5::Grammar::String"]...
else{(v_m=((new p5HashRef(p5a_to_h(p5list_to_a('str',v_str,'from',v_pos,'to',(p5num(v_pos)+2),'capture',p5call(p5pkg["Perlito5::AST::Val::Buf"],"new",['buf',v_c2],1)))))));};};};};return(p5context([v_m],p5want));});p5make_sub("Perlito5::Grammar::Stri...
else{p5pkg["Perlito5::Grammar::String"].die([['syntax error']],null);};var v_exp;(v_exp=((v_m_index||(v_m_index=new p5HashRef({})))._hash_.p5hget('capture')));(v_p=((v_m_index||(v_m_index=new p5HashRef({})))._hash_.p5hget('to')));if(((p5str(v_exp)=='...
else{p5pkg["Perlito5::Grammar::String"].die([['syntax error']],null);};(v_m_index||(v_m_index=new p5HashRef({})))._hash_.p5hset('capture',(p5call(p5pkg["Perlito5::AST::Call"],"new",p5list_to_a('method','postcircumfix:<{ }>','invocant',(v_m_var||(v_m_...
else{throw(p5context([v_m_var],p5want));};if((p5pkg["Perlito5::Grammar::String"].substr([v_str,(v_m||(v_m=new p5HashRef({})))._hash_.p5hget('to'),1],0)==']')){null;}
else{throw(p5context([v_m_var],p5want));};})();};(v_p)++;(v_m_index=(p5call(p5pkg["Perlito5::Expression"],"list_parse",[v_str,v_p],0)));if(p5bool(v_m_index)){(function(){var v_exp;(v_exp=((v_m_index||(v_m_index=new p5HashRef({})))._hash_.p5hget('capt...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar::String","double_quoted_var",function(List__,p5want){try{var v_self;(v_self=(List__.p5aget(0)));var v_str;(v_str=(List__.p5aget(1)));var v_pos;(v_pos=(List__.p5aget(2)));var v_delimiter;(v_delimiter...
else{throw(p5context([v_m],p5want));};var v_var;(v_var=((p5pkg["Perlito5::Match"].flat([v_m],p5want)||(p5pkg["Perlito5::Match"].flat([v_m],p5want)=new p5ArrayRef([])))._array_.p5aget(1)));(v_m||(v_m=new p5HashRef({})))._hash_.p5hset('capture',(v_var)...
else{if(((p5str(v_c)=='$')&&(p5pkg["Perlito5::Grammar::String"].substr([v_str,(p5num(v_pos)+1),p5pkg["Perlito5::Grammar::String"].length([v_delimiter],0)],0)!=p5str(v_delimiter)))){(function(){var v_m;(v_m=(p5call(p5pkg["Perlito5::Grammar::Sigil"],"t...
else{throw(p5context([v_m],p5want));};(v_m||(v_m=new p5HashRef({})))._hash_.p5hset('capture',((v_m||(v_m=new p5HashRef({})))._hash_.p5hget_array('capture')._array_.p5aget(1)));throw(p5call(v_self,"double_quoted_var_with_subscript",[v_m,v_interpolate]...
else{if(((p5str(v_c)=='@')&&(p5pkg["Perlito5::Grammar::String"].substr([v_str,(p5num(v_pos)+1),p5pkg["Perlito5::Grammar::String"].length([v_delimiter],0)],0)!=p5str(v_delimiter)))){(function(){var v_m;(v_m=(p5call(p5pkg["Perlito5::Grammar::Sigil"],"t...
else{throw(p5context([v_m],p5want));};(v_m||(v_m=new p5HashRef({})))._hash_.p5hset('capture',((v_m||(v_m=new p5HashRef({})))._hash_.p5hget_array('capture')._array_.p5aget(1)));(v_m=(p5call(v_self,"double_quoted_var_with_subscript",[v_m,v_interpolate]...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});1;})();(function(){null;var p5153=p5make_package("Perlito5::Grammar::Sigil");;p5pkg["Perlito5::Precedence"].add_term(['$',function(List__,p5want){return(p5call(p5pkg["Perlito5::Grammar::Sigil"],"term_sigil",p5list_to_a(List__.p5...
else{if((Hash_special_var).hasOwnProperty(v_s)){(v_len=(3));}
else{(v_s=(p5pkg["Perlito5::Grammar::Sigil"].substr([v_str,v_pos,2],0)));if((Hash_special_var).hasOwnProperty(v_s)){(v_len=(2));};};};if(p5bool(v_len)){(function(){var v_c0;(v_c0=(p5pkg["Perlito5::Grammar::Sigil"].substr([v_str,((p5num(v_pos)+p5num(v...
else{throw((new p5HashRef(p5a_to_h(p5list_to_a('str',v_str,'from',v_pos,'to',(p5num(v_pos)+p5num(v_len)),'capture',(new p5ArrayRef(p5list_to_a('term',p5call(p5pkg["Perlito5::AST::Var"],"new",p5list_to_a('sigil',p5pkg["Perlito5::Grammar::Sigil"].subst...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});var Hash_sigil={};(Hash_sigil={'$':1,'%':1,'@':1,'&':1,'*':1});p5make_sub("Perlito5::Grammar::Sigil","term_sigil",function(List__,p5want){try{var v_self;(v_self=(List__.p5aget(0)));var v_str;(v_str=(List__.p5aget(1)));var v_pos;...
else{throw(p5context([],p5want));};var v_p;(v_p=((p5num(v_pos)+1)));var v_sigil;(v_sigil=(v_c1));if((p5pkg["Perlito5::Grammar::Sigil"].substr([v_str,v_pos,2],0)=='$#')){(v_sigil=('$#'));(v_p)++;};var v_m;(v_m=(p5call(p5pkg["Perlito5::Grammar::Space"]...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});1;})();(function(){var p5154=p5make_package("Perlito5::Grammar::Use");;;;p5pkg["Perlito5::Precedence"].add_term(['no',function(List__,p5want){return(p5call(p5pkg["Perlito5::Grammar::Use"],"term_use",p5list_to_a(List__.p5aget(0),...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(p5pkg["Perlito5::Grammar::Space"],"ws",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){(v...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_pos1;(v_pos1=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));return(p5or(p5context([(function(){return(p5and(p5context([(function(){var v_m2;(...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('capture',((new p5ArrayRef(p5list_to_a('term',p5call(p5pkg["Perlito5::AST::Apply"],"new",p5list_to_a('code','un...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){var v_m;(v_m=(v_MATCH));if(!(p5bool((function(){var v_pos1;(v_pos1=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));return(p5context([(function(){retur...
else{(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('Perlito5::Grammar.ident',((new p5ArrayRef([v_m2]))));};return(p5context([1],p5want));}
else{return(p5context([0],p5want));}})()],p5want)}));})()],p5want));})()))){(v_MATCH=(v_m));};return(p5context([1],p5want));})()],0)}),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(p5pkg["Perlito5::Expression"],"list_parse",p5list_t...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_list;(v_list=(p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('Perlito5::Expression.list_parse')),0)));if((p5...
else{(function(){var v_m;(v_m=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('Perlito5::Expression.list_parse')));var v_list_code;(v_list_code=(p5pkg["Perlito5::Grammar::Use"].substr([v_str,(v_m||(v_m=new p5HashRef({})))._hash_.p5hget('from'),...
catch(err){if(err instanceof p5_error||err instanceof Error){p5pkg["main"]["v_@"]=err;try{p5pkg["main"]["v_@"]=p5pkg["main"]["v_@"]+"\n"+err.stack;}
catch(err){}}
else{return(err);}}
return r;})(1)));(v_list=((new p5ArrayRef(List_list))));})();};var v_ast;(v_ast=(p5call(p5pkg["Perlito5::AST::Use"],"new",p5list_to_a('code',p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('use_decl')),1...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar::Use","parse_time_eval",function(List__,p5want){var v_self;(v_self=(List__.shift()));var v_module_name;(v_module_name=(p5call(v_self,"mod",[],0)));var v_use_or_not;(v_use_or_not=(p5call(v_self,"code...
else{(v_arguments=((new p5ArrayRef([]))));};if((p5str(v_module_name)=='feature')){null;}
else{if(p5bool(p5pkg["Perlito5"]["v_EXPAND_USE"])){if((Hash_Perlito_internal_module).hasOwnProperty(v_module_name)){(v_module_name=(Hash_Perlito_internal_module.p5hget(p5str(v_module_name))));};var v_filename;(v_filename=(p5pkg["Perlito5::Grammar::Us...
else{null;}}
else{if((p5str(v_use_or_not)=='no')){if((p5code_lookup_by_name("Perlito5::Grammar::Use",(p5str(v_module_name)+'::unimport'))!=null)){(p5pkg["Perlito5"]["v_CALLER"]||(p5pkg["Perlito5"]["v_CALLER"]=new p5ArrayRef([])))._array_.p5unshift(p5list_to_a((ne...
else{null;}}
else{null;}}}
else{null;}}
else{null;}}});p5make_sub("Perlito5::Grammar::Use","emit_time_eval",function(List__,p5want){var v_self;(v_self=(List__.shift()));if((p5str(p5call(v_self,"mod",[],0))=='strict')){if((p5str(p5call(v_self,"code",[],0))=='use')){return(p5call(p5pkg["Perl...
else{if((p5str(p5call(v_self,"code",[],0))=='no')){return(p5call(p5pkg["Perlito5::strict"],"unimport",[],p5want));}
else{null;}}}
else{null;}});p5make_sub("Perlito5::Grammar::Use","modulename_to_filename",function(List__,p5want){var v_s;(v_s=(List__.shift()));v_s=p5str(v_s).replace(/::/g,'/');return(p5context([(p5str(v_s)+'.pm')],p5want));});p5make_sub("Perlito5::Grammar::Use",...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar::Use","expand_use",function(List__,p5want){try{var v_comp_units;(v_comp_units=(List__.shift()));var v_stmt;(v_stmt=(List__.shift()));var v_module_name;(v_module_name=(p5call(v_stmt,"mod",[],0)));if(...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar::Use","add_comp_unit",function(List__,p5want){var v_parse;(v_parse=(List__.shift()));var v_comp_units;(v_comp_units=((new p5ArrayRef([]))));p5for_lex(function(v_comp_unit){if((v_comp_unit!=null)){if...
else{if(p5bool(p5call(v_comp_unit,"isa",['Perlito5::AST::CompUnit'],0))){p5for_lex(function(v_stmt){if(p5bool(p5call(v_stmt,"isa",['Perlito5::AST::Use'],0))){p5pkg["Perlito5::Grammar::Use"].expand_use([v_comp_units,v_stmt],null);};},p5list_to_a(p5cal...
catch(err){if(err instanceof p5_error||err instanceof Error){p5pkg["main"]["v_@"]=err;try{p5pkg["main"]["v_@"]=p5pkg["main"]["v_@"]+"\n"+err.stack;}
catch(err){}}
else{return(err);}}
return r;})(p5want)));if(p5bool(p5pkg["main"]["v_@"])){p5pkg["main"]["Hash_INC"].p5hset(p5str(v_filename),(null));return(p5pkg["Perlito5::Grammar::Use"].die([[p5pkg["main"]["v_@"]]],p5want));}
else{if(!(p5bool(v_result))){(delete p5pkg["main"]["Hash_INC"].p5hget(p5str(v_filename)));if(p5bool(p5pkg["main"]["v_@"])){p5pkg["Perlito5::Grammar::Use"].warn([[p5pkg["main"]["v_@"]]],null);};return(p5pkg["Perlito5::Grammar::Use"].die([[(p5str(v_fil...
else{throw(p5context([v_result],p5want))}}}
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});1;})();(function(){var p5155=p5make_package("Perlito5::Grammar::Block");;;(p5pkg["Perlito5::Grammar::Block"]["Hash_Named_block"]={'BEGIN':1,'UNITCHECK':1,'CHECK':1,'INIT':1,'END':1});p5pkg["Perlito5::Expression"].add_statement([...
else{p5pkg["Perlito5::Grammar::Block"].die([['syntax error']],null);};p5pkg["Perlito5::Grammar::Block"].warn([['continue!']],null);(v_continue||(v_continue=new p5HashRef({})))._hash_.p5hset('stmts',((v_cont||(v_cont=new p5HashRef({})))._hash_.p5hget_...
else{(v_v=(p5pkg["Perlito5::Expression"].block_or_hash([v_v],0)));};if((p5str(p5pkg["Perlito5::Grammar::Block"].ref([v_v],0))=='Perlito5::AST::Lit::Block')){if((p5str(v_block_name)=='BEGIN')){(function(p5want){var r;p5pkg["main"]["v_@"]="";try{r=eval...
catch(err){if(err instanceof p5_error||err instanceof Error){p5pkg["main"]["v_@"]=err;try{p5pkg["main"]["v_@"]=p5pkg["main"]["v_@"]+"\n"+err.stack;}
catch(err){}}
else{return(err);}}
return r;})(null);(v_m||(v_m=new p5HashRef({})))._hash_.p5hset('capture',(p5call(p5pkg["Perlito5::AST::Apply"],"new",p5list_to_a('code','undef','namespace','','arguments',(new p5ArrayRef([]))),0)));}
else{(v_v||(v_v=new p5HashRef({})))._hash_.p5hset('name',(v_block_name));(v_m||(v_m=new p5HashRef({})))._hash_.p5hset('capture',(v_v));(v_m||(v_m=new p5HashRef({})))._hash_.p5hget_hash('capture')._hash_.p5hset('continue',(v_continue));};throw(p5conte...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar::Block","named_sub_def",function(List__,p5want){var v_grammar;(v_grammar=(List__.p5aget(0)));var v_str;(v_str=(List__.p5aget(1)));var v_pos;(v_pos=(List__.p5aget(2)));var v_MATCH;(v_MATCH=((new p5Ha...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(p5pkg["Perlito5::Grammar"],"ident",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){(v_MAT...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(p5pkg["Perlito5::Grammar"],"prototype",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(p5pkg["Perlito5::Grammar"],"opt_ws",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){(v_...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([p5and(('{'==p5pkg["Perlito5::Grammar::Block"].substr([v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to'),1],0)),function(){return p5context([(v_MATCH||(v_MATCH=...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(p5pkg["Perlito5::Grammar"],"exp_stmts",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(p5pkg["Perlito5::Grammar"],"opt_ws",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){(v_...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_pos1;(v_pos1=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));return(p5or(p5context([(function(){return(p5and(('}'==p5pkg["Perlito5::Grammar::B...
else{throw(p5context([],p5want));};var v_ws;(v_ws=(p5call(p5pkg["Perlito5::Grammar::Space"],"ws",[v_str,(p5num(v_pos)+3)],0)));if(p5bool(v_ws)){null;}
else{throw(p5context([],p5want));};var v_p;(v_p=((v_ws||(v_ws=new p5HashRef({})))._hash_.p5hget('to')));var v_m_name;(v_m_name=(p5call(p5pkg["Perlito5::Grammar"],"ident",[v_str,v_p],0)));if(p5bool(v_m_name)){null;}
else{throw(p5context([],p5want));};var v_block_name;(v_block_name=(p5pkg["Perlito5::Match"].flat([v_m_name],0)));if((p5pkg["Perlito5::Grammar::Block"]["Hash_Named_block"]).hasOwnProperty(v_block_name)){throw(p5call(p5pkg["Perlito5::Grammar::Block"],"...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});1;})();(function(){var p5156=p5make_package("Perlito5::Grammar::Space");;var Hash_space={};(Hash_space=p5a_to_h(['#',function(List__,p5want){var v_m;(v_m=(p5call(p5pkg["Perlito5::Grammar::Space"],"to_eol",p5list_to_a(List__.p5ag...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar::Space","term_end",function(List__,p5want){return((new p5HashRef(p5a_to_h(p5list_to_a('str',List__.p5aget(0),'from',List__.p5aget(1),'to',p5pkg["Perlito5::Grammar::Space"].length([List__.p5aget(0)],...
else{(v_last_match_null=(0));};(v_m=(v_MATCH));(v_to=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));},function(){return p5and(p5context([(function(){var v_pos1;(v_pos1=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));retur...
else{return(p5context([0],p5want));}})()],p5want)}));})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_pos1));return(p5context([p5and(p5and(p5context([p5and((''!=p5pkg["Perlito5::Grammar::S...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(v_grammar,"pod_pod_begin",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){(v_MATCH||(v_...
else{return(p5context([0],p5want));}})()],p5want)})],p5want));})()],p5want)}));})()],0)],0)));return((p5bool(v_tmp)?v_MATCH:0));});p5make_sub("Perlito5::Grammar::Space","pod_begin",function(List__,p5want){var v_grammar;(v_grammar=(List__.p5aget(0)));...
else{return(p5context([0],p5want));}})()],p5want)}));})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_pos1));return(p5context([p5and(p5and(p5context([p5and((''!=p5pkg["Perlito5::Grammar::S...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_m2;(v_m2=(p5call(v_grammar,"pod_begin",p5list_to_a(v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')),0)));if(p5bool(v_m2)){(v_MATCH||(v_MATC...
else{return(p5context([0],p5want));}})()],p5want)})],p5want));})()],p5want)}));})()],0)],0)));return((p5bool(v_tmp)?v_MATCH:0));});p5make_sub("Perlito5::Grammar::Space","start_of_line",function(List__,p5want){var v_grammar;(v_grammar=(List__.p5aget(0...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){var v_pos1;(v_pos1=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));return(p5or(p5context([(function(){return(p5and(p5context([p5and(('='==p5pkg["Perli...
else{return(p5context([0],p5want));}})()],p5want)}));})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_pos1));return(p5context([p5and(p5context([p5and(('head1'==p5pkg["Perlito5::Grammar::Sp...
else{return(p5context([0],p5want));}})()],p5want)})],p5want));})()],0)}),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_pos1));return(p5context([p5and(p5context([p5and(('begin'==p5pkg["Perlito5::...
else{return(p5context([0],p5want));}})()],p5want)})],p5want));})()],0)}),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_pos1));return(p5context([p5and(p5context([p5and(('for'==p5pkg["Perlito5::Gr...
else{return(p5context([0],p5want));}})()],p5want)})],p5want));})()],p5want)}));})()],p5want)}));})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_pos1));return(p5context([1],p5want));})()],...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar::Space","opt_ws",function(List__,p5want){try{var v_self;(v_self=(List__.shift()));var v_str;(v_str=(List__.shift()));var v_pos;(v_pos=(List__.shift()));var v_p;(v_p=(v_pos));p5while(function(){(v_p=...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});1;})();(function(){var p5157=p5make_package("Perlito5::Grammar");;;;;;;;p5make_sub("Perlito5::Grammar","word",function(List__,p5want){return((p5bool((p5str(p5pkg["Perlito5::Grammar"].substr([List__.p5aget(1),List__.p5aget(2),1],...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar","caret_char",function(List__,p5want){try{var v_c;(v_c=(p5pkg["Perlito5::Grammar"].substr([List__.p5aget(1),List__.p5aget(2),1],0)));var v_pos;(v_pos=(List__.p5aget(2)));if((p5str(v_c)=='^')){(v_pos...
else{if(p5bool(p5call(List__.p5aget(0),"ws",p5list_to_a(List__.p5aget(1),v_pos),0))){throw(p5context([0],p5want));};};if(((p5str(v_c)<String.fromCharCode(1))||(p5str(v_c)>String.fromCharCode(26)))){throw(p5context([0],p5want));};return((new p5HashRef...
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});p5make_sub("Perlito5::Grammar","full_ident",function(List__,p5want){var v_grammar;(v_grammar=(List__.p5aget(0)));var v_str;(v_str=(List__.p5aget(1)));var v_pos;(v_pos=(List__.p5aget(2)));var v_MATCH;(v_MATCH=((new p5HashRef({'st...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){var v_last_match_null;(v_last_match_null=(0));var v_m;(v_m=(v_MATCH));var v_to;(v_to=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));p5while(function(...
else{(v_last_match_null=(0));};(v_m=(v_MATCH));(v_to=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));},function(){return p5and(p5context([(function(){var v_pos1;(v_pos1=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));retur...
else{return(p5context([0],p5want));}})()],p5want)}));})()],p5want));})()],0),function(){return p5context([(p5num(v_last_match_null)<2)],0)})},false,"");(v_MATCH=(v_m));(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_to));return(p5context...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){var v_tmp;(v_tmp=(v_MATCH));(v_MATCH=((new p5HashRef(p5a_to_h(p5list_to_a('str',v_str,'from',(v_tmp||(v_tmp=new p5HashRef({})))._hash_.p5hget('to'),'to',(v_tmp||(v_...
else{(v_last_match_null=(0));};(v_m=(v_MATCH));(v_to=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));},function(){return p5and(p5context([(function(){var v_pos1;(v_pos1=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));retur...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_tmp;(v_tmp=(v_MATCH));(v_MATCH=((new p5HashRef(p5a_to_h(p5list_to_a('str',v_str,'from',(v_tmp||(v_tmp=new p5HashRef({})))._hash_.p5hget('to'),'to',(v_tmp||(...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){var v_last_match_null;(v_last_match_null=(0));var v_m;(v_m=(v_MATCH));var v_to;(v_to=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));p5while(function(...
else{(v_last_match_null=(0));};(v_m=(v_MATCH));(v_to=((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('to')));},function(){return p5and(p5context([p5and(('::'==p5pkg["Perlito5::Grammar"].substr([v_str,(v_MATCH||(v_MATCH=new p5HashRef({})))._hash...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){var v_name;(v_name=(p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('optional_namespace_before_ident')),0)));(v_MAT...
else{return(p5context([0],p5want));}})()],p5want));})()],0)],0)));return((p5bool(v_tmp)?v_MATCH:0));});p5make_sub("Perlito5::Grammar","opt_ws",function(List__,p5want){var v_grammar;(v_grammar=(List__.p5aget(0)));var v_str;(v_str=(List__.p5aget(1)));v...
else{return(p5context([0],p5want));}})()))){(v_MATCH=(v_m));};return(p5context([1],p5want));})()],p5want));})()],0)],0)));return((p5bool(v_tmp)?v_MATCH:0));});p5make_sub("Perlito5::Grammar","exp_stmts2",function(List__,p5want){var v_grammar;(v_gramma...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('capture',(p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('exp_...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('capture',(p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('Perl...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('capture',(p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('Perl...
else{return(p5context([0],p5want));}})()],0)}),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('capture',(p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hget('fu...
else{return(p5context([0],p5want));}})()],0),function(){return p5context([(function(){(v_MATCH||(v_MATCH=new p5HashRef({})))._hash_.p5hset('to',(v_pos1));return(p5context([p5context([(function(){var v_m2;(v_m2=(p5call(v_grammar,"digit",p5list_to_a(v_...