commandline.l

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

%{
{参考lex和yacc第二版实现的对于命令行参数的分析}

//重新定义get_char和unget_char来实现对命令行参数的分析
//注意这里没有实现yylineno和yycolno因为没有意义

program CommandLine.dpr;

{$APPTYPE CONSOLE}//注意别忘了指定控制台模式

uses
  //CommandLex单元是改写后的LexLib，重定义了get_char, unget_char和put_char三个函数，以便
  //使用命令行参数作为解析对象。
  SysUtils, Classes, CommandLex, Windows;

%}

%%

-h	|
"-?"	|
-help	begin
          writeln(format('用法是: %s [-help | -h | -? ] [-verbose | -v] [(-file| -f) filename]', [GetCommandLine]));
	  return(0);
	end;
-v	|
-verbose writeln('打开Verbose模式');

%%

begin
  yylex;
  readln;
end.