Perlito5 - grammar - vstring/bareword disambiguation

fglock · Sep 24, 2013 · 48ef9a7 · 48ef9a7
1 parent 3857c53
commit 48ef9a7
Show file tree

Hide file tree

Showing 3 changed files with 351 additions and 328 deletions.
diff --git a/html/perlito5.js b/html/perlito5.js
@@ -2574,7 +2574,16 @@ var p5100 = p5pkg['main'];
 					v_sig = ((p5make_package("Perlito5")["v_CORE_PROTO"] || (p5make_package("Perlito5")["v_CORE_PROTO"] = new p5HashRef({})))._hash_.p5hget(p5str(v_effective_name)));
 				}
 				else {
-					v_sig = (null);
+					(function () {
+						var v_m;
+						v_m = (p5call(p5pkg["Perlito5::Grammar::Number"], "val_version", [v_str, v_pos], 0));
+						if ( p5bool(v_m) ) {
+							(v_m || (v_m = new p5HashRef({})))._hash_.p5hset('capture', ((new p5ArrayRef(p5list_to_a('term', (v_m || (v_m = new p5HashRef({})))._hash_.p5hget('capture'))))));
+							(v_m || (v_m = new p5HashRef({})))._hash_.p5hset('to', (v_p));
+							(function () { throw(p5context([v_m], p5want)) })();
+						};
+						v_sig = (null);
+					})();
 				};
 				var v_has_paren;
 				v_has_paren = (0);

diff --git a/perlito5.pl b/perlito5.pl
@@ -792,6 +792,12 @@ sub Perlito5::Grammar::Bareword::term_bareword {
             $sig = $Perlito5::CORE_PROTO->{$effective_name}
         }
         else {
+            my $m = Perlito5::Grammar::Number->val_version($str, $pos);
+            if ($m) {
+                $m->{'capture'} = ['term', $m->{'capture'}];
+                $m->{'to'} = $p;
+                return $m
+            };
             $sig = undef()
         }
     };