From 284addb3e31caaa129cd8010141932d8bd17ed67 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 14 Dec 2017 14:58:19 +0100
Subject: Option -w|--warten neu

---
 Make.1.in            |  3 ++
 Make.lpr             |  5 ++--
 Make.lps             | 83 ++++++++++++++++++++++++++--------------------------
 dateibeziehungen.pas | 15 +++++++---
 4 files changed, 58 insertions(+), 48 deletions(-)

diff --git a/Make.1.in b/Make.1.in
index a18f18a..48acf2f 100644
--- a/Make.1.in
+++ b/Make.1.in
@@ -24,6 +24,9 @@ print nothing but error messages and (if \fB-A\fP omitted) commands
 .TP
 .B "\-u, \-\-unsicher"
 accept running jobs outside of directory of \fIAusgabedatei\fP or \fIPrüfsummendatei\fP
+.TP
+.B "\-w, \-\-warten"
+wait for user input on error
 .SH MACHDATEI SYNTAX
 \fB#\fP starts comments, empty lines are ignored.
 .PP
diff --git a/Make.lpr b/Make.lpr
index 70ea667..8f6ef4e 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -35,8 +35,9 @@ begin
   lOpts.add('Prüfsummen:');
   lOpts.add('leise');
   lOpts.add('unsicher');
+  lOpts.add('warten');
   nonOpts:=tStringList.create;
-  errorMsg:=checkOptions('A:D:P:lu',lOpts,nil,nonOpts,true);
+  errorMsg:=checkOptions('A:D:P:luw',lOpts,nil,nonOpts,true);
   lOpts.free;
   while nonOpts.count>0 do begin
     if errorMsg<>'' then
@@ -61,7 +62,7 @@ begin
   else
     pd:='';
 
-  mach:=tMach.create(md,pd);
+  mach:=tMach.create(md,pd,hasOption('w','warten'));
 
   gibAus('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats),3);
   mach.erzeugeRegeln;
diff --git a/Make.lps b/Make.lps
index d6ef6d1..78bf2b2 100644
--- a/Make.lps
+++ b/Make.lps
@@ -7,8 +7,9 @@
       <Unit0>
         <Filename Value="Make.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="35"/>
-        <CursorPos X="28" Y="64"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="48"/>
+        <CursorPos X="37" Y="65"/>
         <UsageCount Value="100"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -40,11 +41,10 @@
         <Filename Value="dateibeziehungen.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="dateiBeziehungen"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="583"/>
-        <CursorPos X="46" Y="615"/>
-        <FoldState Value=" T3jZ03C pjYkO0B4]9Tk70y317]B8oN0E112 pielZ0G[94djI033p"/>
+        <TopLine Value="1026"/>
+        <CursorPos X="11" Y="1043"/>
+        <FoldState Value=" T3ja03C pjYkO0B4]9Tk70y3]97kW0n7]99kZ0E112 pielZ0G114A"/>
         <UsageCount Value="68"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -112,9 +112,9 @@
         <Filename Value="/usr/lib/fpc/src/packages/fcl-base/src/custapp.pp"/>
         <UnitName Value="CustApp"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="516"/>
-        <CursorPos X="61" Y="411"/>
-        <UsageCount Value="7"/>
+        <TopLine Value="56"/>
+        <CursorPos X="14" Y="72"/>
+        <UsageCount Value="10"/>
       </Unit14>
       <Unit15>
         <Filename Value="/usr/lib/fpc/src/rtl/inc/objpash.inc"/>
@@ -134,121 +134,120 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="757" Column="57" TopLine="739"/>
+        <Caret Line="866" Column="29" TopLine="849"/>
       </Position1>
       <Position2>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="760" Column="19" TopLine="743"/>
+        <Caret Line="997" Column="56" TopLine="990"/>
       </Position2>
       <Position3>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="787" Column="61" TopLine="770"/>
       </Position3>
       <Position4>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="794" Column="34" TopLine="777"/>
+        <Caret Line="718" Column="40" TopLine="693"/>
       </Position4>
       <Position5>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="851" Column="7" TopLine="834"/>
+        <Caret Line="608" Column="62" TopLine="589"/>
       </Position5>
       <Position6>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="857" Column="19" TopLine="838"/>
+        <Caret Line="1033" Column="87" TopLine="989"/>
       </Position6>
       <Position7>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="861" Column="22" TopLine="843"/>
+        <Caret Line="810" Column="62" TopLine="794"/>
       </Position7>
       <Position8>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="862" Column="89" TopLine="845"/>
+        <Caret Line="600" Column="26" TopLine="583"/>
       </Position8>
       <Position9>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="866" Column="29" TopLine="849"/>
+        <Caret Line="602" Column="26" TopLine="583"/>
       </Position9>
       <Position10>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="997" Column="56" TopLine="990"/>
+        <Caret Line="1033" Column="88" TopLine="1005"/>
       </Position10>
       <Position11>
         <Filename Value="dateibeziehungen.pas"/>
       </Position11>
       <Position12>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="718" Column="40" TopLine="693"/>
+        <Caret Line="600" Column="26" TopLine="584"/>
       </Position12>
       <Position13>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="608" Column="62" TopLine="589"/>
+        <Caret Line="59" Column="33" TopLine="41"/>
       </Position13>
       <Position14>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1033" Column="87" TopLine="989"/>
+        <Caret Line="285" Column="20" TopLine="164"/>
       </Position14>
       <Position15>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="810" Column="62" TopLine="794"/>
+        <Caret Line="762" Column="73" TopLine="755"/>
       </Position15>
       <Position16>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="605" Column="20" TopLine="623"/>
+        <Caret Line="100" Column="33" TopLine="82"/>
       </Position16>
       <Position17>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="600" Column="26" TopLine="583"/>
+        <Caret Line="724" Column="29" TopLine="695"/>
       </Position17>
       <Position18>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="602" Column="26" TopLine="583"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="50" Column="21" TopLine="32"/>
       </Position18>
       <Position19>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1033" Column="88" TopLine="1005"/>
+        <Caret Line="727" TopLine="473"/>
       </Position19>
       <Position20>
-        <Filename Value="dateibeziehungen.pas"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="39" Column="36" TopLine="35"/>
       </Position20>
       <Position21>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="600" Column="26" TopLine="584"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="65" Column="16" TopLine="41"/>
       </Position21>
       <Position22>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="59" Column="33" TopLine="41"/>
+        <Caret Line="104" Column="19" TopLine="75"/>
       </Position22>
       <Position23>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="285" Column="20" TopLine="164"/>
+        <Caret Line="75" Column="23" TopLine="56"/>
       </Position23>
       <Position24>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="762" Column="73" TopLine="755"/>
       </Position24>
       <Position25>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="160" Column="74" TopLine="693"/>
+        <Caret Line="75" Column="23" TopLine="46"/>
       </Position25>
       <Position26>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="100" Column="33" TopLine="82"/>
+        <Caret Line="84" Column="23" TopLine="55"/>
       </Position26>
       <Position27>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="724" Column="29" TopLine="695"/>
+        <Caret Line="104" Column="59" TopLine="75"/>
       </Position27>
       <Position28>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="848" Column="35" TopLine="855"/>
+        <Caret Line="276" Column="44" TopLine="127"/>
       </Position28>
       <Position29>
-        <Filename Value="tools.pas"/>
-        <Caret Line="50" Column="21" TopLine="32"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1046" Column="75" TopLine="1016"/>
       </Position29>
       <Position30>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="727" TopLine="473"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="65" Column="16" TopLine="41"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
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;
-- 
cgit v1.2.3-54-g00ecf