118 lines
3.1 KiB
Plaintext
118 lines
3.1 KiB
Plaintext
/* PL词法分析器 */
|
||
/* 功能：能够识别出PL支持的所有单词符号并给出种别值 */
|
||
/* 说明：在下面的begin和end之间添加代码，已经实现了标识符和整常量的识别，你需要完成剩下的部分，加油吧！ */
|
||
/* 提示：因为是顺序匹配，即从上至下依次匹配规则，所以需要合理安排顺序～ */
|
||
%{
|
||
#include <stdio.h>
|
||
%}
|
||
/* begin */
|
||
INTCON [\-]?[1-9][0-9]*|0
|
||
IDENT [A-Za-z][A-Za-z0-9]*
|
||
CHARCON \'[^\']*\'
|
||
OFSYM of
|
||
ARRAYSYM array
|
||
PROGRAMSYM program
|
||
MODSYM mod
|
||
ANDSYM and
|
||
ORSYM or
|
||
NOTSYM not
|
||
BEGINSYM begin
|
||
ENDSYM end
|
||
IFSYM if
|
||
THENSYM then
|
||
ELSESYM else
|
||
WHILESYM while
|
||
DOSYM do
|
||
CALLSYM call
|
||
CONSTSYM const
|
||
TYPESYM type
|
||
VARSYM var
|
||
PROCSYM procedure
|
||
NEQ \<\>
|
||
LEQ \<\=
|
||
GEQ \>\=
|
||
BECOME \:\=
|
||
PLUS \+
|
||
MINUS \-
|
||
TIMES \*
|
||
DIVSYM \/
|
||
EQL \=
|
||
LSS \<
|
||
GTR \>
|
||
LBRACK \[
|
||
RBRACK \]
|
||
LPAREN \(
|
||
RPAREN \)
|
||
COMMA \,
|
||
SEMICOLON \;
|
||
PERIOD \.
|
||
COLON \:
|
||
ERROR [\~\!\@\#\$\%\^\&\_\\]
|
||
|
||
/* end */
|
||
|
||
%%
|
||
/* begin */
|
||
{OFSYM} {printf("%s: OFSYM\n", yytext);}
|
||
{ARRAYSYM} {printf("%s: ARRAYSYM\n", yytext);}
|
||
{PROGRAMSYM} {printf("%s: PROGRAMSYM\n", yytext);}
|
||
{MODSYM} {printf("%s: MODSYM\n", yytext);}
|
||
{ANDSYM} {printf("%s: ANDSYM\n", yytext);}
|
||
{ORSYM} {printf("%s: ORSYM\n", yytext);}
|
||
{NOTSYM} {printf("%s: NOTSYM\n", yytext);}
|
||
{BEGINSYM} {printf("%s: BEGINSYM\n", yytext);}
|
||
{ENDSYM} {printf("%s: ENDSYM\n", yytext);}
|
||
{IFSYM} {printf("%s: IFSYM\n", yytext);}
|
||
{THENSYM} {printf("%s: THENSYM\n", yytext);}
|
||
{ELSESYM} {printf("%s: ELSESYM\n", yytext);}
|
||
{WHILESYM} {printf("%s: WHILESYM\n", yytext);}
|
||
{DOSYM} {printf("%s: DOSYM\n", yytext);}
|
||
{CALLSYM} {printf("%s: CALLSYM\n", yytext);}
|
||
{CONSTSYM} {printf("%s: CONSTSYM\n", yytext);}
|
||
{TYPESYM} {printf("%s: TYPESYM\n", yytext);}
|
||
{VARSYM} {printf("%s: VARSYM\n", yytext);}
|
||
{PROCSYM} {printf("%s: PROCSYM\n", yytext);}
|
||
|
||
{NEQ} {printf("%s: NEQ\n", yytext);}
|
||
{LEQ} {printf("%s: LEQ\n", yytext);}
|
||
{GEQ} {printf("%s: GEQ\n", yytext);}
|
||
{BECOME} {printf("%s: BECOME\n", yytext);}
|
||
|
||
{PLUS} {printf("%s: PLUS\n", yytext);}
|
||
{MINUS} {printf("%s: MINUS\n", yytext);}
|
||
{TIMES} {printf("%s: TIMES\n", yytext);}
|
||
{DIVSYM} {printf("%s: DIVSYM\n", yytext);}
|
||
{EQL} {printf("%s: EQL\n", yytext);}
|
||
{LSS} {printf("%s: LSS\n", yytext);}
|
||
{GTR} {printf("%s: GTR\n", yytext);}
|
||
{LBRACK} {printf("%s: LBRACK\n", yytext);}
|
||
{RBRACK} {printf("%s: RBRACK\n", yytext);}
|
||
{LPAREN} {printf("%s: LPAREN\n", yytext);}
|
||
{RPAREN} {printf("%s: RPAREN\n", yytext);}
|
||
{COMMA} {printf("%s: COMMA\n", yytext);}
|
||
{SEMICOLON} {printf("%s: SEMICOLON\n", yytext);}
|
||
{PERIOD} {printf("%s: PERIOD\n", yytext);}
|
||
{COLON} {printf("%s: COLON\n", yytext);}
|
||
|
||
{CHARCON} {printf("%s: CHARCON\n", yytext);}
|
||
{INTCON} {printf("%s: INTCON\n", yytext);}
|
||
{IDENT} {printf("%s: IDENT\n", yytext);}
|
||
{ERROR} {printf("%s: ERROR\n", yytext);}
|
||
/* end */
|
||
|
||
\n {}
|
||
. {}
|
||
%%
|
||
int yywrap() { return 1; }
|
||
int main(int argc, char **argv)
|
||
{
|
||
if (argc > 1) {
|
||
if (!(yyin = fopen(argv[1], "r"))) {
|
||
perror(argv[1]);
|
||
return 1;
|
||
}
|
||
}
|
||
while (yylex());
|
||
return 0;
|
||
}
|