summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Make.lps129
-rw-r--r--dateibeziehungen.pas17
2 files changed, 80 insertions, 66 deletions
diff --git a/Make.lps b/Make.lps
index 01cb6f2..29c6750 100644
--- a/Make.lps
+++ b/Make.lps
@@ -7,23 +7,24 @@
<Unit0>
<Filename Value="Make.lpr"/>
<IsPartOfProject Value="True"/>
- <CursorPos X="37" Y="10"/>
- <UsageCount Value="91"/>
+ <TopLine Value="47"/>
+ <CursorPos X="16" Y="70"/>
+ <UsageCount Value="92"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="Machdatei.txt"/>
<IsPartOfProject Value="True"/>
- <UsageCount Value="91"/>
+ <UsageCount Value="92"/>
<DefaultSyntaxHighlighter Value="None"/>
</Unit1>
<Unit2>
<Filename Value="tools.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="4"/>
- <TopLine Value="413"/>
- <CursorPos X="23" Y="430"/>
- <UsageCount Value="70"/>
+ <TopLine Value="24"/>
+ <CursorPos X="11" Y="41"/>
+ <UsageCount Value="71"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
@@ -32,7 +33,7 @@
<EditorIndex Value="2"/>
<TopLine Value="288"/>
<CursorPos X="14" Y="322"/>
- <UsageCount Value="67"/>
+ <UsageCount Value="68"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
@@ -41,10 +42,10 @@
<UnitName Value="dateiBeziehungen"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
- <TopLine Value="815"/>
- <CursorPos X="20" Y="833"/>
- <FoldState Value=" T3k103C2322_"/>
- <UsageCount Value="59"/>
+ <TopLine Value="1007"/>
+ <CursorPos X="36" Y="1039"/>
+ <FoldState Value=" T3k003C pjYkO0A3315"/>
+ <UsageCount Value="60"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
@@ -64,7 +65,7 @@
<EditorIndex Value="3"/>
<TopLine Value="857"/>
<CursorPos X="18" Y="862"/>
- <UsageCount Value="11"/>
+ <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
@@ -132,123 +133,123 @@
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
- <Filename Value="tools.pas"/>
- <Caret Line="41" Column="78" TopLine="23"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="542" Column="32" TopLine="530"/>
</Position1>
<Position2>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="1024" Column="84" TopLine="1007"/>
+ <Caret Line="114" Column="28" TopLine="97"/>
</Position2>
<Position3>
- <Filename Value="tools.pas"/>
- <Caret Line="41" Column="35" TopLine="23"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="925" Column="27" TopLine="905"/>
</Position3>
<Position4>
- <Filename Value="tools.pas"/>
- <Caret Line="272" Column="12" TopLine="255"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="79" Column="26" TopLine="62"/>
</Position4>
<Position5>
- <Filename Value="tools.pas"/>
- <Caret Line="42" Column="31" TopLine="24"/>
+ <Filename Value="Make.lpr"/>
+ <Caret Line="70" Column="16" TopLine="47"/>
</Position5>
<Position6>
- <Filename Value="tools.pas"/>
- <Caret Line="272" Column="33" TopLine="244"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="115" Column="31" TopLine="99"/>
</Position6>
<Position7>
- <Filename Value="tools.pas"/>
- <Caret Line="328" Column="36" TopLine="307"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="1016" Column="13" TopLine="996"/>
</Position7>
<Position8>
- <Filename Value="../units/mystringlistunit.pas"/>
- <Caret Line="33" Column="22" TopLine="10"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="97" Column="5" TopLine="79"/>
</Position8>
<Position9>
- <Filename Value="../units/mystringlistunit.pas"/>
- <Caret Line="181" Column="31" TopLine="152"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="32" Column="3" TopLine="14"/>
</Position9>
<Position10>
- <Filename Value="../units/mystringlistunit.pas"/>
- <Caret Line="302" Column="32" TopLine="285"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="16" Column="3"/>
</Position10>
<Position11>
- <Filename Value="../units/mystringlistunit.pas"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="15" Column="54"/>
</Position11>
<Position12>
- <Filename Value="../units/mystringlistunit.pas"/>
- <Caret Line="33" Column="36" TopLine="4"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="14"/>
</Position12>
<Position13>
- <Filename Value="../units/mystringlistunit.pas"/>
- <Caret Line="181" Column="31" TopLine="152"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="1013" Column="24" TopLine="995"/>
</Position13>
<Position14>
- <Filename Value="tools.pas"/>
- <Caret Line="328" Column="53" TopLine="310"/>
+ <Filename Value="dateibeziehungen.pas"/>
</Position14>
<Position15>
- <Filename Value="tools.pas"/>
- <Caret Line="41" Column="66" TopLine="24"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="14" Column="26"/>
</Position15>
<Position16>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="1024" Column="84" TopLine="1007"/>
+ <Caret Line="32" Column="58" TopLine="3"/>
</Position16>
<Position17>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="981" Column="33" TopLine="976"/>
+ <Caret Line="33" Column="63" TopLine="4"/>
</Position17>
<Position18>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="986" Column="15" TopLine="968"/>
+ <Caret Line="35" Column="58" TopLine="6"/>
</Position18>
<Position19>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="987" Column="25" TopLine="969"/>
+ <Caret Line="40" Column="46" TopLine="11"/>
</Position19>
<Position20>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="988" Column="15" TopLine="970"/>
+ <Caret Line="41" Column="43" TopLine="12"/>
</Position20>
<Position21>
- <Filename Value="tools.pas"/>
- <Caret Line="50" Column="34" TopLine="32"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="89" Column="27" TopLine="67"/>
</Position21>
<Position22>
- <Filename Value="tools.pas"/>
- <Caret Line="436" Column="55" TopLine="407"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="175" Column="80" TopLine="124"/>
</Position22>
<Position23>
- <Filename Value="tools.pas"/>
- <Caret Line="438" Column="12" TopLine="423"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="177" Column="34" TopLine="124"/>
</Position23>
<Position24>
- <Filename Value="tools.pas"/>
- <Caret Line="12" Column="46"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="282" Column="39" TopLine="139"/>
</Position24>
<Position25>
- <Filename Value="tools.pas"/>
- <Caret Line="15" Column="16"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="585" Column="35" TopLine="556"/>
</Position25>
<Position26>
- <Filename Value="tools.pas"/>
- <Caret Line="49" Column="42" TopLine="31"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="680" Column="23" TopLine="652"/>
</Position26>
<Position27>
- <Filename Value="tools.pas"/>
- <Caret Line="370" Column="42" TopLine="352"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="89" Column="18" TopLine="71"/>
</Position27>
<Position28>
- <Filename Value="tools.pas"/>
- <Caret Line="382" Column="25" TopLine="364"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="670" Column="38" TopLine="641"/>
</Position28>
<Position29>
- <Filename Value="tools.pas"/>
- <Caret Line="413" Column="21" TopLine="395"/>
+ <Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="1042" Column="14" TopLine="1021"/>
</Position29>
<Position30>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="988" Column="15" TopLine="970"/>
+ <Caret Line="1033" Column="55" TopLine="1021"/>
</Position30>
</JumpHistory>
</ProjectSession>
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 41b39fc..764ff9e 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -10,9 +10,7 @@ uses
type
tZeilenTyp = (ztSuche,ztZiel,ztQuelle,ztBefehl);
- pTGenerischeAbhaengigkeit = ^tGenerischeAbhaengigkeit;
tGenerischeAbhaengigkeit = class;
- pTExpliziteAbhaengigkeit = ^tExpliziteAbhaengigkeit;
tExpliziteAbhaengigkeit = class;
tGenerischeAbhaengigkeiten = class(tFPList)
@@ -88,6 +86,7 @@ type
function hatQuelleVonAlsZiel(abh: tExpliziteAbhaengigkeit): boolean;
function ersetzbarDurch(abh: tExpliziteAbhaengigkeit): boolean;
function pruefeObZuTun: boolean;
+ function dump: string;
end;
tMach = class
@@ -668,6 +667,20 @@ begin
ziele[i].aktuell:=aWirdErneuert;
end;
+function tExpliziteAbhaengigkeit.dump: string;
+var
+ i: longint;
+begin
+ result:='';
+ for i:=0 to befehle.count-1 do
+ result:=result+#10'B: '+befehle[i];
+ for i:=0 to quellen.count-1 do
+ result:=result+#10'Q: '+quellen[i].name;
+ for i:=0 to ziele.count-1 do
+ result:=result+#10'Z: '+ziele[i].name;
+ delete(result,1,1);
+end;
+
// tMach ***********************************************************************
constructor tMach.create;