递归下降语法分析程序设计

#include <stdio.h>
#include<dos.h>
#include<stdlib.h>
#include<string.h>
char a[50] ,b[50],d[200],e[10];
char ch;
int n1,i1=0,flag=1,n=5;
int total=0;
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("请输入字符串(长度<50,以#号结束）n");
do{
scanf("%c",&ch);
a[j]=ch;
j++;
}while(ch!='#');
n1=j;
ch=b[0]=a[0];
printf("步骤t文法t分析串tt分析字符t剩余串n");
f=E1();
if (f==0) 
return;
if (ch=='#') 
{
printf("acceptn"); 
p=0;
x=d[p];
while(x!='#') 
{
printf("%c",x);p=p+1;x=d[p]; 
}
}
else
{
printf("errorn");
printf("回车返回n");
getchar();
getchar();
return;
}
printf("n");
printf("回车返回n");
getchar();
getchar(); 
}
int E1()
{ 
int f,t;
printf("%dtE-->TGt",total);total++;
flag=1;
input();
input1();
f=T();
if (f==0)return(0);
t=G();
if (t==0)
return(0);
else 
return(1);
}
int E()
{ 
int f,t;
printf("%dtE-->TGt",total);
total++;
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);
}

int T()
{ 
int f,t;
printf("%dtT-->FSt",total);total++;
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);
}
int G()
{ 
int f;
if(ch=='+') 
{ 
b[i1]=ch;
printf("%dtG-->+TGt",total);total++;
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();
return(1);
}
printf("%dtG-->^t",total);total++;
e[0]='G';e[1]='=';e[2]='>';e[3]='^';e[4]='#';
output();
flag=1;
input();input1();
return(1);
}

int S()
{
int f,t;
if(ch=='*') 
{
b[i1]=ch;printf("%dtS-->*FSt",total);total++;
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("%dtS-->^t",total);total++;
e[0]='S';e[1]='=';e[2]='>';e[3]='^';e[4]='#';
output();
flag=1;
a[i1]=ch;
input();
input1();
return(1);
}
int F()
{ 
int f;
if(ch=='(') 
{
b[i1]=ch;printf("%dtF-->(E)t",total);total++;
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("%dtF-->(E)t",total);
total++;
flag=0;
input();
input1(); 
ch=a[++i1];
}
else
{
printf("errorn");
return(0);
}
}
else if(ch=='i') 
{
b[i1]=ch;printf("%dtF-->it",total);total++;
e[0]='F';e[1]='=';e[2]='>';e[3]='i';e[4]='#';
output();
flag=0;input();input1();
ch=a[++i1];
}
else
{
printf("errorn");
return(0);
}
return(1);
}
void input() 
{
int j=0;
for(;j<=i1-flag;j++)
printf("%c",b[j]); 
printf("tt");
printf("%ctt",ch); 
}

void input1()
{
int j;
for (j=i1+1-flag;j<n1;j++)
printf("%c",a[j]); 
printf("n");
}

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]='#';
system("pause");
}