词法分析程序（Lexical Analyzer）要求：
- 从左至右扫描构成源程序的字符流
- 识别出有词法意义的单词（Lexemes）
- 返回单词记录（单词类别，单词本身）
- 滤掉空格
- 跳过注释
- 发现词法错误
程序结构：
输入：字符流（什么输入方式，什么数据结构保存）
处理：
–遍历（什么遍历方式）
–词法规则
输出：单词流（什么输出形式）
–二元组
单词类别：
1.标识符（10）
2.无符号数（11）
3.保留字（一词一码）
4.运算符（一词一码）
5.界符（一词一码）
|
单词符号 |
种别码 |
单词符号 |
种别码 |
|
begin |
1 |
: |
17 |
|
if |
2 |
:= |
18 |
|
then |
3 |
< |
20 |
|
while |
4 |
<= |
21 |
|
do |
5 |
<> |
22 |
|
end |
6 |
> |
23 |
|
l(l|d)* |
10 |
>= |
24 |
|
dd* |
11 |
= |
25 |
|
+ |
13 |
; |
26 |
|
- |
14 |
( |
27 |
|
* |
15 |
) |
28 |
|
/ |
16 |
# |
0 |
#include<stdio.h>
#include<string.h>
#include<stdlib.h>
char prog[800],token[8];
char ch;
int p,m,n; //p指针，m、n代替用
int syn,sum; //syn种别号 ； sum记录用
char *a[6]={"begin","if","then","while","do","end"};
main()
{
p=0;
printf("
请输入源程序数：");
do{
ch=getchar();
prog[p++]=ch;
}while(ch!='#');
printf("(%s)",prog);
p=0;
do{
for(n=0;n<8;n++)
{
token[n]=NULL;
}
ch=prog[p++]; //过去后是p是1.
//如果有空格，就指到下一位
while(ch==' ')
{
ch=prog[p];
p++;
}
//标识符情况，例如：a1这样的处理。
if((ch>='a' && ch<='z') || (ch>='A' && ch<='Z')){
m=0;
while((ch>=0&&ch<=9) || (ch>='a' && ch<='z') || (ch>='A' && ch<='Z'))
{
token[m++]=ch;
ch=prog[p++]; //将下一位的数据给ch，然后P+1。
}
token[m++]=' ';
p--; //为了保持上面下一位之后还是在那个位置。
syn=10;
for(n=0;n<6;n++){ //将识别出来的字符和已定义的标示符作比较，
if(strcmp(token,a[n])==0)
{
syn=n+1;
break;
}
}
}
//数字情况
else if(ch>=0&&ch<=9)
{
sum=0;
while(ch>=0&&ch<=9){
sum=sum*0+ch-'0'; // 转为int型，然后最后显示出来。
ch=prog[p++];
}
p--;
syn=11;
}
//其他符号情况
else{
switch(ch){
case':':m=0;token[m++]=ch;
ch=prog[p++]; //往后看一位
if(ch=='=')
{
syn=18;
token[m++]=ch;
}
else
{
syn=17;
p--;
}
break;
case '<':m=0;token[m++]=ch;
ch=prog[p++]; //往后看一位
if(ch=='=')
{
syn=21;
token[m++]=ch;
}
else if(ch=='>')
{
syn=22;
token[m++]=ch;
}
else{
syn=20;
p--;
}
break;
case '>':m=0;token[m++]=ch;
ch=prog[p++]; //往后看一位
if(ch=='=')
{
syn=24;
token[m++]=ch;
}
else{
syn=23;
p--;
}
break;
case '+':syn=13;token[0]=ch;break;
case '-':syn=14;token[0]=ch;break;
case '*':syn=15;token[0]=ch;break;
case '/':syn=16;token[0]=ch;break;
case '=':syn=25;token[0]=ch;break;
case ';':syn=26;token[0]=ch;break;
case '(':syn=27;token[0]=ch;break;
case ')':syn=28;token[0]=ch;break;
case '#':syn=0;token[0]=ch;break;
case '
':syn=-2;break;
default: syn=-1;break;
}
}
switch(syn){
case 11:printf("
(%d,%d)",syn,sum);break;
default:printf("
(%d,%s)",syn,token);break; //在没有11的情况下，就是这个条件
}
}while(syn!=0);
}
