1231 实验四 递归下降语法分析程序设计

#include<stdio.h>
#include<stdlib.h>
#include<malloc.h>
#define READ(ch) ch=getc(fp) /*宏：READ(ch)*/
char ch; /*声明为全局变量*/
int right=0;
FILE *fp;
struct struCH{
char ch;
struct struCH *next;
}struCH,*temp,*head,*shift; /*head指向字符线性链表的头结点*/ /*shift指向动态建成的结点(游标)*/
void E();
void E1();
void T(void);
void T1(void);
void F(void);

void main(int argc,char *argv[])
{
void E (); /* P(E) */
void E1(); /* P(E')*/
void T (); /* P(T) */
void T1(); /* P(T')*/
void F (); /* P(F) */
int errnum=0,k=0,m=0,countchar=0,rownum;
int charerr=0; /*开关控制量*/
if((fp=fopen(argv[1],"r"))==NULL)
{
printf(" Can not open file %s,or not exist it! ",argv[1]);
exit(0);
} /*文件不存在or打不开时，正常退出程序*/
else
printf(" Success open file: %s ",argv[1]); /*成功打开文件*/
while(!feof(fp))
{
READ(ch); /*这里读取字符只是让文件指针往前移*/
countchar++;
} /*统计文件中的字符数(包括换行符及文件结束符)*/
rewind(fp); /*将fp文件指针重新指向文件头处，以备后面对文件的操作*/
if(countchar==0)
{ /*空文件*/
printf(" %s is a blank file! ",argv[1]);
exit(0); /*正常退出本程序*/
}
while(k<(countchar-1))
{ /*加换行符后countchar仍多了一个，不知为何*/
ch=getc(fp);
if(!(ch=='('||ch==')'||ch=='i'||ch=='+'||ch=='-'||ch=='*'||ch=='/'||ch=='#'||ch==' '))
{
charerr=1;errnum++; /*charerror出错标记，errnum统计出错个数*/
}
k++;
}
rewind(fp); /*将fp文件指针重新指向文件头处，以备后面的建链表操作*/
if(charerr==1)
{ /*文件中有非法字符*/
printf(" %d Unindentify characters in file %s ",errnum,argv[1]);
exit(0); /*正常退出本程序*/
}
for(rownum=1;m<(countchar-1);rownum++)
{ /*识别所有行,rownum记录行号*/ /*初始变量及堆栈和*/
right=1; /*初始存放待识别的表达式的线性链表头*/
shift= malloc(sizeof(struCH));/**/
shift->next=NULL;
head=shift; /*读取一行形成线性链表*/
READ(ch);
putchar(ch);
m++;
while(ch!=' '&&m<(countchar))
{ /*行末or到文件尾。最后会读取文件结束符*/ /*读取ch,读取存入结点，这样每行便形成一个线性链表*/
temp=malloc(sizeof(struCH));
temp->ch=ch;
temp->next=NULL;
shift->next=temp;
shift=shift->next;
READ(ch);
if(m!=(countchar-1))
putchar(ch); /*不输出最后一次读取的文件结束符*/
m++;
}
head=head->next; /*消去第一个空头结点,并使head指向非空线性链表*/
shift=head; /*shift指向头结点，以便后面识别操作*/
putchar(' ');
E(); /*开始识别一行*/
if(shift->ch=='#'&&right) /*正确提示:[文件名] Line [行号]:right expression!*/
printf("%s Line %d: right expression! ",argv[1],rownum);
else /*错误提示:[文件名] Line [行号]:error expression!*/
printf("%s Line %d: error expression! ",argv[1],rownum);
putchar(' ');
}/*end for*/
printf("Completed! ");
fclose(fp); /*关闭文件*/
exit(0); /*正常结束程序*/
} /*以下函数分别对应于子模块程序*/
void E()
{
T();
E1();
}
void E1()
{
if(shift->ch=='+'||shift->ch=='-')
{
shift=shift->next;
T();
E1();
}
else
{
if(shift->ch=='#'||shift->ch==')')
return;
else
right=0;
}
}
void T(void)
{
F();
T1();
}
void T1(void)
{
if(shift->ch=='*'||shift->ch=='/')
{
shift=shift->next;
F();
T1();
}
else
{
if(shift->ch!='#'&&shift->ch!=')'&&shift->ch!='+'&&shift->ch!='-')
right=0; /*如果不是'#'or')'or'+'or'+'or'-'则出错*/
}
}
void F(void)
{
if(shift->ch=='i')
shift=shift->next;
else{
if(shift->ch=='(')
{
shift=shift->next;
E();
if(shift->ch==')')
shift=shift->next;
else
right=0;
}
else
right=0;
}
}