新建 文本文档.txt

这是编译原理此法分析器的简单代码

/*
Title :Compiler construction-experiment 1
Version:2                Function:Scanning
Date :April 13,2008     Author:Maksim Zhao
Note :it must be compiled via Visual C++ 6.0
leaguesoft,all right reserved
*/
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<ctype.h>
#include<conio.h>

char *prog,token[8];
char ch;//当前读入的字符
int syn,sum;//syn-单词种别码,token-单词,sum-整型常量
int p,m,n;//p是缓冲区prog的指针,m是token的指针

char *rwtab[6]={"begin","if","then","while","do","end"};//关键字
char *sytab[4]={":=","<>","<=",">="};//双符号

int ctype(char c)
{
if(isalpha(c))      return 1;//字母
else if(c>='0'&&c<='9') return 2;//数字
else if(c==32)      return 32;//空格
else                return 3;//符号
return 0;
}

void token_cls()
{
int i;
for(i=0;i<8;i++)
   token[i]=0;
m=0;
}

//得到单词或符号的种别码
int getsyn(char *s,int type)
{
if(type==0)//type=0表示计算单词
{
   if(!strcmp(s,rwtab[0])) return 1;
   if(!strcmp(s,rwtab[1])) return 2;
   if(!strcmp(s,rwtab[2])) return 3;
   if(!strcmp(s,rwtab[3])) return 4;
   if(!strcmp(s,rwtab[4])) return 5;
   if(!strcmp(s,rwtab[5])) return 6;
   return 10;
}
else if(type==1)//type=1表示计算单符号
{
   switch(s[0])
   {
   case'+':return 13;
   case'-':return 14;
   case'*':return 15;
   case'/':return 16;
   case':':return 17;
   case'<':return 21;
   case'>':return 23;
   case'=':return 25;
   case';':return 26;
   case'(':return 27;
   case')':return 28;
   case'#':return 0;
   default:return -1;
   }
}
else//type=2表示计算双符号
{
   if(!strcmp(s,sytab[0])) return 18;
   if(!strcmp(s,sytab[1])) return 21;
   if(!strcmp(s,sytab[2])) return 22;
   if(!strcmp(s,sytab[3])) return 24;
   return -1;
}
}

int wtype()
{
int i,t1=0,t2=0,t3=0;
for(i=0;i<m;i++)
   if(ctype(token[i])==1) t1++;
   else if(ctype(token[i])==2) t2++;
   else if(ctype(token[i])==3) t3++;
if(t2==m) return 2;//全数字字符段
if(t3==m) 
   if(m==1) return 3;//单符号字符段
   else return 4;//多符号字符段
return 5;//一般单词
}

void output(int type)//单项输出结果
{
switch(type)
{
case 1:printf("(%d,%s)\n",getsyn(token,0),token);break;//输出单词
case 2:printf("(11,%s)\n",token);break;                //输出数据
case 3:printf("(%d,%s)\n",getsyn(token,1),token);break;//输出单符号
case 4:printf("(%d,%s)\n",getsyn(token,2),token);break;//输出多符号
}
}

void scaner()//扫描字符串
{
int bp,cline=0;
while(32==*(prog+p)) p++;//忽略开始的空格
bp=p;
while(*(prog+p)!='#')
{
   ch=*(prog+p);
   if(ctype(ch)==1||ctype(ch)==2)//读入的是字母或是数字
   {
    if(ctype(*(prog+p-1))==3&&p!=bp)
    {
     output(wtype());//输出符号
     token_cls();
    }
    token[m++]=ch;
   }
   else if(ctype(ch)==3)//读入的是符号
   {
    if(ctype(*(prog+p-1))==1||ctype(*(prog+p-1))==2)//前一个读入的是字母，则输出单词
    {
     if(wtype()==2)
      output(2);
     else if(wtype()==5)
      output(1);
     token_cls();
    }
    token[m++]=ch;
   }
   else if(ch==32)//读入的是空格
   {
    switch(wtype())
    {
    case 2:output(2);break;//输出数字
    case 3:output(3);break;//输出单符号
    case 4:output(4);break;//输出多符号
    case 5:output(1);break;//输出单词
    }
    token_cls();
   }
   p++;
}
token[0]='#';
output(3);
}

void main()
{
m=n=0;
prog="begin x:=9; if x<>0 then x:=2*x+1/3; end #";
scaner();
getch();
}