Skip to content

Commit 98eb233

Browse files
committed
Add attribute meta-objects to the HOW exports.
1 parent 6e8751b commit 98eb233

File tree

2 files changed

+16
-10
lines changed

2 files changed

+16
-10
lines changed

src/core/NativeTypes.pm

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -6,11 +6,14 @@ use nqpmo;
66
# for any program using it. OTOH, there's not a good way to factor
77
# this just yet.)
88
my module EXPORTHOW {
9-
($?PACKAGE.WHO)<module> := NQPModuleHOW;
10-
($?PACKAGE.WHO)<class> := NQPClassHOW;
11-
($?PACKAGE.WHO)<grammar> := NQPClassHOW;
12-
($?PACKAGE.WHO)<role> := NQPParametricRoleHOW;
13-
($?PACKAGE.WHO)<native> := NQPNativeHOW;
9+
($?PACKAGE.WHO)<module> := NQPModuleHOW;
10+
($?PACKAGE.WHO)<class> := NQPClassHOW;
11+
($?PACKAGE.WHO)<class-attr> := NQPAttribute;
12+
($?PACKAGE.WHO)<grammar> := NQPClassHOW;
13+
($?PACKAGE.WHO)<grammar-attr> := NQPAttribute;
14+
($?PACKAGE.WHO)<role> := NQPParametricRoleHOW;
15+
($?PACKAGE.WHO)<role-attr> := NQPAttribute;
16+
($?PACKAGE.WHO)<native> := NQPNativeHOW;
1417
}
1518

1619
my native int is repr('P6int') { }

src/how/EXPORTHOW.pm

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,12 @@
11
# Bind the HOWs into the EXPORTHOW package under the package declarator
22
# names.
33
my knowhow EXPORTHOW {
4-
($?PACKAGE.WHO)<module> := NQPModuleHOW;
5-
($?PACKAGE.WHO)<class> := NQPClassHOW;
6-
($?PACKAGE.WHO)<grammar> := NQPClassHOW;
7-
($?PACKAGE.WHO)<role> := NQPParametricRoleHOW;
8-
($?PACKAGE.WHO)<native> := NQPNativeHOW;
4+
($?PACKAGE.WHO)<module> := NQPModuleHOW;
5+
($?PACKAGE.WHO)<class> := NQPClassHOW;
6+
($?PACKAGE.WHO)<class-attr> := NQPAttribute;
7+
($?PACKAGE.WHO)<grammar> := NQPClassHOW;
8+
($?PACKAGE.WHO)<grammar-attr> := NQPAttribute;
9+
($?PACKAGE.WHO)<role> := NQPParametricRoleHOW;
10+
($?PACKAGE.WHO)<role-attr> := NQPAttribute;
11+
($?PACKAGE.WHO)<native> := NQPNativeHOW;
912
}

0 commit comments

Comments
 (0)