Re: debhelper design change - RFC (long)

[Joey Hess <joey@kitenet.net>]

Richard Braakman wrote:
> It should be possible to construct a regexp that detects these usage
> patterns.  Then you could grep through the .diff.gz files on the
> archive to see if they are used anywhere, and file individual
> bugreports.  With a few exceptions, the diffs are not very large --
> you won't be grepping through 500 MB :-)

Here's my try at doing that:

joey@kite:~irc/mirror/debian/main/source>find |grep diff.gz | xargs zcat |
perl -ne 'chomp ;if (/dh_.*\s+(.*?)(-p.*|-i|-a)(.*?)/ && ($1 || $2)) {
$args="$1 $2"; $args=~tr/\s/\s/s; foreach $word (split(/\s/,"$args")) { if
(! $word=~m/^-/) { print "$_: $word\n" } } }' 

It comes up empty, no matches. (I checked non-free and contib and non-us
too). I don't think it's a bug in my command line, though others are
welcome to try alternate ways.
 
> This way you'll miss the "native" packages.  Is there a list of those?

Just grep for .tar.gz files that are not .orig.tar.gz files:

joey@kite:~irc/mirror/debian/main/source>find |grep .tar.gz | grep -v .orig.
|xargs -n 1 tar xzOf | perl -ne 'chomp ;if (/dh_.*\s+(.*?)(-p.*|-i|-a)(.*?)/
&& ($1 || $2)) { $args="$1 $2"; $args=~tr/\s/\s/s; foreach $word
(split(/\s/,"$args")) { if (! $word=~m/^-/) { print "$_: $word\n" } } }'
 
This also comes up empty.

-- 
see shy jo


--
TO UNSUBSCRIBE FROM THIS MAILING LIST: e-mail the word "unsubscribe" to
debian-devel-request@lists.debian.org . 
Trouble?  e-mail to templin@bucknell.edu .