递归下降实战

对下列文法，用递归下降分析法对任意输入的符号串进行分析：
（1）E->TG
（2）G->+TG|-TG
（3）G->ε
（4）T->FS
（5）S->*FS|/FS
（6）S->ε
（7）F-> (E)
（8）F->i

#include <stdio.h>
#include<dos.h>
#include<stdlib.h>
#include<string.h>



/* （1）E->TG （2）G->+TG|-TG （3）G->ε （4）T->FS （5）S->*FS|/FS （6）S->ε （7）F-> (E) （8）F->i */



char a[50] ,b[50],d[200],e[10];
char ch;
int n1,i1=0,flag=1,n=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("请输入字符串(长度<50,以#号结束）\n");
    do{
        scanf("%c",&ch);
        a[j]=ch;
        j++;
    }while(ch!='#');
    //a数组里存的是我们输入的字符串

    n1=j; //字符串长度

    ch=b[0]=a[0]; //第一个字符

    printf("文法\t分析串\t\t分析字符\t剩余串\n");

    f=E1();

    if (f==0) return;
    //int count = 0;
    if (ch=='#')  
    {   printf("accept\n");
        p=0;
        x=d[p];
        while(x!='#') {
            printf("%c",x);p=p+1;x=d[p];
            //count++;/*输出推导式*/

        }
    }
    else {
        printf("error\n");
        printf("回车返回\n");
        getchar();getchar(); 
        return; 
    }
    printf("\n");

    printf("规则如下\n");
    printf("(1)E->TG\n(2)G->+TG|-TG\n(3)G->^\n(4)T->FS\n(5)S->*FS|/FS\n(6)S->^\n(7)F->(E)\n(8)F->i");
    printf("\n\n\n\n回车返回\n");
    getchar();
    getchar();
}


//（1）E->TG
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);
}

int E()
{  //
    int f, t;
    printf("E->TG\t");
    flag = 1;
    e[0] = 'E';e[1] = '=';e[2] = '>';e[3] = 'T';e[4] = 'G';e[5] = '#';
    output();
    input();
    input1();
    f = T();
    if (f == 0) return(0);
    t = G();
    if (t == 0) return(0);
    else return(1);
}

int T() // T-> FS
{   //
    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);
}

//（3）G->ε
//（2）G->+TG|-TG
int  G()
{  //
    int t, g;
    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];
    t = T();
    if(t==0) return (0);
    g = G();
    if(g==0) return (0);

    }
    else 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];
    t = T();
    if(t==0) return (0);
    g = G();
    if(g==0) return (0);

    }
    else
    {
    //b[i1]=ch;
    printf("G->^\t");
    e[0]='G';e[1]='-';e[2]='>';e[3]='^';e[4] = '#';
    output();
    flag = 0;
    input();
    input1();
    //ch = a[++i1];
    }   
    return (1);
}

int S() //S->ε S->*FS|/FS
{
// if(ch == )
    //printf("S %d\n",i1);
    int s;
    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];
    s = F();

    if(s == 0) return (0);
    s = S();
    if(s == 0) return (0);

    }
    else 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];
    s = F();
    if(s == 0) return (0);
    s = S();
    if(s == 0) return (0);

    }
    else
    {
    //b[i1]=ch;
    printf("S->^\t");
    e[0]='S';e[1]='-';e[2]='>';e[3]='^';e[4] = '#';
    output();
    flag = 0;
    input();
    input1();
    //ch = a[++i1];
    }   
    return 1;
}



// F-> (E)
//（8）F->i
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("error in 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]; 
        //printf("ddddd");
        //printf("%c",ch);
    }
       else {printf("error in 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");
}

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