summaryrefslogtreecommitdiff
path: root/dateibeziehungen.pas
diff options
context:
space:
mode:
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r--dateibeziehungen.pas15
1 files changed, 11 insertions, 4 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 555127b..e69bf56 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -571,9 +571,11 @@ end;
procedure tGenerischeAbhaengigkeit.generiereErben(var es: tExpliziteAbhaengigkeiten);
var
- i,j: longint;
- s: string;
+ i,j: longint;
+ s: string;
+ neuSums: tMyStringList;
begin
+ neuSums:=tMyStringList.create;
for i:=0 to matchCount-1 do begin
es.add(tExpliziteAbhaengigkeit.create);
for j:=0 to quellen[i].count-1 do
@@ -604,13 +606,18 @@ begin
es.last.befehle.add(s);
s:='sha512sum';
for j:=0 to quellen[i].count-1 do
- s:=s+' "'+quellen[i][j].name+'"';
+ neuSums.add(quellen[i][j].name);
for j:=0 to ziele[i].count-1 do
- s:=s+' "'+ziele[i][j].name+'"';
+ neuSums.add(ziele[i][j].name);
+ neuSums.sort;
+ neuSums.uniq('-');
+ for j:=0 to neuSums.count-1 do
+ s:=s+' "'+escape(neuSums[j],'"\','\')+'"';
s:=s+' >> '+_pruefsummenDatei;
es.last.befehle.add(s);
end;
end;
+ neuSums.free;
end;
// tExpliziteAbhaengigkeit **************************************************************