summaryrefslogtreecommitdiff
path: root/perly.y
diff options
context:
space:
mode:
authorJesse Vincent <jesse@bestpractical.com>2009-11-05 11:14:45 -0500
committerJesse Vincent <jesse@bestpractical.com>2009-11-05 11:14:45 -0500
commit88e1f1a2657a3a28cf3a7811902a09aca9e18986 (patch)
treee7280ddd6c04915543c3850e403d06b8b5892524 /perly.y
parent9b583d5830e4b19cc53ab2180c0fd30418e764ed (diff)
downloadperl-88e1f1a2657a3a28cf3a7811902a09aca9e18986.tar.gz
Implement facility to plug in syntax triggered by keywords
Date: Tue, 27 Oct 2009 01:29:40 +0000 From: Zefram <zefram@fysh.org> To: perl5-porters@perl.org Subject: bareword sub lookups Attached is a patch that changes how the tokeniser looks up subroutines, when they're referenced by a bareword, for prototype and const-sub purposes. Formerly, it has looked up bareword subs directly in the package, which is contrary to the way the generated op tree looks up the sub, via an rv2cv op. The patch makes the tokeniser generate the rv2cv op earlier, and dig around in that. The motivation for this is to allow modules to hook the rv2cv op creation, to affect the name->subroutine lookup process. Currently, such hooking affects op execution as intended, but everything goes wrong with a bareword ref where the tokeniser looks at some unrelated CV, or a blank space, in the package. With the patch in place, an rv2cv hook correctly affects the tokeniser and therefore the prototype-based aspects of parsing. The patch also changes ck_subr (which applies the argument context and checking parts of prototype behaviour) to handle subs referenced by an RV const op inside the rv2cv, where formerly it would only handle a gv op inside the rv2cv. This is to support the most likely kind of modified rv2cv op. [This commit includes the Makefile.PL for XS-APITest-KeywordRPN missing from the original patch, as well as updates to perldiag.pod and a MANIFEST sort]
Diffstat (limited to 'perly.y')
-rw-r--r--perly.y4
1 files changed, 4 insertions, 0 deletions
diff --git a/perly.y b/perly.y
index 5ec5845de2..544c2e9edb 100644
--- a/perly.y
+++ b/perly.y
@@ -73,6 +73,7 @@
%token <opval> WORD METHOD FUNCMETH THING PMFUNC PRIVATEREF
%token <opval> FUNC0SUB UNIOPSUB LSTOPSUB
+%token <opval> PLUGEXPR PLUGSTMT
%token <p_tkval> LABEL
%token <i_tkval> FORMAT SUB ANONSUB PACKAGE USE
%token <i_tkval> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE FOR
@@ -241,6 +242,8 @@ line : label cond
}
})
}
+ | label PLUGSTMT
+ { $$ = newSTATEOP(0, PVAL($1), $2); }
;
/* An expression which may have a side-effect */
@@ -1244,6 +1247,7 @@ term : termbinop
newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
TOKEN_GETMAD($1,$$,'X');
}
+ | PLUGEXPR
;
/* "my" declarations, with optional attributes */