pascal语言的词法分析器

东华大学 姚砺 pascal语言的词法分析器，全部实现

#include                   /*定义I/O库所用的某些宏和变量*/
#include  
#include 
#include 

char prog[1000]={‘\0‘};        /*缓冲区prog*/
char token[10];                /*存放构成单词符号的字符串*/
char ch;					   /*全局临时字符变量用于判断*/
int syn;                       /*syn存放单词字符的种别码*/
int n;						   /*存放循环次数的全局变量*/
int m;					       /*m是token的指针*/
int p;                         /*p是缓冲区prog的指针*/

char *keyword[13]={“program““begin““end““var““procedure““if““then““else““while““do““call““integer““float“};

void scaner（）
{
	m=0;
	for（n=0;n<10;n++）             /*初始化字符串，全部置‘\0‘*/
		token[n]=‘\0‘;
	
	ch=prog[p++];                   /*跳过文件开头的空格和换行*/
	while（ch==‘ ‘||ch==‘\n‘）
		ch=prog[p++];
	
	if（isalpha（ch）||ch==‘_‘）    /*ch为字母字符或者下划线*/
	{
		token[m++]=ch

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        166  2011-12-10 13:27  091320129宁双雄词法分析\input.txt

     文件        500  2011-12-10 13:27  091320129宁双雄词法分析\output.txt

     文件       3748  2011-12-10 13:21  091320129宁双雄词法分析\词法分析.c

     文件      63488  2011-12-10 14:47  091320129宁双雄词法分析\词法分析报告.doc

     目录          0  2011-12-14 23:04  091320129宁双雄词法分析

----------- ---------  ---------- -----  ----

                67902                    5