From 2c55053cb2f874fb2699eb719f2b51f72fce045f Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 9 Jan 2018 15:39:07 +0100
Subject: dateibeziehungen.pas: alle explizit zu überwachenden sind "lokal"
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Make.lps             | 159 +++++++++++++++++++++++++++------------------------
 dateibeziehungen.pas |  18 +++---
 2 files changed, 94 insertions(+), 83 deletions(-)

diff --git a/Make.lps b/Make.lps
index afb70ff..73a3a00 100644
--- a/Make.lps
+++ b/Make.lps
@@ -3,37 +3,37 @@
   <ProjectSession>
     <Version Value="10"/>
     <BuildModes Active="Default"/>
-    <Units Count="17">
+    <Units Count="18">
       <Unit0>
         <Filename Value="Make.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="30"/>
+        <TopLine Value="53"/>
         <CursorPos X="19" Y="31"/>
-        <UsageCount Value="108"/>
+        <UsageCount Value="112"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="Machdatei.txt"/>
         <IsPartOfProject Value="True"/>
-        <UsageCount Value="108"/>
+        <UsageCount Value="112"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit1>
       <Unit2>
         <Filename Value="tools.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="420"/>
-        <CursorPos X="18" Y="440"/>
-        <UsageCount Value="87"/>
+        <TopLine Value="255"/>
+        <CursorPos X="67" Y="283"/>
+        <UsageCount Value="91"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
         <Filename Value="../units/mystringlistunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="3"/>
-        <TopLine Value="655"/>
-        <CursorPos X="57" Y="672"/>
-        <UsageCount Value="84"/>
+        <TopLine Value="676"/>
+        <CursorPos X="47" Y="693"/>
+        <UsageCount Value="88"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
@@ -42,10 +42,10 @@
         <UnitName Value="dateiBeziehungen"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="84"/>
-        <CursorPos X="38" Y="102"/>
-        <FoldState Value=" T3ja03C pjYkO0B4]9ZkD0l317,"/>
-        <UsageCount Value="76"/>
+        <TopLine Value="672"/>
+        <CursorPos X="33" Y="987"/>
+        <FoldState Value=" T3jb03C pjYkO0B4]9ZkD0l3]97kJ0!7]9AlH0F112]B0lf0G[944jQ033S"/>
+        <UsageCount Value="80"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
@@ -63,9 +63,9 @@
       <Unit7>
         <Filename Value="../units/lowlevelunit.pas"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="1276"/>
-        <CursorPos X="81" Y="1311"/>
-        <UsageCount Value="21"/>
+        <TopLine Value="145"/>
+        <CursorPos Y="154"/>
+        <UsageCount Value="23"/>
         <Loaded Value="True"/>
       </Unit7>
       <Unit8>
@@ -104,9 +104,9 @@
       <Unit13>
         <Filename Value="../units/systemunit.pas"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="13"/>
-        <CursorPos X="45" Y="33"/>
-        <UsageCount Value="15"/>
+        <TopLine Value="121"/>
+        <CursorPos X="21" Y="131"/>
+        <UsageCount Value="17"/>
         <Loaded Value="True"/>
       </Unit13>
       <Unit14>
@@ -120,9 +120,9 @@
       <Unit15>
         <Filename Value="/usr/lib/fpc/src/rtl/inc/objpash.inc"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="173"/>
-        <CursorPos X="23" Y="193"/>
-        <UsageCount Value="9"/>
+        <TopLine Value="402"/>
+        <CursorPos X="31" Y="421"/>
+        <UsageCount Value="10"/>
       </Unit15>
       <Unit16>
         <Filename Value="Make.1.in"/>
@@ -131,126 +131,133 @@
         <UsageCount Value="9"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit16>
+      <Unit17>
+        <Filename Value="/usr/lib/fpc/src/rtl/objpas/sysutils/osutilsh.inc"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="7"/>
+        <CursorPos X="10" Y="25"/>
+        <UsageCount Value="10"/>
+      </Unit17>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="47" Column="25" TopLine="31"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="1287" Column="23" TopLine="1284"/>
       </Position1>
       <Position2>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="329" Column="3" TopLine="295"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="1309" Column="33" TopLine="1297"/>
       </Position2>
       <Position3>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="31" Column="38"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1049" Column="60" TopLine="1027"/>
       </Position3>
       <Position4>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="599" Column="41" TopLine="574"/>
+        <Caret Line="95" Column="24" TopLine="77"/>
       </Position4>
       <Position5>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="47" Column="88" TopLine="32"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="729" Column="22" TopLine="636"/>
       </Position5>
       <Position6>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="599" Column="41" TopLine="574"/>
+        <Caret Line="766" Column="22" TopLine="737"/>
       </Position6>
       <Position7>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="603" Column="15" TopLine="586"/>
+        <Caret Line="833" Column="44" TopLine="809"/>
       </Position7>
       <Position8>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="633" Column="74" TopLine="607"/>
+        <Caret Line="837" Column="32" TopLine="809"/>
       </Position8>
       <Position9>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="603" TopLine="579"/>
+        <Caret Line="1047" Column="54" TopLine="1024"/>
       </Position9>
       <Position10>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="608" Column="25" TopLine="593"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="1329" Column="30" TopLine="1306"/>
       </Position10>
       <Position11>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="24" Column="16" TopLine="7"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1048" Column="24" TopLine="1024"/>
       </Position11>
       <Position12>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="324" Column="6" TopLine="300"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="49" Column="64" TopLine="30"/>
       </Position12>
       <Position13>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="590" Column="13" TopLine="572"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="1269" Column="44" TopLine="1252"/>
       </Position13>
       <Position14>
-        <Filename Value="dateibeziehungen.pas"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="545" Column="69" TopLine="530"/>
       </Position14>
       <Position15>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="590" Column="20" TopLine="476"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="50" Column="31" TopLine="27"/>
       </Position15>
       <Position16>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="603" Column="20" TopLine="575"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="417" Column="31" TopLine="388"/>
       </Position16>
       <Position17>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="632" Column="20" TopLine="598"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="419" TopLine="419"/>
       </Position17>
       <Position18>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="588" Column="21" TopLine="580"/>
+        <Filename Value="tools.pas"/>
       </Position18>
       <Position19>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="837" Column="76" TopLine="809"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="50" Column="31" TopLine="21"/>
       </Position19>
       <Position20>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="102" Column="27" TopLine="84"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="449" TopLine="415"/>
       </Position20>
       <Position21>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="834" Column="29" TopLine="806"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="472" Column="37" TopLine="455"/>
       </Position21>
       <Position22>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="929" Column="67" TopLine="917"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="473" Column="27" TopLine="456"/>
       </Position22>
       <Position23>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="102" Column="45" TopLine="84"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="400" Column="32" TopLine="372"/>
       </Position23>
       <Position24>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="834" Column="60" TopLine="816"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="48" Column="68" TopLine="30"/>
       </Position24>
       <Position25>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="922" Column="56" TopLine="905"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="294" Column="70" TopLine="284"/>
       </Position25>
       <Position26>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="929" Column="73" TopLine="914"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="295" Column="46" TopLine="284"/>
       </Position26>
       <Position27>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="937" TopLine="918"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="261" TopLine="253"/>
       </Position27>
       <Position28>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="102" Column="14" TopLine="84"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="283" Column="70" TopLine="255"/>
       </Position28>
       <Position29>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="936" Column="21" TopLine="918"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="31" Column="19" TopLine="53"/>
       </Position29>
       <Position30>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="942" Column="73" TopLine="915"/>
+        <Caret Line="109" Column="36" TopLine="91"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 4fb444f..d55fe43 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -5,7 +5,7 @@ unit dateiBeziehungen;
 interface
 
 uses
-  classes, sysUtils, tools, regExpr;
+  classes, sysUtils, tools, regExpr, mystringlistunit;
 
 type
   tZeilenTyp = (ztSuche,ztZiel,ztQuelle,ztBefehl);
@@ -92,6 +92,7 @@ type
   tMach = class
   private
     _machDatei,_pruefSummenDatei: string;
+    _ueberwachteDateien:          tMyStringList;
     _oriAbh:                      tGenerischeAbhaengigkeiten;
     _mglAbh:                      tExpliziteAbhaengigkeiten;
     _dats:                        tDateienMitDaten;
@@ -116,7 +117,7 @@ procedure allgemeineErsetzungen(var worin: string; worinIstRegex: tRegexTyp; mac
 implementation
 
 uses
-  lowlevelunit, mystringlistunit, systemunit;
+  lowlevelunit, systemunit;
 
 // tGenerischeAbhaengigkeiten ************************************************************
 
@@ -725,6 +726,7 @@ begin
   _mglAbh:=tExpliziteAbhaengigkeiten.create;
   _dats:=tDateienMitDaten.create;
   _warten:=warten;
+  _ueberwachteDateien:=tMyStringList.create;
 
   // machDatei teilweise prüfen und setzen
   if machDatei='' then begin
@@ -761,6 +763,7 @@ begin
   _mglAbh.free;
   _dats.mrProper;
   _dats.free;
+  _ueberwachteDateien.free;
   for i:=0 to length(_ign)-1 do
     _ign[i].free;
   setLength(_ign,0);
@@ -830,7 +833,8 @@ begin
         end
         else begin
           rek:=startetMit('-r',s);
-          while s<>'' do
+          while s<>'' do begin
+            _ueberwachteDateien.add(char(ord('0')+byte(rek))+s);
             if sammleDateien(erstesArgument(s),rek)=0 then begin
               f.stepBack;
               f.readln(s);
@@ -838,6 +842,7 @@ begin
               aufraeumen;
               exit;
             end;
+          end;
         end;
       end;
       ztBefehl: begin
@@ -1038,11 +1043,10 @@ begin
   if (sicher=1) or // der Benutzer will es
     ((sicher=0) and (_dats.finde(_machDatei).aktuell<>aAktuell)) then begin // die Machdatei ist nicht aktuell
     lokTest:=tRegExpr.create;
-    if (ausgabeDatei='') or
-      (extractFilePath(ausgabeDatei)=extractFilePath(_pruefSummenDatei)) then
-      lokTest.expression:=unterVerzeichnisRegex([_pruefSummenDatei])
+    if ausgabeDatei<>'' then
+      lokTest.expression:=unterVerzeichnisRegex(['0'+ausgabeDatei,_ueberwachteDateien])
     else
-      lokTest.expression:=unterVerzeichnisRegex([ausgabeDatei,_pruefSummenDatei]);
+      lokTest.expression:=unterVerzeichnisRegex([_ueberwachteDateien]);
     alleDateien:=_dats.toMyStringList;
     alleDateien.grep('^\.uralt\.$',true);
     for i:=0 to befehle.count-1 do
-- 
cgit v1.2.3-70-g09d2