diff options
| author | Zefram <zefram@fysh.org> | 2010-08-21 18:54:04 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-09-06 23:25:34 +0200 |
| commit | 28ac2b49dea6847c95a32afde577935fec51650f (patch) | |
| tree | 2af2b2eb45e3584e390fddcc564587e2c2286f4a /pp_ctl.c | |
| parent | 544cdeac5a054fa1c1b543769d0076fa6c3faf68 (diff) | |
| download | perl-28ac2b49dea6847c95a32afde577935fec51650f.tar.gz | |
function interface to parse Perl statement
yyparse() becomes reentrant. The yacc stack and related resources
are allocated in yyparse(), rather than in lex_start(), and they are
localised to yyparse(), preserving their values from any outer parser.
yyparse() now takes a parameter which determines which production it
will parse at the top level. New API function parse_fullstmt() uses this
facility to parse just a single statement. The top-level single-statement
production that is used for this then messes with the parser's head so
that the parsing stops without seeing EOF, and any lookahead token seen
after the statement is pushed back to the lexer.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3039,7 +3039,7 @@ Perl_find_runcv(pTHX_ U32 *db_seqp) * 3: yyparse() died */ STATIC int -S_try_yyparse(pTHX) +S_try_yyparse(pTHX_ int gramtype) { int ret; dJMPENV; @@ -3048,7 +3048,7 @@ S_try_yyparse(pTHX) JMPENV_PUSH(ret); switch (ret) { case 0: - ret = yyparse() ? 1 : 0; + ret = yyparse(gramtype) ? 1 : 0; break; case 3: break; @@ -3137,7 +3137,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) /* note that yyparse() may raise an exception, e.g. C<BEGIN{die}>, * so honour CATCH_GET and trap it here if necessary */ - yystatus = (!in_require && CATCH_GET) ? S_try_yyparse(aTHX) : yyparse(); + yystatus = (!in_require && CATCH_GET) ? S_try_yyparse(aTHX_ GRAMPROG) : yyparse(GRAMPROG); if (yystatus || PL_parser->error_count || !PL_eval_root) { SV **newsp; /* Used by POPBLOCK. */ |