PL/0语言词法分析
一、 实验目的
通过完成词法分析程序，了解词法分析的过程。编制一个读单词程序，对PL/0语言进行词法分析，把输入的字符串形式的源程序分割成一个个单词符号，即基本保留字、标识符、常数、运算符、界符五大类。
二、 实验环境
操作系统：window xp
编写环境：visual c++ 、c-free、turbo c
编写语言：c语言
分析语言：PL/0
三、 实验内容
对PL/0语言进行词法分析，把输入的字符串形式的源程序分割成一个个单词符号，其词法描述如下：
（1） 关键字：begin，call，const，do，end，if，odd，procedure，read，then，var，while，write
（2） 标识符：用来表示各种名字，必须以字母开头小于10位字符组成
（3） 数字：以0-9组成小于14位的数字
（4） 运算符：+，-，*，/，:=，<，<=，>，>=，#
（5） 界符：, ，. ，; ，( ,)
GETSYM函数功能：
（1） 滤空格 空格在词法分析时是一种不可缺少的界符，而在语法分析时则是无用的，所以必须过滤
（2） 识别保留字 主程序定义了一个以字符为元素的一维数组WORD，称保留字表。对字母开头的字母、数字字符串要查此表。若查着则识别为保留字。若查不着，则认为是用户定义的标识符
（3） 识别保留字 对用户定义的标识符，标识符本身的值放在ID中
（4） 拼数 当扫描到数字串时，将字符串形式的十进制数转换为二进制数，数值本身的值放在NUM中
（5） 拼合复合词 对两个字符组成的算符，如：>=、:=、<=等单词
（6） 输出源程序 为边读入字符边输出（可输出在文件中）
初稿（C语言版）
#include <stdio.h>
#include <string.h>
#define norw 13 /*关键字个数*/
#define nmax 14 //number的最大位数
#define al 10 //符号的最的长度 符号就是+ - 神马的
#define cxmax 200 //最多的虚拟机代码数
/*
enum symbol {
nul, ident, number, plus, minus, times, slash, oddsym, eql, neq,
lss, leq, gtr, geq, lparen, rparen, comma, semicolon, period, becomes,
beginsym, endsym, ifsym, thensym, whilesym, writesym, readsym, dosym,
callsym, constsym, varsym, procsym,
};
*/
FILE* fa1; //输出分析的文件和首地址 首地址是虚拟机指针
char ch; //getch读取的字符
//enum symbol sym;
char id[al+1]; //当前的ident
int num;
int cc, ll; //getch计数器
int cx; //虚拟机代码指针，取值范围0-cxmax-1
char line[81];
char a[al+1]; //读取一个符号 暂时存在这里
char word[norw][al]; //保留字13个 就是begin end if 什么的
//enum symbol wsym[norw]; //保留字对应的符号 begin对应beginsym
//enum symbol ssym[256]; //单字符的符号值
FILE* fin;
FILE* fout;
char fname[al]; //输入的文件名
int err;
#define getchdo if(-1==getch()) return -1;
void error(int n);
void error(int n)
{
char space[81];
memset(space, 32, 81);
space[cc-1] = 0;
printf("****出现错误\n");
fprintf(fa1, "****出现错误\n");
err++;
}
int getch()
{
if(cc == ll)
{
if(feof(fin))
{
printf("\n读完了！\n");
return -1;
}
ll = 0;
cc = 0;
//printf("%d ", cx);
//fprintf(fa1, "%d", cx);
ch = ' ';
while(ch != 10)
{
if(fscanf(fin, "%c", &ch) == EOF)
{
line[ll] = 0;
break;
}
printf("%c", ch);
line[ll] = ch;
ll++;
}
printf("\n");
}
ch = line[cc];
cc++;
return 0;
}
int getsym()
{
int i, j, k;
while(ch == ' ' || ch == 10 || ch == 9||ch== 13)
{
getchdo;
}
if(ch >= 'a' && ch <= 'z')
{
k = 0;
do
{
if(k < al)
{
a[k] = ch;
k++;
}
getchdo;
}while(ch >= 'a' && ch <= 'z' || ch >= '0' && ch <= '9');
a[k] = '\0';
strcpy(id, a);
i = 0;
j = norw-1;
do
{
k = (i+j)/2;
if(strcmp(id, word[k]) <= 0)
j = k-1;
if(strcmp(id, word[k]) >= 0)
i = k+1;
}while(i <= j);
if(i-1 > j)
{
printf("保留字 (1,'%s')\n", id);
}
else
{
printf("标识符 (3,'%s')\n", id);
}
}
else
{
if(ch >= '0' && ch <= '9')
{
k = 0;
num = 0;
//sym = number;
do
{
num = num * 10 + ch - '0';
k++;
getchdo;
}while(ch >= '0' && ch <= '9');
k--;
if(k > nmax)
{
error(30);
}
printf("整 数 (2,'%d')\n",num);
}
else
{
if(ch == ':')
{
getchdo;
//k=0;
//b[k]=ch;
if(ch == '=')
{
//sym = becomes;
printf("运算符 (4,':=')\n");
getchdo;
}
else
{
printf("error!不允许单独使用’：‘\n");
}
}
else
{
if(ch == '<')
{
getchdo;
if(ch == '=')
{
printf("运算符 (4,'<=')\n");
getchdo;
}
else
{
printf("运算符 (4,'<')\n");
}
}
else
{
if(ch == '>')
{
getchdo;
if(ch == '=')
{
printf("运算符 (4,'>=')\n");
getchdo;
}
else
{
printf("运算符 (4,'>')\n");
}
}
else
{
if(ch=='+')
{
printf("运算符 (4,'+')\n");
getchdo;
}
else if(ch=='-')
{
printf("运算符 (4,'-')\n");
getchdo;
}
else if(ch=='*')
{
printf("运算符 (4,'*')\n");
getchdo;
}
else if(ch=='/')
{
printf("运算符 (4,'/')\n");
getchdo;
}
else if(ch=='#')
{
printf("运算符 (4,'#')\n");
getchdo;
}
else if(ch=='(')
{
printf("分界符 (5,'(')\n");
getchdo;
}
else if(ch==')')
{
printf("分界符 (5,')')\n");
getchdo;
}
else if(ch==',')
{
printf("分界符 (5,',')\n");
getchdo;
}
else if(ch==';')
{
printf("分界符 (5,';')\n");
getchdo;
}
else if(ch=='.')
{
printf("分界符 (5,'.')\n");
getchdo;
}
else
{
printf("error!请检查代码是否拼写正确！\n");
return -1;
}
}
}
}
}
}
return 0;
}
void init()
{
/*
int i;
for(i = 0; i < 256; i++)
ssym[i] = nul;
ssym['+'] = plus;
ssym['-'] = minus;
ssym['*'] = times;
ssym['/'] = slash;
ssym['('] = lparen;
ssym[')'] = rparen;
ssym['='] = eql;
ssym[','] = comma;
ssym['.'] = period;
ssym['#'] = neq;
ssym[';'] = semicolon;
*/
strcpy(&(word[0][0]), "begin");
strcpy(&(word[1][0]), "call");
strcpy(&(word[2][0]), "const");
strcpy(&(word[3][0]), "do");
strcpy(&(word[4][0]), "end");
strcpy(&(word[5][0]), "if");
strcpy(&(word[6][0]), "odd");
strcpy(&(word[7][0]), "procedure");
strcpy(&(word[8][0]), "read");
strcpy(&(word[9][0]), "then");
strcpy(&(word[10][0]), "var");
strcpy(&(word[11][0]), "while");
strcpy(&(word[12][0]), "write");
/*
wsym[0] = beginsym;
wsym[1] = callsym;
wsym[2] = constsym;
wsym[3] = dosym;
wsym[4] = endsym;
wsym[5] = ifsym;
wsym[6] = oddsym;
wsym[7] = procsym;
wsym[8] = readsym;
wsym[9] = thensym;
wsym[10] = varsym;
wsym[11] = whilesym;
wsym[12] = writesym;
*/
}
int main()
{
printf("请输入要分析的文件名：\n");
scanf("%s", fname);
fin = fopen(fname, "r");
if(fin)
{
/*
printf("请输入要保存的文件名\n");
scanf("%s", fname);
fa1 = fopen(fname, "w");
*/
init();
printf("\n分析完毕！\n\n");
err = 0;
cc = cx = ll = 0;
ch = ' ';
while(getsym() != -1)
{
//printf("111\n");
}
}
else
{
printf("找不到文件\n");
}
printf("\n");
return 0;
}
输出样图：
备注：