Bug#924082: more dh-sequences

["Chris Lamb" <lamby@debian.org>]

Chris Lamb wrote:

> > We can grep through the Packages list to find more dh-sequence provides.
[..]
> https://salsa.debian.org/lintian/lintian/commit/34b939afb51b637f4d7708c8c3edcc1163f862d5

WIP patch for doing this automatically in private/refresh-debhelper-data
is:

diff --git a/private/refresh-debhelper-data b/private/refresh-debhelper-data
index 89df2810b..b19458fdf 100755
--- a/private/refresh-debhelper-data
+++ b/private/refresh-debhelper-data
@@ -124,6 +124,9 @@ else
 
     cd "$workdir"
     wget dists/sid/main/Contents-i386.gz
+    wget dists/sid/main/binary-i386/Packages.gz
+    gunzip Packages.gz
+
     zgrep -E "$dh_regex" Contents-i386.gz > dh_entries
     cat dh_entries \
         | perl -n -w -E 's#'"$dh_command_perl_regex"'#$1=$2# and print' \
@@ -133,11 +136,20 @@ else
         | perl -n -w -E 's#'"$dh_addon_perl_regex"'#$1=$2# and print' \
         | sed 's/=debhelper$/=debhelper | debhelper-compat/' \
         > dh_addons
+    cat dh_entries \
+        | perl -n -w -E 's#'"$dh_addon_perl_regex"'#$2# and print' \
+        | while read X; do
+            printf '%s=' $X; grep-dctrl -w -P -n $X -s Provides Packages \
+            | perl -nle 'print join ",", m/dh-sequence-(\w+)/g'; \
+            echo; \
+          done \
+        | grep -E '=.' \
+        | sort -u > dh_sequences
     cat dh_commands \
         | cut -d '|' -f 1 | sed 's/\s*$//' \
         | cut -d '=' -f 2 | sort -u > dh_packages
 
-    for f in commands packages; do
+    for f in commands packages sequences; do
         rf="$lintian_data/debhelper/dh_$f"
         [ ! -f "$rf" ] ||
             mv "$rf" "${rf}.old"
@@ -151,8 +163,6 @@ else
         create_data_file "$rf" < "dh_$f"
     done
 
-    wget dists/sid/main/binary-i386/Packages.gz
-    gunzip Packages.gz
     for package in $(cat dh_packages); do
         fn="$(grep-dctrl -n -P -X "$package" -sFilename Packages)"
         wget "$fn"

(This will need corresponding code in debhelper.pm to check this new
data file too, of course.)


Regards,

-- 
      ,''`.
     : :'  :     Chris Lamb
     `. `'`      lamby@debian.org 🍥 chris-lamb.co.uk
       `-