diff options
| -rw-r--r-- | Make.lps | 159 | ||||
| -rw-r--r-- | dateibeziehungen.pas | 18 |
2 files changed, 94 insertions, 83 deletions
@@ -3,37 +3,37 @@ <ProjectSession> <Version Value="10"/> <BuildModes Active="Default"/> - <Units Count="17"> + <Units Count="18"> <Unit0> <Filename Value="Make.lpr"/> <IsPartOfProject Value="True"/> - <TopLine Value="30"/> + <TopLine Value="53"/> <CursorPos X="19" Y="31"/> - <UsageCount Value="108"/> + <UsageCount Value="112"/> <Loaded Value="True"/> </Unit0> <Unit1> <Filename Value="Machdatei.txt"/> <IsPartOfProject Value="True"/> - <UsageCount Value="108"/> + <UsageCount Value="112"/> <DefaultSyntaxHighlighter Value="None"/> </Unit1> <Unit2> <Filename Value="tools.pas"/> <IsPartOfProject Value="True"/> <EditorIndex Value="5"/> - <TopLine Value="420"/> - <CursorPos X="18" Y="440"/> - <UsageCount Value="87"/> + <TopLine Value="255"/> + <CursorPos X="67" Y="283"/> + <UsageCount Value="91"/> <Loaded Value="True"/> </Unit2> <Unit3> <Filename Value="../units/mystringlistunit.pas"/> <IsPartOfProject Value="True"/> <EditorIndex Value="3"/> - <TopLine Value="655"/> - <CursorPos X="57" Y="672"/> - <UsageCount Value="84"/> + <TopLine Value="676"/> + <CursorPos X="47" Y="693"/> + <UsageCount Value="88"/> <Loaded Value="True"/> </Unit3> <Unit4> @@ -42,10 +42,10 @@ <UnitName Value="dateiBeziehungen"/> <IsVisibleTab Value="True"/> <EditorIndex Value="1"/> - <TopLine Value="84"/> - <CursorPos X="38" Y="102"/> - <FoldState Value=" T3ja03C pjYkO0B4]9ZkD0l317,"/> - <UsageCount Value="76"/> + <TopLine Value="672"/> + <CursorPos X="33" Y="987"/> + <FoldState Value=" T3jb03C pjYkO0B4]9ZkD0l3]97kJ0!7]9AlH0F112]B0lf0G[944jQ033S"/> + <UsageCount Value="80"/> <Loaded Value="True"/> </Unit4> <Unit5> @@ -63,9 +63,9 @@ <Unit7> <Filename Value="../units/lowlevelunit.pas"/> <EditorIndex Value="4"/> - <TopLine Value="1276"/> - <CursorPos X="81" Y="1311"/> - <UsageCount Value="21"/> + <TopLine Value="145"/> + <CursorPos Y="154"/> + <UsageCount Value="23"/> <Loaded Value="True"/> </Unit7> <Unit8> @@ -104,9 +104,9 @@ <Unit13> <Filename Value="../units/systemunit.pas"/> <EditorIndex Value="2"/> - <TopLine Value="13"/> - <CursorPos X="45" Y="33"/> - <UsageCount Value="15"/> + <TopLine Value="121"/> + <CursorPos X="21" Y="131"/> + <UsageCount Value="17"/> <Loaded Value="True"/> </Unit13> <Unit14> @@ -120,9 +120,9 @@ <Unit15> <Filename Value="/usr/lib/fpc/src/rtl/inc/objpash.inc"/> <EditorIndex Value="-1"/> - <TopLine Value="173"/> - <CursorPos X="23" Y="193"/> - <UsageCount Value="9"/> + <TopLine Value="402"/> + <CursorPos X="31" Y="421"/> + <UsageCount Value="10"/> </Unit15> <Unit16> <Filename Value="Make.1.in"/> @@ -131,126 +131,133 @@ <UsageCount Value="9"/> <DefaultSyntaxHighlighter Value="None"/> </Unit16> + <Unit17> + <Filename Value="/usr/lib/fpc/src/rtl/objpas/sysutils/osutilsh.inc"/> + <EditorIndex Value="-1"/> + <TopLine Value="7"/> + <CursorPos X="10" Y="25"/> + <UsageCount Value="10"/> + </Unit17> </Units> <JumpHistory Count="30" HistoryIndex="29"> <Position1> - <Filename Value="../units/mystringlistunit.pas"/> - <Caret Line="47" Column="25" TopLine="31"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="1287" Column="23" TopLine="1284"/> </Position1> <Position2> - <Filename Value="../units/systemunit.pas"/> - <Caret Line="329" Column="3" TopLine="295"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="1309" Column="33" TopLine="1297"/> </Position2> <Position3> - <Filename Value="../units/systemunit.pas"/> - <Caret Line="31" Column="38"/> + <Filename Value="dateibeziehungen.pas"/> + <Caret Line="1049" Column="60" TopLine="1027"/> </Position3> <Position4> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="599" Column="41" TopLine="574"/> + <Caret Line="95" Column="24" TopLine="77"/> </Position4> <Position5> - <Filename Value="../units/mystringlistunit.pas"/> - <Caret Line="47" Column="88" TopLine="32"/> + <Filename Value="dateibeziehungen.pas"/> + <Caret Line="729" Column="22" TopLine="636"/> </Position5> <Position6> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="599" Column="41" TopLine="574"/> + <Caret Line="766" Column="22" TopLine="737"/> </Position6> <Position7> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="603" Column="15" TopLine="586"/> + <Caret Line="833" Column="44" TopLine="809"/> </Position7> <Position8> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="633" Column="74" TopLine="607"/> + <Caret Line="837" Column="32" TopLine="809"/> </Position8> <Position9> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="603" TopLine="579"/> + <Caret Line="1047" Column="54" TopLine="1024"/> </Position9> <Position10> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="608" Column="25" TopLine="593"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="1329" Column="30" TopLine="1306"/> </Position10> <Position11> - <Filename Value="../units/systemunit.pas"/> - <Caret Line="24" Column="16" TopLine="7"/> + <Filename Value="dateibeziehungen.pas"/> + <Caret Line="1048" Column="24" TopLine="1024"/> </Position11> <Position12> - <Filename Value="../units/systemunit.pas"/> - <Caret Line="324" Column="6" TopLine="300"/> + <Filename Value="tools.pas"/> + <Caret Line="49" Column="64" TopLine="30"/> </Position12> <Position13> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="590" Column="13" TopLine="572"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="1269" Column="44" TopLine="1252"/> </Position13> <Position14> - <Filename Value="dateibeziehungen.pas"/> + <Filename Value="tools.pas"/> + <Caret Line="545" Column="69" TopLine="530"/> </Position14> <Position15> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="590" Column="20" TopLine="476"/> + <Filename Value="tools.pas"/> + <Caret Line="50" Column="31" TopLine="27"/> </Position15> <Position16> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="603" Column="20" TopLine="575"/> + <Filename Value="tools.pas"/> + <Caret Line="417" Column="31" TopLine="388"/> </Position16> <Position17> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="632" Column="20" TopLine="598"/> + <Filename Value="tools.pas"/> + <Caret Line="419" TopLine="419"/> </Position17> <Position18> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="588" Column="21" TopLine="580"/> + <Filename Value="tools.pas"/> </Position18> <Position19> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="837" Column="76" TopLine="809"/> + <Filename Value="tools.pas"/> + <Caret Line="50" Column="31" TopLine="21"/> </Position19> <Position20> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="102" Column="27" TopLine="84"/> + <Filename Value="tools.pas"/> + <Caret Line="449" TopLine="415"/> </Position20> <Position21> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="834" Column="29" TopLine="806"/> + <Filename Value="tools.pas"/> + <Caret Line="472" Column="37" TopLine="455"/> </Position21> <Position22> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="929" Column="67" TopLine="917"/> + <Filename Value="tools.pas"/> + <Caret Line="473" Column="27" TopLine="456"/> </Position22> <Position23> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="102" Column="45" TopLine="84"/> + <Filename Value="tools.pas"/> + <Caret Line="400" Column="32" TopLine="372"/> </Position23> <Position24> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="834" Column="60" TopLine="816"/> + <Filename Value="tools.pas"/> + <Caret Line="48" Column="68" TopLine="30"/> </Position24> <Position25> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="922" Column="56" TopLine="905"/> + <Filename Value="tools.pas"/> + <Caret Line="294" Column="70" TopLine="284"/> </Position25> <Position26> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="929" Column="73" TopLine="914"/> + <Filename Value="tools.pas"/> + <Caret Line="295" Column="46" TopLine="284"/> </Position26> <Position27> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="937" TopLine="918"/> + <Filename Value="tools.pas"/> + <Caret Line="261" TopLine="253"/> </Position27> <Position28> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="102" Column="14" TopLine="84"/> + <Filename Value="tools.pas"/> + <Caret Line="283" Column="70" TopLine="255"/> </Position28> <Position29> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="936" Column="21" TopLine="918"/> + <Filename Value="Make.lpr"/> + <Caret Line="31" Column="19" TopLine="53"/> </Position29> <Position30> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="942" Column="73" TopLine="915"/> + <Caret Line="109" Column="36" TopLine="91"/> </Position30> </JumpHistory> </ProjectSession> diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 4fb444f..d55fe43 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -5,7 +5,7 @@ unit dateiBeziehungen; interface uses - classes, sysUtils, tools, regExpr; + classes, sysUtils, tools, regExpr, mystringlistunit; type tZeilenTyp = (ztSuche,ztZiel,ztQuelle,ztBefehl); @@ -92,6 +92,7 @@ type tMach = class private _machDatei,_pruefSummenDatei: string; + _ueberwachteDateien: tMyStringList; _oriAbh: tGenerischeAbhaengigkeiten; _mglAbh: tExpliziteAbhaengigkeiten; _dats: tDateienMitDaten; @@ -116,7 +117,7 @@ procedure allgemeineErsetzungen(var worin: string; worinIstRegex: tRegexTyp; mac implementation uses - lowlevelunit, mystringlistunit, systemunit; + lowlevelunit, systemunit; // tGenerischeAbhaengigkeiten ************************************************************ @@ -725,6 +726,7 @@ begin _mglAbh:=tExpliziteAbhaengigkeiten.create; _dats:=tDateienMitDaten.create; _warten:=warten; + _ueberwachteDateien:=tMyStringList.create; // machDatei teilweise prüfen und setzen if machDatei='' then begin @@ -761,6 +763,7 @@ begin _mglAbh.free; _dats.mrProper; _dats.free; + _ueberwachteDateien.free; for i:=0 to length(_ign)-1 do _ign[i].free; setLength(_ign,0); @@ -830,7 +833,8 @@ begin end else begin rek:=startetMit('-r',s); - while s<>'' do + while s<>'' do begin + _ueberwachteDateien.add(char(ord('0')+byte(rek))+s); if sammleDateien(erstesArgument(s),rek)=0 then begin f.stepBack; f.readln(s); @@ -838,6 +842,7 @@ begin aufraeumen; exit; end; + end; end; end; ztBefehl: begin @@ -1038,11 +1043,10 @@ begin if (sicher=1) or // der Benutzer will es ((sicher=0) and (_dats.finde(_machDatei).aktuell<>aAktuell)) then begin // die Machdatei ist nicht aktuell lokTest:=tRegExpr.create; - if (ausgabeDatei='') or - (extractFilePath(ausgabeDatei)=extractFilePath(_pruefSummenDatei)) then - lokTest.expression:=unterVerzeichnisRegex([_pruefSummenDatei]) + if ausgabeDatei<>'' then + lokTest.expression:=unterVerzeichnisRegex(['0'+ausgabeDatei,_ueberwachteDateien]) else - lokTest.expression:=unterVerzeichnisRegex([ausgabeDatei,_pruefSummenDatei]); + lokTest.expression:=unterVerzeichnisRegex([_ueberwachteDateien]); alleDateien:=_dats.toMyStringList; alleDateien.grep('^\.uralt\.$',true); for i:=0 to befehle.count-1 do |