summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Make.lpr8
-rw-r--r--Make.lps110
-rw-r--r--dateibeziehungen.pas10
3 files changed, 68 insertions, 60 deletions
diff --git a/Make.lpr b/Make.lpr
index 493a830..e7b862e 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -34,10 +34,11 @@ begin
lOpts.add('Datei:');
lOpts.add('Prüfsummen:');
lOpts.add('leise');
+ lOpts.add('sicher');
lOpts.add('unsicher');
lOpts.add('warten');
nonOpts:=tStringList.create;
- errorMsg:=checkOptions('A:D:P:luw',lOpts,nil,nonOpts,true);
+ errorMsg:=checkOptions('A:D:P:lsuw',lOpts,nil,nonOpts,true);
lOpts.free;
while nonOpts.count>0 do begin
if errorMsg<>'' then
@@ -49,6 +50,9 @@ begin
if errorMsg<>'' then
fehler(errorMsg+#10'Hilfe: man Make');
+ if hasOption('u','unsicher') and hasOption('s','sicher') then
+ fehler('Die Optionen -s|--sicher und -u|--unsicher schließen sich gegenseitig aus!');
+
if hasOption('l','leise') then
__ausgabenMaske:=3;
@@ -69,7 +73,7 @@ begin
gibAus('Regeln: '+intToStr(mach.anzMglAbh)+', Dateien: '+intToStr(mach.anzDats),3);
mach.findeWasZuTunIst;
gibAus('anzuwendende Regeln: '+intToStr(mach.anzMglAbh),3);
- mach.tueWasZuTunIst(hasOption('u','unsicher'),getOptionValue('A','Ausgabe'));
+ mach.tueWasZuTunIst(byte(hasOption('s','sicher'))-byte(hasOption('u','unsicher')),getOptionValue('A','Ausgabe'));
terminate;
end;
diff --git a/Make.lps b/Make.lps
index 34f230b..f79d551 100644
--- a/Make.lps
+++ b/Make.lps
@@ -7,24 +7,24 @@
<Unit0>
<Filename Value="Make.lpr"/>
<IsPartOfProject Value="True"/>
- <TopLine Value="52"/>
- <CursorPos X="42" Y="71"/>
- <UsageCount Value="103"/>
+ <TopLine Value="46"/>
+ <CursorPos X="84" Y="76"/>
+ <UsageCount Value="106"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="Machdatei.txt"/>
<IsPartOfProject Value="True"/>
- <UsageCount Value="103"/>
+ <UsageCount Value="106"/>
<DefaultSyntaxHighlighter Value="None"/>
</Unit1>
<Unit2>
<Filename Value="tools.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="4"/>
- <TopLine Value="28"/>
- <CursorPos X="11" Y="46"/>
- <UsageCount Value="82"/>
+ <TopLine Value="420"/>
+ <CursorPos X="18" Y="440"/>
+ <UsageCount Value="85"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
@@ -33,7 +33,7 @@
<EditorIndex Value="2"/>
<TopLine Value="255"/>
<CursorPos X="14" Y="322"/>
- <UsageCount Value="79"/>
+ <UsageCount Value="82"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
@@ -42,10 +42,10 @@
<UnitName Value="dateiBeziehungen"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
- <TopLine Value="531"/>
- <CursorPos Y="547"/>
- <FoldState Value=" T3ja03B41214 p0tF065 piejH0ER"/>
- <UsageCount Value="71"/>
+ <TopLine Value="992"/>
+ <CursorPos X="117" Y="1003"/>
+ <FoldState Value=" T3ja03B41219"/>
+ <UsageCount Value="74"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
@@ -65,7 +65,7 @@
<EditorIndex Value="3"/>
<TopLine Value="1276"/>
<CursorPos X="81" Y="1311"/>
- <UsageCount Value="18"/>
+ <UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
@@ -134,121 +134,121 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="533" Column="30" TopLine="511"/>
+ <Caret Line="430" TopLine="428"/>
</Position1>
<Position2>
- <Filename Value="dateibeziehungen.pas"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="36" Column="15" TopLine="22"/>
</Position2>
<Position3>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="64" Column="48" TopLine="35"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="37" Column="22" TopLine="22"/>
</Position3>
<Position4>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="320" Column="93" TopLine="306"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="159" Column="15" TopLine="126"/>
</Position4>
<Position5>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="427" Column="41" TopLine="398"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="143" Column="53" TopLine="133"/>
</Position5>
<Position6>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="534" Column="43" TopLine="505"/>
+ <Caret Line="429" Column="56" TopLine="411"/>
</Position6>
<Position7>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="594" Column="33" TopLine="565"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="18" Column="65" TopLine="18"/>
</Position7>
<Position8>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="64" Column="61" TopLine="46"/>
+ <Filename Value="tools.pas"/>
</Position8>
<Position9>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="333" Column="20" TopLine="312"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="37" Column="56" TopLine="7"/>
</Position9>
<Position10>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="409" Column="59" TopLine="382"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="144" Column="16" TopLine="122"/>
</Position10>
<Position11>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="114" Column="32" TopLine="87"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="147" Column="83" TopLine="129"/>
</Position11>
<Position12>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="399" Column="31" TopLine="371"/>
+ <Caret Line="878" Column="24" TopLine="865"/>
</Position12>
<Position13>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="828" Column="39" TopLine="800"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="141" Column="31" TopLine="133"/>
</Position13>
<Position14>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="1099" Column="61" TopLine="1073"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="36" Column="45" TopLine="18"/>
</Position14>
<Position15>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="349" Column="89" TopLine="332"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="18" Column="3"/>
</Position15>
<Position16>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="354" Column="76" TopLine="338"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="37" Column="102" TopLine="36"/>
</Position16>
<Position17>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="1116" Column="73" TopLine="1083"/>
+ <Caret Line="429" Column="44" TopLine="411"/>
</Position17>
<Position18>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="1090" Column="22" TopLine="1087"/>
+ <Caret Line="891" Column="3" TopLine="867"/>
</Position18>
<Position19>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="114" Column="32" TopLine="96"/>
+ <Caret Line="1004" Column="45" TopLine="987"/>
</Position19>
<Position20>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="399" Column="24" TopLine="371"/>
+ <Caret Line="854" Column="7" TopLine="836"/>
</Position20>
<Position21>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="64" Column="28" TopLine="46"/>
+ <Caret Line="1005" Column="53" TopLine="981"/>
</Position21>
<Position22>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="320" Column="49" TopLine="288"/>
</Position22>
<Position23>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="441" Column="26" TopLine="418"/>
+ <Caret Line="101" Column="33" TopLine="72"/>
</Position23>
<Position24>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="552" Column="20" TopLine="531"/>
+ <Caret Line="727" Column="18" TopLine="705"/>
</Position24>
<Position25>
<Filename Value="dateibeziehungen.pas"/>
+ <Caret Line="1011" Column="38" TopLine="982"/>
</Position25>
<Position26>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="64" Column="28" TopLine="35"/>
+ <Caret Line="727" Column="13" TopLine="708"/>
</Position26>
<Position27>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="347" Column="23" TopLine="325"/>
+ <Caret Line="875" Column="22" TopLine="859"/>
</Position27>
<Position28>
- <Filename Value="dateibeziehungen.pas"/>
- <Caret Line="64" Column="28" TopLine="46"/>
+ <Filename Value="tools.pas"/>
+ <Caret Line="54" Column="21" TopLine="37"/>
</Position28>
<Position29>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="320" Column="49" TopLine="288"/>
+ <Caret Line="875" Column="22" TopLine="859"/>
</Position29>
<Position30>
<Filename Value="dateibeziehungen.pas"/>
- <Caret Line="441" Column="26" TopLine="412"/>
+ <Caret Line="717" Column="79" TopLine="693"/>
</Position30>
</JumpHistory>
</ProjectSession>
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 7eee746..ece2e13 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -105,7 +105,7 @@ type
destructor destroy; override;
procedure erzeugeRegeln;
procedure findeWasZuTunIst;
- procedure tueWasZuTunIst(unsicher: boolean; ausgabeDatei: string);
+ procedure tueWasZuTunIst(sicher: integer; ausgabeDatei: string);
function anzOriAbh: longint; inline;
function anzMglAbh: longint; inline;
function anzDats: longint; inline;
@@ -987,7 +987,7 @@ begin
_mglAbh.sort;
end;
-procedure tMach.tueWasZuTunIst(unsicher: boolean; ausgabeDatei: string);
+procedure tMach.tueWasZuTunIst(sicher: integer; ausgabeDatei: string);
var
i,j: longint;
ausg: textFile;
@@ -998,7 +998,11 @@ begin
for i:=0 to _mglAbh.count-1 do
for j:=0 to _mglAbh[i].befehle.count-1 do
befehle.add(_mglAbh[i].befehle[j]);
- if not unsicher then begin
+ befehle.add('sed "/\s'+escapeStringToRegex(escape(_machDatei,'$','\'),rtShell,'"/')+'\$/d" -i "'+escape(_pruefSummenDatei,'"\','\')+'"');
+ befehle.add('sha512sum "'+escape(_machDatei,'"\','\')+'" >> "'+escape(_pruefSummenDatei,'"\','\')+'"');
+ befehle.add('sort -u "'+escape(_pruefSummenDatei,'"\','\')+'" | sponge "'+escape(_pruefSummenDatei,'"\','\')+'" || true'); // ignoriere diese Zeile, wenn "sponge" nicht existiert
+ 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