summaryrefslogtreecommitdiff
path: root/Make.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'Make.lpr')
-rw-r--r--Make.lpr8
1 files changed, 6 insertions, 2 deletions
diff --git a/Make.lpr b/Make.lpr
index 493a830..e7b862e 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -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;