#include <stdio.h>
#include<dos.h>
#include<stdlib.h>
#include<string.h>
//文法:E->E+E|E*E|(E)|i
//经过消除二义性和左递归后为：
//E->TG
//G->+TG|~
//T->FS
//S->*FS|~
//F->(E)|i
//a保存输入的分析串，b已经分析的串,d保存推导过程中的推导式,e
char a[50] ,b[50],d[200],e[10];
char ch;//当前的分析字符
int n1,i1=0,flag=1,n=5;
//n1表示输入字符串的长度，i1表示当前分析到的字符的下标,flag表示当前是否识别新的字符
//n表示初始的推导式长度为6，故其下标为5
int E();
int E1();
int T();
int G();
int S();
int F();
void input(); /*输出分析串和分析字符*/
void input1();/*输出剩余字符*/
void output(); /*推导式计算*/
void main() /*递归分析*/
{
int f,p,j=0;
char x;
d[0]='E';
d[1]='=';
d[2]='>';
d[3]='T';
d[4]='G';
d[5]='#';
printf("提示:本程序只能对由'i','+','*','(',')'构成的以'#'结束的字符串进行分析,\n");
printf("请输入要分析的字符串:");
do{
scanf("%c",&ch);
a[j]=ch;
j++;
}while(ch!='#');
n1=j; //当前输入字符串的长度
ch=b[0]=a[0];
printf("文法\t分析串\t\t分析字符\t剩余串\n");
f=E1();
if (f==0) return;
if (ch=='#')
{ printf("语法分析成功\n");
p=0;
x=d[p];
while(x!='#')
{
printf("%c",x);p=p+1;x=d[p]; /*输出推导式*/
}
}
else
{
printf("语法分析出现错位\n");
printf("任意键返回\n");
getchar();
return;
}
printf("\n");
printf("任意键回车返回\n");
getchar();
}
int E1()
{ int f,t;
printf("E->TG\t");
flag=1;
input();
input1();
f=T();
if (f==0)
return(0);
t=G();
if (t==0)
return(0);
else return(1);
}
//E->TG,采用最左递归分析方法，所以先调用T（）再调用G（）
int E()
{ int f,t;
printf("E->TG\t");
e[0]='E';e[1]='=';e[2]='>';e[3]='T';e[4]='G';e[5]='#';
output();
flag=1;
input();
input1();
f=T();
if (f==0) return(0);
t=G();
if (t==0)
return(0);
else return(1);
}
//T->FS
int T()
{ int f,t;
printf("T->FS\t");
e[0]='T';e[1]='=';e[2]='>';e[3]='F';e[4]='S';e[5]='#';
output();
flag=1;
input();
input1();
f=F();
if (f==0) return(0);
t=S();
if (t==0) return(0);
else return(1);
}
//G->+TG
int G()
{ int f;
if(ch=='+')
{
b[i1]=ch;
printf("G->+TG\t");
e[0]='G';e[1]='=';e[2]='>';e[3]='+';e[4]='T';e[5]='G';e[6]='#';
output();
flag=0;
input();
input1();
ch=a[++i1];
f=T();
if (f==0)
return(0);
G();//因为G可以为空，所以不用判断，可以直接返回
return(1);
}
printf("G->^\t");
e[0]='G';e[1]='=';e[2]='>';e[3]='^';e[4]='#';
output();
flag=1;
input();
input1();
return(1);
}
//S->*FS
int S()
{
int f,t;
if(ch=='*') {
b[i1]=ch;printf("S->*FS\t");
e[0]='S';e[1]='=';e[2]='>';e[3]='*';e[4]='F';e[5]='S';e[6]='#';
output();
flag=0;
input();input1();
ch=a[++i1];
f=F();
if (f==0) return(0);
t=S();
if (t==0) return(0);
else return(1);}
printf("S->^\t");
e[0]='S';e[1]='=';e[2]='>';e[3]='^';e[4]='#';
output();
flag=1;
a[i1]=ch;
input();input1();
return(1);
}
//F->(E)
int F()
{ int f;
if(ch=='(')
{
b[i1]=ch;printf("F->(E)\t");
e[0]='F';e[1]='=';e[2]='>';e[3]='(';e[4]='E';e[5]=')';e[6]='#';
output();
flag=0;
input();input1();
ch=a[++i1];
f=E();
if (f==0) return(0);
if(ch==')')
{
b[i1]=ch;printf("F->(E)\t");
flag=0;input();input1();
ch=a[++i1];
}
else
{
printf("在F()出错\n");
return(0);
}
}
else if(ch=='i')
{
b[i1]=ch;printf("F->i\t");
e[0]='F';e[1]='=';e[2]='>';e[3]='i';e[4]='#';
output();
flag=0;input();input1();
ch=a[++i1];
}
else
{
printf("在F()出错\n");return(0);
}
return(1);
}
void input()
{
int j=0;
for (;j<=i1-flag;j++)
printf("%c",b[j]); /*输出分析串*/
printf("\t\t");
printf("%c\t\t",ch); /*输出分析字符*/
}
void input1()
{
int j;
for (j=i1+1-flag;j<n1;j++)
printf("%c",a[j]); /*输出剩余字符*/
printf("\n");
}
/*推导式计算,将每次的推导式保存在d数组中，最后输出*/
void output()
{
int m,k,j,q;
int i=0;
m=0;k=0;q=0;
i=n;
d[n]='=';d[n+1]='>';d[n+2]='#';n=n+2;i=n;
i=i-2;
while(d[i]!='>'&&i!=0)
i=i-1;
i=i+1;
while(d[i]!=e[0])
i=i+1;
q=i;
m=q;k=q;
while(d[m]!='>')
m=m-1;
m=m+1;
while(m!=q)
{
d[n]=d[m];m=m+1;n=n+1;
}
d[n]='#';
for(j=3;e[j]!='#';j++)
{
d[n]=e[j];
n=n+1;
}
k=k+1;
while(d[k]!='=')
{
d[n]=d[k];n=n+1;k=k+1;
}
d[n]='#';
}
