编译原理实验1 PL/0语言词法分析

最新推荐文章于 2023-06-07 00:09:35 发布

poclist

最新推荐文章于 2023-06-07 00:09:35 发布

阅读量3.3k

点赞数

分类专栏： compiler

compiler 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

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）界符：,，.，;，#

表1 各种单词符号对应类型表

单词符号	类型
+	plus
-	minus
*	times
/	slash
(	lparen
)	rparen
=	eql
,	comma
.	perio
#	neq
;	semicolon
begin	beginsym
call	callsym
const	constsym
do	dosym
end	endsym
if	ifsym
odd	oddsym
procedure	proceduresym
read	readsym
then	thensym
var	varsym
while	whilesym
write	writesym

GETSYM函数功能：

（1）滤空格空格在词法分析时是一种不可缺少的界符，而在语法分析时则是无用的，所以必须过滤

（2）识别保留字主程序定义了一个以字符为元素的一维数组WORD，称保留字表。对字母开头的字母、数字字符串要查此表。若查着则识别为保留字，将对应的类别放在SYM中。如IF的对应值IFSYM，THEN的对应值为THENSYM。若查不着，则认为是用户定义的标识符

（3）识别保留字对用户定义的标识符将IDENT放在SYM中，标识符本身的值放在ID中

（4）拼数当扫描到数字串时，将字符串形式的十进制数转换为二进制数，然后把数的类别NUMBER放在SYM中，数值本身的值放在NUM中

（5）拼合复合词对两个字符组成的算符，如：>=、:=、<=等单词，识别后将类别送SYM中

（6）输出源程序为边读入字符边输出（可输出在文件中）

四、

实验结果

要分析的内容如下：

[html] view plain copy print ?

const a=36;
var c,d;
procedure p;
begin
var g;
g:=1234567890000000;
write(g);
end;
begin
read(c,d);
if c<=d then c:=a;
write(c,d);
call p;
end.

pl0.h 头文件

[html] view plain copy print ?

#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);

主函数

[html] view plain copy print ?

#include <stdio.h>
#include <string.h>
#include "pl0.h"
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("读完了");
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);
fprintf(fa1, "%c", ch);
line[ll] = ch;
ll++;
}
printf("\n");
//fprintf(fa1, "\n");
}
ch = line[cc];
cc++;
return 0;
}
int getsym()
{
int i, j, k;
while(ch == ' ' || ch == 10 || ch == 9)
{
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)
{
sym = wsym[k];
}
else
{
sym = ident;
}
}
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);
}
}
else
{
if(ch == ':')
{
getchdo;
if(ch == '=')
{
sym = becomes;
getchdo;
}
else
{
sym = nul;
}
}
else
{
if(ch == '<')
{
getchdo;
if(ch == '=')
{
sym = leq;
getchdo;
}
else
{
sym = lss;
}
}
else
{
if(ch == '>')
{
getchdo;
if(ch == '=')
{
sym = geq;
getchdo;
}
else
{
sym = gtr;
}
}
else
{
sym = ssym[ch];
if(sym != period)
{
getchdo;
}
else
return -1;
}
}
}
}
}
return 0;
}
void init()
{
int i;
for(int 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();
err = 0;
cc = cx = ll = 0;
ch = ' ';
while(getsym() != -1)
{
}
printf("分析完毕");
}
else
{
printf("找不到文件\n");
}
printf("\n");
return 0;
}

poclist

关注

0
点赞
踩
12

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

编译原理 实验1 PL/0语言词法分析

编译原理实验1 PL/0语言词法分析