Perlito5 - recompile

Author: fglock

html/perlito5.js

@@ -11514,7 +11514,7 @@ return r;
 										})()], p5want) })], p5want));
 									})()], 0) }), function () { return p5context([(function () {
 										(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('to', (v_pos1));
-										return (p5context([p5and(p5context([(function () {
+										return (p5context([p5and(p5and(p5context([(function () {
 											var v_m2;
 											(v_m2 = (p5call(v_grammar, "typeglob", p5list_to_a(v_str, (v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('to')), 0)));
 											if ( p5bool(v_m2) ) {
@@ -11527,6 +11527,19 @@ return r;
 												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_tmp = new p5HashRef({})))._hash_.p5hget('to')))))));
+											var v_res;
+											(v_res = (p5context([(function () {
+														var v_pos1;
+														(v_pos1 = ((v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('to')));
+														return (p5context([(function () {
+															return (p5and(('(' == p5pkg["Perlito5::Grammar::Print"].substr([v_str, (v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('to'), 1], 0)), function () { return p5context([(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('to', ((1 + p5num((v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('to')))))], p5want) }));
+														})()], p5want));
+													})()], 0)));
+											return ((v_MATCH = (( p5bool(v_res) ? 0 : v_tmp))));
+										})()], 0) }), function () { return p5context([(function () {
 											(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('str', (v_str));
 											(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('capture', (p5pkg["Perlito5::Match"].flat(p5list_to_a((v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('typeglob')), 0)));
 											return (p5context([1], p5want));
@@ -11545,7 +11558,7 @@ return r;
 									(v_s = (p5pkg["Perlito5::Grammar::Print"].substr([(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('str'), v_pos, 1], 0)));
 									var v_s2;
 									(v_s2 = (p5pkg["Perlito5::Grammar::Print"].substr([(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('str'), v_pos, 2], 0)));
-									if ( ((((((p5str(v_s) == ',') || (p5str(v_s) == '?')) || (p5str(v_s2) == '->')) || (p5str(v_s) == '[')) || (p5str(v_s) == '{')) || (p5str(v_s) == '(')) ) {
+									if ( (((((p5str(v_s) == ',') || (p5str(v_s) == '?')) || (p5str(v_s2) == '->')) || (p5str(v_s) == '[')) || (p5str(v_s) == '{')) ) {
 										throw(p5context([], p5want));
 									};
 									if ( (p5str(v_s) == '+') ) {

perlito5.pl

@@ -6420,7 +6420,7 @@ sub Perlito5::Grammar::Print::the_object {
 }))))
 }))) || ((do {
     ($MATCH->{'to'} = $pos1);
-    ((((do {
+    (((((do {
     ((my  $m2) = $grammar->typeglob($str, $MATCH->{'to'}));
     if ($m2) {
         ($MATCH->{'to'} = $m2->{'to'});
@@ -6431,6 +6431,16 @@ sub Perlito5::Grammar::Print::the_object {
         0
     }
 })) && ((do {
+    ((my  $tmp) = $MATCH);
+    ($MATCH = {'str', $str, 'from', $tmp->{'to'}, 'to', $tmp->{'to'}});
+    ((my  $res) = ((do {
+    ((my  $pos1) = $MATCH->{'to'});
+    ((do {
+    (('(' eq substr($str, $MATCH->{'to'}, 1)) && (($MATCH->{'to'} = (1 + $MATCH->{'to'}))))
+}))
+})));
+    ($MATCH = ($res ? 0 : $tmp))
+}))) && ((do {
     ($MATCH->{'str'} = $str);
     ($MATCH->{'capture'} = Perlito5::Match::flat($MATCH->{'typeglob'}));
 ;
@@ -6446,7 +6456,7 @@ sub Perlito5::Grammar::Print::the_object {
     };
     ((my  $s) = substr($MATCH->{'str'}, $pos, 1));
     ((my  $s2) = substr($MATCH->{'str'}, $pos, 2));
-    if ((((((($s eq ',') || ($s eq '?')) || ($s2 eq '->')) || ($s eq '[')) || ($s eq '{')) || ($s eq '('))) {
+    if (((((($s eq ',') || ($s eq '?')) || ($s2 eq '->')) || ($s eq '[')) || ($s eq '{'))) {
         return ()
     };
     if (($s eq '+')) {