don't allow identifiers to start with a digit

masak · Jan 19, 2015 · 662d9bf · 662d9bf
1 parent 5bf62a2
commit 662d9bf
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/lib/_007/Parser.pm b/lib/_007/Parser.pm
@@ -47,9 +47,13 @@ class Parser {
             '' [<statement><.eat_terminator> ]*
         }
 
+        method panic($what) {
+            die X::Syntax::Missing.new(:$what);
+        }
+
         proto token statement {*}
         rule statement:my {
-            my <identifier>
+            my [<identifier> || <.panic "identifier">]
             {
                 my $symbol = $<identifier>.Str;
                 my $block = $*runtime.current-frame();
@@ -198,7 +202,7 @@ class Parser {
         }
 
         token identifier {
-            <[\w:]>+
+            <!before \d> <[\w:]>+
         }
 
         rule arguments {

diff --git a/t/syntax/corner-cases.t b/t/syntax/corner-cases.t
@@ -280,4 +280,12 @@ use _007::Test;
     parse-error $program, X::Redeclaration::Outer, "...same thing, but with an inner macro";
 }
 
+{
+    my $program = q:to/./;
+        my 5 = "five";
+        .
+
+    parse-error $program, X::Syntax::Missing, "an identifier can not start with a digit";
+}
+
 done;