summaryrefslogtreecommitdiff
path: root/tools.pas
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2016-05-11 08:46:14 +0200
committerErich Eckner <git@eckner.net>2016-05-11 08:46:14 +0200
commit2ac4f98eeccfa92177bcd419206ce621e0ae4535 (patch)
tree28c3be92df61b7eeaf97041f6d7b2b5ae6f1afc5 /tools.pas
parent98672cefe5f4033655de8d626969c5a9eb0b6ef8 (diff)
downloadMake-2ac4f98eeccfa92177bcd419206ce621e0ae4535.tar.xz
aufgeräumt, Fehler bei nicht passendem Überwachungsmuster
Diffstat (limited to 'tools.pas')
-rw-r--r--tools.pas13
1 files changed, 7 insertions, 6 deletions
diff --git a/tools.pas b/tools.pas
index 843ba7f..4ba44a7 100644
--- a/tools.pas
+++ b/tools.pas
@@ -39,6 +39,9 @@ function dateienMitGueltigerSumme(sumNam: string): tStringList;
implementation
+uses
+ lowlevelunit;
+
function min(a1,a2: tAktualitaet): tAktualitaet;
begin
if a1<a2 then
@@ -163,7 +166,7 @@ begin
dateien:=extrahiereAlleDateien(args+' '+bef);
if dateien.count = 0 then
- writeln('*** Warnung: Hier ist ein Befehl ohne offensichtliche input-Dateien! ('''+oBef+''')!');
+ gibAus('Warnung: Hier ist ein Befehl ohne offensichtliche input-Dateien! ('''+oBef+''')!',3);
sl:=tMyStringlist.create;
relZeil:=tMyStringlist.create;
@@ -178,17 +181,15 @@ begin
for i:=0 to relZeil.count-1 do begin
re.inputString:=relZeil[i];
if re.subExprMatchCount=0 then
- writeln('*** Warnung: Hier ist eine Zeile in der optionsdatei, die keine passende Inputdatei benennt, es aber sollte! ('''+relZeil[i]+''')!');
+ gibAus('Warnung: Hier ist eine Zeile in der optionsdatei, die keine passende Inputdatei benennt, es aber sollte! ('''+relZeil[i]+''')!',3);
for j:=0 to re.subExprMatchCount-1 do begin
s:=trim(re.match[j]);
if (leftStr(s,1)='"') and (rightStr(s,1)='"') then begin
delete(s,1,1);
delete(s,length(s),1);
end;
- if not lokTest.exec(s) then begin
- writeln('*** FEHLER: '''+relZeil[i]+''' in Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')');
- halt(1);
- end;
+ if not lokTest.exec(s) then
+ fehler(''''+relZeil[i]+''' in Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')');
end;
end;
re.free;