LR(0)語法分析

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

//存儲LR(0)分析表
struct node
{
    char ch;
    int num;
};
struct node table[]={
    
    {'s',5},{'t',0},{'t',0},{'s',4},{'t',0},{'t',0},{'t',1},{'t',2},{'t',3},
    {'t',0},{'s',6},{'t',0},{'t',0},{'t',0},{'a',0},{'t',0},{'t',0},{'t',0},
    {'t',0},{'r',2},{'s',7},{'t',0},{'r',2},{'r',2},{'t',0},{'t',0},{'t',0},
    {'t',0},{'r',4},{'r',4},{'t',0},{'r',4},{'r',4},{'t',0},{'t',0},{'t',0},
    {'s',5},{'t',0},{'t',0},{'s',4},{'t',0},{'t',0},{'t',8},{'t',2},{'t',3},
    {'t',0},{'r',6},{'r',6},{'t',0},{'r',6},{'r',6},{'t',0},{'t',0},{'t',0},
    {'s',5},{'t',0},{'t',0},{'s',4},{'t',0},{'t',0},{'t',0},{'t',9},{'t',3},
    {'s',5},{'t',0},{'t',0},{'s',4},{'t',0},{'t',0},{'t',0},{'t',0},{'t',10},
    {'t',0},{'s',6},{'t',0},{'t',0},{'s',11},{'t',0},{'t',0},{'t',0},{'t',0},
    {'t',0},{'r',1},{'s',7},{'t',0},{'r',1},{'r',1},{'t',0},{'t',0},{'t',0},
    {'t',0},{'r',3},{'r',3},{'t',0},{'r',3},{'r',3},{'t',0},{'t',0},{'t',0},
    {'t',0},{'r',5},{'r',5},{'t',0},{'r',5},{'r',5},{'t',0},{'t',0},{'t',0},
};

//符號棧以及狀態棧
struct node1
{
    int pop;
    int data[10];
    char str[10];
}q1;

int total=0; //步驟
int i;       //輸入串下標
int function(int a,char c,int temp);


int main()
{
    
    char ch[20];//存儲輸入串
    
    //棧初始化
    q1.data[0]=0;
    q1.pop=1;
    q1.str[0]='#';
    
    i=0;
    int temp; //下標轉換
    int aaa;  //函數返回值，0代表輸入串成功分析，1代表出錯或者接受

    gets(ch);    //輸入串；
    
    // 輸出表頭和初始化的狀態
    printf("步驟\t狀態棧\t符號棧\t輸入串\t動作\n");
    printf("%d\t%d\t#\t%s\t",++total,q1.data[0],ch);

    
    //循環輸出中間過程
    while(1)
    {
        temp=0;
        //面臨不同的輸入串采取不同的動作，由函數function實現
        if(ch[i] == 'i')
        {
            temp=q1.data[q1.pop-1]*9+0;
            aaa=function(0,'i',temp);
            
        }
        else if(ch[i] == '+')
        {
            temp=q1.data[q1.pop-1]*9+1;
            aaa=function(1,'+',temp);
            
        }
        else if(ch[i] == '*')
        {
            temp=q1.data[q1.pop-1]*9+2;
            aaa=function(2,'*',temp);
            
        }
        else if(ch[i] == '(')
        {
            temp=q1.data[q1.pop-1]*9+3;
            aaa=function(3,'(',temp);
            
        }
        else if(ch[i] == ')')
        {
            temp=q1.data[q1.pop-1]*9+4;
            aaa=function(4,')',temp);
            
        }
        else if(ch[i] == '#')
        {
            temp=q1.data[q1.pop-1]*9+5;
            aaa=function(5,'#',temp);
            
        }
        if(aaa==0)
            break;
        
        //輸出
        printf("%c%d",table[temp].ch,table[temp].num);
        printf("\n");
        q1.str[q1.pop]='\0';
        printf("%d\t",++total);
        for(int k=0;k<q1.pop;k++)
        {
            printf("%d",q1.data[k]);
        }
        printf("\t");
        printf("%s\t",q1.str);
        for(k=i;k<strlen(ch);k++)
            printf("%c",ch[k]);
        printf("\t");    
    }
    return 0;
}


int function(int a,char c,int temp)
{
    
    temp=q1.data[q1.pop-1]*9+a;
    if(table[temp].ch=='s')
    {
        q1.data[q1.pop]=table[temp].num;
        q1.str[q1.pop++]=c;
        i++;
    }
    if(table[temp].ch=='r')
    {
        if(table[temp].num == 1)
        {
            int leag,flag;
            q1.pop=q1.pop-3;
            q1.str[q1.pop]='E';
            leag=q1.data[q1.pop-1]*9+6;
            q1.data[q1.pop]=table[leag].num;
            q1.pop++;
        }
        else if(table[temp].num == 2)
        {
            int leag,flag;
            q1.pop=q1.pop-1;
            q1.str[q1.pop]='E';
            leag=q1.data[q1.pop-1]*9+6;
            q1.data[q1.pop]=table[leag].num;
            q1.pop++;
        }
        else if(table[temp].num == 3)
        {
            int leag,flag;
            q1.pop=q1.pop-3;
            q1.str[q1.pop]='T';
            leag=q1.data[q1.pop-1]*9+7;
            q1.data[q1.pop]=table[leag].num;
            q1.pop++;
        }
        else if(table[temp].num == 4)
        {
            int leag,flag;
            q1.pop=q1.pop-1;
            q1.str[q1.pop]='T';
            leag=q1.data[q1.pop-1]*9+7;
            q1.data[q1.pop]=table[leag].num;
            q1.pop++;
        }
        else if(table[temp].num == 5)
        {
            int leag,flag;
            q1.pop=q1.pop-3;
            q1.str[q1.pop]='F';
            leag=q1.data[q1.pop-1]*9+8;
            q1.data[q1.pop]=table[leag].num;
            q1.pop++;
        }
        else if(table[temp].num == 6)
        {
            int leag,flag;
            q1.pop=q1.pop-1;
            q1.str[q1.pop]='F';
            leag=q1.data[q1.pop-1]*9+8;
            q1.data[q1.pop]=table[leag].num;
            q1.pop++;
        }
        else
        {
            printf("出錯\n");
            return 0;
        }
    }
    if(table[temp].ch=='a')
    {
        printf("接受!\n");
        return 0;
    }
    return 1;
}