Start parsing version information in use statements.

rakudo · May 15, 2009 · 271bbd0 · 271bbd0
1 parent b41e13b
commit 271bbd0
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -400,6 +400,14 @@ method use_statement($/) {
             $tags.pasttype('call');
         }
 
+        ##  Handle versioning
+        my $ver;
+        if $<colonpair> {
+            $ver := PAST::Op.new( :pasttype('call'), :name('hash') );
+            for $<colonpair> {
+                $ver.push( $_.ast );
+            }
+        }
         ##  Create a loadinit node so the use module is loaded
         ##  when this module is loaded...
         our @?BLOCK;
@@ -413,6 +421,10 @@ method use_statement($/) {
             $tags.named('tags');
             $use_call.push($tags);
         }
+        if $ver {
+            $ver.named('ver');
+            $use_call.push($ver);
+        }
         @?BLOCK[0].loadinit().push($use_call);
 
         ##  ...and load it immediately to get its BEGIN semantics and

diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
@@ -342,7 +342,7 @@ rule for_statement {
 }
 
 rule use_statement {
-    $<sym>=[use] <name>
+    $<sym>=[use] <name><colonpair>*
     <EXPR>?
     {*}
 }