Plausibilität der Commandlineparameter prüfen

[ABoehlke]

Hallo Zusammen,

ich versuche mit Hilfe der Unit-RegExpr aus Lazarus 2.0.10 bzw. FPC 3.2.0 eine Plausibilitätsprüfung der per Commandline übergebenen Parameter durchzuführen.
Ziel soll es sein auf gültige Kombinationen der implementierten Optionen/Commandline-Switches zu prüfen unabhängig von der angegebenen Reihenfolge.
Es wird zum Start des Programms mittels CheckOptions bereits auf gültige Optionen geprüft.

Ich habe entweder das richtige handling von Strings nicht gefunden oder nicht verstanden
Natürlich habe ich bereits einige Tutorials in Bezug auf die Verarbeitung von Strings durchstöbert, komme aber nicht weiter.

Hat evtl. jemand eine Lösung oder einen Denkanstoß für mich?



Meine Anforderung
=============

Gültige Optionen sind:
(-m, --multi), (-h, --help) , (-v, --version), (--console), (-i, --install), (-r, --run), (-u, --uninstall), (-c, --config), (--stop)

Gültige Kombinationen:
-i setzt -r voraus schließt aber mindesten --stop aus
-m setzt (-i und-r) oder (-r und --console) voraus
-i erlaubt zusätzlich -m und/oder -c, aber nicht -h und/oder --console und setzt -r voraus

Ich weiß das es durchaus noch weiter Kombinationen gibt die es gilt zu prüfen. Ich denke aber mit der Lösung der genannten Kombinationen sollte ich das dann auch selbst entsprechend anpassen können.

Mit diesem Beispielprogramm habe ich getestet:

Code: Alles auswählen

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this }
  ,SysUtils, RegExpr;

var
  RegExprObj: TRegExpr;
  Expr, Cmdl: String;

begin
  RegExprObj:= TRegExpr.Create;
  writeln;
  Writeln(Format('  RegExpr-Version = %d.%d', [RegExprObj.VersionMajor, RegExprObj.VersionMinor]));
  writeln;
  Expr:= '.*(-i)(-r).*';
  Cmdl:= 'project1.exe -i -r';
  writeln('  Expression: '+ Expr);
  writeln('  Commandline: '+ Cmdl);
  RegExprObj.Expression:= Expr;
  if RegExprObj.Exec(Cmdl) then
    writeln('OKAY') else WriteLn('Not OKAY');
  RegExprObj.Free;
end.

Ausgabe von project1.exe

Code: Alles auswählen

C:\examples\RegExpr>project1

  RegExpr-Version = 0.987

  Expression: .*((-i)(-r)(?!--stop)).*
  Commandline: project1.exe -i -r
An unhandled exception occurred at $0042B12A:
ERegExpr: TRegExpr compile: unrecognized modifier (pos 20)
  $0042B12A
  $00427BCA
  $0042693B
  $0042693B
  $004259A2
  $00429BFB
  $00401839  main,  line 27 of project1.lpr

Auch wenn ich in obigem Beispiel auf den Ausschluß von "--stop" verzichte ist zwar die Exception weg, aber das Ergebnis trotzdem nicht richtig.

Code: Alles auswählen

C:\examples\RegExpr>project1

  RegExpr-Version = 0.987

  Expression: .*((-i)(-r)).*
  Commandline: project1.exe -i -r
Not OKAY

[Winni]

Hi!

Mal wieder eine Möglichkeit für die so oft unterschätzen Sets:

* strip die '-' und '--' weg

* Nimm jeweils den ersten Buchstaben und füge ihn einem Set hinzu:

Code: Alles auswählen

Type setofchar = Set of Char;

var MySet : setofchar;
..
MySet := [];
...
Include (Myset, ParameterChar);
.....

Und dann kannst Du logische if oder case Abfragen machen:

Code: Alles auswählen

if ('i' in MySet) and ('r' in Myset) then ...

So würde ich das machen.

Winni

[ABoehlke]

Das geht in diesem Fall leider nicht so einfach.
In Deinem Ansatz gibt es eine Kollision zwischen (-c, --config) und (--console)

Außerdem sollte dies auch mein Einstieg ind RegEx(RegExpr) werden.

Ich habe zwischenzeitlich einen Ansatz gefunden.

Code: Alles auswählen

RegEx: ((?=.*--install|.* -i)(?=.*--run|.* -r)(?!.*--console))

Diesen habe ich mit Unittests auf https://regex101.com verifiziert.

Allerdings stehe ich nun vor dem Bereits erwähnten Problem:

C:\examples\RegExpr>project1.exe

RegExpr-Version = 0.987

Expression: ((?=.*--install|.* -i)(?=.*--run|.* -r)(?!.*--console))
Commandline: project1.exe -i -r
An unhandled exception occurred at $0042B12A:
ERegExpr: TRegExpr compile: unrecognized modifier (pos 21)
$0042B12A
$00427BCA
$0042693B
$0042693B
$004259A2
$00429BFB
$00401839 main, line 27 of project1.lpr

[Winni]

Das geht in diesem Fall leider nicht so einfach.
In Deinem Ansatz gibt es eine Kollision zwischen (-c, --config) und (--console)

Außerdem sollte dies auch mein Einstieg ind RegEx(RegExpr) werden.

Hi

Also das erste Problem ist ja nun keins: Musst du aus --console ein 'k' machen.

Aber wenn Du es lieber kompliziert mit RegEx machen möchtest - da würde ich mir zum Einstieg was Einfacheres aussuchen.

Winni

[Socke]

Ich habe zwischenzeitlich einen Ansatz gefunden.

Code: Alles auswählen

RegEx: ((?=.*--install|.* -i)(?=.*--run|.* -r)(?!.*--console))

Diesen habe ich mit Unittests auf https://regex101.com verifiziert.

Die von Free Pascal mitgelieferten Units sind leider nicht ganz so mächtig wie andere Bibliotheken. Daher kannst du hier schon eimal auf nicht unterstützte Modifikatoren etc. stoßen.
Ich würde jede Option einzeln prüfen und deren Vorhandensein speichern. Die Verifikation kannst du dann in klassischer Programmlogik durchführen und im Fehlerfalle eine aussagekräftige Meldung anzeigen. Bei regulären Ausdrücken muss man sich meist auf ein "passt nicht" reduzieren, da die RegEx nur sagt, dass der gesamte Ausdruck nicht gefunden wurde, aber nicht ausgibt, was fehlt bzw. falsch ist.

[ABoehlke]

Vielen Dank für Eure Unterstützung und hilfreichen Hinweise.

Ich werde noch etwas die Dokumentationen zu den Units studieren, bringt es mich dann ja doch auch etwas tiefer in die Möglichkeiten von RegEx und im speziellen der von FPC mitgelieferten Implementierungen.

Danke und bis bald mal wieder.

[charlytango]

Ich werde noch etwas die Dokumentationen zu den Units studieren, bringt es mich dann ja doch auch etwas tiefer in die Möglichkeiten von RegEx und im speziellen der von FPC mitgelieferten Implementierungen.

bin etwas erstaunt, liegt aber vielleicht an meiner Abneigung von regex mangels Routine.
Ist das nicht etwas wie mit Kanonen aus Spatzen scheißen?

Hier geht es ganz ohne regex:
https://wiki.lazarus.freepascal.org/Com ... _variables

Parameter in einer Schleife abfragen, Testen (also Prüflogiken einbauen) und Meldungen schreiben.

[Roland Chastain]

Hallo!

Wenn ich richtig verstanden habe, was du machen willst, und wenn Sie wirklich reguläre Ausdrücke verwenden möchten, vielleicht könnte so etwas funktionieren:

Code: Alles auswählen

  HasOptI, HasOptR, HasOptM: boolean;
begin
  { ... }
  
  RegExprObj.Expression:= '\s(-i|--install)(\s|$)';
  HasOptI := RegExprObj.Exec(Cmdl);
  
  RegExprObj.Expression:= '\s(-r|--run)(\s|$)';
  HasOptR := RegExprObj.Exec(Cmdl);
  
  RegExprObj.Expression:= '\s(-m|--multi)(\s|$)';
  HasOptM := RegExprObj.Exec(Cmdl);
  
  // Oder kürzer:
  
  HasOptM := ExecRegExpr('\s(-m|--multi)(\s|$)', Cmdl);
  
  // (\s|$) = Ein Leerzeichen oder das Ende der Zeichenfolge
  

Viele Grüße.

Roland

[BeniBela]

Für sowas habe ich einen CommandLineReader gebaut.

Der kann dann auch gleich eine Hilfe ausgeben, wenn ein Parameter falsch ist

[ABoehlke]

Zum Abschluss noch ein paar Informationen aus meinen Untersuchungen zu RegEx zu diesem Thema.

Leider unterstützen die von FPC genannten Implementierungen zu "Regular Expressions" keine lookaheads.
Diese sind die Voraussetzung für den von mir angedachten Ausdruck "((?=.*--install|.* -i)(?=.*--run|.* -r)(?!.*--console))"
Mit diesem, war meine Überlegungung, könnte mit nur einer Abfrage (if not RegExpr then Except) die Plausibilität geprüft werden.

Ich denke das war's mit meinem ersten Ausflug in den Bereich der "Regular Expressions", diesmal.
Ich werde es dann doch mit geignetem Programcode lösen.

Danke noch einaml für Eure Unterstützung und Anregungen.

[sstvmaster]

Und sowas:

Code: Alles auswählen

Expr:= '((\s--install|\s-i)|(\s--run|\s-r)|(!\s--console))';