c语言编写的词法分析程序

1、#includestdio. h>#include <stdlib. h>#include <string h>nclude <ctype h>SdefineSPACE 0x20 /空格键SdefineCHANGE 'c' /转义字符#defineSTRING 'S' 引号里的字符串#defineBOUNDARY ' B' /界符#defineOPERATION ' O' /运算符#defineword ' r /标识符#defineKEY.WORD 'K' /关键

2、字SdefineDIGIT ' n' 数字，包括小数SdefineDOTH 'd' /头文件，“.h”文件#defineIXT ' t'#definevoid ' v'#defineIF 'f'#define ELSE ' e#define WHILE ' w'#define FOR ，r#define NfAIN ' m'Sdefine printF ' p'#define INCLUDE ' u'#define FLOAT '1&#

3、39;#define KEYNUM 10#define BOUNDNUM 8#define OPERNUM 7#define V ALUENUM 100*/ /* data type */ » " " " » " " » » " " " » " " » » " " " » " " » » " " " » &q

4、uot; " » » " " " » " " » » " " " » " " » » " " " » " " » » " " " » " " » » " " " » " » | | j j

5、4 | 1 j | | j j 4 | 1 j | | j j 4 | 1 j | | j j 4 | 1 j | | j j 4 | 1 j | | j j 4 | 1 j | | j j 4 | 1 j | | j j 4 | 1 j | | j j 4 | j */ struct bianliangint id;char name20;int value;struct changliangint data;Keyword KEYNUM 8二"int", "void","辻","else", "whi

6、le", "for", "main"," printf", "include", "float"char Boundary BOUNDNUM =char OperationOPERNUM =-二'，''，''；charLogogramKEYNUM = INT, VOID, IF, ELSE, WHILE, FOR, MAIN, PRINTF, INCLUDE, FL OAT;char ValueV ALUENUM8;int Vdlue_n=0;i

7、nt ErrorLine=0;int QuotationCount二0; /计算引号的数量int QuotationFlag=0; /引号数量为奇数时为1,偶数时为0char Last0pera=0; /用于判断"二二"号存前一个"二"号*/* function describe */*/int isKeyWord(char* s) /是关键字返回1,否则返回0int i;for (i二O;iKEYXUM;i+)if (strcmp(KeyWordi, s)=0)return i+1;return 0;int isBoundary (char ch) /

8、是界符int i;for (i二0;iB0UNDNUM;i+)if (Boundary i ch)return i+1;return 0;int i sOperat ion (char ch) /是运算符int i;for (i二0;i0PERNUM;i+) if (Operationi二二ch)return i+1;return 0;int isDigit (char *s) /是数字int i, 1 二strien(s);for (i二0;il;i+)if (!isdigit(si)break;辻(i>=l)elseif 二二 si)i+；for (;i<l;i+)if (!i

9、sdigit(si)break;else(TS)PHdTPSTj) JT(+I0二！)MT：(s)U9ms二！ JU#¥¥>/(s* 卫qo)H2(IS! 1UT：0 UJR4.9J 9S9 UJR4.9J(l-<D JIreturn 0;elsei+；if (si=, h')return 1;elsereturn 0;elsereturn 0;int isWord (char *s) 是标识符int i=0,l=strlen(s):if (isalpha(si)i+；for (;i<l;i+)if (!isalnum(si)break;if (i

10、>=l)return 1;elsereturn 0;void isWhat(int *i,char *str, FILE *fileOutput,FILE *file0utput2) / 判断字符吊，并把相应类型存入文件int n;struct bianliang temp;struct changliang t;FILE *f i le=f open (''num. txt", "ab");if(l!=*i)str (")=' 0'if(n=isKeyWord(str)fputs(str,fileOutput);fputc (' t', file Output);fputc (KEYWORD, fileOutput);fputc (' t, fileOutput);if(isKeyWord(str)>9)fputc(isKeyWord(str)+' a -10, fileOutput); elsefputc(isKeyWord(str)+' 0