Implement "grammar"

sorear · Jul 24, 2010 · 52f6d38 · 52f6d38
1 parent 1e1b8ee
commit 52f6d38
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 1 deletion.
diff --git a/Decl.pm b/Decl.pm
@@ -360,12 +360,14 @@ use CgOp;
             CgOp::wrap(CgOp::clr_string($self->name // 'ANON')));
     }
 
+    sub defsuper { 'Any!HOW' }
+
     sub finish_obj {
         my ($self) = @_;
         my @r;
         if (!grep { $_->isa('Decl::Super') } $self->body->do->local_decls) {
             push @r, CgOp::sink(CgOp::methodcall(CgOp::letvar("how"),
-                    "add-super", CgOp::scopedlex("Any!HOW")));
+                    "add-super", CgOp::scopedlex($self->defsuper)));
         }
         @r, CgOp::scopedlex($self->var,
                 CgOp::methodcall(CgOp::letvar("how"), "create-protoobject"));
@@ -375,6 +377,17 @@ use CgOp;
     no Moose;
 }
 
+{
+    package Decl::Grammar;
+    use Moose;
+    extends 'Decl::Class';
+
+    sub defsuper { 'Grammar!HOW' }
+
+    __PACKAGE__->meta->make_immutable;
+    no Moose;
+}
+
 {
     package Decl::HasMethod;
     use Moose;

diff --git a/Op.pm b/Op.pm
@@ -472,6 +472,17 @@ use CgOp;
     no Moose;
 }
 
+{
+    package Op::GrammarDef;
+    use Moose;
+    extends 'Op::ClassDef';
+
+    sub decl_class { 'Decl::Grammar' }
+
+    __PACKAGE__->meta->make_immutable;
+    no Moose;
+}
+
 {
     package Op::PreInit;
     use Moose;