From 4b56ce331b7c628236300e0cf4e880cb31f18665 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 11 May 2016 09:25:28 +0200
Subject: etwas aufgeräumt, warnen bei überzähligen Optionen
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Make.lpr | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

(limited to 'Make.lpr')

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;
-- 
cgit v1.2.3-54-g00ecf