Option -w|--warten neu

1 files changed, 11 insertions, 4 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index e69bf56..f016faa 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -96,11 +96,12 @@ type
     _mglAbh:                      tExpliziteAbhaengigkeiten;
     _dats:                        tDateienMitDaten;
     _ign:                         array of tRegExpr;
+    _warten:                      boolean;
     function liesMachDatei: boolean;
     function liesPruefsummenfile: boolean;
     function sammleDateien(wo: string; rekursiv: boolean): longint;
   public
-    constructor create(machDatei, pruefSummenDatei: string);
+    constructor create(machDatei, pruefSummenDatei: string; warten: boolean);
     destructor destroy; override;
     procedure erzeugeRegeln;
     procedure findeWasZuTunIst;
@@ -700,12 +701,13 @@ end;
 
 // tMach ***********************************************************************
 
-constructor tMach.create(machDatei, pruefSummenDatei: string);
+constructor tMach.create(machDatei, pruefSummenDatei: string; warten: boolean);
 begin
   inherited create;
   _oriAbh:=tGenerischeAbhaengigkeiten.create;
   _mglAbh:=tExpliziteAbhaengigkeiten.create;
   _dats:=tDateienMitDaten.create;
+  _warten:=warten;
 
   // machDatei teilweise prüfen und setzen
   if machDatei='' then begin
@@ -1036,8 +1038,13 @@ begin
     assignFile(ausg,ausgabeDatei);
     rewrite(ausg);
     writeln(ausg,'set -e');
-    for i:=0 to befehle.count-1 do
-      writeln(ausg,'('+befehle[i]+') || (printf ''In\n"%s"\n'' "'+escape(befehle[i],'\"','\')+'"; read -p "ist ein Fehler aufgetreten! ... "; exit 1)');
+    for i:=0 to befehle.count-1 do begin
+      write(ausg,'('+befehle[i]+') || (printf ''In\n"%s"\n'' "'+escape(befehle[i],'\"','\')+'"; ');
+      if _warten then
+        writeln(ausg,'read -p "ist ein Fehler aufgetreten! ... "; exit 1)')
+      else
+        writeln(ausg,'printf ''ist ein Fehler aufgetreten!\n''; exit 1)');
+    end;
     closeFile(ausg);
   end;
   befehle.free;