magic2.l

来自「语法分析 语法分析」· L 代码 · 共 27 行

%{

(* 演示状态的用法，这个示例故意做成不能运行 *)
program Magic2;

{$APPTYPE CONSOLE}

uses
  SysUtils, LexLib;

%}

%s MAGIC

%%
magic		Start(MAGIC);
.+		ECHO;
<MAGIC>.+ 	begin
                  Start(0);
		  Write('Magic:');
		  ECHO;
		end;
%%

begin
  yylex;
end.