summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore13
-rwxr-xr-xMakebin0 -> 1355061 bytes
-rw-r--r--Make.lpi91
-rw-r--r--Make.lpr636
-rw-r--r--Make.lps163
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
Binary files differ
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>