Reihenfolge selbst ermitteln

3 files changed, 287 insertions, 142 deletions

diff --git a/Make.lps b/Make.lps
index c6f6eb9..4b4d3a3 100644
--- a/Make.lps
+++ b/Make.lps
@@ -9,23 +9,22 @@
         <IsPartOfProject Value="True"/>
         <TopLine Value="19"/>
         <CursorPos X="55" Y="47"/>
-        <UsageCount Value="64"/>
+        <UsageCount Value="69"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="Machdatei.txt"/>
         <IsPartOfProject Value="True"/>
-        <UsageCount Value="64"/>
+        <UsageCount Value="69"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit1>
       <Unit2>
         <Filename Value="tools.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="68"/>
-        <CursorPos X="10" Y="37"/>
+        <CursorPos X="44" Y="11"/>
         <FoldState Value=" T3f065 pk9kR0D]9jIk5070"/>
-        <UsageCount Value="43"/>
+        <UsageCount Value="48"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -33,7 +32,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <FoldState Value=" T3i7039 pj2jP0B716."/>
-        <UsageCount Value="40"/>
+        <UsageCount Value="45"/>
       </Unit3>
       <Unit4>
         <Filename Value="dateibeziehungen.pas"/>
@@ -41,23 +40,23 @@
         <UnitName Value="dateiBeziehungen"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="490"/>
-        <CursorPos X="80" Y="515"/>
-        <FoldState Value=" T3id03A pifjR0721226 pjIt40S2v"/>
-        <UsageCount Value="32"/>
+        <TopLine Value="18"/>
+        <CursorPos X="61" Y="44"/>
+        <FoldState Value=" T3j5036 pj3jM0B8 picjO0A512]KenX0o1]94kF035]9FjW0S2@"/>
+        <UsageCount Value="37"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
         <Filename Value="Machdatei"/>
         <CursorPos X="45" Y="17"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit5>
       <Unit6>
         <Filename Value="../Stabile/lowlevelunit.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="26" Y="23"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit6>
       <Unit7>
         <Filename Value="../units/lowlevelunit.pas"/>
@@ -71,155 +70,154 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="140"/>
         <CursorPos X="10" Y="160"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit8>
       <Unit9>
         <Filename Value="/usr/lib/fpc/src/rtl/objpas/math.pp"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="162"/>
         <CursorPos X="10" Y="167"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit9>
       <Unit10>
         <Filename Value="../units/matheunit.pas"/>
         <EditorIndex Value="-1"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit10>
       <Unit11>
         <Filename Value="/usr/lib/fpc/src/rtl/objpas/sysutils/finah.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="4"/>
         <CursorPos X="10" Y="23"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit11>
       <Unit12>
         <Filename Value="/usr/lib/fpc/src/rtl/objpas/classes/classesh.inc"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="210"/>
-        <CursorPos X="3" Y="218"/>
+        <TopLine Value="225"/>
+        <CursorPos X="15" Y="244"/>
         <UsageCount Value="10"/>
       </Unit12>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="451" Column="27" TopLine="431"/>
+        <Caret Line="300" Column="12" TopLine="259"/>
       </Position1>
       <Position2>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="453" Column="44" TopLine="433"/>
+        <Caret Line="230" TopLine="207"/>
       </Position2>
       <Position3>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="481" Column="58" TopLine="461"/>
+        <Caret Line="289" Column="20" TopLine="241"/>
       </Position3>
       <Position4>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="482" Column="36" TopLine="462"/>
+        <Caret Line="311" Column="24" TopLine="246"/>
       </Position4>
       <Position5>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="483" Column="45" TopLine="463"/>
+        <Caret Line="611" Column="38" TopLine="324"/>
       </Position5>
       <Position6>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="508" Column="27" TopLine="488"/>
+        <Caret Line="610" Column="51" TopLine="358"/>
       </Position6>
       <Position7>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="525" Column="30" TopLine="506"/>
+        <Caret Line="613" Column="54" TopLine="365"/>
       </Position7>
       <Position8>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="531" Column="27" TopLine="511"/>
+        <Caret Line="611" Column="53" TopLine="528"/>
       </Position8>
       <Position9>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="538" Column="29" TopLine="518"/>
+        <Caret Line="36" Column="13" TopLine="16"/>
       </Position9>
       <Position10>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="577" Column="18" TopLine="557"/>
+        <Caret Line="83" Column="63" TopLine="50"/>
       </Position10>
       <Position11>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="602" Column="24" TopLine="577"/>
+        <Caret Line="205" Column="11" TopLine="86"/>
       </Position11>
       <Position12>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="600" TopLine="574"/>
+        <Caret Line="234" Column="4" TopLine="101"/>
       </Position12>
       <Position13>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="27" Column="14" TopLine="7"/>
+        <Caret Line="235" TopLine="101"/>
       </Position13>
       <Position14>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="90" Column="15" TopLine="67"/>
+        <Caret Line="250" Column="2" TopLine="101"/>
       </Position14>
       <Position15>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="99" Column="15" TopLine="73"/>
+        <Caret Line="451" Column="22" TopLine="419"/>
       </Position15>
       <Position16>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="25" Column="25" TopLine="5"/>
+        <Caret Line="550" Column="54" TopLine="462"/>
       </Position16>
       <Position17>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="93" Column="38" TopLine="60"/>
+        <Caret Line="557" Column="44" TopLine="469"/>
       </Position17>
       <Position18>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="11"/>
+        <Caret Line="558" Column="47" TopLine="470"/>
       </Position18>
       <Position19>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="46" Column="35" TopLine="28"/>
+        <Caret Line="585" Column="48" TopLine="556"/>
       </Position19>
       <Position20>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="179" TopLine="109"/>
       </Position20>
       <Position21>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="134" TopLine="108"/>
+        <Caret Line="36" Column="13" TopLine="3"/>
       </Position21>
       <Position22>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="210" TopLine="155"/>
+        <Filename Value="tools.pas"/>
+        <Caret Line="11" Column="44"/>
       </Position22>
       <Position23>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="265" TopLine="245"/>
+        <Caret Line="88" Column="33"/>
       </Position23>
       <Position24>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="491" TopLine="460"/>
+        <Caret Line="513" Column="58" TopLine="478"/>
       </Position24>
       <Position25>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="407" Column="13" TopLine="387"/>
+        <Caret Line="883" Column="48" TopLine="752"/>
       </Position25>
       <Position26>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="412" Column="55" TopLine="407"/>
+        <Caret Line="915" Column="40" TopLine="882"/>
       </Position26>
       <Position27>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="481" TopLine="452"/>
+        <Caret Line="504" Column="40" TopLine="485"/>
       </Position27>
       <Position28>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="448" Column="86" TopLine="425"/>
+        <Caret Line="502" Column="39" TopLine="485"/>
       </Position28>
       <Position29>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="460" TopLine="450"/>
+        <Caret Line="627" Column="20" TopLine="523"/>
       </Position29>
       <Position30>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="463" Column="12" TopLine="171"/>
+        <Caret Line="634" Column="32" TopLine="606"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 14c1128..7900913 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -25,19 +25,28 @@ type
     procedure mrProper;
     function add(neu: tAbhaengigkeit): longint;
     function last: tAbhaengigkeit;
+    procedure sort;
   end;
 
   tAbhaengigkeit = class(tObject)
-    quellenRE:  tRegExpr;
+  private
+    _erben,_eltern: tAbhaengigkeiten;
+  public
+    quellenRE:      tRegExpr;
     zieleFkt,
-    befehle:    tStringlist;
+    befehle:        tStringlist;
     quellen,
-    ziele:      tDateienMitDaten;
-    erben:      tAbhaengigkeiten;
-    prioritaet: longint;
+    ziele:          tDateienMitDaten;
     constructor create; overload;
     constructor create(original: tAbhaengigkeit); overload;
     destructor destroy; override;
+    function hatQuelleVonAlsZiel(abh: tAbhaengigkeit): boolean;
+    function hatErbenMitQuelle(name: string): boolean;
+    function erbeMitGleichenZielen(zl: tDateienMitDaten): tAbhaengigkeit;
+    procedure neuerErbe(erb: tAbhaengigkeit);
+    procedure entferneErben(i: longint); overload;
+    procedure entferneErben(erb: tAbhaengigkeit); overload;
+    procedure entferneElterReferenz(elt: tAbhaengigkeit);
   end;
 
   tMach = class
@@ -76,7 +85,7 @@ procedure findeMehrZiele(var ziele: tDateienMitDaten; zieleFkt: tStringList; que
 implementation
 
 uses
-  lowlevelunit, mystringlistunit, math;
+  lowlevelunit, mystringlistunit;
 
 // tAbhaengigkeiten ************************************************************
 
@@ -109,7 +118,12 @@ begin
 end;
 
 function tAbhaengigkeiten.add(neu: tAbhaengigkeit): longint;
+var
+  i: longint;
 begin
+  for i:=0 to count-1 do
+    if items[i]=neu then
+      fehler('Fehler: Ich soll etwas zur Liste hinzufügen, was schon drin ist!');
   result:=inherited add(neu);
 end;
 
@@ -118,6 +132,69 @@ begin
   result:=tAbhaengigkeit(inherited last);
 end;
 
+procedure tAbhaengigkeiten.sort;
+var
+  i,j,k,pLen:  longint;
+  perm:        array of longint;
+  tmp:         tAbhaengigkeit;
+  bedingungen: array of tPoint;
+  nehmbare:    array of byte; // 0 = ja, 1 = nein, 2 = nie wieder (schon genommen)
+  fortschritt: boolean;
+begin
+  // Permutation initialisieren
+  setlength(perm,count);
+  for i:=0 to length(perm)-1 do
+    perm[i]:=count; // sollte ohnehin überschrieben werden, aber "count" sorgt unten für einen Fehler!
+
+  setlength(bedingungen,0); // aka "y hängt (direkt) von x ab"
+  for i:=0 to count-1 do
+    for j:=0 to count-1 do
+      if (i<>j) and (items[i].hatQuelleVonAlsZiel(items[j])) then begin
+        setlength(bedingungen,length(bedingungen)+1);
+        bedingungen[length(bedingungen)-1].x:=i;
+        bedingungen[length(bedingungen)-1].y:=j;
+      end;
+
+  setlength(nehmbare,count);
+  for i:=0 to length(nehmbare)-1 do
+    nehmbare[i]:=0;
+
+  pLen:=0;
+  while pLen<count do begin
+    fortschritt:=false;
+    for i:=0 to length(nehmbare)-1 do
+      if nehmbare[i]=1 then                // noch nicht genommenes zurücksetzen
+        nehmbare[i]:=0;
+    for i:=0 to length(bedingungen)-1 do
+      if nehmbare[bedingungen[i].x]<2 then // wenn die Quelle noch nicht dran war,
+        nehmbare[bedingungen[i].y]:=1;     // darf das Ziel auch nicht genommen werden
+    for i:=0 to length(nehmbare)-1 do
+      if nehmbare[i]=0 then begin          // nehmbar?
+        nehmbare[i]:=2;                    // als "genommen" markieren
+        perm[pLen]:=i;
+        inc(pLen);
+        fortschritt:=true;
+      end;
+    if not fortschritt then
+      fehler('Ich kann keine Regel mehr finden, deren Quellen nicht mehr erzeugt werden müssen - gibt es vllt. eine zyklische Abhängigkeit?');
+  end;
+
+  // berechnete Permutation anwenden
+  for i:=0 to length(perm)-1 do
+    if perm[i]>=0 then begin
+      tmp:=items[i];
+      j:=i;
+      while perm[j]<>i do begin
+        k:=perm[j];
+        perm[j]:=-1;
+        items[j]:=items[k];
+        j:=k;
+      end;
+      items[j]:=tmp;
+      perm[j]:=-1;
+    end;
+end;
+
 // tAbhaengigkeit **************************************************************
 
 constructor tAbhaengigkeit.create;
@@ -129,8 +206,8 @@ begin
   setlength(quellen,0);
   setlength(ziele,0);
   befehle:=tStringlist.create;
-  erben:=tAbhaengigkeiten.create;
-  prioritaet:=42;
+  _erben:=tAbhaengigkeiten.create;
+  _eltern:=tAbhaengigkeiten.create;
 end;
 
 constructor tAbhaengigkeit.create(original: tAbhaengigkeit);
@@ -150,9 +227,9 @@ begin
     ziele[i]:=original.ziele[i];
   befehle:=tStringlist.create;
   befehle.text:=original.befehle.text;
-  erben:=tAbhaengigkeiten.create;
-  erben.kopiereVon(original.erben);
-  prioritaet:=original.prioritaet;
+  _erben:=tAbhaengigkeiten.create;
+  _eltern:=tAbhaengigkeiten.create;
+  original.neuerErbe(self);
 end;
 
 destructor tAbhaengigkeit.destroy;
@@ -162,10 +239,86 @@ begin
   setLength(ziele,0);
   zieleFkt.free;
   befehle.free;
-  erben.free;
+  while _erben.count>0 do
+    entferneErben(0);
+  while _eltern.count>0 do
+    _eltern[0].entferneErben(self);
+  _erben.free;
+  _eltern.free;
   inherited destroy;
 end;
 
+function tAbhaengigkeit.hatQuelleVonAlsZiel(abh: tAbhaengigkeit): boolean;
+var
+  i,j: longint;
+begin
+  result:=true;
+  for i:=0 to length(ziele)-1 do
+    for j:=0 to length(abh.quellen)-1 do
+      if abh.quellen[j].name = ziele[i].name then
+        exit;
+  result:=false;
+end;
+
+function tAbhaengigkeit.hatErbenMitQuelle(name: string): boolean;
+var
+  i,j: longint;
+begin
+  result:=true;
+  for i:=0 to _erben.count-1 do
+    for j:=0 to length(_erben[i].quellen)-1 do
+      if _erben[i].quellen[j].name=name then exit;
+  result:=false;
+end;
+
+function tAbhaengigkeit.erbeMitGleichenZielen(zl: tDateienMitDaten): tAbhaengigkeit;
+var
+  i: longint;
+begin
+  result:=nil;
+  for i:=0 to _erben.count-1 do
+    if gleicheDateinamen(_erben[i].ziele,zl) then begin
+      result:=_erben[i];
+      exit;
+    end;
+end;
+
+procedure tAbhaengigkeit.neuerErbe(erb: tAbhaengigkeit);
+begin
+  _erben.add(erb);
+  erb._eltern.add(self);
+end;
+
+procedure tAbhaengigkeit.entferneErben(i: longint);
+begin
+  _erben[i].entferneElterReferenz(self);
+  _erben.delete(i);
+end;
+
+procedure tAbhaengigkeit.entferneErben(erb: tAbhaengigkeit);
+var
+  i: longint;
+begin
+  for i:=0 to _erben.count-1 do
+    if _erben[i]=erb then begin
+      entferneErben(i);
+      exit;
+    end;
+  fehler('Fehler: Kann Erben nicht finden zum Entfernen!');
+end;
+
+procedure tAbhaengigkeit.entferneElterReferenz(elt: tAbhaengigkeit);
+var
+  i: longint;
+begin
+  for i:=0 to _eltern.count-1 do
+    if _eltern[i]=elt then begin
+      _eltern.delete(i);
+      exit;
+    end;
+  fehler('Fehler: Kann Elter nicht finden zum Entfernen der Referenz!');
+end;
+
 // tMach ***********************************************************************
 
 constructor tMach.create;
@@ -216,7 +369,7 @@ var
   na:            tAbhaengigkeit;
   ignoriere:     array of tRegExpr;
   rek:           boolean;
-  num,posi:      longint;
+  posi:          longint;
   wasWar,wasIst: tZeilenTyp;
 
 procedure aufraeumen;
@@ -234,9 +387,7 @@ begin
   result:=false;
 
   na:=tAbhaengigkeit.create;
-  na.prioritaet:=0;
   setlength(ignoriere,0);
-  num:=0;
   wasWar:=ztSuche;
   f:=tMyStringList.create;
   f.loadFromFile(machDatei);
@@ -261,9 +412,7 @@ begin
 
     if (wasWar=ztBefehl) and (wasIst<>ztBefehl) then begin
       _oriAbh.add(na);
-      inc(num);
       na:=tAbhaengigkeit.create;
-      na.prioritaet:=num;
     end;
 
     if s='%%DATEIENDE%%' then break;
@@ -361,7 +510,7 @@ begin
           setlength(_dats,length(_dats)+1); // dann werden sie einfach eingefügt
           _dats[length(_dats)-1]:=tDateiMitDatum.create;
           _dats[length(_dats)-1].name:=gutschlecht[gut][i];
-          _dats[length(_dats)-1].aktuell:=aVeraltet;
+          _dats[length(_dats)-1].aktuell:=aNichtVorhanden;
           continue;
         end;
         writeln('In der Summendatei gibt es eine Datei mit gültiger Prüfsumme, die ich nicht finden kann: '''+gutschlecht[gut][i]+'''!');
@@ -378,31 +527,25 @@ end;
 
 procedure tMach.erzeugeRegeln;
 var
-  i,j,k,l:       longint;
-  neues,schonDa: boolean;
-  s:             string;
-  tmpZiele:      tDateienMitDaten;
+  i,j,k,l:  longint;
+  neues:    boolean;
+  s:        string;
+  tmpZiele: tDateienMitDaten;
+  erb:      tAbhaengigkeit;
 begin
-
   repeat
     neues:=false;
 
     for i:=0 to _oriAbh.count-1 do
       for j:=0 to length(_dats)-1 do
         if _oriAbh[i].quellenRE.exec(_dats[j].name) then begin
-          schonDa:=false;
-          for k:=0 to _oriAbh[i].erben.count-1 do
-            for l:=0 to length(_oriAbh[i].erben[k].quellen)-1 do
-              schonDa:=schonDa or (_oriAbh[i].erben[k].quellen[l]=_dats[j]);
-
           // Falls diese Quelle schon in eine Regel einfließt, brauchen
           // wir nichts mehr zu machen, da es für jede Quelle höchstens
           // eine Regel gibt.
-          if schonDa then continue;
+          if _oriAbh[i].hatErbenMitQuelle(_dats[j].name) then continue;
 
           // Andernfalls müssen wir schauen, ob es zu dem Ziel / den Zielen
           // der Quelle schon eine Regel gibt.
-          schonDa:=false;
           setlength(tmpZiele,0);
           findeMehrZiele(tmpZiele,_oriAbh[i].zieleFkt,_dats[j].name,machDatei,_dats);
 
@@ -416,32 +559,31 @@ begin
             fehler('... ich beende.');
           end;
 
-          for k:=0 to _oriAbh[i].erben.count-1 do
-            if gleicheDateinamen(_oriAbh[i].erben[k].ziele,tmpZiele) then begin
-              // es gibt schon eine Regel für die Ziele der Quelle
-              schonDa:=true;
-              // dann wird dieser Regel nur die Quelle hinzugefügt
-              setlength(_oriAbh[i].erben[k].quellen,length(_oriAbh[i].erben[k].quellen)+1);
-              _oriAbh[i].erben[k].quellen[length(_oriAbh[i].erben[k].quellen)-1]:=_dats[j];
-              // und womöglich die befehle generiert
-              for l:=0 to _oriAbh[i].befehle.count-1 do begin
-                s:=_oriAbh[i].befehle[l];
-                if quellersetzung(s,_dats[j].name,machDatei) then begin
-                  if l=0 then _oriAbh[i].erben[k].befehle.clear;
-                  _oriAbh[i].erben[k].befehle.add(s);
-                end;
+          erb:=_oriAbh[i].erbeMitGleichenZielen(tmpZiele);
+          if assigned(erb) then begin
+            // es gibt schon eine Regel für die Ziele der Quelle,
+            // dann wird dieser Regel nur die Quelle hinzugefügt
+            setlength(erb.quellen,length(erb.quellen)+1);
+            erb.quellen[length(erb.quellen)-1]:=_dats[j];
+            // und womöglich die befehle generiert
+            for l:=0 to _oriAbh[i].befehle.count-1 do begin
+              s:=_oriAbh[i].befehle[l];
+              if quellersetzung(s,_dats[j].name,machDatei) then begin
+                if l=0 then erb.befehle.clear;
+                erb.befehle.add(s);
               end;
-              neues:=true;
-              break; // mehr Ziele sollte es ohnehin nicht geben
             end;
-          if schonDa then continue;
+            neues:=true;
+            continue;
+          end;
 
           // Ziel(e) ist/sind neu
           _mglAbh.add(tAbhaengigkeit.create);
-          _oriAbh[i].erben.add(_mglAbh.last);
+          _oriAbh[i].neuerErbe(_mglAbh.last);
           setlength(_mglAbh.last.quellen,1);
           _mglAbh.last.quellen[0]:=_dats[j];
-          _mglAbh.last.zieleFkt:=_oriAbh[i].zieleFkt;
+          _mglAbh.last.zieleFkt:=tStringlist.create;
+          _mglAbh.last.zieleFkt.text:=_oriAbh[i].zieleFkt.text;
           setlength(_mglAbh.last.ziele,length(tmpZiele));
           for k:=0 to length(tmpZiele)-1 do
             _mglAbh.last.ziele[k]:=tmpZiele[k];
@@ -451,7 +593,6 @@ begin
             if quellersetzung(s,_dats[j].name,machDatei) then
               _mglAbh.last.befehle.add(s);
           end;
-          _mglAbh.last.prioritaet:=_oriAbh[i].prioritaet;
         end;
 
   until not neues;
@@ -461,44 +602,57 @@ procedure tMach.findeWasZuTunIst;
 var
   i,j,k:   longint;
   ziA,quA: tAktualitaet;
+  neues:   boolean;
 begin
   // schauen, welche Regeln angewandt werden müssen
+  repeat
+    neues:=false;
+    for i:=_mglAbh.count-1 downto 0 do begin
+      for j:=0 to length(_mglAbh[i].quellen)-1 do
+        findeMehrZiele(_mglAbh[i].ziele,_mglAbh[i].zieleFkt,_mglAbh[i].quellen[j].name,machDatei,_dats);
+      if length(_mglAbh[i].ziele)=0 then begin // immer noch keine ziele
+        gibAus('Warnung: Keine Ziele für diese Abhängigkeit!',3);
+        gibAus('quellen:',3);
+        for k:=0 to length(_mglAbh[i].quellen)-1 do
+          gibAus(' '''+_mglAbh[i].quellen[k].name+'''',3);
+        gibAus('zieleFkt:',3);
+        for k:=0 to _mglAbh[i].zieleFkt.count-1 do
+          gibAus(' '''+_mglAbh[i].zieleFkt[k]+'''',3);
+        gibAus(' - wird ignoriert.',3);
+        _mglAbh[i].free;
+        _mglAbh.delete(i);
+        continue;
+      end;
 
-  for i:=0 to _mglAbh.count-1 do begin
-    for j:=0 to length(_mglAbh[i].quellen)-1 do
-      findeMehrZiele(_mglAbh[i].ziele,_mglAbh[i].zieleFkt,_mglAbh[i].quellen[j].name,machDatei,_dats);
-    if length(_mglAbh[i].ziele)=0 then begin // immer noch keine ziele
-      gibAus('Warnung: Keine ziele für diese Abhängigkeit!',3);
-      gibAus('quellen:',3);
-      for k:=0 to length(_mglAbh[i].quellen)-1 do
-        gibAus(' '''+_mglAbh[i].quellen[k].name+'''',3);
-      gibAus('zieleFkt:',3);
-      for k:=0 to _mglAbh[i].zieleFkt.count-1 do
-        gibAus(' '''+_mglAbh[i].zieleFkt[k]+'''',3);
-      gibAus(' - wird ignoriert.',3);
-      continue;
-    end;
-
-    quA:=aAktuell;
-    for j:=0 to length(_mglAbh[i].quellen)-1 do
-      if _mglAbh[i].quellen[j].aktuell<>aAktuell then
-        quA:=aWirdErneuert;
-    ziA:=aWirdErneuert;
-    for j:=0 to length(_mglAbh[i].ziele)-1 do
-      ziA:=min(ziA,_mglAbh[i].ziele[j].aktuell);
-
-    if ziA<quA then begin
-      _ztAbh.add(tAbhaengigkeit.create(_mglAbh[i]));
-      _mglAbh[i].erben.add(_ztAbh.last);
+      quA:=aAktuell;
+      for j:=0 to length(_mglAbh[i].quellen)-1 do
+        if _mglAbh[i].quellen[j].aktuell<>aAktuell then
+          quA:=aWirdErneuert;
+      ziA:=aWirdErneuert;
       for j:=0 to length(_mglAbh[i].ziele)-1 do
-        _mglAbh[i].ziele[j].aktuell:=aWirdErneuert;
+        if _mglAbh[i].ziele[j].aktuell=aVeraltet then
+          ziA:=min(ziA,aAktuell)
+        else
+          ziA:=min(ziA,_mglAbh[i].ziele[j].aktuell);
+
+      if ziA<quA then begin
+        neues:=true;
+        _ztAbh.add(tAbhaengigkeit.create(_mglAbh[i]));
+        for j:=0 to length(_mglAbh[i].ziele)-1 do
+          _mglAbh[i].ziele[j].aktuell:=aWirdErneuert;
+        _mglAbh[i].free;
+        _mglAbh.delete(i);
+      end;
     end;
-  end;
+  until not neues;
+
+  // anzuwendende Regeln sortieren
+  _ztAbh.sort;
 end;
 
 procedure tMach.tueWasZuTunIst(allesNeu, unsicher: boolean; ausgabeDatei: string);
 var
-  prior,i,j:                 longint;
+  i,j:                       longint;
   ausg:                      textfile;
   befehle,geaenderteDateien,
     sumDateien:              tStringlist;
@@ -507,9 +661,6 @@ var
   befehl:                    string;
 begin
   befehle:=tStringlist.create;
-  prior:=0;
-  for i:=0 to _ztAbh.count-1 do
-    prior:=max(prior,_ztAbh[i].prioritaet);
   geaenderteDateien:=tStringlist.create;
   sumDateien:=dateienMitGueltigerSumme(pruefsummenDatei);
   for i:=0 to length(_dats)-1 do begin
@@ -537,13 +688,9 @@ begin
     for j:=0 to length(_ztAbh[i].quellen)-1 do
       geaenderteDateien.add(_ztAbh[i].quellen[j].name);
   end;
-  while prior>=0 do begin
-    for i:=0 to _ztAbh.count-1 do
-      if _ztAbh[i].prioritaet=prior then
-        for j:=0 to _ztAbh[i].befehle.count-1 do
-          befehle.add(_ztAbh[i].befehle[j]);
-    dec(prior);
-  end;
+  for i:=0 to _ztAbh.count-1 do
+    for j:=0 to _ztAbh[i].befehle.count-1 do
+      befehle.add(_ztAbh[i].befehle[j]);
   if not unsicher then begin
     lokTest:=tRegExpr.create;
     if extractfilepath(ausgabeDatei)=extractfilepath(pruefsummenDatei) then
@@ -566,14 +713,14 @@ begin
       end;
   end;
   if geaenderteDateien.count>0 then begin
-    befehle.add('echo -ne "Sha512summen erneuern ..."');
+    befehle.add('echo -n "Sha512summen erneuern ..."');
     befehl:='sed "';
     for i:=0 to geaenderteDateien.count-1 do
       befehl:=befehl+'/\s'+escape(geaenderteDateien[i],'./','\')+'\$/d; ';
     befehl:=befehl+'" -i "'+pruefsummenDatei+'"';
     befehle.add(befehl);
     for i:=0 to geaenderteDateien.count-1 do
-      befehle.add('/usr/bin/sha512sum "'+geaenderteDateien[i]+'" >> '+pruefsummenDatei);
+      befehle.add('sha512sum "'+geaenderteDateien[i]+'" >> '+pruefsummenDatei);
     befehle.add('echo " fertig"');
   end;
 
@@ -767,7 +914,7 @@ begin
       dats[i]:=tDateiMitDatum.create;
       if pos('*',ziel)=0 then dats[i].name:=ziel
       else dats[i].name:='.uralt.'; // unpassende *-Muster erzeugen formal keine echte Datei
-      dats[i].aktuell:=aVeraltet;   // nicht existente dateien sind formal uralt
+      dats[i].aktuell:=aNichtVorhanden;
       setlength(ziele,length(ziele)+1);
       ziele[length(ziele)-1]:=dats[i];
     end;
diff --git a/tools.pas b/tools.pas
index 0767b25..843ba7f 100644
--- a/tools.pas
+++ b/tools.pas
@@ -8,7 +8,7 @@ uses
   classes, sysUtils, process, mystringlistunit, regExpr;
 
 type
-  tAktualitaet = (aVeraltet,aAktuell,aWirdErneuert);
+  tAktualitaet = (aNichtVorhanden,aVeraltet,aAktuell,aWirdErneuert);
   tStringlistBArray = array[boolean] of tStringlist;
   tSummenDatei = record
     name:   string;