?? parse.c
字號:
#include <yacc.h>
#line 1 "E:\\MyVC\\compiler\\cscript1\\parse.y"
#include "stdlib.h"
#include "globals.h"
#include "util.h"
#include "scaner.h"
#include "parser.h"
#define YYSTYPE TreeNode*
static char* savedName;
static int savedLineNo;
static TreeNode* savedTree;
int array_size;
char* current_name;
#line 18 "E:\\MyVC\\compiler\\cscript1\\parse.c"
/* repeated because of possible precompiled header */
#include <yacc.h>
#include "parse.h"
#ifndef YYSTYPE
#define YYSTYPE int
#endif
#ifndef YYSTACK_SIZE
#define YYSTACK_SIZE 100
#endif
/* (state) stack */
#if (YYSTACK_SIZE) != 0
static yystack_t YYNEAR yystack[(YYSTACK_SIZE)];
yystack_t *YYNEAR YYDCDECL yysstackptr = yystack;
yystack_t *YYNEAR YYDCDECL yystackptr = yystack;
#else
yystack_t *YYNEAR YYDCDECL yysstackptr = NULL;
yystack_t *YYNEAR YYDCDECL yystackptr = NULL;
#endif
/* attribute stack */
#if (YYSTACK_SIZE) != 0
static YYSTYPE YYNEAR yyattributestack[(YYSTACK_SIZE)];
#ifdef YYPROTOTYPE
void *YYNEAR YYDCDECL yysattributestackptr = yyattributestack;
void *YYNEAR YYDCDECL yyattributestackptr = yyattributestack;
#else
char *YYNEAR YYDCDECL yysattributestackptr = (char *) yyattributestack;
char *YYNEAR YYDCDECL yyattributestackptr = (char *) yyattributestack;
#endif
#else
#ifdef YYPROTOTYPE
void *YYNEAR YYDCDECL yysattributestackptr = NULL;
void *YYNEAR YYDCDECL yyattributestackptr = NULL;
#else
char *YYNEAR YYDCDECL yysattributestackptr = NULL;
char *YYNEAR YYDCDECL yyattributestackptr = NULL;
#endif
#endif
int YYNEAR YYDCDECL yysstack_size = (YYSTACK_SIZE);
int YYNEAR YYDCDECL yystack_size = (YYSTACK_SIZE);
/* attributes */
YYSTYPE YYNEAR yyval;
YYSTYPE YYNEAR yylval;
#ifdef YYPROTOTYPE
void *YYNEAR YYDCDECL yyvalptr = &yyval;
void *YYNEAR YYDCDECL yylvalptr = &yylval;
#else
char *YYNEAR YYDCDECL yyvalptr = (char *) &yyval;
char *YYNEAR YYDCDECL yylvalptr = (char *) &yylval;
#endif
size_t YYNEAR YYDCDECL yyattribute_size = sizeof(YYSTYPE);
/* yyattribute */
#ifdef YYDEBUG
#ifdef YYPROTOTYPE
static YYSTYPE *yyattribute1(int index)
#else
static YYSTYPE *yyattribute1(index)
int index;
#endif
{
YYSTYPE *p = &((YYSTYPE *) yyattributestackptr)[yytop + index];
return p;
}
#define yyattribute(index) (*yyattribute1(index))
#else
#define yyattribute(index) (((YYSTYPE *) yyattributestackptr)[yytop + (index)])
#endif
#ifdef YYDEBUG
#ifdef YYPROTOTYPE
static void yyinitdebug(YYSTYPE **p, int count)
#else
static void yyinitdebug(p, count)
YYSTYPE **p;
int count;
#endif
{
int i;
yyassert(p != NULL);
yyassert(count >= 1);
for (i = 0; i < count; i++) {
p[i] = &((YYSTYPE *) yyattributestackptr)[yytop + i - (count - 1)];
}
}
#endif
#ifdef YYPROTOTYPE
void YYCDECL yyparseaction(int action)
#else
void YYCDECL yyparseaction(action)
int action;
#endif
{
switch (action) {
case 0:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 29 "E:\\MyVC\\compiler\\cscript1\\parse.y"
savedTree=yyattribute(1 - 1);
#line 130 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 1:
{
#ifdef YYDEBUG
YYSTYPE *yya[3];
yyinitdebug(yya, 3);
#endif
{
#line 33 "E:\\MyVC\\compiler\\cscript1\\parse.y"
YYSTYPE t=yyattribute(1 - 2);
if(t!=NULL)
{
while(t->sibling!=NULL)
t=t->sibling;
t->sibling=yyattribute(2 - 2);
yyval=yyattribute(1 - 2);
}
else
yyval=yyattribute(2 - 2);
#line 154 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 2:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 45 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=yyattribute(1 - 1);
#line 167 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 3:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 49 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=yyattribute(1 - 1);
#line 180 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 4:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 51 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=yyattribute(1 - 1);
#line 193 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 5:
{
#ifdef YYDEBUG
YYSTYPE *yya[4];
yyinitdebug(yya, 4);
#endif
{
#line 55 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newDeclNode(SingleVarK);
yyval->type=yyattribute(1 - 3)->type;
yyval->attr.name=yyattribute(2 - 3)->attr.name;
#line 210 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 6:
{
#ifdef YYDEBUG
YYSTYPE *yya[5];
yyinitdebug(yya, 5);
#endif
{
#line 61 "E:\\MyVC\\compiler\\cscript1\\parse.y"
array_size=atoi(tokenString);
#line 223 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 7:
{
#ifdef YYDEBUG
YYSTYPE *yya[8];
yyinitdebug(yya, 8);
#endif
{
#line 62 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval = newDeclNode(ArrayVarK);
yyval->type=yyattribute(1 - 7)->type;
yyval->attr.name=yyattribute(2 - 7)->attr.name;
yyval->array_size=array_size;
#line 241 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 8:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 71 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newExpNode(IdK);
yyval->type=Integer;
#line 257 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 9:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 76 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newExpNode(IdK);
yyval->type=Char;
#line 273 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 10:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 81 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newExpNode(IdK);
yyval->type=Float;
#line 289 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 11:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 86 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newExpNode(IdK);
yyval->type=Void;
#line 305 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 12:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 93 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newExpNode(IdK);
yyval->attr.name=copyString(tokenString);
#line 321 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 13:
{
#ifdef YYDEBUG
YYSTYPE *yya[7];
yyinitdebug(yya, 7);
#endif
{
#line 100 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newDeclNode(FuncVarK);
yyval->type=yyattribute(1 - 6)->type;
yyval->attr.name=yyattribute(2 - 6)->attr.name;
yyval->child[0]=yyattribute(4 - 6);
yyval->child[1]=yyattribute(6 - 6);
#line 341 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 14:
{
#ifdef YYDEBUG
YYSTYPE *yya[7];
yyinitdebug(yya, 7);
#endif
{
#line 109 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval = newDeclNode(FuncVarK);
yyval->type = yyattribute(1 - 6)->type;
yyval->attr.name=yyattribute(2 - 6)->attr.name;
yyval->child[1] = yyattribute(6 - 6);
#line 359 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 15:
{
#ifdef YYDEBUG
YYSTYPE *yya[6];
yyinitdebug(yya, 6);
#endif
{
#line 116 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval = newDeclNode(FuncVarK);
yyval->type = yyattribute(1 - 5)->type;
yyval->attr.name=yyattribute(2 - 5)->attr.name;
yyval->child[1] = yyattribute(5 - 5);
#line 377 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 16:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 125 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=yyattribute(1 - 1);
#line 390 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 17:
{
#ifdef YYDEBUG
YYSTYPE *yya[4];
yyinitdebug(yya, 4);
#endif
{
#line 129 "E:\\MyVC\\compiler\\cscript1\\parse.y"
YYSTYPE t=yyattribute(1 - 3);
if(t!=NULL)
{
while(t->sibling!=NULL)
t=t->sibling;
t->sibling=yyattribute(3 - 3);
yyval=yyattribute(1 - 3);
}
else
yyval=yyattribute(3 - 3);
#line 414 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 18:
{
#ifdef YYDEBUG
YYSTYPE *yya[2];
yyinitdebug(yya, 2);
#endif
{
#line 142 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=yyattribute(1 - 1);
#line 427 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 19:
{
#ifdef YYDEBUG
YYSTYPE *yya[3];
yyinitdebug(yya, 3);
#endif
{
#line 146 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newDeclNode(SingleVarK);
yyval->attr.name=yyattribute(2 - 2)->attr.name;
yyval->type=yyattribute(1 - 2)->type;
#line 444 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 20:
{
#ifdef YYDEBUG
YYSTYPE *yya[5];
yyinitdebug(yya, 5);
#endif
{
#line 152 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval=newDeclNode(ArrayVarK);
yyval->attr.name=yyattribute(2 - 4)->attr.name;
yyval->type=yyattribute(1 - 4)->type;
yyval->array_size=0;
#line 462 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 21:
{
#ifdef YYDEBUG
YYSTYPE *yya[4];
yyinitdebug(yya, 4);
#endif
{
#line 161 "E:\\MyVC\\compiler\\cscript1\\parse.y"
yyval = newStmtNode(CompoundK);
yyval->child[0] = yyattribute(2 - 3);
#line 478 "E:\\MyVC\\compiler\\cscript1\\parse.c"
}
}
break;
case 22:
{
#ifdef YYDEBUG
YYSTYPE *yya[5];
yyinitdebug(yya, 5);
#endif
{
#line 166 "E:\\MyVC\\compiler\\cscript1\\parse.y"
YYSTYPE t = yyattribute(2 - 4);
if (t != NULL)
{
while (t->sibling != NULL)
t = t->sibling;
t->sibling = yyattribute(3 - 4);
yyval = newStmtNode(CompoundK);
yyval->child[0] = yyattribute(2 - 4);
}
else
{
yyval = newStmtNode(CompoundK);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -