summaryrefslogtreecommitdiff
path: root/Make.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'Make.lpr')
-rw-r--r--Make.lpr27
1 files changed, 22 insertions, 5 deletions
diff --git a/Make.lpr b/Make.lpr
index 30a5956..0574565 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -25,10 +25,27 @@ type
procedure tMake.doRun;
var
- mach: tMach;
- errorMsg: string;
+ mach: tMach;
+ errorMsg: string;
+ lOpts,nonOpts: tStringList;
begin
- errorMsg:=checkOptions('A:D:P:alu','Ausgabe: Datei: Prüfsummen: alleSummenErneuern leise unsicher',true);
+ lOpts:=tStringList.create;
+ lOpts.add('Ausgabe:');
+ lOpts.add('Datei:');
+ lOpts.add('Prüfsummen:');
+ lOpts.add('alleSummenErneuern');
+ lOpts.add('leise');
+ lOpts.add('unsicher');
+ nonOpts:=tStringList.create;
+ errorMsg:=checkOptions('A:D:P:alu',lOpts,nil,nonOpts,true);
+ lOpts.free;
+ while nonOpts.count>0 do begin
+ if errorMsg<>'' then
+ errorMsg:=errorMsg+#10;
+ errorMsg:=errorMsg+'Überzähliges Argument '''+nonOpts[0]+'''!';
+ nonOpts.delete(0);
+ end;
+ nonOpts.free;
if errorMsg<>'' then
fehler(errorMsg+#10'Hilfe: man Make');
@@ -40,12 +57,12 @@ begin
if hasOption('D','Datei') then
mach.machDatei:=getOptionValue('D','Datei')
else
- mach.machDatei:=myReadLink('Machdatei');
+ mach.machDatei:='';
if hasOption('P','Prüfsummen') then
mach.pruefsummenDatei:=getOptionValue('P','Prüfsummen')
else
- mach.setzeGenerischePruefsummenDatei;
+ mach.pruefsummenDatei:='';
gibAus('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats),3);
mach.erzeugeRegeln;