alles schön in Klassen gepackt

1 files changed, 608 insertions, 126 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 30dedeb..14c1128 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -8,33 +8,115 @@ uses
   classes, sysUtils, tools, regExpr;
 
 type
-  tAbhArt = (aaFinal,aaPrimaer,aaIgnore);
   tZeilenTyp = (ztSuche,ztZiel,ztQuelle,ztBefehl);
 
+  pTAbhaengigkeit = ^tAbhaengigkeit;
   tAbhaengigkeit = class;
-  tAbhaengigkeiten = array of tAbhaengigkeit;
+
+  tAbhaengigkeiten = class(tFPList)
+  private
+    function rItem(idx: longint): tAbhaengigkeit; inline;
+    procedure wItem(idx: longint; neu: tAbhaengigkeit); inline;
+  public
+    property items[idx: longint]: tAbhaengigkeit
+      read rItem
+      write wItem; default;
+    procedure kopiereVon(original: tAbhaengigkeiten);
+    procedure mrProper;
+    function add(neu: tAbhaengigkeit): longint;
+    function last: tAbhaengigkeit;
+  end;
+
   tAbhaengigkeit = class(tObject)
-    abhArt:     tAbhArt;
     quellenRE:  tRegExpr;
     zieleFkt,
     befehle:    tStringlist;
     quellen,
     ziele:      tDateienMitDaten;
     erben:      tAbhaengigkeiten;
-    prioritaet: integer;
+    prioritaet: longint;
     constructor create; overload;
     constructor create(original: tAbhaengigkeit); overload;
     destructor destroy; override;
   end;
 
+  tMach = class
+  private
+    _machDatei,_pruefsummenDatei: string;
+    _oriAbh,_mglAbh,_ztAbh:       tAbhaengigkeiten;
+    _dats:                        tDateienMitDaten;
+    procedure wMachDatei(md: string);
+    procedure wPruefsummenDatei(pd: string);
+    function liesMachDatei: boolean;
+    function liesPruefsummenfile: boolean;
+  public
+    property machDatei: string
+      read _machDatei
+      write wMachDatei;
+    property pruefsummenDatei: string
+      read _pruefsummenDatei
+      write wPruefsummenDatei;
+    constructor create;
+    destructor destroy; override;
+    procedure erzeugeRegeln;
+    procedure findeWasZuTunIst;
+    procedure tueWasZuTunIst(allesNeu, unsicher: boolean; ausgabeDatei: string);
+    procedure setzeGenerischePruefsummenDatei;
+    function anzOriAbh: longint; inline;
+    function anzMglAbh: longint; inline;
+    function anzZtAbh: longint; inline;
+    function anzDats: longint; inline;
+  end;
+
 function quellersetzung(var worin: string; quelle, inputfile: string): boolean;
 procedure sammleDateien(wo: string; rekursiv: boolean; ignoriere: array of tRegExpr; var dats: tDateienMitDaten);
-function liesMakeFile(datNam: string; out abh: tAbhaengigkeiten; out dats: tDateienMitDaten): boolean;
+procedure zieleHinzufuegen(var ziele: tDateienMitDaten; ziel,quelle,inputfile: string; var dats: tDateienMitDaten);
+procedure findeMehrZiele(var ziele: tDateienMitDaten; zieleFkt: tStringList; quelle,inputfile: string; var dats: tDateienMitDaten);
 
 implementation
 
 uses
-  lowlevelunit, mystringlistunit;
+  lowlevelunit, mystringlistunit, math;
+
+// tAbhaengigkeiten ************************************************************
+
+function tAbhaengigkeiten.rItem(idx: longint): tAbhaengigkeit;
+begin
+  result:=tAbhaengigkeit(get(idx));
+end;
+
+procedure tAbhaengigkeiten.wItem(idx: longint; neu: tAbhaengigkeit);
+begin
+  put(idx,neu);
+end;
+
+procedure tAbhaengigkeiten.kopiereVon(original: tAbhaengigkeiten);
+var
+  i: longint;
+begin
+  clear;
+  for i:=0 to original.count-1 do
+    add(original[i]);
+end;
+
+procedure tAbhaengigkeiten.mrProper;
+var
+  i: longint;
+begin
+  for i:=0 to count-1 do
+    items[i].free;
+  clear;
+end;
+
+function tAbhaengigkeiten.add(neu: tAbhaengigkeit): longint;
+begin
+  result:=inherited add(neu);
+end;
+
+function tAbhaengigkeiten.last: tAbhaengigkeit;
+begin
+  result:=tAbhaengigkeit(inherited last);
+end;
 
 // tAbhaengigkeit **************************************************************
 
@@ -47,14 +129,13 @@ begin
   setlength(quellen,0);
   setlength(ziele,0);
   befehle:=tStringlist.create;
-  setlength(erben,0);
-  abhArt:=aaIgnore;
+  erben:=tAbhaengigkeiten.create;
   prioritaet:=42;
 end;
 
 constructor tAbhaengigkeit.create(original: tAbhaengigkeit);
 var
-  i: integer;
+  i: longint;
 begin
   inherited create;
   quellenRE:=tRegExpr.create;
@@ -69,11 +150,9 @@ begin
     ziele[i]:=original.ziele[i];
   befehle:=tStringlist.create;
   befehle.text:=original.befehle.text;
-  setlength(erben,length(original.erben));
-  for i:=0 to length(original.erben)-1 do
-    erben[i]:=original.erben[i];
+  erben:=tAbhaengigkeiten.create;
+  erben.kopiereVon(original.erben);
   prioritaet:=original.prioritaet;
-  abhArt:=original.abhArt;
 end;
 
 destructor tAbhaengigkeit.destroy;
@@ -83,16 +162,470 @@ begin
   setLength(ziele,0);
   zieleFkt.free;
   befehle.free;
-  setlength(erben,0);
+  erben.free;
   inherited destroy;
 end;
 
+// tMach ***********************************************************************
+
+constructor tMach.create;
+begin
+  inherited create;
+  _oriAbh:=tAbhaengigkeiten.create;
+  _mglAbh:=tAbhaengigkeiten.create;
+  _ztAbh:=tAbhaengigkeiten.create;
+  setlength(_dats,0);
+end;
+
+destructor tMach.destroy;
+var
+  i: longint;
+begin
+  _oriAbh.mrProper;
+  _oriAbh.free;
+  _mglAbh.mrProper;
+  _mglAbh.free;
+  _ztAbh.mrProper;
+  _ztAbh.free;
+  for i:=0 to length(_dats)-1 do
+    _dats[i].free;
+  setlength(_dats,0);
+  inherited destroy;
+end;
+
+procedure tMach.wMachDatei(md: string);
+begin
+  _machDatei:=md;
+  if not fileexists(_machDatei) then
+    fehler('Datei '''+_machDatei+''' existiert nicht!');
+  if not liesMachDatei then
+    fehler('Datei '''+_machDatei+''' ist fehlerhaft!');
+end;
+
+procedure tMach.wPruefsummenDatei(pd: string);
+begin
+  _pruefsummenDatei:=pd;
+  if not liesPruefsummenfile then
+    fehler('Datei '''+_pruefsummenDatei+''' ist fehlerhaft!');
+end;
+
+function tMach.liesMachDatei: boolean;
+var
+  f:             tMyStringList;
+  s:             string;
+  na:            tAbhaengigkeit;
+  ignoriere:     array of tRegExpr;
+  rek:           boolean;
+  num,posi:      longint;
+  wasWar,wasIst: tZeilenTyp;
+
+procedure aufraeumen;
+var
+  ii: longint;
+begin
+  f.free;
+  na.free;
+  for ii:=0 to length(ignoriere)-1 do
+    ignoriere[ii].free;
+  setlength(ignoriere,0);
+end;
+
+begin
+  result:=false;
+
+  na:=tAbhaengigkeit.create;
+  na.prioritaet:=0;
+  setlength(ignoriere,0);
+  num:=0;
+  wasWar:=ztSuche;
+  f:=tMyStringList.create;
+  f.loadFromFile(machDatei);
+  f.add('%%DATEIENDE%%');
+  if not f.unfoldMacros then begin
+    f.free;
+    exit;
+  end;
+  s:='';
+  while f.readln(s) do begin
+    if rightStr(s,1)=';' then      // ein Befehl(steil)
+      wasIst:=ztBefehl
+    else if rightStr(s,1)=':' then // ein Ziel
+      wasIst:=ztZiel
+    else if wasWar=ztZiel then     // eine Quelle
+      wasIst:=ztQuelle
+    else                           // eine zu überwachende Datei
+      wasIst:=ztSuche;
+
+    if wasIst in [ztZiel,ztBefehl] then
+      delete(s,length(s),1);
+
+    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;
+
+    case wasIst of
+      ztSuche: begin
+        if not quellersetzung(s,'',machDatei) then begin
+          writeln('Fehler: Quellersetzung in '''+s+''' fehlgeschlagen!');
+          aufraeumen;
+          exit;
+        end;
+        if pos('!',s)=1 then begin
+          delete(s,1,1);
+          s:=trim(s);
+          setlength(ignoriere,length(ignoriere)+1);
+          ignoriere[length(ignoriere)-1]:=tRegExpr.create;
+          ignoriere[length(ignoriere)-1].expression:=s;
+        end
+        else begin
+          rek:=startetMit('-r',s);
+          while s<>'' do
+            sammleDateien(erstesArgument(s),rek,ignoriere,_dats);
+        end;
+      end;
+      ztBefehl: begin
+        while unescapedpos(';',s)>0 do begin
+          posi:=unescapedpos(';',s);
+          s:=trim(leftStr(s,posi-1))+' && '+trim(rightStr(s,length(s)-posi));
+        end;
+        while pos(';;',s)>0 do
+          delete(s,pos(';;',s),1);
+        na.befehle.add(s);
+      end;
+      ztZiel:
+        while s<>'' do
+          na.zieleFkt.add(erstesArgument(s));
+      ztQuelle: begin
+        if not quellersetzung(s,'',machDatei) then begin
+          writeln('Fehler: Quellersetzung in '''+s+''' fehlgeschlagen!');
+          aufraeumen;
+          exit;
+        end;
+        na.quellenRE.expression:=s;
+      end;
+    end{of case};
+    wasWar:=wasIst;
+  end;
+
+  if s<>'%%DATEIENDE%%' then
+    writeln('Interner Fehler! Die letzte Regel wird vsl. nicht beachtet!');
+
+  aufraeumen;
+  result:=true;
+end;
+
+function tMach.liesPruefsummenfile: boolean;
+var
+  f:            textfile;
+  i,j:          longint;
+  gutschlecht:  tStringlistBArray;
+  gefunden,gut: boolean;
+begin
+  result:=false;
+  if pruefsummenDatei='' then begin
+    writeln('Leerer Name als Summendatei angegeben!');
+    exit;
+  end;
+
+  if not fileexists(pruefsummenDatei) then begin
+    assignfile(f,pruefsummenDatei);
+    rewrite(f);
+    closefile(f);
+  end;
+  if not fileexists(pruefsummenDatei) then begin
+    writeln('Ich bin nicht in der Lage, die bisher nicht existierende Datei '''+pruefsummenDatei+''' anzulegen!');
+    exit;
+  end;
+
+  gutschlecht:=testeSummen(pruefsummenDatei);
+
+  for gut:=false to true do
+    for i:=0 to gutschlecht[gut].count-1 do begin
+      gefunden:=false;
+      for j:=0 to length(_dats)-1 do
+        if _dats[j].name=gutschlecht[gut][i] then begin
+          if gut then
+            _dats[j].aktuell:=aAktuell
+          else
+            _dats[j].aktuell:=aVeraltet;
+          gefunden:=true;
+          break;
+        end;
+      if not gefunden then begin
+        if not gut then begin // dateien mit ungültiger Prüfsumme können auch nicht vorhanden sein,
+          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;
+          continue;
+        end;
+        writeln('In der Summendatei gibt es eine Datei mit gültiger Prüfsumme, die ich nicht finden kann: '''+gutschlecht[gut][i]+'''!');
+        for gefunden:=false to true do
+          gutschlecht[gefunden].free;
+        exit;
+      end;
+    end;
+
+  for gefunden:=false to true do
+    gutschlecht[gefunden].free;
+  result:=true;
+end;
+
+procedure tMach.erzeugeRegeln;
+var
+  i,j,k,l:       longint;
+  neues,schonDa: boolean;
+  s:             string;
+  tmpZiele:      tDateienMitDaten;
+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;
+
+          // 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);
+
+          if length(tmpZiele)=0 then begin
+            gibAus('Fehler: Keine Ziele für Abhängigkeit!',3);
+            gibAus('Quelle:',3);
+            gibAus(''''+_dats[j].name+'''',3);
+            gibAus('Ziele:',3);
+            for k:=0 to _oriAbh[i].zieleFkt.count-1 do
+              gibAus(' '''+_oriAbh[i].zieleFkt[k]+'''',3);
+            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;
+              end;
+              neues:=true;
+              break; // mehr Ziele sollte es ohnehin nicht geben
+            end;
+          if schonDa then continue;
+
+          // Ziel(e) ist/sind neu
+          _mglAbh.add(tAbhaengigkeit.create);
+          _oriAbh[i].erben.add(_mglAbh.last);
+          setlength(_mglAbh.last.quellen,1);
+          _mglAbh.last.quellen[0]:=_dats[j];
+          _mglAbh.last.zieleFkt:=_oriAbh[i].zieleFkt;
+          setlength(_mglAbh.last.ziele,length(tmpZiele));
+          for k:=0 to length(tmpZiele)-1 do
+            _mglAbh.last.ziele[k]:=tmpZiele[k];
+          _mglAbh.last.befehle.clear;
+          for k:=0 to _oriAbh[i].befehle.count-1 do begin
+            s:=_oriAbh[i].befehle[k];
+            if quellersetzung(s,_dats[j].name,machDatei) then
+              _mglAbh.last.befehle.add(s);
+          end;
+          _mglAbh.last.prioritaet:=_oriAbh[i].prioritaet;
+        end;
+
+  until not neues;
+end;
+
+procedure tMach.findeWasZuTunIst;
+var
+  i,j,k:   longint;
+  ziA,quA: tAktualitaet;
+begin
+  // schauen, welche Regeln angewandt werden müssen
+
+  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);
+      for j:=0 to length(_mglAbh[i].ziele)-1 do
+        _mglAbh[i].ziele[j].aktuell:=aWirdErneuert;
+    end;
+  end;
+end;
+
+procedure tMach.tueWasZuTunIst(allesNeu, unsicher: boolean; ausgabeDatei: string);
+var
+  prior,i,j:                 longint;
+  ausg:                      textfile;
+  befehle,geaenderteDateien,
+    sumDateien:              tStringlist;
+  gefunden:                  boolean;
+  lokTest:                   tRegExpr;
+  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
+    gefunden:=(_dats[i].name=pruefsummenDatei) or (_dats[i].name=ausgabeDatei);
+    for j:=0 to sumDateien.count-1 do
+      if sumDateien[j]=_dats[i].name then begin
+        gefunden:=true;
+        sumDateien.delete(j);
+        break;
+      end;
+    if not gefunden then
+      geaenderteDateien.add(_dats[i].name);
+  end;
+  sumDateien.free;
+  if allesNeu then
+    for i:=0 to _mglAbh.count-1 do begin
+      for j:=0 to length(_mglAbh[i].ziele)-1 do
+        geaenderteDateien.add(_mglAbh[i].ziele[j].name);
+      for j:=0 to length(_mglAbh[i].quellen)-1 do
+        geaenderteDateien.add(_mglAbh[i].quellen[j].name);
+    end;
+  for i:=0 to _ztAbh.count-1 do begin
+    for j:=0 to length(_ztAbh[i].ziele)-1 do
+      geaenderteDateien.add(_ztAbh[i].ziele[j].name);
+    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;
+  if not unsicher then begin
+    lokTest:=tRegExpr.create;
+    if extractfilepath(ausgabeDatei)=extractfilepath(pruefsummenDatei) then
+      lokTest.expression:='^'+extractfilepath(ausgabeDatei)+'/'
+    else
+      lokTest.expression:='^('+extractfilepath(ausgabeDatei)+'|'+extractfilepath(pruefsummenDatei)+')/';
+    for i:=0 to befehle.count-1 do
+      testeObBefehlLokal(befehle[i],extractfiledir(ausgabeDatei),lokTest);
+    lokTest.free;
+  end;
+  for i:=geaenderteDateien.count-1 downto 0 do begin
+    if geaenderteDateien[i]='.uralt.' then begin
+      geaenderteDateien.delete(i);
+      continue;
+    end;
+    for j:=0 to i-1 do
+      if geaenderteDateien[i]=geaenderteDateien[j] then begin
+        geaenderteDateien.delete(i);
+        break;
+      end;
+  end;
+  if geaenderteDateien.count>0 then begin
+    befehle.add('echo -ne "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('echo " fertig"');
+  end;
+
+  if _ztAbh.count=0 then
+    befehle.add('echo "Es gibt hier nichts zu tun!"');
+  if ausgabeDatei='' then begin
+    writeln('befehle:');
+    for i:=0 to befehle.count-1 do
+      writeln(befehle[i]);
+  end
+  else begin
+    assignFile(ausg,ausgabeDatei);
+    rewrite(ausg);
+    for i:=0 to befehle.count-1 do
+      writeln(ausg,'('+befehle[i]+') || (read -p "Ein Fehler ist aufgetreten! ... "; exit 1)');
+    closeFile(ausg);
+  end;
+  befehle.free;
+  geaenderteDateien.free;
+end;
+
+procedure tMach.setzeGenerischePruefsummenDatei;
+begin
+  pruefsummenDatei:=extractfilepath(machDatei)+'.summen';
+end;
+
+function tMach.anzOriAbh: longint;
+begin
+  result:=_oriAbh.count;
+end;
+
+function tMach.anzMglAbh: longint;
+begin
+  result:=_mglAbh.count;
+end;
+
+function tMach.anzZtAbh: longint;
+begin
+  result:=_ztAbh.count;
+end;
+
+function tMach.anzDats: longint;
+begin
+  result:=length(_dats);
+end;
+
 // allgemeine Funktionen *******************************************************
 
 function quellersetzung(var worin: string; quelle, inputfile: string): boolean;
 var
   s,anfang,mitte: string;
-  i,li,re:        integer;
+  i,li,re:        longint;
 begin
   result:=true;
   if quelle<>'' then begin
@@ -183,7 +716,7 @@ end;
 procedure sammleDateien(wo: string; rekursiv: boolean; ignoriere: array of tRegExpr; var dats: tDateienMitDaten);
 var
   sr:        tSearchRec;
-  err,i:     integer;
+  err,i:     longint;
   weglassen: boolean;
 begin
   err:=FindFirst(wo,fareadOnly or faHidden or faSysFile or (byte(rekursiv)*faDirectory),sr);
@@ -194,9 +727,9 @@ begin
     if not weglassen then begin
       if sr.attr and faDirectory <> 0 then begin
         if rekursiv and
-           (sr.name<>'.') and
-           (sr.name<>'..') then
-             sammleDateien(extractfilepath(wo)+sr.name+'/*',rekursiv,ignoriere,dats);
+          (sr.name<>'.') and
+          (sr.name<>'..') then
+            sammleDateien(extractfilepath(wo)+sr.name+'/*',rekursiv,ignoriere,dats);
       end
       else begin
         setlength(dats,length(dats)+1);
@@ -210,119 +743,68 @@ begin
   findClose(sr);
 end;
 
-function liesMakeFile(datNam: string; out abh: tAbhaengigkeiten; out dats: tDateienMitDaten): boolean;
+procedure zieleHinzufuegen(var ziele: tDateienMitDaten; ziel,quelle,inputfile: string; var dats: tDateienMitDaten);
 var
-  f:             tMyStringList;
-  s:             string;
-  na:            tAbhaengigkeit;
-  ignoriere:     array of tRegExpr;
-  rek:           boolean;
-  num,posi:      longint;
-  wasWar,wasIst: tZeilenTyp;
-
-procedure aufraeumen;
-var
-  ii: longint;
+  i,ebene,ende: longint;
+  s,t,u:        string;
+  wasda:        boolean;
 begin
-  f.free;
-  na.free;
-  for ii:=0 to length(ignoriere)-1 do
-    ignoriere[ii].free;
-  setlength(ignoriere,0);
-end;
-
-begin
-  result:=false;
-
-  na:=tAbhaengigkeit.create;
-  na.prioritaet:=0;
-  na.abhArt:=aaPrimaer;
-  setlength(dats,0);
-  setlength(abh,0);
-  setlength(ignoriere,0);
-  num:=0;
-  wasWar:=ztSuche;
-  f:=tMyStringList.create;
-  f.loadFromFile(datNam);
-  f.add('%%DATEIENDE%%');
-  if not f.unfoldMacros then begin
-    f.free;
-    exit;
-  end;
-  s:='';
-  while f.readln(s) do begin
-    if rightStr(s,1)=';' then      // ein Befehl(steil)
-      wasIst:=ztBefehl
-    else if rightStr(s,1)=':' then // ein Ziel
-      wasIst:=ztZiel
-    else if wasWar=ztZiel then     // eine Quelle
-      wasIst:=ztQuelle
-    else                           // eine zu überwachende Datei
-      wasIst:=ztSuche;
-
-    if wasIst in [ztZiel,ztBefehl] then
-      delete(s,length(s),1);
-
-    if (wasWar=ztBefehl) and (wasIst<>ztBefehl) then begin
-      setlength(abh,length(abh)+1);
-      abh[length(abh)-1]:=na;
-      inc(num);
-      na:=tAbhaengigkeit.create;
-      na.prioritaet:=num;
-      na.abhArt:=aaPrimaer;
-    end;
-
-    if s='%%DATEIENDE%%' then break;
-
-    case wasIst of
-      ztSuche: begin
-        if not quellersetzung(s,'',datNam) then begin
-          writeln('Fehler: Quellersetzung in '''+s+''' fehlgeschlagen!');
-          aufraeumen;
-          exit;
-        end;
-        if pos('!',s)=1 then begin
-          delete(s,1,1);
-          s:=trim(s);
-          setlength(ignoriere,length(ignoriere)+1);
-          ignoriere[length(ignoriere)-1]:=tRegExpr.create;
-          ignoriere[length(ignoriere)-1].expression:=s;
-        end
-        else begin
-          rek:=startetMit('-r',s);
-          while s<>'' do
-            sammleDateien(erstesArgument(s),rek,ignoriere,dats);
-        end;
+  if pos('{',ziel)=0 then begin
+    if not quellersetzung(ziel,quelle,inputfile) then exit;
+    ziel:=unescape(ziel);
+    i:=0;
+    wasda:=false;
+    while i<length(dats) do begin
+      if bashMatch(ziel,dats[i].name) then begin
+        wasda:=true;
+        setlength(ziele,length(ziele)+1);
+        ziele[length(ziele)-1]:=dats[i];
       end;
-      ztBefehl: begin
-        while unescapedpos(';',s)>0 do begin
-          posi:=unescapedpos(';',s);
-          s:=trim(leftStr(s,posi-1))+' && '+trim(rightStr(s,length(s)-posi));
-        end;
-        while pos(';;',s)>0 do
-          delete(s,pos(';;',s),1);
-        na.befehle.add(s);
-      end;
-      ztZiel:
-        while s<>'' do
-          na.zieleFkt.add(erstesArgument(s));
-      ztQuelle: begin
-        if not quellersetzung(s,'',datNam) then begin
-          writeln('Fehler: Quellersetzung in '''+s+''' fehlgeschlagen!');
-          aufraeumen;
-          exit;
-        end;
-        na.quellenRE.expression:=s;
+      inc(i);
+    end;
+    if not wasda then begin
+      setlength(dats,length(dats)+1);
+      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
+      setlength(ziele,length(ziele)+1);
+      ziele[length(ziele)-1]:=dats[i];
+    end;
+  end
+  else begin
+    ende:=pos('{',ziel);
+    ebene:=1;
+    while (ebene>0) or (ziel[ende]<>'}') do begin
+      inc(ende);
+      case ziel[ende] of
+        '{': inc(ebene);
+        '}': dec(ebene);
+      end{of case};
+    end;
+    s:=copy(ziel,1,pos('{',ziel)-1);
+    t:=copy(ziel,pos('{',ziel)+1,ende-pos('{',ziel)-1);
+    u:=copy(ziel,ende+1,length(ziel));
+    if unescapedpos('..',t)>0 then begin
+      for i:=strtoint(copy(t,1,unescapedpos('..',t)-1)) to strtoint(copy(t,unescapedpos('..',t)+2,length(t))) do
+        zieleHinzufuegen(ziele,s+inttostr(i)+u,quelle,inputfile,dats);
+    end
+    else begin
+      t:=t+',';
+      while unescapedpos(',',t)>0 do begin
+        zieleHinzufuegen(ziele,s+copy(t,1,unescapedpos(',',t)-1)+u,quelle,inputfile,dats);
+        delete(t,1,unescapedpos(',',t));
       end;
-    end{of case};
-    wasWar:=wasIst;
+    end;
   end;
+end;
 
-  if s<>'%%DATEIENDE%%' then
-    writeln('Interner Fehler! Die letzte Regel wird vsl. nicht beachtet!');
-
-  aufraeumen;
-  result:=true;
+procedure findeMehrZiele(var ziele: tDateienMitDaten; zieleFkt: tStringList; quelle,inputfile: string; var dats: tDateienMitDaten);
+var
+  i: longint;
+begin
+  for i:=0 to zieleFkt.count-1 do
+    zieleHinzufuegen(ziele,zieleFkt[i],quelle,inputfile,dats);
 end;
 
 end.