wfp.c

这个是编译原理的实验~~实验名称为自动机是大学三年级的实验

 
#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]='#';
}