summaryrefslogtreecommitdiff
path: root/Make.lpr
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2016-05-09 16:15:07 +0200
committerErich Eckner <git@eckner.net>2016-05-09 16:15:07 +0200
commiteb86e555f015200e3bb3ac6d839df0b6ca13248d (patch)
tree7b06cb4799ccc9f01f0bb23677c35a0842857e1a /Make.lpr
parent3a14085bd25270d5912b82a2acfd05de14844fe5 (diff)
downloadMake-eb86e555f015200e3bb3ac6d839df0b6ca13248d.tar.xz
manpage update, Hilfe aus Programm entfernt
Diffstat (limited to 'Make.lpr')
-rw-r--r--Make.lpr19
1 files changed, 1 insertions, 18 deletions
diff --git a/Make.lpr b/Make.lpr
index 030e0c5..7ebbfa9 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -19,7 +19,6 @@ type
procedure doRun; override;
public
constructor create(theOwner: tComponent); override;
- procedure writeHelp; virtual;
end;
function liesPruefsummenfile(sumNam: string; var dats: tDateienMitDaten): boolean;
@@ -387,21 +386,14 @@ var
inputfile,pruefsummenfile,errorMsg: string;
mglAbhaengigkeiten,zutunAbhaengigkeiten: tAbhaengigkeiten;
dateien: tDateienMitDaten;
- i: longint;
begin
- errorMsg:=checkOptions('A:HWD:P:au','Ausgabe: Hilfe Watte Datei: Prüfsummen: alleSummenErneuern unsicher');
+ errorMsg:=checkOptions('A:WD:P:au','Ausgabe: Watte Datei: Prüfsummen: alleSummenErneuern unsicher');
if errorMsg<>'' then begin
showException(exception.create(errorMsg+#10'Hilfe: '+exename+' -H/--Hilfe'));
terminate;
exit;
end;
- if hasOption('H','Hilfe') then begin
- writeHelp;
- terminate;
- exit;
- end;
-
if (getOptionValue('A','Ausgabe')='') and not hasOption('W','Watte') then begin
showException(exception.create('Ausgabedatei wird benötigt!'));
terminate;
@@ -437,9 +429,6 @@ begin
exit;
end;
- for i:=0 to length(dateien)-1 do
- writeln(dateien[i].aktuell,' ',dateien[i].name);
-
writeln('Regeln: '+inttostr(length(mglAbhaengigkeiten))+', Dateien: '+inttostr(length(dateien)));
findeWasZuTunIst(mglAbhaengigkeiten,zuTunAbhaengigkeiten,dateien,inputfile);
writeln('anzuwendende Regeln: '+inttostr(length(zuTunAbhaengigkeiten)));
@@ -454,12 +443,6 @@ begin
stopOnException:=True;
end;
-procedure tMake.writeHelp;
-begin
- writeln('Verwendung:');
- writeln(' ',exeName,' -A/--Ausgabe $ausgabedatei -H/--Hilfe -W/--Watte -D/--Datei $Machdatei -P/--Prüfsummen $Prüfsummendatei -a/--alleSummenErneuern -u/--unsicher');
-end;
-
var
application: tMake;
begin