dateibeziehungen.pas: nur ARG_MAX/20 lange Befehle zulassen (warum weigert sich sed, längeres anzunehmen?)

2 files changed, 50 insertions, 55 deletions

diff --git a/Make.lps b/Make.lps
index c6d62d4..96037b1 100644
--- a/Make.lps
+++ b/Make.lps
@@ -30,9 +30,10 @@
       <Unit3>
         <Filename Value="../units/mystringlistunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="3"/>
         <TopLine Value="655"/>
-        <CursorPos X="59" Y="664"/>
+        <CursorPos Y="684"/>
         <UsageCount Value="84"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -40,10 +41,9 @@
         <Filename Value="dateibeziehungen.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="dateiBeziehungen"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="584"/>
-        <CursorPos X="88" Y="587"/>
+        <TopLine Value="577"/>
+        <CursorPos X="20" Y="632"/>
         <FoldState Value=" T3ja03C pjYkO0B4]9ZkD0l317]B9oZ0E113]B5m20e5."/>
         <UsageCount Value="76"/>
         <Loaded Value="True"/>
@@ -132,126 +132,121 @@
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit16>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="29" HistoryIndex="28">
       <Position1>
         <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="322" Column="14" TopLine="287"/>
+        <Caret Line="47" Column="32" TopLine="32"/>
       </Position1>
       <Position2>
         <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="46" Column="15" TopLine="17"/>
+        <Caret Line="679" TopLine="650"/>
       </Position2>
       <Position3>
         <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="666" Column="53" TopLine="639"/>
+        <Caret Line="670" Column="44" TopLine="652"/>
       </Position3>
       <Position4>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="633" TopLine="605"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="31" Column="18" TopLine="48"/>
       </Position4>
       <Position5>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="601" Column="24" TopLine="585"/>
+        <Caret Line="106" Column="28" TopLine="88"/>
       </Position5>
       <Position6>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="83" Column="23" TopLine="65"/>
+        <Caret Line="971" TopLine="755"/>
       </Position6>
       <Position7>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="47" Column="32" TopLine="32"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="78" Column="29" TopLine="61"/>
       </Position7>
       <Position8>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="679" TopLine="650"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="566" Column="50" TopLine="210"/>
       </Position8>
       <Position9>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="670" Column="44" TopLine="652"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="955" TopLine="673"/>
       </Position9>
       <Position10>
-        <Filename Value="Make.lpr"/>
-        <Caret Line="31" Column="18" TopLine="48"/>
+        <Filename Value="dateibeziehungen.pas"/>
       </Position10>
       <Position11>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="106" Column="28" TopLine="88"/>
+        <Caret Line="78" Column="29" TopLine="49"/>
       </Position11>
       <Position12>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="971" TopLine="755"/>
+        <Caret Line="573" Column="38" TopLine="573"/>
       </Position12>
       <Position13>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="78" Column="29" TopLine="61"/>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="47" Column="25" TopLine="31"/>
       </Position13>
       <Position14>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="566" Column="50" TopLine="210"/>
+        <Filename Value="../units/systemunit.pas"/>
+        <Caret Line="329" Column="3" TopLine="295"/>
       </Position14>
       <Position15>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="955" TopLine="673"/>
+        <Filename Value="../units/systemunit.pas"/>
+        <Caret Line="31" Column="38"/>
       </Position15>
       <Position16>
         <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="599" Column="41" TopLine="574"/>
       </Position16>
       <Position17>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="78" Column="29" TopLine="49"/>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="47" Column="88" TopLine="32"/>
       </Position17>
       <Position18>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="573" Column="38" TopLine="573"/>
+        <Caret Line="599" Column="41" TopLine="574"/>
       </Position18>
       <Position19>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="47" Column="25" TopLine="31"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="603" Column="15" TopLine="586"/>
       </Position19>
       <Position20>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="329" Column="3" TopLine="295"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="633" Column="74" TopLine="607"/>
       </Position20>
       <Position21>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="31" Column="38"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="603" TopLine="579"/>
       </Position21>
       <Position22>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="599" Column="41" TopLine="574"/>
+        <Caret Line="608" Column="25" TopLine="593"/>
       </Position22>
       <Position23>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="47" Column="88" TopLine="32"/>
+        <Filename Value="../units/systemunit.pas"/>
+        <Caret Line="24" Column="16" TopLine="7"/>
       </Position23>
       <Position24>
-        <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="599" Column="41" TopLine="574"/>
+        <Filename Value="../units/systemunit.pas"/>
+        <Caret Line="324" Column="6" TopLine="300"/>
       </Position24>
       <Position25>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="603" Column="15" TopLine="586"/>
+        <Caret Line="565" Column="43" TopLine="571"/>
       </Position25>
       <Position26>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="633" Column="74" TopLine="607"/>
+        <Caret Line="590" Column="13" TopLine="572"/>
       </Position26>
       <Position27>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="603" TopLine="579"/>
       </Position27>
       <Position28>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="608" Column="25" TopLine="593"/>
+        <Caret Line="590" Column="20" TopLine="476"/>
       </Position28>
       <Position29>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="24" Column="16" TopLine="7"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="603" Column="20" TopLine="575"/>
       </Position29>
-      <Position30>
-        <Filename Value="../units/systemunit.pas"/>
-        <Caret Line="324" Column="6" TopLine="300"/>
-      </Position30>
     </JumpHistory>
   </ProjectSession>
 </CONFIG>
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 151eb79..9ef1ec9 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -587,7 +587,7 @@ begin
     neuSums.uniq('-');
     neuSums.appendTo(                              // Quell- und Zielsummen entfernen
       es.last.befehle,
-      argMax,
+      argMax div 20,
       'sed "/ ',
       '\$/d; / ',
       '\$/d" -i "'+escape(_pruefSummenDatei,'"\','\')+'"'
@@ -600,7 +600,7 @@ begin
     neuSums.uniq('-');
     neuSums.appendTo(                              // Quellsummen erzeugen
       es.last.befehle,
-      argMax,
+      argMax div 20,
       'sha512sum "',
       '" "',
       '" >> "'+escape(_pruefSummenDatei,'"\','\')+'"'
@@ -629,7 +629,7 @@ begin
     neuSums.uniq('-');
     neuSums.appendTo(                              // Zielsummen erzeugen
       es.last.befehle,
-      argMax,
+      argMax div 20,
       'sha512sum "',
       '" "',
       '" >> "'+escape(_pruefSummenDatei,'"\','\')+'"'