Add attribute meta-objects to the HOW exports.

Raku · Apr 26, 2011 · 98eb233 · 98eb233
1 parent 6e8751b
commit 98eb233
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 10 deletions.
diff --git a/src/core/NativeTypes.pm b/src/core/NativeTypes.pm
@@ -6,11 +6,14 @@ use nqpmo;
 # for any program using it. OTOH, there's not a good way to factor
 # this just yet.)
 my module EXPORTHOW {
-    ($?PACKAGE.WHO)<module>  := NQPModuleHOW;
-    ($?PACKAGE.WHO)<class>   := NQPClassHOW;
-    ($?PACKAGE.WHO)<grammar> := NQPClassHOW;
-    ($?PACKAGE.WHO)<role>    := NQPParametricRoleHOW;
-    ($?PACKAGE.WHO)<native>  := NQPNativeHOW;
+    ($?PACKAGE.WHO)<module>       := NQPModuleHOW;
+    ($?PACKAGE.WHO)<class>        := NQPClassHOW;
+    ($?PACKAGE.WHO)<class-attr>   := NQPAttribute;
+    ($?PACKAGE.WHO)<grammar>      := NQPClassHOW;
+    ($?PACKAGE.WHO)<grammar-attr> := NQPAttribute;
+    ($?PACKAGE.WHO)<role>         := NQPParametricRoleHOW;
+    ($?PACKAGE.WHO)<role-attr>    := NQPAttribute;
+    ($?PACKAGE.WHO)<native>       := NQPNativeHOW;
 }
 
 my native int is repr('P6int') { }

diff --git a/src/how/EXPORTHOW.pm b/src/how/EXPORTHOW.pm
@@ -1,9 +1,12 @@
 # Bind the HOWs into the EXPORTHOW package under the package declarator
 # names.
 my knowhow EXPORTHOW {
-    ($?PACKAGE.WHO)<module>  := NQPModuleHOW;
-    ($?PACKAGE.WHO)<class>   := NQPClassHOW;
-    ($?PACKAGE.WHO)<grammar> := NQPClassHOW;
-    ($?PACKAGE.WHO)<role>    := NQPParametricRoleHOW;
-    ($?PACKAGE.WHO)<native>  := NQPNativeHOW;
+    ($?PACKAGE.WHO)<module>       := NQPModuleHOW;
+    ($?PACKAGE.WHO)<class>        := NQPClassHOW;
+    ($?PACKAGE.WHO)<class-attr>   := NQPAttribute;
+    ($?PACKAGE.WHO)<grammar>      := NQPClassHOW;
+    ($?PACKAGE.WHO)<grammar-attr> := NQPAttribute;
+    ($?PACKAGE.WHO)<role>         := NQPParametricRoleHOW;
+    ($?PACKAGE.WHO)<role-attr>    := NQPAttribute;
+    ($?PACKAGE.WHO)<native>       := NQPNativeHOW;
 }