summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Make.lps159
-rw-r--r--dateibeziehungen.pas18
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