diff options
Diffstat (limited to 'Make.lpr')
-rw-r--r-- | Make.lpr | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -34,10 +34,11 @@ begin lOpts.add('Datei:'); lOpts.add('Prüfsummen:'); lOpts.add('leise'); + lOpts.add('sicher'); lOpts.add('unsicher'); lOpts.add('warten'); nonOpts:=tStringList.create; - errorMsg:=checkOptions('A:D:P:luw',lOpts,nil,nonOpts,true); + errorMsg:=checkOptions('A:D:P:lsuw',lOpts,nil,nonOpts,true); lOpts.free; while nonOpts.count>0 do begin if errorMsg<>'' then @@ -49,6 +50,9 @@ begin if errorMsg<>'' then fehler(errorMsg+#10'Hilfe: man Make'); + if hasOption('u','unsicher') and hasOption('s','sicher') then + fehler('Die Optionen -s|--sicher und -u|--unsicher schließen sich gegenseitig aus!'); + if hasOption('l','leise') then __ausgabenMaske:=3; @@ -69,7 +73,7 @@ begin gibAus('Regeln: '+intToStr(mach.anzMglAbh)+', Dateien: '+intToStr(mach.anzDats),3); mach.findeWasZuTunIst; gibAus('anzuwendende Regeln: '+intToStr(mach.anzMglAbh),3); - mach.tueWasZuTunIst(hasOption('u','unsicher'),getOptionValue('A','Ausgabe')); + mach.tueWasZuTunIst(byte(hasOption('s','sicher'))-byte(hasOption('u','unsicher')),getOptionValue('A','Ausgabe')); terminate; end; |