magic.l

这是一个和lex功能差不多的parser编写的程序

%{

(* 演示状态的用法 *)
program Magic;

{$APPTYPE CONSOLE}

uses
  SysUtils, LexLib;

%}

%s SMAGIC

%%
<SMAGIC>.+	begin
                  Start(0);
		  write('Magic:');
		  ECHO;
		end;
magic		start(SMAGIC);
.+		ECHO;
%%

begin
  yylex;
end.