ll1语法分析a.txt

这是编译原理的源代码

// parseLL1.cpp: implementation of the CparseLL1 class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "face.h"
#include "parseLL1.h"

#include "global.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

/* 静态变量indentno在函数printTree中	*
 * 用于存储当前子树缩进格数,初始为0		*/
 int CparseLL1:: indentno = 0;

    /** 增量/减量缩进宏定义 **/
  #define INDENT indentno+=4
  #define UNINDENT indentno-=4

CparseLL1::CparseLL1()
{
//初始化操作：

//用于读token文件：
 fpnum=0;	//用于gettoken函数

/*纪录当前语法树节点*/
currentP=NULL;

/*为保存类型需要的临时变量*/
temp=NULL;
/*保存当前指针，以便修改后，将其恢复*/
saveP =	NULL;

/*纪录表达式中，未匹配的左括号数目*/
expflag = 0;

/*判断简单表达式处理结束，整个表达式是否处理结束标识*/
/*当是条件表达式时，取假值，简单表达式时，取真值*/
/*用于函数preocess84*/
getExpResult = TRUE; 

/*仅用于数组变量，故初始化为假，遇到数组变量时，将其
  改变为真，以便在函数CparseLL1::process84中，即算术表达式结束时，
  从语法树栈中弹出相应指针，将数组下标表达式的结构链入
  节点中*/
 getExpResult2 = FALSE;

 /*符号栈顶指针*/
 StackTop=NULL;
/*栈空标志*/
 STACKEMPTY=TRUE; 

/*语法树栈顶指针*/
 StackTopPA=NULL;
/*栈空标志*/
 paSTACKEMPTY=TRUE;

/*操作符栈的栈顶指针*/
 OpStackTop=NULL;
/*操作符栈空标志*/
 OpSTACKEMPTY = TRUE;  

/*操作数栈的栈顶指针*/
 NumStackTop=NULL;
/*操作数栈空标志*/	
 NumSTACKEMPTY = TRUE;

}

CparseLL1::~CparseLL1()
{

}

/**************实用函数********************/

/********************************************************
 *********以下是创建语法树所用的各类节点的申请***********
 ********************************************************/

/********************************************************/
/* 函数名 newRootNode									*/	
/* 功  能 创建语法树根节点函数			        		*/
/* 说  明 该函数为语法树创建一个新的根结点      		*/
/*        并将语法树节点成员初始化						*/
/********************************************************/
Cglobal::TreeNode * CparseLL1::newRootNode(void)

{
  /* 在内存中动态申请分配单元，返回指向该单元的语法树结点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));

  int i;
  
  /* 语法树节点指针t为NULL,未能成功分配内存单元 *
   * 将出错信息及行号lineno写入列表文件listing  */
  if (t==NULL)
  {
	  fprintf(listing,"Out of memory error at line %d\n",lineno);
	   Error = TRUE;
  }
  /* 语法树节点指针t不是NULL,成功分配内存单元 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL */
	t->sibling = NULL;
    
	/* 指定新语法树节点t成员:结点类型nodekind为语句类型ProK */
	t->nodekind = ProK;
    
	/* 指定新语法树节点t成员:源代码行号lineno为全局变量lineno */
	t->lineno = lineno;

	for(i=0;i<10;i++) 
	{
		strcpy(t->name[i],"\0");
		t->table[i] = NULL;
	}

  }
  /* 函数返回语法树根节点指针t */
  return t;
}


/********************************************************/
/* 函数名 newPheadNode									*/	
/* 功  能 创建程序头类型语法树节点函数					*/
/* 说  明 该函数为语法树创建一个新的程序头类型结点		*/
/*        并将语法树节点成员初始化						*/
/********************************************************/
Cglobal::TreeNode * CparseLL1:: newPheadNode(void)

{
  /* 在内存中动态申请分配单元，返回指向该单元的语法树结点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));

  int i;
  
  /* 语法树节点指针t为NULL,未能成功分配内存单元 *
   * 将出错信息及行号lineno写入列表文件listing  */
  if (t==NULL)
  {
	  fprintf(listing,"Out of memory error at line %d\n",lineno);
	   Error = TRUE;
  }
  /* 语法树节点指针t不是NULL,成功分配内存单元 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL */
	t->sibling = NULL;
    
	/* 指定新语法树节点t成员:结点类型nodekind为语句类型PheadK */
	t->nodekind = PheadK;
    
	/* 指定新语法树节点t成员:源代码行号lineno为全局变量lineno */
	t->lineno = lineno;
    
	t->idnum = 0;

	for(i=0;i<10;i++) 
	{
		strcpy(t->name[i],"\0");
		t->table[i] = NULL;
	}
	
  }
  /* 函数返回程序头类型语法树节点指针t */
  return t;
}


/********************************************************/
/* 函数名 newDecANode									*/	
/* 功  能 创建声明语法树节点函数,没有指明具体的节点声明 */
/*        类型,在语法树的第二层			                */
/* 说  明 该函数为语法树创建一个新的结点      	     	*/
/*        并将语法树节点成员初始化						*/
/********************************************************/
Cglobal::TreeNode *  CparseLL1::newDecANode(NodeKind kind)

{
  /* 在内存中动态申请分配单元，返回指向该单元的语法树结点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));

  int i;
  
  /* 语法树节点指针t为NULL,未能成功分配内存单元 *
   * 将出错信息及行号lineno写入列表文件listing  */
  if (t==NULL)
  {
	  fprintf(listing,"Out of memory error at line %d\n",lineno);
	  Error = TRUE;
  }
  /* 语法树节点指针t不是NULL,成功分配内存单元 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL */
	t->sibling = NULL;

	/* 指定新语法树节点t成员:结点类型nodekind为参数kind */
	t->nodekind = kind;
	
	/* 指定新语法树节点t成员:源代码行号lineno为全局变量lineno */
	t->lineno = lineno;

	for(i=0;i<10;i++) 
	{
		strcpy(t->name[i],"\0");
		t->table[i] = NULL;
	}
  }
  /* 函数返回语法树根节点指针t */
  return t;
}


//尝试

/********************************************************/
/* 函数名 newTypeNode									*/
/* 功  能 类型标志语法树节点创建函数					*/
/* 说  明 该函数为语法树创建一个新的类型标志结点，      */
/*        表示在它之下的声明都为类型声明，        		*/
/*        并将语法树节点的成员初始化					*/
/********************************************************/
Cglobal::TreeNode *CparseLL1:: newTypeNode()

{ 
  /* 内存中动态申请分配单元，返回指向该单元的语法树节点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));
  
  int i;

  /* 语法树节点指针t为NULL,未能成功分配内存单元		*
   * 将出错信息及行号lineno写入列表文件listing		*/
  if (t==NULL)
    fprintf(listing,"Out of memory error at line %d\n",lineno);

  /* 语法树节点指针t不是NULL,内存单元已经成功分配 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL(空) */
   	t->sibling = NULL;

	/* 指定新语法树节点t成员: 结点类型nodekind为表达式类型ExpK */
	t->nodekind = TypeK;


	/* 指定新语法树节点t成员: 源代码行号lineno为全局变量lineno */
    t->lineno = lineno;
   
	t->idnum = 0;
	/*初始化符号表地址指针*/
	for (int i=0;i<10;i++)
	   t->table[i] = NULL;

  }

  /* 函数返回表达式类型语法树结点指针t */
  return t;
}

/********************************************************/
/* 函数名 newVarNode									*/
/* 功  能 变量声明标志语法树节点创建函数				*/
/* 说  明 该函数为语法树创建一个新的变量声明标志结点，
/*         表示在它之下的声明都为变量声明，           	*/
/*        并将语法树节点的成员初始化					*/
/********************************************************/
Cglobal::TreeNode *  CparseLL1::newVarNode()

{ 
  /* 内存中动态申请分配单元，返回指向该单元的语法树节点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));
  
  int i;

  /* 语法树节点指针t为NULL,未能成功分配内存单元		*
   * 将出错信息及行号lineno写入列表文件listing		*/
  if (t==NULL)
    fprintf(listing,"Out of memory error at line %d\n",lineno);

  /* 语法树节点指针t不是NULL,内存单元已经成功分配 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL(空) */
   	t->sibling = NULL;

	/* 指定新语法树节点t成员: 结点类型nodekind为表达式类型ExpK */
	t->nodekind = VarK;

	/* 指定新语法树节点t成员: 源代码行号lineno为全局变量lineno */
    t->lineno = lineno;

    t->idnum = 0;
	/*初始化符号表地址指针*/
	for (int i=0;i<10;i++)
	   t->table[i] = NULL;
  }

  /* 函数返回表达式类型语法树结点指针t */
  return t;
}

//试试，如果行的话，就把它们合成一个！！！！

/********************************************************/
/* 函数名 newDecNode									*/	
/* 功  能 创建声明类型语法树节点函数					*/
/* 说  明 该函数为语法树创建一个新的声明类型结点		*/
/*        并将语法树节点成员初始化						*/
/********************************************************/
Cglobal::TreeNode *  CparseLL1::newDecNode(void)

{
  /* 在内存中动态申请分配单元，返回指向该单元的语法树结点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));

  int i;
  
  /* 语法树节点指针t为NULL,未能成功分配内存单元 *
   * 将出错信息及行号lineno写入列表文件listing  */
  if (t==NULL)
  {
	  fprintf(listing,"Out of memory error at line %d\n",lineno);
	  Error = TRUE;
  }

  /* 语法树节点指针t不是NULL,成功分配内存单元 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL */
	t->sibling = NULL;
    
	/* 指定新语法树节点t成员:结点类型nodekind为语句类型DecK*/
	t->nodekind = DecK;
    
	/* 指定新语法树节点t成员:源代码行号lineno为全局变量lineno */
	t->lineno = lineno;
    
	t->idnum=0;

	for(i=0;i<10;i++) 
	{
		strcpy(t->name[i],"\0");
		t->table[i] = NULL;
	}

  }
  /* 函数返回声明类型语法树节点指针t */
  return t;
}


/********************************************************/
/* 函数名 newProcNode									*/	
/* 功  能 创建函数类型语法树节点函数					*/
/* 说  明 该函数为语法树创建一个新的函数类型结点		*/
/*        并将语法树节点成员初始化						*/
/********************************************************/
Cglobal::TreeNode *  CparseLL1::newProcNode(void)

{
  /* 在内存中动态申请分配单元，返回指向该单元的语法树结点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));

  int i;
  
  /* 语法树节点指针t为NULL,未能成功分配内存单元 *
   * 将出错信息及行号lineno写入列表文件listing  */
  if (t==NULL)
  {
	  fprintf(listing,"Out of memory error at line %d\n",lineno);
      Error = TRUE;
  }
  /* 语法树节点指针t不是NULL,成功分配内存单元 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL */
	t->sibling = NULL;
    
	/* 指定新语法树节点t成员:结点类型nodekind为语句类型ProcDecK */
	t->nodekind = ProcDecK;

    
	/* 指定新语法树节点t成员:源代码行号lineno为全局变量lineno */
	t->lineno = lineno;

    t->idnum = 0;

	for(i=0;i<10;i++) 
	{
		strcpy(t->name[i],"\0");
		t->table[i] = NULL;
	}

  }
  /* 函数返回语句类型语法树节点指针t */
  return t;
}

/********************************************************/
/* 函数名 newStmlNode									*/	
/* 功  能 创建语句标志类型语法树节点函数				*/
/* 说  明 该函数为语法树创建一个新的语句标志类型结点	*/
/*        并将语法树节点成员初始化						*/
/********************************************************/
Cglobal::TreeNode *  CparseLL1::newStmlNode(void)

{
  /* 在内存中动态申请分配单元，返回指向该单元的语法树结点类型指针t */
  TreeNode * t = (TreeNode *) malloc(sizeof(TreeNode));

  int i;
  
  /* 语法树节点指针t为NULL,未能成功分配内存单元 *
   * 将出错信息及行号lineno写入列表文件listing  */
  if (t==NULL)
  {
	  fprintf(listing,"Out of memory error at line %d\n",lineno);
	  Error = TRUE;
  }
  /* 语法树节点指针t不是NULL,成功分配内存单元 */
  else {

	/* 初始化新语法树节点t各子节点child[i]为NULL */
    for (i=0;i<MAXCHILDREN;i++) t->child[i] = NULL;

	/* 初始化新语法树节点t兄弟节点sibling为NULL */