From: Nicholas Clark Date: Thu, 9 Mar 2006 20:53:11 +0000 (+0000) Subject: Oops. Failed to add madly.c X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e174121bd21e27088dbc46c7450ec9a763efeca2;p=p5sagit%2Fp5-mst-13.2.git Oops. Failed to add madly.c p4raw-id: //depot/perl@27449 --- diff --git a/madly.c b/madly.c new file mode 100644 index 0000000..2dadda3 --- /dev/null +++ b/madly.c @@ -0,0 +1,730 @@ +/* madly.c + * + * Copyright (c) 2004 Larry Wall + * + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. + * + * Note that this file was originally generated as an output from + * GNU bison version 1.875, but now the code is statically maintained + * and edited; the bits that are dependent on madly.y are now #included + * from the files madly.tab and madly.act. + * + * Here is an important copyright statement from the original, generated + * file: + * + * As a special exception, when this file is copied by Bison into a + * Bison output file, you may use that output file without + * restriction. This special exception was added by the Free + * Software Foundation in version 1.24 of Bison. + */ + + +/* allow stack size to grow effectively without limit */ +#define YYMAXDEPTH 10000000 + +#include "EXTERN.h" +#define PERL_IN_PERLY_C +#include "perl.h" + +typedef signed char yysigned_char; + +#ifdef DEBUGGING +# define YYDEBUG 1 +#else +# define YYDEBUG 0 +#endif + +/* contains all the parser state tables; auto-generated from madly.y */ +#include "madly.tab" + +# define YYSIZE_T size_t + +#define yyerrok (yyerrstatus = 0) +#define yyclearin (yychar = YYEMPTY) +#define YYEMPTY (-2) +#define YYEOF 0 + +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrlab1 + + +/* Like YYERROR except do call yyerror. This remains here temporarily + to ease the transition to the new meaning of YYERROR, for GCC. + Once GCC version 2 has supplanted version 1, this can go. */ + +#define YYFAIL goto yyerrlab + +#define YYRECOVERING() (!!yyerrstatus) + +#define YYBACKUP(Token, Value) \ +do \ + if (yychar == YYEMPTY && yylen == 1) { \ + yychar = (Token); \ + yylval = (Value); \ + yytoken = YYTRANSLATE (yychar); \ + YYPOPSTACK; \ + goto yybackup; \ + } \ + else { \ + yyerror ("syntax error: cannot back up"); \ + YYERROR; \ + } \ +while (0) + +#define YYTERROR 1 +#define YYERRCODE 256 + +/* Enable debugging if requested. */ +#ifdef DEBUGGING + +# define yydebug (DEBUG_p_TEST) + +# define YYFPRINTF PerlIO_printf + +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) + +# define YYDSYMPRINT(Args) \ +do { \ + if (yydebug) \ + yysymprint Args; \ +} while (0) + +# define YYDSYMPRINTF(Title, Token, Value) \ +do { \ + if (yydebug) { \ + YYFPRINTF (Perl_debug_log, "%s ", Title); \ + yysymprint (aTHX_ Perl_debug_log, Token, Value); \ + YYFPRINTF (Perl_debug_log, "\n"); \ + } \ +} while (0) + +/*--------------------------------. +| Print this symbol on YYOUTPUT. | +`--------------------------------*/ + +static void +yysymprint (pTHX_ PerlIO *yyoutput, int yytype, YYSTYPE *yyvaluep) +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + if (yytype < YYNTOKENS) { + YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); +# ifdef YYPRINT + YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); +# else + YYFPRINTF (yyoutput, "0x%x", yyvaluep->ival); +# endif + } + else + YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + + switch (yytype) { + default: + break; + } + YYFPRINTF (yyoutput, ")"); +} + + +/* yy_stack_print() + * print the top 8 items on the parse stack. The args have the same + * meanings as the local vars in yyparse() of the same name */ + +static void +yy_stack_print (pTHX_ short *yyss, short *yyssp, YYSTYPE *yyvs, const char**yyns) +{ + int i; + int start = 1; + int count = (int)(yyssp - yyss); + + if (count > 8) { + start = count - 8 + 1; + count = 8; + } + + PerlIO_printf(Perl_debug_log, "\nindex:"); + for (i=0; i < count; i++) + PerlIO_printf(Perl_debug_log, " %8d", start+i); + PerlIO_printf(Perl_debug_log, "\nstate:"); + for (i=0, yyss += start; i < count; i++, yyss++) + PerlIO_printf(Perl_debug_log, " %8d", *yyss); + PerlIO_printf(Perl_debug_log, "\ntoken:"); + for (i=0, yyns += start; i < count; i++, yyns++) + PerlIO_printf(Perl_debug_log, " %8.8s", *yyns); + PerlIO_printf(Perl_debug_log, "\nvalue:"); + for (i=0, yyvs += start; i < count; i++, yyvs++) + PerlIO_printf(Perl_debug_log, " %8x", yyvs->ival); + PerlIO_printf(Perl_debug_log, "\n\n"); +} + +# define YY_STACK_PRINT(yyss, yyssp, yyvs, yyns) \ +do { \ + if (yydebug && DEBUG_v_TEST) \ + yy_stack_print (aTHX_ (yyss), (yyssp), (yyvs), (yyns)); \ +} while (0) + + +/*------------------------------------------------. +| Report that the YYRULE is going to be reduced. | +`------------------------------------------------*/ + +static void +yy_reduce_print (pTHX_ int yyrule) +{ + int yyi; + unsigned int yylineno = yyrline[yyrule]; + YYFPRINTF (Perl_debug_log, "Reducing stack by rule %d (line %u), ", + yyrule - 1, yylineno); + /* Print the symbols being reduced, and their result. */ + for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++) + YYFPRINTF (Perl_debug_log, "%s ", yytname [yyrhs[yyi]]); + YYFPRINTF (Perl_debug_log, "-> %s\n", yytname [yyr1[yyrule]]); +} + +# define YY_REDUCE_PRINT(Rule) \ +do { \ + if (yydebug) \ + yy_reduce_print (aTHX_ Rule); \ +} while (0) + +#else /* !DEBUGGING */ +# define YYDPRINTF(Args) +# define YYDSYMPRINT(Args) +# define YYDSYMPRINTF(Title, Token, Value) +# define YY_STACK_PRINT(yyss, yyssp, yyvs, yyns) +# define YY_REDUCE_PRINT(Rule) +#endif /* !DEBUGGING */ + + +/* YYINITDEPTH -- initial size of the parser's stacks. */ +#ifndef YYINITDEPTH +# define YYINITDEPTH 200 +#endif + + +#if YYERROR_VERBOSE +# ifndef yystrlen +# if defined (__GLIBC__) && defined (_STRING_H) +# define yystrlen strlen +# else +/* Return the length of YYSTR. */ +static YYSIZE_T +yystrlen (const char *yystr) +{ + register const char *yys = yystr; + + while (*yys++ != '\0') + continue; + + return yys - yystr - 1; +} +# endif +# endif + +# ifndef yystpcpy +# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE) +# define yystpcpy stpcpy +# else +/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in + YYDEST. */ +static char * +yystpcpy (pTHX_ char *yydest, const char *yysrc) +{ + register char *yyd = yydest; + register const char *yys = yysrc; + + while ((*yyd++ = *yys++) != '\0') + continue; + + return yyd - 1; +} +# endif +# endif + +#endif /* !YYERROR_VERBOSE */ + + +/*-----------------------------------------------. +| Release the memory associated to this symbol. | +`-----------------------------------------------*/ + +static void +yydestruct (int yytype, YYSTYPE *yyvaluep) +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + switch (yytype) { + default: + break; + } +} + + + + +/*----------. +| yyparse. | +`----------*/ + +int +Perl_madparse (pTHX) +{ + int yychar; /* The lookahead symbol. */ + YYSTYPE yylval; /* The semantic value of the lookahead symbol. */ + int yynerrs; /* Number of syntax errors so far. */ + register int yystate; + register int yyn; + int yyresult; + + /* Number of tokens to shift before error messages enabled. */ + int yyerrstatus; + /* Lookahead token as an internal (translated) token number. */ + int yytoken = 0; + + /* two stacks and their tools: + `yyss': related to states, + `yyvs': related to semantic values, + + Refer to the stacks thru separate pointers, to allow yyoverflow + to reallocate them elsewhere. */ + + /* The state stack. */ + short *yyss; + register short *yyssp; + + /* The semantic value stack. */ + YYSTYPE *yyvs; + register YYSTYPE *yyvsp; + + /* for ease of re-allocation and automatic freeing, have two SVs whose + * SvPVX points to the stacks */ + SV *yyss_sv, *yyvs_sv; + +#ifdef DEBUGGING + /* maintain also a stack of token/rule names for debugging with -Dpv */ + const char **yyns, **yynsp; + SV *yyns_sv; +# define YYPOPSTACK (yyvsp--, yyssp--, yynsp--) +#else +# define YYPOPSTACK (yyvsp--, yyssp--) +#endif + + + YYSIZE_T yystacksize = YYINITDEPTH; + + /* The variables used to return semantic value and location from the + action routines. */ + YYSTYPE yyval; + + + /* When reducing, the number of symbols on the RHS of the reduced + rule. */ + int yylen; + + YYDPRINTF ((Perl_debug_log, "Starting parse\n")); + + ENTER; /* force stack free before we return */ + SAVEVPTR(PL_yycharp); + SAVEVPTR(PL_yylvalp); + PL_yycharp = &yychar; /* so PL_yyerror() can access it */ + PL_yylvalp = &yylval; /* so various functions in toke.c can access it */ + + yyss_sv = newSV(YYINITDEPTH * sizeof(short)); + yyvs_sv = newSV(YYINITDEPTH * sizeof(YYSTYPE)); + SAVEFREESV(yyss_sv); + SAVEFREESV(yyvs_sv); + yyss = (short *) SvPVX(yyss_sv); + yyvs = (YYSTYPE *) SvPVX(yyvs_sv); + /* note that elements zero of yyvs and yyns are not used */ + yyssp = yyss; + yyvsp = yyvs; +#ifdef DEBUGGING + yyns_sv = newSV(YYINITDEPTH * sizeof(char *)); + SAVEFREESV(yyns_sv); + yyns = (const char **) SvPVX(yyns_sv); + yynsp = yyns; +#endif + + yystate = 0; + yyerrstatus = 0; + yynerrs = 0; + yychar = YYEMPTY; /* Cause a token to be read. */ + + + + YYDPRINTF ((Perl_debug_log, "Entering state %d\n", yystate)); + + goto yysetstate; + +/*------------------------------------------------------------. +| yynewstate -- Push a new state, which is found in yystate. | +`------------------------------------------------------------*/ + yynewstate: + /* In all cases, when you get here, the value and location stacks + have just been pushed. so pushing a state here evens the stacks. + */ + yyssp++; + + yysetstate: + *yyssp = yystate; + + if (yyss + yystacksize - 1 <= yyssp) { + /* Get the current used size of the three stacks, in elements. */ + YYSIZE_T yysize = yyssp - yyss + 1; + + /* Extend the stack our own way. */ + if (YYMAXDEPTH <= yystacksize) + goto yyoverflowlab; + yystacksize *= 2; + if (YYMAXDEPTH < yystacksize) + yystacksize = YYMAXDEPTH; + + SvGROW(yyss_sv, yystacksize * sizeof(short)); + SvGROW(yyvs_sv, yystacksize * sizeof(YYSTYPE)); + yyss = (short *) SvPVX(yyss_sv); + yyvs = (YYSTYPE *) SvPVX(yyvs_sv); +#ifdef DEBUGGING + SvGROW(yyns_sv, yystacksize * sizeof(char *)); + yyns = (const char **) SvPVX(yyns_sv); + if (! yyns) + goto yyoverflowlab; + yynsp = yyns + yysize - 1; +#endif + if (!yyss || ! yyvs) + goto yyoverflowlab; + + yyssp = yyss + yysize - 1; + yyvsp = yyvs + yysize - 1; + + + YYDPRINTF ((Perl_debug_log, "Stack size increased to %lu\n", + (unsigned long int) yystacksize)); + + if (yyss + yystacksize - 1 <= yyssp) + YYABORT; + } + + goto yybackup; + + /*-----------. + | yybackup. | + `-----------*/ + yybackup: + +/* Do appropriate processing given the current state. */ +/* Read a lookahead token if we need one and don't already have one. */ +/* yyresume: */ + + /* First try to decide what to do without reference to lookahead token. */ + + yyn = yypact[yystate]; + if (yyn == YYPACT_NINF) + goto yydefault; + + /* Not known => get a lookahead token if don't already have one. */ + + /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ + if (yychar == YYEMPTY) { + YYDPRINTF ((Perl_debug_log, "Reading a token: ")); + yychar = madlex(); +# ifdef EBCDIC + if (yychar >= 0 && yychar < 255) { + yychar = NATIVE_TO_ASCII(yychar); + } +# endif + } + + if (yychar <= YYEOF) { + yychar = yytoken = YYEOF; + YYDPRINTF ((Perl_debug_log, "Now at end of input.\n")); + } + else { + yytoken = YYTRANSLATE (yychar); + YYDSYMPRINTF ("Next token is", yytoken, &yylval); + } + + /* If the proper action on seeing token YYTOKEN is to reduce or to + detect an error, take that action. */ + yyn += yytoken; + if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) + goto yydefault; + yyn = yytable[yyn]; + if (yyn <= 0) { + if (yyn == 0 || yyn == YYTABLE_NINF) + goto yyerrlab; + yyn = -yyn; + goto yyreduce; + } + + if (yyn == YYFINAL) + YYACCEPT; + + /* Shift the lookahead token. */ + YYDPRINTF ((Perl_debug_log, "Shifting token %s, ", yytname[yytoken])); + + /* Discard the token being shifted unless it is eof. */ + if (yychar != YYEOF) + yychar = YYEMPTY; + + *++yyvsp = yylval; +#ifdef DEBUGGING + *++yynsp = (const char *)(yytname[yytoken]); +#endif + + + /* Count tokens shifted since error; after three, turn off error + status. */ + if (yyerrstatus) + yyerrstatus--; + + yystate = yyn; + YYDPRINTF ((Perl_debug_log, "Entering state %d\n", yystate)); + + goto yynewstate; + + + /*-----------------------------------------------------------. + | yydefault -- do the default action for the current state. | + `-----------------------------------------------------------*/ + yydefault: + yyn = yydefact[yystate]; + if (yyn == 0) + goto yyerrlab; + goto yyreduce; + + + /*-----------------------------. + | yyreduce -- Do a reduction. | + `-----------------------------*/ + yyreduce: + /* yyn is the number of a rule to reduce with. */ + yylen = yyr2[yyn]; + + /* If YYLEN is nonzero, implement the default value of the action: + `$$ = $1'. + + Otherwise, the following line sets YYVAL to garbage. + This behavior is undocumented and Bison + users should not rely upon it. Assigning to YYVAL + unconditionally makes the parser a bit smaller, and it avoids a + GCC warning that YYVAL may be used uninitialized. */ + yyval = yyvsp[1-yylen]; + + + YY_REDUCE_PRINT (yyn); + switch (yyn) { + +/* contains all the rule actions; auto-generated from madly.y */ + +#define dep() deprecate("\"do\" to call subroutines") +#include "madly.act" + + } + + yyvsp -= yylen; + yyssp -= yylen; +#ifdef DEBUGGING + yynsp -= yylen; +#endif + + + *++yyvsp = yyval; +#ifdef DEBUGGING + *++yynsp = (const char *)(yytname [yyr1[yyn]]); +#endif + + /* Now `shift' the result of the reduction. Determine what state + that goes to, based on the state we popped back to and the rule + number reduced by. */ + + yyn = yyr1[yyn]; + + yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; + if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) + yystate = yytable[yystate]; + else + yystate = yydefgoto[yyn - YYNTOKENS]; + + YYDPRINTF ((Perl_debug_log, "Entering state %d\n", yystate)); + +#ifdef DEBUGGING + /* tmp push yystate for stack print; this is normally pushed later in + * yynewstate */ + yyssp++; + *yyssp = yystate; + YY_STACK_PRINT (yyss, yyssp, yyvs, yyns); + yyssp--; +#endif + + goto yynewstate; + + + /*------------------------------------. + | yyerrlab -- here on detecting error | + `------------------------------------*/ + yyerrlab: + /* If not already recovering from an error, report this error. */ + if (!yyerrstatus) { + ++yynerrs; +#if YYERROR_VERBOSE + yyn = yypact[yystate]; + + if (YYPACT_NINF < yyn && yyn < YYLAST) { + YYSIZE_T yysize = 0; + int yytype = YYTRANSLATE (yychar); + char *yymsg; + int yyx, yycount; + + yycount = 0; + /* Start YYX at -YYN if negative to avoid negative indexes in + YYCHECK. */ + for (yyx = yyn < 0 ? -yyn : 0; + yyx < (int) (sizeof (yytname) / sizeof (char *)); yyx++) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) + yysize += yystrlen (yytname[yyx]) + 15, yycount++; + yysize += yystrlen ("syntax error, unexpected ") + 1; + yysize += yystrlen (yytname[yytype]); + New(yymsg, yysize, char *); + if (yymsg != 0) { + char *yyp = yystpcpy (yymsg, "syntax error, unexpected "); + yyp = yystpcpy (yyp, yytname[yytype]); + + if (yycount < 5) { + yycount = 0; + for (yyx = yyn < 0 ? -yyn : 0; + yyx < (int) (sizeof (yytname) / sizeof (char *)); + yyx++) + { + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) { + const char *yyq = ! yycount ? + ", expecting " : " or "; + yyp = yystpcpy (yyp, yyq); + yyp = yystpcpy (yyp, yytname[yyx]); + yycount++; + } + } + } + yyerror (yymsg); + YYSTACK_FREE (yymsg); + } + else + yyerror ("syntax error; also virtual memory exhausted"); + } + else +#endif /* YYERROR_VERBOSE */ + yyerror ("syntax error"); + } + + + if (yyerrstatus == 3) { + /* If just tried and failed to reuse lookahead token after an + error, discard it. */ + + /* Return failure if at end of input. */ + if (yychar == YYEOF) { + /* Pop the error token. */ + YYPOPSTACK; + /* Pop the rest of the stack. */ + while (yyss < yyssp) { + YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp); + yydestruct (yystos[*yyssp], yyvsp); + YYPOPSTACK; + } + YYABORT; + } + + YYDSYMPRINTF ("Error: discarding", yytoken, &yylval); + yydestruct (yytoken, &yylval); + yychar = YYEMPTY; + + } + + /* Else will try to reuse lookahead token after shifting the error + token. */ + goto yyerrlab1; + + + /*----------------------------------------------------. + | yyerrlab1 -- error raised explicitly by an action. | + `----------------------------------------------------*/ + yyerrlab1: + yyerrstatus = 3; /* Each real token shifted decrements this. */ + + for (;;) { + yyn = yypact[yystate]; + if (yyn != YYPACT_NINF) { + yyn += YYTERROR; + if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) { + yyn = yytable[yyn]; + if (0 < yyn) + break; + } + } + + /* Pop the current state because it cannot handle the error token. */ + if (yyssp == yyss) + YYABORT; + + YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp); + yydestruct (yystos[yystate], yyvsp); + yyvsp--; +#ifdef DEBUGGING + yynsp--; +#endif + yystate = *--yyssp; + + YY_STACK_PRINT (yyss, yyssp, yyvs, yyns); + } + + if (yyn == YYFINAL) + YYACCEPT; + + YYDPRINTF ((Perl_debug_log, "Shifting error token, ")); + + *++yyvsp = yylval; +#ifdef DEBUGGING + *++yynsp =""; +#endif + + yystate = yyn; + YYDPRINTF ((Perl_debug_log, "Entering state %d\n", yystate)); + + goto yynewstate; + + + /*-------------------------------------. + | yyacceptlab -- YYACCEPT comes here. | + `-------------------------------------*/ + yyacceptlab: + yyresult = 0; + goto yyreturn; + + /*-----------------------------------. + | yyabortlab -- YYABORT comes here. | + `-----------------------------------*/ + yyabortlab: + yyresult = 1; + goto yyreturn; + + /*----------------------------------------------. + | yyoverflowlab -- parser overflow comes here. | + `----------------------------------------------*/ + yyoverflowlab: + yyerror ("parser stack overflow"); + yyresult = 2; + /* Fall through. */ + + yyreturn: + + LEAVE; /* force stack free before we return */ + + return yyresult; +}