From 6800a0b64f1c9709c91a9778efe964cdde0cd0aa Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Tue, 8 Sep 2020 19:12:37 +0200
Subject: [PATCH 1/1] +compress.sh

---
 compress.sh | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 compress.sh

diff --git a/compress.sh b/compress.sh
new file mode 100755
index 0000000..d9e32fd
--- /dev/null
+++ b/compress.sh
@@ -0,0 +1,23 @@
+#! /bin/bash
+# echo build/*.dt5.rpm.rpms/*.rpm|xargs -P192 -n64 ./compress.sh >compress.out
+# perl -ne <compress.out '/^(\d+) (\d+) / or die;$a+=$1;$b+=$2;END{print "$a $b ".$b/$a."\n"}'
+for i in "$@";do
+  mkdir work$$
+  cd work$$
+  ln ../$i
+  j=`basename $i`
+  rpm2archive $j
+  rm -f $j
+  tar xzf $j.tgz
+  rm -f $j.tgz
+  for k in `find -type f`;do
+    orig="$(find $k -printf "%s")"
+    eu-elfcompress -p -t zlib $k >>../err1 2>>../err2
+    new="$(find $k -printf "%s")"
+    if [ $orig -ne $new ];then
+      echo "$orig $new $i $k"
+    fi
+  done
+  cd ..
+  rm -rf work$$
+done
-- 
1.8.3.1