[wxWidgets.git] / src / common / dosyacc.c

#ifndef lint
static char yysccsid[] = "@(#)yaccpar     1.7 (Berkeley) 09/09/90";
#endif
#define YYBYACC 1
#line 2 "parser.y"
#include "string.h"
#ifdef _MSC_VER
#include <io.h>
#endif
#include "wx/expr.h"

#ifndef __EXTERN_C__
#define __EXTERN_C__ 1
#endif

#if defined(__cplusplus) || defined(__STDC__)
#if defined(__cplusplus) && defined(__EXTERN_C__)
extern "C" {
#endif
#endif
int yylex(void);
int yylook(void);
int yywrap(void);
int yyback(int *, int);

/* You may need to put /DLEX_SCANNER in your makefile
 * if you're using LEX!
 */
#ifdef LEX_SCANNER
/* int yyoutput(int); */
void yyoutput(int);
#else
void yyoutput(int);
#endif

#if defined(__cplusplus) || defined(__STDC__)
#if defined(__cplusplus) && defined(__EXTERN_C__)
}
#endif
#endif
#line 36 "parser.y"
typedef union {
    char *s;
/*    struct pexpr *expr; */
} YYSTYPE;
#line 44 "y_tab.c"
#define INTEGER 1
#define WORD 2
#define STRING 3
#define PERIOD 13
#define OPEN 4
#define CLOSE 5
#define COMMA 6
#define NEWLINE 7
#define ERROR 8
#define OPEN_SQUARE 9
#define CLOSE_SQUARE 10
#define EQUALS 11
#define EXP 14
#define YYERRCODE 256
short yylhs[] = {                                        -1,
    0,    0,    1,    1,    1,    2,    2,    2,    3,    3,
    3,    4,    4,    5,    5,    5,    5,    5,    5,    5,
};
short yylen[] = {                                         2,
    0,    2,    2,    2,    2,    4,    2,    3,    0,    1,
    3,    3,    1,    1,    1,    1,    3,    3,    5,    1,
};
short yydefred[] = {                                      1,
    0,    0,    0,    0,    2,    0,    5,    3,    0,    0,
    0,   15,    7,   20,    0,    0,   13,    4,    0,    0,
    0,    0,    8,    0,    6,    0,   18,    0,   12,   11,
    0,   19,
};
short yydgoto[] = {                                       1,
    5,   14,   15,   16,   17,
};
short yysindex[] = {                                      0,
   -2,    9,    2,    1,    0,   10,    0,    0,   11,   -5,
   17,    0,    0,    0,   14,   -1,    0,    0,   33,   38,
   41,   16,    0,   11,    0,   29,    0,   40,    0,    0,
   44,    0,
};
short yyrindex[] = {                                      0,
    0,    0,    0,    0,    0,    0,    0,    0,   42,   21,
   24,    0,    0,    0,    0,   30,    0,    0,    0,    0,
    0,    0,    0,   31,    0,   27,    0,   24,    0,    0,
    0,    0,
};
short yygindex[] = {                                      0,
    0,   45,   -8,    0,   26,
};
#define YYTABLESIZE 254
short yytable[] = {                                       3,
   19,   10,   11,   12,   24,    9,    4,   20,   21,    4,
   13,   10,   11,   12,    8,   30,   10,   28,   12,    4,
    9,    7,   18,   23,    4,   16,   16,   22,   14,   14,
   16,   17,   17,   14,   10,    9,   17,   25,   26,   10,
    9,   27,   31,    9,   32,    6,    9,   29,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    2,
};
short yycheck[] = {                                       2,
    9,    1,    2,    3,    6,    4,    9,   13,   14,    9,
   10,    1,    2,    3,   13,   24,    1,    2,    3,    9,
    4,   13,   13,   10,    9,    5,    6,   11,    5,    6,
   10,    5,    6,   10,    5,    5,   10,    5,    1,   10,
   10,    1,   14,    4,    1,    1,    5,   22,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,  256,
};
#define YYFINAL 1
#ifndef YYDEBUG
#define YYDEBUG 0
#endif
#define YYMAXTOKEN 14
#if YYDEBUG
char *yyname[] = {
"end-of-file","INTEGER","WORD","STRING","OPEN","CLOSE","COMMA","NEWLINE",
"ERROR","OPEN_SQUARE","CLOSE_SQUARE","EQUALS",0,"PERIOD","EXP",
};
char *yyrule[] = {
"$accept : commands",
"commands :",
"commands : commands command",
"command : WORD PERIOD",
"command : expr PERIOD",
"command : error PERIOD",
"expr : WORD OPEN arglist CLOSE",
"expr : OPEN_SQUARE CLOSE_SQUARE",
"expr : OPEN_SQUARE arglist CLOSE_SQUARE",
"arglist :",
"arglist : arg",
"arglist : arg COMMA arglist",
"arg : WORD EQUALS arg1",
"arg : arg1",
"arg1 : WORD",
"arg1 : STRING",
"arg1 : INTEGER",
"arg1 : INTEGER PERIOD INTEGER",
"arg1 : INTEGER EXP INTEGER",
"arg1 : INTEGER PERIOD INTEGER EXP INTEGER",
"arg1 : expr",
};
#endif
#define yyclearin (yychar=(-1))
#define yyerrok (yyerrflag=0)
#ifdef YYSTACKSIZE
#ifndef YYMAXDEPTH
#define YYMAXDEPTH YYSTACKSIZE
#endif
#else
#ifdef YYMAXDEPTH
#define YYSTACKSIZE YYMAXDEPTH
#else
#define YYSTACKSIZE 600
#define YYMAXDEPTH 600
#endif
#endif
int yydebug;
int yynerrs;
int yyerrflag;
int yychar;
short *yyssp;
YYSTYPE *yyvsp;
YYSTYPE yyval;
YYSTYPE yylval;
short yyss[YYSTACKSIZE];
YYSTYPE yyvs[YYSTACKSIZE];
#define yystacksize YYSTACKSIZE
#line 118 "parser.y"

#ifdef IDE_INVOKED
#include "../common/doslex.c"
#else
#include "../common/lex_yy.c"
#endif

/*
void yyerror(s)
char *s;
{
  syntax_error(s);
}
*/

/* Ansi prototype. If this doesn't work for you... uncomment
   the above instead.
 */

void yyerror(char *s)
{
  syntax_error(s);
}

/*
 * Unfortunately, my DOS version of FLEX
 * requires yywrap to be #def'ed, whereas
 * the UNIX flex expects a proper function.
 */

/* Not sure if __SC__ is the appropriate thing
 * to test
 */

#ifndef __SC__
#ifdef USE_DEFINE
#ifndef yywrap
#define yywrap() 1
#endif
#else
int yywrap() { return 1; }
#endif
#endif
#line 247 "y_tab.c"
#define YYABORT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab
int
yyparse()
{
    register int yym, yyn, yystate;
#if YYDEBUG
    register char *yys;
    extern char *getenv();

    if (yys = getenv("YYDEBUG"))
    {
        yyn = *yys;
        if (yyn >= '0' && yyn <= '9')
            yydebug = yyn - '0';
    }
#endif

    yynerrs = 0;
    yyerrflag = 0;
    yychar = (-1);

    yyssp = yyss;
    yyvsp = yyvs;
    *yyssp = yystate = 0;

yyloop:
    if (yyn = yydefred[yystate]) goto yyreduce;
    if (yychar < 0)
    {
        if ((yychar = yylex()) < 0) yychar = 0;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("yydebug: state %d, reading %d (%s)\n", yystate,
                    yychar, yys);
        }
#endif
    }
    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
#if YYDEBUG
        if (yydebug)
            printf("yydebug: state %d, shifting to state %d\n",
                    yystate, yytable[yyn]);
#endif
        if (yyssp >= yyss + yystacksize - 1)
        {
            goto yyoverflow;
        }
        *++yyssp = yystate = yytable[yyn];
        *++yyvsp = yylval;
        yychar = (-1);
        if (yyerrflag > 0)  --yyerrflag;
        goto yyloop;
    }
    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
        yyn = yytable[yyn];
        goto yyreduce;
    }
    if (yyerrflag) goto yyinrecovery;
#ifdef lint
    goto yynewerror;
#endif
yynewerror:
    yyerror("syntax error");
#ifdef lint
    goto yyerrlab;
#endif
yyerrlab:
    ++yynerrs;
yyinrecovery:
    if (yyerrflag < 3)
    {
        yyerrflag = 3;
        for (;;)
        {
            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
            {
#if YYDEBUG
                if (yydebug)
                    printf("yydebug: state %d, error recovery shifting\
 to state %d\n", *yyssp, yytable[yyn]);
#endif
                if (yyssp >= yyss + yystacksize - 1)
                {
                    goto yyoverflow;
                }
                *++yyssp = yystate = yytable[yyn];
                *++yyvsp = yylval;
                goto yyloop;
            }
            else
            {
#if YYDEBUG
                if (yydebug)
                    printf("yydebug: error recovery discarding state %d\n",
                            *yyssp);
#endif
                if (yyssp <= yyss) goto yyabort;
                --yyssp;
                --yyvsp;
            }
        }
    }
    else
    {
        if (yychar == 0) goto yyabort;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("yydebug: state %d, error recovery discards token %d (%s)\n",
                    yystate, yychar, yys);
        }
#endif
        yychar = (-1);
        goto yyloop;
    }
yyreduce:
#if YYDEBUG
    if (yydebug)
        printf("yydebug: state %d, reducing by rule %d (%s)\n",
                yystate, yyn, yyrule[yyn]);
#endif
    yym = yylen[yyn];
    yyval = yyvsp[1-yym];
    switch (yyn)
    {
case 3:
#line 68 "parser.y"
{process_command(proio_cons(wxmake_word(yyvsp[-1].s), NULL)); free(yyvsp[-1].s);}
break;
case 4:
#line 70 "parser.y"
{process_command(yyvsp[-1].s);}
break;
case 5:
#line 72 "parser.y"
{syntax_error("Unrecognized command.");}
break;
case 6:
#line 76 "parser.y"
{yyval.s = proio_cons(wxmake_word(yyvsp[-3].s), yyvsp[-1].s); free(yyvsp[-3].s);}
break;
case 7:
#line 78 "parser.y"
{yyval.s = proio_cons(NULL, NULL);}
break;
case 8:
#line 80 "parser.y"
{yyval.s = yyvsp[-1].s; }
break;
case 9:
#line 84 "parser.y"
{yyval.s = NULL;}
break;
case 10:
#line 86 "parser.y"
{yyval.s = proio_cons(yyvsp[0].s, NULL);}
break;
case 11:
#line 89 "parser.y"
{yyval.s = proio_cons(yyvsp[-2].s, yyvsp[0].s);}
break;
case 12:
#line 93 "parser.y"
{yyval.s = proio_cons(wxmake_word("="), proio_cons(wxmake_word(yyvsp[-2].s), proio_cons(yyvsp[0].s, NULL)));
                         free(yyvsp[-2].s); }
break;
case 13:
#line 96 "parser.y"
{yyval.s = yyvsp[0].s; }
break;
case 14:
#line 99 "parser.y"
{yyval.s = wxmake_word(yyvsp[0].s); free(yyvsp[0].s);}
break;
case 15:
#line 101 "parser.y"
{yyval.s = wxmake_string(yyvsp[0].s); free(yyvsp[0].s);}
break;
case 16:
#line 103 "parser.y"
{yyval.s = wxmake_integer(yyvsp[0].s); free(yyvsp[0].s);}
break;
case 17:
#line 105 "parser.y"
{yyval.s = wxmake_real(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); }
break;
case 18:
#line 107 "parser.y"
{yyval.s = wxmake_exp(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); }
break;
case 19:
#line 110 "parser.y"
{yyval.s = wxmake_exp2(yyvsp[-4].s, yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-4].s); free(yyvsp[-2].s);
                                                                  free(yyvsp[0].s); }
break;
case 20:
#line 114 "parser.y"
{yyval.s = yyvsp[0].s;}
break;
#line 461 "y_tab.c"
    }
    yyssp -= yym;
    yystate = *yyssp;
    yyvsp -= yym;
    yym = yylhs[yyn];
    if (yystate == 0 && yym == 0)
    {
#if YYDEBUG
        if (yydebug)
            printf("yydebug: after reduction, shifting from state 0 to\
 state %d\n", YYFINAL);
#endif
        yystate = YYFINAL;
        *++yyssp = YYFINAL;
        *++yyvsp = yyval;
        if (yychar < 0)
        {
            if ((yychar = yylex()) < 0) yychar = 0;
#if YYDEBUG
            if (yydebug)
            {
                yys = 0;
                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                if (!yys) yys = "illegal-symbol";
                printf("yydebug: state %d, reading %d (%s)\n",
                        YYFINAL, yychar, yys);
            }
#endif
        }
        if (yychar == 0) goto yyaccept;
        goto yyloop;
    }
    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
        yystate = yytable[yyn];
    else
        yystate = yydgoto[yym];
#if YYDEBUG
    if (yydebug)
        printf("yydebug: after reduction, shifting from state %d \
to state %d\n", *yyssp, yystate);
#endif
    if (yyssp >= yyss + yystacksize - 1)
    {
        goto yyoverflow;
    }
    *++yyssp = yystate;
    *++yyvsp = yyval;
    goto yyloop;
yyoverflow:
    yyerror("yacc stack overflow");
yyabort:
    return (1);
yyaccept:
    return (0);
}
Commit	Line	Data
2bda0e17 KB	1	#ifndef lint
	2	static char yysccsid[] = "@(#)yaccpar 1.7 (Berkeley) 09/09/90";
	3	#endif
	4	#define YYBYACC 1
	5	#line 2 "parser.y"
	6	#include "string.h"
b8c631bb JS	7	#ifdef _MSC_VER
	8	#include <io.h>
	9	#endif
2bda0e17 KB	10	#include "wx/expr.h"
	11
	12	#ifndef __EXTERN_C__
	13	#define __EXTERN_C__ 1
	14	#endif
	15
	16	#if defined(__cplusplus) \|\| defined(__STDC__)
	17	#if defined(__cplusplus) && defined(__EXTERN_C__)
	18	extern "C" {
	19	#endif
	20	#endif
	21	int yylex(void);
	22	int yylook(void);
	23	int yywrap(void);
	24	int yyback(int *, int);
	25
	26	/* You may need to put /DLEX_SCANNER in your makefile
	27	* if you're using LEX!
2bda0e17 KB	28	*/
	29	#ifdef LEX_SCANNER
	30	/* int yyoutput(int); */
	31	void yyoutput(int);
	32	#else
	33	void yyoutput(int);
	34	#endif
	35
	36	#if defined(__cplusplus) \|\| defined(__STDC__)
	37	#if defined(__cplusplus) && defined(__EXTERN_C__)
	38	}
	39	#endif
	40	#endif
	41	#line 36 "parser.y"
	42	typedef union {
	43	char *s;
	44	/* struct pexpr expr; /
	45	} YYSTYPE;
	46	#line 44 "y_tab.c"
	47	#define INTEGER 1
	48	#define WORD 2
	49	#define STRING 3
	50	#define PERIOD 13
	51	#define OPEN 4
	52	#define CLOSE 5
	53	#define COMMA 6
	54	#define NEWLINE 7
	55	#define ERROR 8
	56	#define OPEN_SQUARE 9
	57	#define CLOSE_SQUARE 10
	58	#define EQUALS 11
	59	#define EXP 14
	60	#define YYERRCODE 256
	61	short yylhs[] = { -1,
	62	0, 0, 1, 1, 1, 2, 2, 2, 3, 3,
	63	3, 4, 4, 5, 5, 5, 5, 5, 5, 5,
	64	};
	65	short yylen[] = { 2,
	66	0, 2, 2, 2, 2, 4, 2, 3, 0, 1,
	67	3, 3, 1, 1, 1, 1, 3, 3, 5, 1,
	68	};
	69	short yydefred[] = { 1,
	70	0, 0, 0, 0, 2, 0, 5, 3, 0, 0,
	71	0, 15, 7, 20, 0, 0, 13, 4, 0, 0,
	72	0, 0, 8, 0, 6, 0, 18, 0, 12, 11,
	73	0, 19,
	74	};
	75	short yydgoto[] = { 1,
	76	5, 14, 15, 16, 17,
	77	};
	78	short yysindex[] = { 0,
	79	-2, 9, 2, 1, 0, 10, 0, 0, 11, -5,
	80	17, 0, 0, 0, 14, -1, 0, 0, 33, 38,
	81	41, 16, 0, 11, 0, 29, 0, 40, 0, 0,
	82	44, 0,
	83	};
	84	short yyrindex[] = { 0,
	85	0, 0, 0, 0, 0, 0, 0, 0, 42, 21,
	86	24, 0, 0, 0, 0, 30, 0, 0, 0, 0,
	87	0, 0, 0, 31, 0, 27, 0, 24, 0, 0,
	88	0, 0,
	89	};
	90	short yygindex[] = { 0,
	91	0, 45, -8, 0, 26,
92	};
93	#define YYTABLESIZE 254
94	short yytable[] = { 3,
95	19, 10, 11, 12, 24, 9, 4, 20, 21, 4,
96	13, 10, 11, 12, 8, 30, 10, 28, 12, 4,
97	9, 7, 18, 23, 4, 16, 16, 22, 14, 14,
98	16, 17, 17, 14, 10, 9, 17, 25, 26, 10,
99	9, 27, 31, 9, 32, 6, 9, 29, 0, 0,
100	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
101	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
102	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
103	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
104	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
105	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
106	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
107	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
108	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
109	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
110	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
111	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
112	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
113	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
114	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
115	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
116	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
117	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
118	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
119	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
120	0, 0, 0, 2,
121	};
122	short yycheck[] = { 2,
123	9, 1, 2, 3, 6, 4, 9, 13, 14, 9,
124	10, 1, 2, 3, 13, 24, 1, 2, 3, 9,
125	4, 13, 13, 10, 9, 5, 6, 11, 5, 6,
126	10, 5, 6, 10, 5, 5, 10, 5, 1, 10,
127	10, 1, 14, 4, 1, 1, 5, 22, -1, -1,
128	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
129	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
130	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
131	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
132	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
133	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
134	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
135	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
136	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
137	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
138	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
139	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
140	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
141	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
142	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
143	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
144	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
145	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
146	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
147	-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
148	-1, -1, -1, 256,
149	};
150	#define YYFINAL 1
151	#ifndef YYDEBUG
152	#define YYDEBUG 0
153	#endif
154	#define YYMAXTOKEN 14
155	#if YYDEBUG
156	char *yyname[] = {
157	"end-of-file","INTEGER","WORD","STRING","OPEN","CLOSE","COMMA","NEWLINE",
158	"ERROR","OPEN_SQUARE","CLOSE_SQUARE","EQUALS",0,"PERIOD","EXP",
159	};
160	char *yyrule[] = {
161	"$accept : commands",
162	"commands :",
163	"commands : commands command",
164	"command : WORD PERIOD",
165	"command : expr PERIOD",
166	"command : error PERIOD",
167	"expr : WORD OPEN arglist CLOSE",
168	"expr : OPEN_SQUARE CLOSE_SQUARE",
169	"expr : OPEN_SQUARE arglist CLOSE_SQUARE",
170	"arglist :",
171	"arglist : arg",
172	"arglist : arg COMMA arglist",
173	"arg : WORD EQUALS arg1",
174	"arg : arg1",
175	"arg1 : WORD",
176	"arg1 : STRING",
177	"arg1 : INTEGER",
178	"arg1 : INTEGER PERIOD INTEGER",
179	"arg1 : INTEGER EXP INTEGER",
180	"arg1 : INTEGER PERIOD INTEGER EXP INTEGER",
181	"arg1 : expr",
182	};
183	#endif
184	#define yyclearin (yychar=(-1))
185	#define yyerrok (yyerrflag=0)
186	#ifdef YYSTACKSIZE
187	#ifndef YYMAXDEPTH
188	#define YYMAXDEPTH YYSTACKSIZE
189	#endif
190	#else
191	#ifdef YYMAXDEPTH
192	#define YYSTACKSIZE YYMAXDEPTH
193	#else
194	#define YYSTACKSIZE 600
195	#define YYMAXDEPTH 600
196	#endif
197	#endif
198	int yydebug;
199	int yynerrs;
200	int yyerrflag;
201	int yychar;
202	short *yyssp;
203	YYSTYPE *yyvsp;
204	YYSTYPE yyval;
205	YYSTYPE yylval;
206	short yyss[YYSTACKSIZE];
207	YYSTYPE yyvs[YYSTACKSIZE];
208	#define yystacksize YYSTACKSIZE
209	#line 118 "parser.y"
210
a367b9b3 JS	211	#ifdef IDE_INVOKED
	212	#include "../common/doslex.c"
	213	#else
2bda0e17	214	#include "../common/lex_yy.c"
a367b9b3	215	#endif
2bda0e17 KB	216
	217	/*
	218	void yyerror(s)
	219	char *s;
	220	{
	221	syntax_error(s);
	222	}
	223	*/
	224
	225	/* Ansi prototype. If this doesn't work for you... uncomment
	226	the above instead.
	227	*/
	228
	229	void yyerror(char *s)
	230	{
	231	syntax_error(s);
	232	}
	233
	234	/*
	235	* Unfortunately, my DOS version of FLEX
	236	* requires yywrap to be #def'ed, whereas
	237	* the UNIX flex expects a proper function.
	238	*/
	239
	240	/* Not sure if __SC__ is the appropriate thing
	241	* to test
	242	*/
	243
	244	#ifndef __SC__
	245	#ifdef USE_DEFINE
	246	#ifndef yywrap
	247	#define yywrap() 1
	248	#endif
	249	#else
	250	int yywrap() { return 1; }
	251	#endif
	252	#endif
	253	#line 247 "y_tab.c"
	254	#define YYABORT goto yyabort
	255	#define YYACCEPT goto yyaccept
	256	#define YYERROR goto yyerrlab
	257	int
	258	yyparse()
	259	{
	260	register int yym, yyn, yystate;
	261	#if YYDEBUG
	262	register char *yys;
	263	extern char *getenv();
	264
	265	if (yys = getenv("YYDEBUG"))
	266	{
	267	yyn = *yys;
	268	if (yyn >= '0' && yyn <= '9')
	269	yydebug = yyn - '0';
	270	}
	271	#endif
	272
	273	yynerrs = 0;
	274	yyerrflag = 0;
	275	yychar = (-1);
	276
	277	yyssp = yyss;
	278	yyvsp = yyvs;
	279	*yyssp = yystate = 0;
280
281	yyloop:
282	if (yyn = yydefred[yystate]) goto yyreduce;
283	if (yychar < 0)
284	{
285	if ((yychar = yylex()) < 0) yychar = 0;
286	#if YYDEBUG
287	if (yydebug)
288	{
289	yys = 0;
290	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
291	if (!yys) yys = "illegal-symbol";
292	printf("yydebug: state %d, reading %d (%s)\n", yystate,
293	yychar, yys);
294	}
295	#endif
296	}
297	if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
298	yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
299	{
300	#if YYDEBUG
301	if (yydebug)
302	printf("yydebug: state %d, shifting to state %d\n",
303	yystate, yytable[yyn]);
304	#endif
305	if (yyssp >= yyss + yystacksize - 1)
306	{
307	goto yyoverflow;
308	}
309	*++yyssp = yystate = yytable[yyn];
310	*++yyvsp = yylval;
311	yychar = (-1);
312	if (yyerrflag > 0) --yyerrflag;
313	goto yyloop;
314	}
315	if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
316	yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
317	{
318	yyn = yytable[yyn];
319	goto yyreduce;
320	}
321	if (yyerrflag) goto yyinrecovery;
322	#ifdef lint
323	goto yynewerror;
324	#endif
325	yynewerror:
326	yyerror("syntax error");
327	#ifdef lint
328	goto yyerrlab;
329	#endif
330	yyerrlab:
331	++yynerrs;
332	yyinrecovery:
333	if (yyerrflag < 3)
334	{
335	yyerrflag = 3;
336	for (;;)
337	{
338	if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
339	yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
340	{
341	#if YYDEBUG
342	if (yydebug)
343	printf("yydebug: state %d, error recovery shifting\
344	to state %d\n", *yyssp, yytable[yyn]);
345	#endif
346	if (yyssp >= yyss + yystacksize - 1)
347	{
348	goto yyoverflow;
349	}
350	*++yyssp = yystate = yytable[yyn];
351	*++yyvsp = yylval;
352	goto yyloop;
353	}
354	else
355	{
356	#if YYDEBUG
357	if (yydebug)
358	printf("yydebug: error recovery discarding state %d\n",
359	*yyssp);
360	#endif
361	if (yyssp <= yyss) goto yyabort;
362	--yyssp;
363	--yyvsp;
364	}
365	}
366	}
367	else
368	{
369	if (yychar == 0) goto yyabort;
370	#if YYDEBUG
371	if (yydebug)
372	{
373	yys = 0;
374	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
375	if (!yys) yys = "illegal-symbol";
376	printf("yydebug: state %d, error recovery discards token %d (%s)\n",
377	yystate, yychar, yys);
378	}
379	#endif
380	yychar = (-1);
381	goto yyloop;
382	}
383	yyreduce:
384	#if YYDEBUG
385	if (yydebug)
386	printf("yydebug: state %d, reducing by rule %d (%s)\n",
387	yystate, yyn, yyrule[yyn]);
388	#endif
389	yym = yylen[yyn];
390	yyval = yyvsp[1-yym];
391	switch (yyn)
392	{
393	case 3:
394	#line 68 "parser.y"
5b077d48	395	{process_command(proio_cons(wxmake_word(yyvsp[-1].s), NULL)); free(yyvsp[-1].s);}
2bda0e17 KB	396	break;
	397	case 4:
	398	#line 70 "parser.y"
	399	{process_command(yyvsp[-1].s);}
	400	break;
	401	case 5:
	402	#line 72 "parser.y"
	403	{syntax_error("Unrecognized command.");}
	404	break;
	405	case 6:
	406	#line 76 "parser.y"
5b077d48	407	{yyval.s = proio_cons(wxmake_word(yyvsp[-3].s), yyvsp[-1].s); free(yyvsp[-3].s);}
2bda0e17 KB	408	break;
	409	case 7:
	410	#line 78 "parser.y"
	411	{yyval.s = proio_cons(NULL, NULL);}
	412	break;
	413	case 8:
	414	#line 80 "parser.y"
	415	{yyval.s = yyvsp[-1].s; }
	416	break;
	417	case 9:
	418	#line 84 "parser.y"
	419	{yyval.s = NULL;}
	420	break;
	421	case 10:
	422	#line 86 "parser.y"
	423	{yyval.s = proio_cons(yyvsp[0].s, NULL);}
	424	break;
	425	case 11:
	426	#line 89 "parser.y"
	427	{yyval.s = proio_cons(yyvsp[-2].s, yyvsp[0].s);}
	428	break;
	429	case 12:
	430	#line 93 "parser.y"
5b077d48	431	{yyval.s = proio_cons(wxmake_word("="), proio_cons(wxmake_word(yyvsp[-2].s), proio_cons(yyvsp[0].s, NULL)));
2bda0e17 KB	432	free(yyvsp[-2].s); }
	433	break;
	434	case 13:
	435	#line 96 "parser.y"
	436	{yyval.s = yyvsp[0].s; }
	437	break;
	438	case 14:
	439	#line 99 "parser.y"
5b077d48	440	{yyval.s = wxmake_word(yyvsp[0].s); free(yyvsp[0].s);}
2bda0e17 KB	441	break;
	442	case 15:
	443	#line 101 "parser.y"
5b077d48	444	{yyval.s = wxmake_string(yyvsp[0].s); free(yyvsp[0].s);}
2bda0e17 KB	445	break;
	446	case 16:
	447	#line 103 "parser.y"
5b077d48	448	{yyval.s = wxmake_integer(yyvsp[0].s); free(yyvsp[0].s);}
2bda0e17 KB	449	break;
	450	case 17:
	451	#line 105 "parser.y"
5b077d48	452	{yyval.s = wxmake_real(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); }
2bda0e17 KB	453	break;
	454	case 18:
	455	#line 107 "parser.y"
5b077d48	456	{yyval.s = wxmake_exp(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); }
2bda0e17 KB	457	break;
	458	case 19:
	459	#line 110 "parser.y"
5b077d48	460	{yyval.s = wxmake_exp2(yyvsp[-4].s, yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-4].s); free(yyvsp[-2].s);
2bda0e17 KB	461	free(yyvsp[0].s); }
	462	break;
	463	case 20:
	464	#line 114 "parser.y"
	465	{yyval.s = yyvsp[0].s;}
	466	break;
	467	#line 461 "y_tab.c"
	468	}
	469	yyssp -= yym;
	470	yystate = *yyssp;
	471	yyvsp -= yym;
	472	yym = yylhs[yyn];
	473	if (yystate == 0 && yym == 0)
	474	{
	475	#if YYDEBUG
	476	if (yydebug)
	477	printf("yydebug: after reduction, shifting from state 0 to\
	478	state %d\n", YYFINAL);
	479	#endif
	480	yystate = YYFINAL;
	481	*++yyssp = YYFINAL;
	482	*++yyvsp = yyval;
	483	if (yychar < 0)
	484	{
	485	if ((yychar = yylex()) < 0) yychar = 0;
	486	#if YYDEBUG
	487	if (yydebug)
	488	{
	489	yys = 0;
	490	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
	491	if (!yys) yys = "illegal-symbol";
	492	printf("yydebug: state %d, reading %d (%s)\n",
	493	YYFINAL, yychar, yys);
	494	}
	495	#endif
	496	}
	497	if (yychar == 0) goto yyaccept;
	498	goto yyloop;
	499	}
	500	if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
	501	yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
	502	yystate = yytable[yyn];
	503	else
	504	yystate = yydgoto[yym];
	505	#if YYDEBUG
	506	if (yydebug)
	507	printf("yydebug: after reduction, shifting from state %d \
	508	to state %d\n", *yyssp, yystate);
	509	#endif
	510	if (yyssp >= yyss + yystacksize - 1)
	511	{
	512	goto yyoverflow;
	513	}
	514	*++yyssp = yystate;
	515	*++yyvsp = yyval;
	516	goto yyloop;
	517	yyoverflow:
	518	yyerror("yacc stack overflow");
	519	yyabort:
	520	return (1);
	521	yyaccept:
	522	return (0);
	523	}