¿Hay una implementación de "getopt" para Delphi?

Question

No es mucho más fácil que usar getopt() para analizar parámetros de línea de comandos en C/C++.

¿Hay algo similar para Delphi? ¿O idealmente, con la misma sintaxis? Sé que Delphi es compatible con FindCmdLineSwitch y ParamStr(), pero que aún requieren un análisis adicional.

Quiero algo que funcione como getopt() en C. Algo que permita fácilmente los conmutadores básicos, así como la captura de un valor después de un cambio. Véase más abajo para algunos ejemplo de código C para ver lo que estoy hablando:

void print_help() 
{ 
     printf("usage:\n") ; 
     printf("\t\t-i set input file\n") ; 
     printf("\t\t-o set output file\n") ; 
     printf("\t\t-c set config file\n") ; 
     printf("\t\t-h print this help information\n") ; 
     printf("\t\t-v print version\n") ; 
} 
char* input_file = NULL ; 
     char *query=NULL; 
      char opt_char=0; 
     while ((opt_char = getopt(argc, argv, "i:q:vh")) != -1) 
     { 
       switch(opt_char) 
       { 
         case 'h': 
           print_help(); 
           exit(-1); 
           break; 
         case 'v': 
           print_version() ; 
           exit(-1) ; 
           break ; 
         case 'i': 
           input_file= optarg ; 
           break ; 
         case 'q': 
           query= optarg ; 
           break ; 
         default: 
           print_help(); 
           exit(-1); 
           break; 
       } 
     } 

Answer 1

No es una implementación TGetOpt, afirmando

poner en práctica una variante getopt para Delphi. Es casi compatible con POSIX, admite opciones largas, obligatorio, opcional y sin argumentos

Lo puedes encontrar en here.

Answer 2

Nada incorporado, pero puede hacer uno bastante fácil. Esto debería estar cerca de lo que estamos acostumbrados a

TsoCommandLineParser = class 
private 
    fArguments:TStringList; 
public 
    constructor Create(); 
    destructor Destroy(); override; 

    function GetOpt(const pArgument:string; const pDefaultValue:string = ''):string; 
end; 


constructor TsoCommandLineParser.Create(); 
var 
    i:Integer; 
begin 
    inherited Create(); 
    fArguments := TStringList.Create(); 
    for i := 1 to ParamCount() do 
    begin 
    fArguments.Add(ParamStr(i)); 
    end; 
end; 

destructor TsoCommandLineParser.Destroy(); 
begin 
    fArguments.Free(); 
    inherited Destroy(); 
end; 

function TsoCommandLineParser.GetOpt(const pArgument:string; const pDefaultValue:string = ''):string; 
var 
    i:Integer; 
begin 
    i := fArguments.IndexOfName(pArgument); 
    if i > -1 then 
    begin 
    Result := fArguments.ValueFromIndex[i]; 
    end 
    else 
    begin 
    Result := pDefaultValue; 
    end; 
end; 

Answer 3

Ahí está el "Gastown Delphi analizador de línea de comandos", que fue recientemente de código abierto (por ejemplo on Torry's). Nunca lo he usado, así que no puedo comentarlo.

Answer 4

¿Qué pasa con FindCmdLineSwitch en la unidad SysUtils?

if FindCmdLineSwitch('h',['-'],false) then 
    Print_Help(); 
if FindCmdLineSwitch('v',['-'],false) then 
    print_Version(); 

tendrá que bucle a través de los parametros para obtener los valores, pero eso es bastante simple de hacer:

if FindCmdLineSwitch('f',['-'],false) then 
    for ix := 1 to paramcount do 
    if (paramStr(ix) = '-f') and (ix < paramcount) then 
     begin 
     if fileExists(ParamStr(ix+1)) then 
      filename := ParamStr(ix+1); 
     break; 
     end 

Answer 5

El archivo de la FPC RTL getopts.pp es autónomo Delphi (Delphi2009 incluido) compatible que implementa getopt:

aplicación getopt para Free Pascal, el modelo de GNU getopt

El unit está disponible en el repositorio FPC SVN.

Answer 6

Consulte TCommandParser, descrito en este artículo de EDN http://edn.embarcadero.com/print/40404 y disponible para descargar en CodeCentral http://cc.embarcadero.com/item/27574. TCommandParser también debería incluirse en las demos de Delphi ahora. Hice que el código estuviera disponible gratuitamente para Embarcadero antes de irme, así que espero que lo incluyan en el marco o algo así en algún momento.

Answer 7

También hay un nuevo analizador llamado delphi-argparse que es relevante para esta pregunta.

Answer 8

Analizador basado en atributos para Delphi se puede encontrar here.