[p6grammar]: Action methods to automatically create grammar object.

perl6 · Oct 15, 2009 · fb80e2d · fb80e2d
1 parent fbb15ef
commit fb80e2d
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/src/Regex/P6Grammar.pir b/src/Regex/P6Grammar.pir
@@ -16,7 +16,7 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
     load_bytecode 'p6regex.pbc'
     .local pmc p6meta, p6grammar
     p6meta = get_hll_global 'P6metaclass'
-    p6grammar = p6meta.'new_class'('Regex::P6Grammar', 'parent'=>'PCT::HLLCompiler')
+    p6grammar = p6meta.'new_class'('Regex::P6Grammar::Compiler', 'parent'=>'PCT::HLLCompiler')
     p6grammar.'language'('Regex::P6Grammar')
     $P0 = get_hll_namespace ['Regex';'P6Grammar';'Grammar']
     p6grammar.'parsegrammar'($P0)

diff --git a/src/Regex/P6Grammar/Actions.pm b/src/Regex/P6Grammar/Actions.pm
@@ -1,14 +1,30 @@
 class Regex::P6Grammar::Actions is Regex::P6Regex::Actions;
 
 method TOP($/) {
-    my $past := PAST::Stmts.new();
+    my $past := $<grammar_stmt>.ast;
     for $<regex_stmt> {
         $past.push( $_.ast );
     }
     make $past;
 }
 
 
+method grammar_stmt($/) {
+    my @ns := Regex::P6Grammar::Compiler.parse_name( ~$<name> );
+    my $past := PAST::Block.new( :namespace(@ns) );
+    my $init := 
+        PAST::Op.new(
+            PAST::Var.new( :name('P6metaclass'), :scope('package'),
+                           :namespace('') ),
+            ~$<name>,
+            PAST::Val.new( :value('Regex::Cursor'), :named('parent') ),
+            :pasttype('callmethod'), :name('new_class')
+        );
+    $past.loadinit($init);
+    make $past;
+}
+
+
 method regex_stmt($/, $key?) {
     my @MODIFIERS := Q:PIR { 
         %r = get_hll_global ['Regex';'P6Regex';'Actions'], '@MODIFIERS'