Add NQPAttribute attribute meta-object. Very basic for now - just hol…

…ds a name.
perl6 · Oct 2, 2010 · 2914f84 · 2914f84
1 parent 5328d08
commit 2914f84
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 1 deletion.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -154,7 +154,8 @@ METAMODEL_OBJS   = ../metamodel/rakudoobject$(O) ../metamodel/repr_registry$(O)
                    ../metamodel/reprs/P6opaque$(O) ../metamodel/reprs/P6int$(O) \
                    ../metamodel/reprs/P6str$(O) ../metamodel/reprs/P6num$(O)
 
-HOW_SOURCES  = src/metamodel/how/KnowHOWAttribute.pm src/metamodel/how/NQPClassHOW.pm
+HOW_SOURCES  = src/metamodel/how/KnowHOWAttribute.pm src/metamodel/how/NQPClassHOW.pm \
+               src/metamodel/how/NQPAttribute.pm
 HOW_COMBINED = src/gen/how.pm
 
 

diff --git a/src/metamodel/how/NQPAttribute.pm b/src/metamodel/how/NQPAttribute.pm
@@ -0,0 +1,17 @@
+knowhow NQPAttribute {
+    has $!name;
+
+    method new(:$name!) {
+        my $attr := pir::repr_instance_of__PP(self);
+        $attr.BUILD(:name($name));
+        $attr
+    }
+
+    method BUILD(:$name) {
+        $!name := $name;
+    }
+
+    method name() {
+        $!name
+    }
+}