Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add nqpattr cheat used for now by protoregexes implementation, so the…
… NFA builder can get at NFAs for subrules. And with this, we seem to have workingish protoregexes - to the limit of the NFA engine (which still means more powerful than the literal only we had before).
  • Loading branch information
jnthn committed Nov 16, 2011
1 parent 829f9d3 commit a8b2873
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion src/Perl6/Metamodel/BOOTSTRAP.pm
Expand Up @@ -505,7 +505,6 @@ Routine.HOW.add_method(Routine, 'set_inline_info', sub ($self, $info) {
pir::repr_bind_attr_str__0PPss($dcself, Routine, '$!inline_info',
pir::repr_unbox_str__sP($info));
});

Routine.HOW.add_method(Routine, 'inline_info', sub ($self) {
my $dcself := pir::perl6_decontainerize__PP($self);
pir::repr_get_attr_str__SPPs($dcself, Routine, '$!inline_info')
Expand Down Expand Up @@ -534,6 +533,9 @@ my stub Regex metaclass Perl6::Metamodel::ClassHOW { ... };
Regex.HOW.add_parent(Regex, Method);
Regex.HOW.publish_parrot_vtable_handler_mapping(Regex);
Regex.HOW.publish_parrot_vtable_mapping(Regex);
Regex.HOW.add_method(Regex, 'nqpattr', sub ($self, $key) {
nqp::getattr(pir::perl6_decontainerize__PP($self), Code, '$!do').nqpattr($key)
});

# class Str is Cool {
# has str $!value is box_target;
Expand Down

0 comments on commit a8b2873

Please sign in to comment.