编译原理-算符优先文法代码

实验二 算符优先分析器
#include "stdio.h"
#include "stdlib.h"
#include "iostream.h"
char data[20][20]; //算符优先关系
char s[100]; //模拟符号栈s
char lable[20]; //文法终极符集
char input[100]; //文法输入符号串
char string[20][10]; //用于输入串的分析
int k;
char a;
int j;
char q;
int r; //文法规则个数
int r1; //转化后文法规则个数
char st[10][30]; //用来存储文法规则
char first[10][10]; //文法非终结符FIRSTVT集
char last[10][10]; //文法非终结符LASTVT集
int fflag[10]={0}; //标志第i个非终结符的FIRSTVT集是否已求出
int lflag[10]={0}; //标志第i个非终结符的LASTVT集是否已求出
int deal(); //对输入串的分析
int zhongjie(char c); //判断字符c是否是终极符
int xiabiao(char c); //求字符c在算符优先关系表中的下标
void out(int j,int k,char *s); //打印s栈
void firstvt(char c); //求非终结符c的FIRSTVT集
void lastvt(char c); //求非终结符c的LASTVT集
void table(); //创建文法优先关系表
void main()
{
int i,j,k=0;
printf("请输入文法规则数：");
scanf("%d",&r);
printf("请输入文法规则：\n");
for(i=0;i{
scanf("%s",st[i]); //存储文法规则，初始化FIRSTVT集和LASTVT集*/
first[i][0]=0; /*first[i][0]和last[i][0]分别表示st[i][0]非终极
符的FIRSTVT集和LASTVT集中元素的个数*/
last[i][0]=0;
}
for(i=0;i{
for(j=0;st[i][j]!='\0';j++)
{
if(st[i][0]<'A'||st[i][0]>'Z')//文法首部不符合文法规则
{
printf("不是算符文法!\n");
exit(-1);
}
if(st[i][j]>='A'&&st[i][j]<='Z')//两非终结符直接相连，非算符文法
{
if(st[i][j+1]>='A'&&st[i][j+1]<='Z')
{
printf("不是算符文法!\n");
exit(-1);
}
}
}
}
for(i=0;i{
for(j=0;st[i][j]!='\0';j++)
{
// st[i][j]!='-'&&st[i][j]!='>'&&st[i][j]!='|'是去掉A->B|C的分隔符
if((st[i][j]<'A'||st[i][j]>'Z')&&st[i][j]!='-'&&st[i][j]!='>'&&st[i][j]!='|')
lable[k++]=st[i][j];//存于终结符数组label
}
}
lable[k]='#';
lable[k+1]='\0';
table();//建立算符优先表

printf("每个非终结符的FIRSTVT集为：\n"); //输出每个非终结符的FIRSTVT集
for(i=0;i{
printf("%c: ",st[i][0]);
for(j=0;j{
printf("%

c ",first[i][j+1]);
}
printf("\n");
}
printf("每个非终结符的LASTVT集为：\n"); //输出每个非终结符的LASTVT集
for(i=0;i{
printf("%c: ",st[i][0]);
for(j=0;j{
printf("%c ",last[i][j+1]);
}
printf("\n");
}
printf("算符优先分析表如下:\n");
for(i=0;lable[i]!='\0';i++)
printf("\t%c",lable[i]);//输出终结符
printf("\n");
for(i=0;i{
printf("%c\t",lable[i]);
for(j=0;j{
printf("%c\t",data[i][j]);//输出算符优先关系
}
printf("\n");
}
printf("请输入文法输入符号串以#结束:");
scanf("%s",input);

deal();//分析输入串
}
void table()//算符优先关系关系表函数
{
char text[20][10];
int i,j,k,t,l,x=0,y=0;
int m,n;
x=0;
for(i=0;i{
firstvt(st[i][0]);//求每个产生式左部非终结符st的FIRSTVT
lastvt(st[i][0]); //求每个产生式左部非终结符st的LASTVT
}
for(i=0;i{
text[x][y]=st[i][0];
y++;
//将形如A->B|C的分为A->B,A->C
for(j=1;st[i][j]!='\0';j++)
{
if(st[i][j]=='|')
{
text[x][y]='\0';
x++;
y=0;
text[x][y]=st[i][0];
y++;
text[x][y++]='-';
text[x][y++]='>';
}
else
{
text[x][y]=st[i][j];
y++;
}
}
text[x][y]='\0';
x++;
y=0;
}
r1=x;//x赋予r1表示转化后文法的规则数
printf("转化后的文法为:\n");
for(i=0;i{
printf("%s\n",text[i]);
}
for(i=0;i"
后的转化文法，用于最后的规约)*/
{ //将转化后的文法再去掉->
string[i][0]=text[i][0];
for(j=3,l=1;text[i][j]!='\0';j++,l++)
string[i][l]=text[i][j];
string[i][l]='\0';
}


for(i=0;i{
for(j=1;text[i][j+1]!='\0';j++)
{
//运用算符优先关系中相邻非终结符：ac的优先关系相等
if(zhongjie(text[i][j])&&zhongjie(text[i][j+1]))//若text相邻符号是否是终结符

{
m=xiabiao(text[i][j]);//求text的内容的下标
n=xiabiao(text[i][j+1]);
data[m][n]='=';//算符优先关系赋值
}

//运用算符优先关系中相邻非终结符:aBc的优先关系相等
if(text[i][j+2]!='\0'&&zhongjie(text[i][j])&&zhongjie(text[i][j+2])&&!zhongjie(text[i][j+1]))
{
m=xiabiao(text[i][j]);
n=xiabiao(text[i][j+2]);
data[m][n]='=';
}
//对终结符与非终结符相邻的情况判断如aB
if(zhongjie(text[i][j])&&!zhongjie(text[i][j+1]))
{
for(k=0;k{ //找B在左部的产生式
if(st[k][0]==text[i][j+1])
break;
}
m=xiabiao(text[i][j]);
for(t=0;t{ //应用OPG关系

的a<.b的判断规则
//即A->…aT…,且T=>b…或T=>Rb…时a<.b
n=xiabiao(first[k][t+1]);
data[m][n]='<';
}
}
if(!zhongjie(text[i][j])&&zhongjie(text[i][j+1]))
{ //应用OPG中a<.b
//A->…Tb且T=>…a或T=>…aR时，a.>b
for(k=0;k{
if(st[k][0]==text[i][j])
break;
}
n=xiabiao(text[i][j+1]);
for(t=0;t{
m=xiabiao(last[k][t+1]);
data[m][n]='>';
}
}
}
}
m=xiabiao('#');
for(t=0;t{ //FIRSTOP中的算符优先于#
n=xiabiao(first[0][t+1]);
data[m][n]='<';
}
n=xiabiao('#');
for(t=0;t{ //LASTOP中的算符低于#
m=xiabiao(last[0][t+1]);
data[m][n]='>';
}
data[n][n]='=';
}

void firstvt(char c) //求FIRSTVT集
{ //推导的最左终结符的集合
int i,j,k,m,n;
for(i=0;i{
if(st[i][0]==c)
break; //找到c的产生式后跳出循环
}
if(fflag[i]==0)//标志i个非终结符的FIRSTVT集是否求出
{
n=first[i][0]+1; //fisr表的最后一行
m=0;
do
{
if(m==2||st[i][m]=='|') //产生式右部只有两个字符或是形如A->B|d
{
if(zhongjie(st[i][m+1]))
{
first[i][n]=st[i][m+1];
n++;
}
else
{
if(zhongjie(st[i][m+2]))
{
first[i][n]=st[i][m+2];
n++;
}
if(st[i][m+1]!=c)//A->A形式的产生式不存在时，即有A->B形式时
{ //如上产生式，则转为求B的FIRSTOP
firstvt(st[i][m+1]);
//下面将B的FIRSTOP与A的比较，看相应位置是否等价
for(j=0;j{
if(st[j][0]==st[i][m+1])
break;
}
for(k=0;k{
int t;
for(t=0;t{
if(first[i][t]==first[j][k+1])
break;
}
if(t==n)
{
first[i][n]=first[j][k+1];
n++;
}
}
}
}
}
m++;
}while(st[i][m]!='\0');
first[i][n]='\0';
first[i][0]=--n;
fflag[i]=1;
}
}

//应用LASTOP的原理，类似上叙FIRSTOP的求导
void lastvt(char c) //求LASTVT集
{
int i,j,k,m,n;
for(i=0;i{
if(st[i][0]==c)
break;
}
if(lflag[i]==0)
{
n=last[i][0]+1;
m=0;
do
{
if(st[i][m+1]=='\0'||st[i][m+1]=='|')
{
if(zhongjie(st[i][m]))
{
last[i][n]=st[i][m];
n++;
}
else
{
if(zhongjie(st[i][m-1]))
{
last[i][n]=st[i][m-1];
n++;
}
if(st[i][m]!=c)
{
lastvt(st[i][m]);
for(j=0;j{
if(st[j][0]==st[i][m])
break;
}
for(k=0;k{
int t;
for(t=0;t{
if(last[i][t]==last[j][k+1])
break;
}

if(t==n)
{
last[i][n]=last[j][k+1];
n++;
}
}
}
}
}
m++;
}while(st[i][m]!='\0');
last[i][n]='\0';
last[i][0]=--n;
lflag[i]=1;
}
}



int deal()//分析输入串，应该等于词法分析出的Token串
{
int i,j;
int x,y;
int z; //输入串的长度
k=1;
s[k]='#'; //符号栈置初值
for(i=0;input[i]!='\0';i++); //计算输入串的长度
z=i--;
i=0;
while((a=input[i])!='\0')
{
if(zhongjie(s[k]))
j=k;
else
j=k-1;
x=xiabiao(s[j]);
y=xiabiao(a);
if(data[x][y]=='>')
{
out(1,k,s);//打印符号栈
printf("%c",a);
out(i+1,z,input);
printf("规约\n");
//循环找最左素短语的尾部
do
{
q=s[j];
if(zhongjie(s[j-1]))
j=j-1;
else j=j-2;
x=xiabiao(s[j]);
y=xiabiao(q);
}while(data[x][y]!='<');
int m,n,N;
for(m=j+1;m<=k;m++)
{
for(N=0;Nfor(n=1;string[N][n]!='\0';n++)//string输入串的分析
{
if(!zhongjie(s[m])&&!zhongjie(string[N][n]))
{ //找出规约的产生式
if(zhongjie(s[m+1])&&zhongjie(string[N][n+1])
&&s[m+1]==string[N][n+1])
{
s[j+1]=string[N][0]; //规约后的非终结符压栈
break;
}
}
else
if(zhongjie(s[m]))
if(s[m]==string[N][n])
{
s[j+1]=string[N][0]; //规约后的非终结符压栈
break;
}
}
}
k=j+1;
if(k==2&&a=='#')
{
out(1,k,s);
printf("%c",a);
out(i+1,z,input);
printf("结束\n");
printf("输入串符合文法的定义！\n");
return 1; //输入串符合文法的定义
}
}
else
if(data[x][y]=='<'||data[x][y]=='=')
{ //移进
out(1,k,s);
printf("%c",a);
out(i+1,z,input);
printf("移进\n");
k++;
s[k]=a;
i++;
}
else
{
printf("\nflase");
return 0;
}
}
printf("\nflase");
return 0;
}

void out(int j,int k,char *s)//打印符号栈
{
int n=0;
int i;
for(i=j;i<=k;i++)
{
printf("%c",s[i]);
n++;
}
for(;n<15;n++)
{
printf(" ");
}
}

int xiabiao(char c) //求字符c在算符优先关系表中的下标
{
int i;
for(i=0;lable[i]!='\0';i++)
{
if(c==lable[i])
return i;//终结符的序号
}
return -1;
}


int zhongjie(char c) //判断字符c是否是终极符
{
int i;
for(i=0;lable[i]!='\0';i++)
{
if(c==lable[i])
return 1;
}
return 0;
}