Re: dpkg BUG install order problem & suggestion to add...

["John D. Hendrickson and Sara Darnell" <johnandsara2@cox.net>]

debian-dpkg@lists.debian.org

> > Jonathan Nieder wrote:

> > > John D. Hendrickson and Sara Darnell wrote:

> > > I have a working example of what to do that mostly uses existing
> > > unix tools.
> >
> > Well, what are you waiting for? :)

excuse me - let me include "show-all" incase anyone wishes to view tsort-out.


#!/bin/sh
# FILE: show-all
# DESC: works only after tsort-out is generated
#
if [ "$1" == "-h" ] || [ "$1" == "--help" ] ; then
	echo "DESCR: show-all packages in tsorted dep order w/ some info"
	echo "USAGE: show-all File"
	echo "NOTES: File is tsort-in, a dep sorted numberic list"
	exit
fi

if [ "$1" == "-f" ] ; then shift 1 ; file="$1" ; else file="tsort-out" ; fi

if [ ! -f ppd ] ; then
	available="available"
	if [ ! -f $available ] ; then
		available="/var/lib/dpkg/available"
	fi
awk 'BEGIN{FS="\n"}; /^Pa/{print $0}; /^Pri/{gsub(/,/,""); print $0}; /^Sec/{print $0}; /^Pro/{print 
$0}; /^Dep/{gsub(/\([^)]*\)/,""); gsub(/,/,""); gsub(/\|/,""); print $0}; /^$/{print ++n"\n"}' 
$available > ppd
	once=1
fi

awk 'BEGIN {ORS=""; pri["req"]=1; pri["imp"]=2; pri["sta"]=3; pri["opt"]=4; pri["ext"]=5; RS="\n\n"; 
n=1; while(getline <"ppd"){x2[n]=$2; x3[n]=substr($4,1,3); x4[n]=substr($6,1,3); ++n}; RS="\n"}; { 
print $1 "\t" x3[$1] " " pri[x3[$1]] "\t" x4[$1] "\t" x2[$1] "\n" }' $file

if [ $once ] ; then rm ppd ; fi