commentc.l

语法分析 语法分析

%{
(* 计算C代码中的注释，空行和代码行*)
program CommentC;

{$APPTYPE CONSOLE}
uses
  SysUtils, LexLib;
var
  comments, code, whiteSpace:integer;
%}
%s COMMENT
%%
^[ \t]*"/*"	Start(COMMENT); {* 进入注释状态 *}
^[ \t]*"/*".*"*/"[ \t]*\n inc(comments); {/* 自包含的注释 */}
<COMMENT>"*/"[ \t]*\n	begin
                          Start(0);
			  inc(comments);
			end;
<COMMENT>"*/"		Start(0);
<COMMENT>\n	inc(comments); 
<COMMENT>.\n	inc(comments);
^[ \t]*\n	inc(whiteSpace);
.+"/*".*"*/".*\n	inc(code);
.*"/*".*"*/".+\n	inc(code);
.+"/*".*\n		begin
                          inc(code);
                          Start(COMMENT);
			end;
.\n			inc(code);
.			; {* 忽略其它 *}
%%
begin
  yylex();
  writeln(format('代码行数: %d, 注释行数：%d, 空白行数：%d',[code, comments, whiteSpace]));
  readln;
end.