initialer commit

5 files changed, 903 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..d425d8c
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,13 @@
+*.bmp
+*.png
+*.bak
+*.ppu
+*.o
+*.zip
+*.tar.gz
+*.out
+Machdatei
+lib
+epost
+*~
+Log*
diff --git a/Make b/Make
new file mode 100755
index 0000000..1d2f907
--- /dev/null
+++ b/Make
diff --git a/Make.lpi b/Make.lpi
new file mode 100644
index 0000000..e5786fe
--- /dev/null
+++ b/Make.lpi
@@ -0,0 +1,91 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="Make"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/bin/screen -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="Make.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="Make"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="Machdatei.txt"/>
+        <IsPartOfProject Value="True"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <Target>
+      <Filename Value="Make"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <Checks>
+        <IOChecks Value="True"/>
+        <RangeChecks Value="True"/>
+        <OverflowChecks Value="True"/>
+        <StackChecks Value="True"/>
+      </Checks>
+    </CodeGeneration>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+    <Other>
+      <CompilerMessages>
+        <MsgFileName Value=""/>
+      </CompilerMessages>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/Make.lpr b/Make.lpr
new file mode 100644
index 0000000..942f568
--- /dev/null
+++ b/Make.lpr
@@ -0,0 +1,636 @@
+program Make;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes, SysUtils, CustApp
+  { you can add units after this },
+  RegExpr, Math, Process;
+
+type
+
+  { TMake }
+
+  TMake = class(TCustomApplication)
+  protected
+    procedure DoRun; override;
+  public
+    constructor Create(TheOwner: TComponent); override;
+    procedure WriteHelp; virtual;
+  end;
+
+  TAbhArt = (aaFinal,aaEinsZuEins,aaNZuN,aaIgnore);
+  TDateienMitDaten = array of ^TDateiMitDatum;
+
+  { TAbhaengigkeit }
+
+  TAbhaengigkeit = class(TObject)
+    AbhArt:     TAbhArt;
+    QuellenRE:  TRegExpr;
+    ZieleFkt,
+    Befehle:    TStringlist;
+    Quellen,
+    Ziele:      TDateienMitDaten;
+    Erben:      array of ^TAbhaengigkeit;
+    Prioritaet: Integer;
+    constructor create; overload;
+    constructor create(Original: TAbhaengigkeit); overload;
+    destructor destroy; override;
+  end;
+  TAbhaengigkeiten = array of ^TAbhaengigkeit;
+  TDateiMitDatum = record
+    Name:  AnsiString;
+    Datum: TDateTime;
+  end;
+
+var
+  jetzt:     TDateTime;
+  inputfile: string;
+
+  { TAbhaengigkeit }
+
+constructor TAbhaengigkeit.create;
+begin
+  inherited create;
+  QuellenRE:=TRegExpr.create;
+  QuellenRE.Expression:='';
+  ZieleFkt:=TStringlist.create;
+  SetLength(Quellen,0);
+  SetLength(Ziele,0);
+  Befehle:=TStringlist.create;
+  SetLength(Erben,0);
+  AbhArt:=aaNZuN;
+  Prioritaet:=42;
+end;
+
+constructor TAbhaengigkeit.create(Original: TAbhaengigkeit);
+var i: integer;
+begin
+  inherited create;
+  QuellenRE:=TRegExpr.create;
+  QuellenRE.Expression:=Original.QuellenRE.Expression;
+  ZieleFkt:=TStringlist.create;
+  ZieleFkt.Text:=Original.ZieleFkt.Text;
+  SetLength(Quellen,length(Original.Quellen));
+  for i:=0 to length(Original.Quellen)-1 do
+    Quellen[i]:=Original.Quellen[i];
+  SetLength(Ziele,length(Original.Ziele));
+  for i:=0 to length(Original.Ziele)-1 do
+    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];
+  Prioritaet:=Original.Prioritaet;
+  AbhArt:=Original.AbhArt;
+end;
+
+destructor TAbhaengigkeit.destroy;
+begin
+  QuellenRE.free;
+  SetLength(Quellen,0);
+  SetLength(Ziele,0);
+  ZieleFkt.free;
+  Befehle.free;
+  SetLength(Erben,0);
+  inherited destroy;
+end;
+
+function liesZeile(var dat: textfile; out s: string): boolean;
+begin
+  repeat
+    result:=not eof(dat);
+    if not result then exit;
+    readln(dat,s);
+    if pos('#',s)>0 then delete(s,pos('#',s),length(s));
+    while (length(s)>0) and (s[length(s)] in [#9,' ']) do
+      delete(s,length(s),1);
+  until s<>'';
+end;
+
+procedure sammleDateien(wo: string; rekursiv: boolean; var dats: TDateienMitDaten);
+var sr:  TSearchRec;
+    err: integer;
+begin
+  err:=FindFirst(wo,faReadOnly or faHidden or faSysFile or (byte(rekursiv)*faDirectory),sr);
+  while err=0 do begin
+    if sr.Attr and faDirectory <> 0 then begin
+      if rekursiv and
+         (sr.Name<>'.') and
+         (sr.Name<>'..') then
+           sammleDateien(extractfilepath(wo)+sr.Name+'/'+extractfilename(wo),rekursiv,dats);
+    end
+    else begin
+      setlength(dats,length(dats)+1);
+      getmem(dats[length(dats)-1],sizeof(TDateiMitDatum));
+      fillchar(dats[length(dats)-1]^,sizeof(TDateiMitDatum),0);
+      dats[length(dats)-1]^.Name:=extractfilepath(wo)+sr.name;
+      dats[length(dats)-1]^.Datum:=FileDateTodateTime(FileAge(dats[length(dats)-1]^.Name));
+    end;
+    err:=FindNext(sr);
+  end;
+  FindClose(sr);
+end;
+
+function anzCs(c: char; s: string): longint;
+var i: longint;
+begin
+  result:=0;
+  for i:=1 to length(s) do
+    if s[i]=c then
+      inc(result);
+end;
+
+function notQuotedPos(was,worin: string): longint;
+begin
+  result:=0;
+  repeat
+    if pos(was,copy(worin,result+1,length(worin)-result))=0 then begin
+      result:=0;
+      exit;
+    end;
+    result:=result+pos(was,copy(worin,result+1,length(worin)-result));
+    if not odd(anzCs('"',copy(worin,1,result-1))) then
+      exit;
+  until false;
+end;
+
+function unescapedpos(was,worin: string): integer;
+var Ebene: longint;
+begin
+  result:=0;
+  Ebene:=0;
+  while pos(was,copy(worin,result+1,length(worin)))>0 do begin
+    repeat
+      result:=result+1;
+      case worin[result] of
+        '{': inc(Ebene);
+        '}': dec(Ebene);
+      end;
+    until (result>=length(worin)) or ((copy(worin,result,length(was))=was) and (Ebene=0));
+    if ((result=1) or (worin[result-1]<>'\')) and (copy(worin,result,length(was))=was) then exit;
+  end;
+  result:=0;
+end;
+
+function liesMakeFile(datNam: string; out Abh: TAbhaengigkeiten; out dats: TDateienMitDaten): boolean;
+var f:           textfile;
+    s,t:         string;
+    NA:          TAbhaengigkeit;
+    beg,fin,rek: boolean;
+    wo,num:      integer;
+begin
+  result:=false;
+  NA:=TAbhaengigkeit.create;
+  setlength(dats,0);
+  setlength(Abh,0);
+  wo:=0;
+  num:=0;
+  assignfile(f,datNam);
+  reset(f);
+  while liesZeile(f,s) do begin
+    if wo=0 then begin
+      if notQuotedPos(':',s)=0 then begin
+        while (length(s)>0) and (s[1] in [' ',#9]) do delete(s,1,1);
+        if length(s)=0 then continue;
+        s:=s+' ';
+        rek:=pos('-r',s)=1;
+        if rek then delete(s,1,pos(' ',s));
+        while pos(' ',s)>0 do begin
+          sammleDateien(copy(s,1,pos(' ',s)-1),rek,dats);
+          delete(s,1,pos(' ',s));
+        end;
+      end
+      else wo:=1;
+    end;
+    if wo=1 then begin
+      fin:=s[length(s)]=';';
+      if fin then delete(s,length(s),1);
+      beg:=not (s[1] in [' ',#9]);
+      if (notQuotedPos(':',s)>0) xor beg then begin
+        closefile(f);
+        exit;
+      end;
+      if beg then begin
+        SetLength(NA.Quellen,0);
+        NA.QuellenRE.Expression:='';
+        SetLength(NA.Ziele,0);
+        NA.ZieleFkt.Clear;
+        NA.AbhArt:=aaFinal;
+        if pos('1>1 ',s)=1 then NA.AbhArt:=aaEinsZuEins;
+        if pos('n>n ',s)=1 then NA.AbhArt:=aaNZuN;
+        if NA.AbhArt=aaFinal then NA.AbhArt:=aaNZuN // der Standard
+        else delete(s,1,pos(' ',s));
+        t:=copy(s,1,notQuotedPos(':',s)-1)+' ';
+        while pos(' ',t)>0 do begin
+          while pos(' ',t)=1 do delete(t,1,1);
+          NA.ZieleFkt.Add(copy(t,1,pos(' ',t)-1));
+          delete(t,1,pos(' ',t));
+        end;
+        delete(s,1,notQuotedPos(':',s));
+        while pos(' ',s)=1 do delete(s,1,1);
+        NA.QuellenRE.Expression:=s;
+      end
+      else begin
+        while s[1] in [' ',#9] do
+          delete(s,1,1);
+        while unescapedpos(';',s)>0 do
+          s:=copy(s,1,unescapedpos(';',s)-1)+' &&'+copy(s,unescapedpos(';',s)+1,length(s)-unescapedpos(';',s));
+        NA.Befehle.Add(s);
+      end;
+      if fin then begin
+        setlength(Abh,length(Abh)+1);
+        getmem(Abh[length(Abh)-1],sizeof(TAbhaengigkeit));
+        fillchar(Abh[length(Abh)-1]^,sizeof(TAbhaengigkeit),0);
+        Abh[length(Abh)-1]^:=TAbhaengigkeit.create(NA);
+        Abh[length(Abh)-1]^.Prioritaet:=num;
+        inc(num);
+        SetLength(NA.Quellen,0);
+        NA.QuellenRE.Expression:='';
+        SetLength(NA.Ziele,0);
+        NA.ZieleFkt.Clear;
+        setlength(NA.Erben,0);
+        NA.Befehle.Clear;
+      end;
+    end;
+  end;
+  closefile(f);
+  NA.free;
+  result:=true;
+end;
+
+function unescape(s: string): string;
+begin
+  result:=s;
+  while pos('\,',result)>0 do
+    delete(result,pos('\,',result),1);
+end;
+
+function escape(s,toe: string; ec: char): string;
+var i,j: longint;
+    b:   boolean;
+begin
+  result:='';
+  for i:=1 to length(s) do begin
+    b:=false;
+    for j:=1 to length(toe) do
+      b:=b or (toe[j]=s[i]);
+    if b then result:=result+ec;
+    result:=result+s[i];
+  end;
+end;
+
+function Quellersetzung(var worin: string; Quelle: string): boolean;
+var s: string;
+    i: integer;
+begin
+  result:=false;
+  while pos('%nurmit''',worin)>0 do begin
+    i:=pos('%nurmit''',worin);
+    while worin[i]<>'''' do inc(i);
+    repeat
+      inc(i);
+    until worin[i]='''';
+    if pos(copy(worin,pos('%nurmit''',worin)+8,i-pos('%nurmit''',worin)-8),Quelle)=0 then
+      exit;
+    delete(worin,pos('%nurmit''',worin),i-pos('%nurmit''',worin)+1);
+  end;
+  while pos('%nurohne''',worin)>0 do begin
+    i:=pos('%nurohne''',worin);
+    while worin[i]<>'''' do inc(i);
+    repeat
+      inc(i);
+    until worin[i]='''';
+    if pos(copy(worin,pos('%nurohne''',worin)+9,i-pos('%nurohne''',worin)-9),Quelle)>0 then
+      exit;
+    delete(worin,pos('%nurohne''',worin),i-pos('%nurohne''',worin)+1);
+  end;
+  result:=true;
+  while pos('%in',worin)>0 do
+    worin:=copy(worin,1,pos('%in',worin)-1)+Quelle+copy(worin,pos('%in',worin)+3,length(worin));
+  s:=extractfilename(Quelle);
+  while pos('%ifile',worin)>0 do
+    worin:=copy(worin,1,pos('%ifile',worin)-1)+s+copy(worin,pos('%ifile',worin)+6,length(worin));
+  if pos('.',s)>0 then begin
+    while s[length(s)]<>'.' do delete(s,length(s),1);
+    delete(s,length(s),1);
+  end;
+  while pos('%basename',worin)>0 do
+    worin:=copy(worin,1,pos('%basename',worin)-1)+s+copy(worin,pos('%basename',worin)+9,length(worin));
+  s:=extractfilepath(Quelle);
+  while pos('%basedir/',worin)>0 do
+    worin:=copy(worin,1,pos('%basedir/',worin)-1)+s+copy(worin,pos('%basedir/',worin)+9,length(worin));
+  while pos('%basedir',worin)>0 do
+    worin:=copy(worin,1,pos('%basedir',worin)-1)+s+copy(worin,pos('%basedir',worin)+8,length(worin));
+  while pos('%BASEDIR/',worin)>0 do
+    worin:=copy(worin,1,pos('%BASEDIR/',worin)-1)+extractfilepath(inputfile)+copy(worin,pos('%BASEDIR/',worin)+9,length(worin));
+  while pos('%BASEDIR',worin)>0 do
+    worin:=copy(worin,1,pos('%BASEDIR',worin)-1)+extractfilepath(inputfile)+copy(worin,pos('%BASEDIR',worin)+8,length(worin));
+end;
+
+function bashMatch(was,worauf: string): boolean;
+var RE: TRegExpr;
+begin
+  if pos('*',was)=0 then begin
+    result:=was=worauf;
+    exit;
+  end;
+  RE:=TRegExpr.create;
+  RE.Expression:='^'+escape(escape(was,'.|()^$','\'),'*','.')+'$';
+  result:=RE.Exec(worauf);
+  RE.free;
+end;
+
+procedure ZieleHinzufuegen(var Ziele: TDateienMitDaten; Ziel,Quelle: string; var dats: TDateienMitDaten);
+var i,Anz,Ende: integer;
+    s,t,u:      string;
+    wasda:      boolean;
+begin
+  if pos('{',Ziel)=0 then begin
+    if not Quellersetzung(Ziel,Quelle) 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;
+      inc(i);
+    end;
+    if not wasda then begin
+      SetLength(dats,length(dats)+1);
+      getmem(dats[i],sizeof(TDateiMitDatum));
+      fillchar(dats[i]^,sizeof(TDateiMitDatum),0);
+      if pos('*',Ziel)=0 then dats[i]^.Name:=Ziel
+      else dats[i]^.Name:='.uralt.'; // unpassende *-Muster erzeugen formal keine echte Datei
+      dats[i]^.Datum:=0;    // nicht existente Dateien sind formal uralt
+      SetLength(Ziele,length(Ziele)+1);
+      Ziele[length(Ziele)-1]:=dats[i];
+    end;
+  end
+  else begin
+    Ende:=pos('{',Ziel);
+    Anz:=1;
+    while (Anz>0) or (Ziel[Ende]<>'}') do begin
+      inc(Ende);
+      case Ziel[Ende] of
+       '{': inc(Anz);
+       '}': dec(Anz);
+      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,dats);
+    end
+    else begin
+      t:=t+',';
+      while unescapedpos(',',t)>0 do begin
+        ZieleHinzufuegen(Ziele,s+copy(t,1,unescapedpos(',',t)-1)+u,Quelle,dats);
+        delete(t,1,unescapedpos(',',t));
+      end;
+    end;
+  end;
+end;
+
+procedure findeMehrZiele(var Ziele: TDateienMitDaten; ZieleFkt: TStringList; Quelle: string; var dats: TDateienMitDaten);
+var i: integer;
+begin
+  for i:=0 to ZieleFkt.Count-1 do
+    ZieleHinzufuegen(Ziele,ZieleFkt[i],Quelle,dats);
+end;
+
+procedure findeZiele(out Ziele: TDateienMitDaten; ZieleFkt: TStringList; Quelle: string; var dats: TDateienMitDaten);
+begin
+  setlength(Ziele,0);
+  findeMehrZiele(Ziele,ZieleFkt,Quelle,dats);
+end;
+
+procedure findeWasZuTunIst(var mgl: TAbhaengigkeiten; out zuTun: TAbhaengigkeiten; var dats: TDateienMitDaten);
+var i,j,k,l:       integer;
+    neues,schonda: boolean;
+    quNeu,
+    ziAlt:         TDateTime;
+    s:             string;
+begin
+  setlength(zuTun,0);
+  repeat
+    neues:=false;
+    i:=0;
+    while i<length(mgl) do begin
+      case mgl[i]^.AbhArt of
+        aaNZuN: begin // alle Quellen werden mit einem Mal behandelt
+          if length(mgl[i]^.Erben)=0 then begin // noch keine davon abgeleitete Abhängigkeit vorhanden
+            SetLength(mgl,length(mgl)+1);
+            getmem(mgl[length(mgl)-1],sizeof(TAbhaengigkeiten));
+            fillchar(mgl[length(mgl)-1]^,sizeof(TAbhaengigkeiten),0);
+            mgl[length(mgl)-1]^:=TAbhaengigkeit.create;
+            SetLength(mgl[i]^.Erben,1);
+            mgl[i]^.Erben[0]:=mgl[length(mgl)-1];
+            mgl[length(mgl)-1]^.AbhArt:=aaFinal;
+            mgl[length(mgl)-1]^.Prioritaet:=mgl[i]^.Prioritaet;
+            mgl[length(mgl)-1]^.ZieleFkt.Text:=mgl[i]^.ZieleFkt.Text;
+            mgl[length(mgl)-1]^.Befehle.Text:=mgl[i]^.Befehle.Text;
+          end;
+          for j:=0 to length(dats)-1 do if mgl[i]^.QuellenRE.Exec(dats[j]^.Name) then begin
+            schonda:=false;
+            for k:=0 to length(mgl[i]^.Erben[0]^.Quellen)-1 do
+              schonda:=schonda or (mgl[i]^.Erben[0]^.Quellen[k]=dats[j]);
+            if schonda then continue;
+
+            SetLength(mgl[i]^.Erben[0]^.Quellen,length(mgl[i]^.Erben[0]^.Quellen)+1);
+            mgl[i]^.Erben[0]^.Quellen[length(mgl[i]^.Erben[0]^.Quellen)-1]:=dats[j];
+
+            for k:=0 to mgl[i]^.Befehle.Count-1 do begin
+              s:=mgl[i]^.Befehle[k];
+              if Quellersetzung(s,dats[j]^.Name) then begin
+                if k=0 then mgl[i]^.Erben[0]^.Befehle.Clear;
+                mgl[i]^.Erben[0]^.Befehle.Add(s);
+              end;
+            end;
+          end;
+        end;
+        aaEinsZuEins: begin // jede Quelle muss einzeln behandelt werden
+          for j:=0 to length(dats)-1 do
+            if mgl[i]^.QuellenRE.Exec(dats[j]^.Name) then begin
+              schonda:=false;
+              for k:=0 to length(mgl[i]^.Erben)-1 do
+                for l:=0 to length(mgl[i]^.Erben[k]^.Quellen)-1 do
+                  schonda:=schonda or (mgl[i]^.Erben[k]^.Quellen[l]=dats[j]);
+              if schonda then continue;
+              SetLength(mgl,length(mgl)+1);
+              getmem(mgl[length(mgl)-1],sizeof(TAbhaengigkeit));
+              fillchar(mgl[length(mgl)-1]^,sizeof(TAbhaengigkeiten),0);
+              mgl[length(mgl)-1]^:=TAbhaengigkeit.create;
+              SetLength(mgl[i]^.Erben,length(mgl[i]^.Erben)+1);
+              mgl[i]^.Erben[length(mgl[i]^.Erben)-1]:=mgl[length(mgl)-1];
+              mgl[length(mgl)-1]^.AbhArt:=aaFinal;
+              SetLength(mgl[length(mgl)-1]^.Quellen,1);
+              mgl[length(mgl)-1]^.Quellen[0]:=dats[j];
+              findeZiele(mgl[length(mgl)-1]^.Ziele,mgl[i]^.ZieleFkt,dats[j]^.name,dats);
+              mgl[length(mgl)-1]^.Befehle.Clear;
+              for k:=0 to mgl[i]^.Befehle.Count-1 do begin
+                s:=mgl[i]^.Befehle[k];
+                if Quellersetzung(s,dats[j]^.Name) then
+                  mgl[length(mgl)-1]^.Befehle.Add(s);
+              end;
+              if mgl[length(mgl)-1]^.Befehle.Count=0 then begin
+                writeln('Keine Befehle für diese Abhängigkeit auszuführen!');
+                halt;
+              end;
+              mgl[length(mgl)-1]^.Prioritaet:=mgl[i]^.Prioritaet;
+            end;
+        end;
+        aaFinal: if length(mgl[i]^.Erben)=0 then begin // Quellen stehen schon fest, noch nicht auszuführen
+          if length(mgl[i]^.Quellen)=0 then begin
+            inc(i);
+            continue;
+          end;
+          quNeu:=mgl[i]^.Quellen[0]^.Datum;
+          for j:=1 to length(mgl[i]^.Quellen)-1 do
+            quNeu:=max(quNeu,mgl[i]^.Quellen[j]^.Datum);
+          if length(mgl[i]^.Ziele)=0 then begin
+            for j:=0 to length(mgl[i]^.Quellen)-1 do
+              findeMehrZiele(mgl[i]^.Ziele,mgl[i]^.ZieleFkt,mgl[i]^.Quellen[j]^.Name,dats);
+            if length(mgl[i]^.Ziele)=0 then begin
+              mgl[i]^.AbhArt:=aaIgnore;
+              continue;
+            end;
+          end;
+          ziAlt:=mgl[i]^.Ziele[0]^.Datum;
+          for j:=1 to length(mgl[i]^.Ziele)-1 do
+            ziAlt:=min(ziAlt,mgl[i]^.Ziele[j]^.Datum);
+          if ziAlt<quNeu then begin
+            SetLength(zuTun,length(zuTun)+1);
+            getmem(zuTun[length(zuTun)-1],sizeof(TAbhaengigkeit));
+            fillchar(zuTun[length(zuTun)-1]^,sizeof(TAbhaengigkeit),0);
+            zuTun[length(zuTun)-1]^:=TAbhaengigkeit.create(mgl[i]^);
+            SetLength(mgl[i]^.Erben,1);
+            mgl[i]^.Erben[0]:=zuTun[length(zuTun)-1];
+            for j:=0 to length(mgl[i]^.Ziele)-1 do
+              mgl[i]^.Ziele[j]^.Datum:=jetzt;
+            neues:=true;
+          end;
+        end;
+        aaIgnore: ;  // keine Ziele
+      end{of case};
+      inc(i);
+    end;
+  until not neues;
+end;
+
+procedure tueWasZuTunIst(zuTun: TAbhaengigkeiten; nurAnzeigen: boolean; Ausgabedatei: string);
+var Prior,i,j: integer;
+    Ausg:      Textfile;
+    Befehle:   TStringlist;
+begin
+  Befehle:=TStringlist.create;
+  Prior:=0;
+  for i:=0 to length(zuTun)-1 do
+    Prior:=max(Prior,zuTun[i]^.Prioritaet);
+  while Prior>=0 do begin
+    for i:=0 to length(zuTun)-1 do
+      if zuTun[i]^.Prioritaet=Prior then
+        for j:=0 to zuTun[i]^.Befehle.Count-1 do
+          Befehle.Add(zuTun[i]^.Befehle[j]);
+    dec(Prior);
+  end;
+  if length(zuTun)=0 then
+    Befehle.Add('echo "Es gibt hier nichts zu tun!"');
+  Befehle.Add('sleep 2');
+  if nurAnzeigen then begin
+    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;
+end;
+
+{ TMake }
+
+procedure TMake.DoRun;
+var
+  ErrorMsg:             String;
+  mglAbhaengigkeiten,
+  zutunAbhaengigkeiten: TAbhaengigkeiten;
+  Dateien:              TDateienMitDaten;
+begin
+  ErrorMsg:=CheckOptions('A:HWD:','Ausgabe: Hilfe Watte Datei:');
+  if ErrorMsg<>'' then begin
+    ShowException(Exception.Create(ErrorMsg));
+    Terminate;
+    Exit;
+  end;
+
+  if HasOption('H','Hilfe') then begin
+    WriteHelp;
+    Terminate;
+    Exit;
+  end;
+
+  if (GetOptionValue('A','Ausgabe')='') and not HasOption('W','Watte') then begin
+    ShowException(Exception.Create('Ausgabedatei wird benötigt!'));
+    Terminate;
+    Exit;
+  end;
+
+  if HasOption('D','Datei') then inputfile:=GetOptionValue('D','Datei')
+  else inputfile:='Machdatei';
+
+  jetzt:=now;
+
+  if fileexists(inputfile) then begin
+    if not liesMakeFile(inputfile,mglAbhaengigkeiten,Dateien) then begin
+      ShowException(Exception.Create('Datei '''+inputfile+''' ist fehlerhaft!'));
+      Terminate;
+      Exit;
+    end;
+  end
+  else begin
+    ShowException(Exception.Create('Datei '''+inputfile+''' existiert nicht!'));
+    Terminate;
+    Exit;
+  end;
+
+  writeln('Regeln: '+inttostr(length(mglAbhaengigkeiten))+', Dateien: '+inttostr(length(Dateien)));
+  findeWasZuTunIst(mglAbhaengigkeiten,zuTunAbhaengigkeiten,Dateien);
+  writeln('anzuwendende Regeln: '+inttostr(length(zuTunAbhaengigkeiten)));
+  tueWasZuTunIst(zuTunAbhaengigkeiten,HasOption('W','Watte'),GetOptionValue('A','Ausgabe'));
+
+  Terminate;
+end;
+
+constructor TMake.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+  StopOnException:=True;
+end;
+
+procedure TMake.WriteHelp;
+begin
+  writeln('Verwendung:');
+  writeln(' ',ExeName,' -A/--Ausgabe -H/--Hilfe -W/--Watte -D/--Datei');
+end;
+
+var
+  Application: TMake;
+begin
+  Application:=TMake.Create(nil);
+  Application.Run;
+  Application.Free;
+end.
+
diff --git a/Make.lps b/Make.lps
new file mode 100644
index 0000000..e675069
--- /dev/null
+++ b/Make.lps
@@ -0,0 +1,163 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectSession>
+    <Version Value="9"/>
+    <BuildModes Active="Default"/>
+    <Units Count="3">
+      <Unit0>
+        <Filename Value="Make.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="Make"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="0"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="194"/>
+        <CursorPos X="24" Y="221"/>
+        <UsageCount Value="27"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="Machdatei.txt"/>
+        <IsPartOfProject Value="True"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1"/>
+        <CursorPos X="1" Y="1"/>
+        <UsageCount Value="27"/>
+        <DefaultSyntaxHighlighter Value="None"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="Machdatei"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1"/>
+        <CursorPos X="45" Y="17"/>
+        <UsageCount Value="12"/>
+        <DefaultSyntaxHighlighter Value="None"/>
+      </Unit2>
+    </Units>
+    <General>
+      <ActiveWindowIndexAtStart Value="0"/>
+    </General>
+    <JumpHistory Count="30" HistoryIndex="29">
+      <Position1>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="235" Column="19" TopLine="202"/>
+      </Position1>
+      <Position2>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="433" Column="62" TopLine="399"/>
+      </Position2>
+      <Position3>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="444" Column="40" TopLine="411"/>
+      </Position3>
+      <Position4>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="445" Column="33" TopLine="412"/>
+      </Position4>
+      <Position5>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="447" Column="54" TopLine="414"/>
+      </Position5>
+      <Position6>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="448" Column="42" TopLine="415"/>
+      </Position6>
+      <Position7>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="471" Column="42" TopLine="438"/>
+      </Position7>
+      <Position8>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="472" Column="42" TopLine="439"/>
+      </Position8>
+      <Position9>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="473" Column="35" TopLine="440"/>
+      </Position9>
+      <Position10>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="475" Column="46" TopLine="442"/>
+      </Position10>
+      <Position11>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="477" Column="45" TopLine="444"/>
+      </Position11>
+      <Position12>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="478" Column="39" TopLine="445"/>
+      </Position12>
+      <Position13>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="525" Column="12" TopLine="491"/>
+      </Position13>
+      <Position14>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="527" Column="10" TopLine="493"/>
+      </Position14>
+      <Position15>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="534" Column="38" TopLine="500"/>
+      </Position15>
+      <Position16>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="535" Column="40" TopLine="501"/>
+      </Position16>
+      <Position17>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="539" Column="12" TopLine="505"/>
+      </Position17>
+      <Position18>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="540" Column="10" TopLine="506"/>
+      </Position18>
+      <Position19>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="542" Column="24" TopLine="508"/>
+      </Position19>
+      <Position20>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="543" Column="22" TopLine="509"/>
+      </Position20>
+      <Position21>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="548" Column="24" TopLine="514"/>
+      </Position21>
+      <Position22>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="549" Column="31" TopLine="515"/>
+      </Position22>
+      <Position23>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="552" Column="10" TopLine="518"/>
+      </Position23>
+      <Position24>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="221" Column="19" TopLine="201"/>
+      </Position24>
+      <Position25>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="550" Column="1" TopLine="531"/>
+      </Position25>
+      <Position26>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="34" Column="12" TopLine="13"/>
+      </Position26>
+      <Position27>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="61" Column="10" TopLine="27"/>
+      </Position27>
+      <Position28>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="81" Column="10" TopLine="47"/>
+      </Position28>
+      <Position29>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="82" Column="33" TopLine="48"/>
+      </Position29>
+      <Position30>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="96" Column="10" TopLine="62"/>
+      </Position30>
+    </JumpHistory>
+  </ProjectSession>
+</CONFIG>