[pacman-dev] pactree, view the dependency tree

Carlo Bersani carlocci at gmail.com
Mon Jul 14 16:54:54 EDT 2008


Hello,
this time I wrote a dependency tree viewer.
Feel free to check it: comments are very welcome.
I especially would like to know how it should behave with packages which 
provide another one: I wrote part of the script thinking you couldn't install 
two packets providing the same one, but Allan proved me wrong.
At the moment the script is untested with multiple providers, but otherwise it 
works quite well.
The design choice of passing the directory instead of the packet name was ugly 
in the end, but I was fighting with the scoping in bash at the time, so I 
preferred to let things be; I might fix it.
Hope you like it.


I just noticed the ascii art failed me :(
-----------------------------SCRIPT----------------------------------
#!/bin/bash

# here you can set the colors
branch_color="\033[0;33m"     #Brown
leaf_color="\033[1;32m"       #Light green
leaf2_color="\033[0;32m"      #Green

# here you can set the separators
separator="   "
branch_tip="|--"
provides="provides "

########----------------END-OF-CONFIGURABLE-PART----------------#######

#   pactree : a simple dependency tree viewer
#
#   Copyright (c) 2008 Carlo "carlocci" Bersani <carlocci at gmail.com>
#
#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program.  If not, see <http://www.gnu.org/licenses/>.
#

# Original http://carlocci.ngi.it/arch/pactree


#######################################################################
# User friendly part                                                  #
#######################################################################
readonly prog_name="pactree"
readonly prog_ver="0.1"

_usage(){
	echo "This program generates the dependency tree of a package"
	echo "Usage:   $prog_name [OPTIONS] <installed packages>"
	echo 
	echo " OPTIONS:"
	echo "  -c, --color                Enable color output"
	echo "  -d, --depth INT            Limit the shown dependencies depth"
	echo "  -l, --linear               Enable linear output"
	echo "  -s, --silent               Shh, let me hear those errors!"
	echo "  -u, --unique                Print the dependency list with no 
duplicates"
	echo
	echo "  -h, --help                 Print this help message"
	echo "  -v, --version              Print the program name and version"
	echo
	echo "Example: $prog_name -c -d 2 readline"
}

_version(){
	echo "$prog_name version $prog_ver"
	echo "Copyright (C) 2008 locci"
}
# end of the friendliness


#######################################################################
# grab a field from the database: $1=path/to/file, $2=field to grab   #
#######################################################################
_grabfield(){
	for line in $(cat "$1" 2>/dev/null ); do
		if [ -z "$line" ]; then
			continue;
		fi;
		if [[ "$line" =~ %[A-Z]*% ]]; then
			current="$line"
			continue;
		fi;
		if [ "$current" = "$2" ]; then
			echo "$line"
		fi;
	done
}


#######################################################################
# Recursive function: does all of the work, pays all of the taxes     #
#######################################################################
_tree(){
	for i in $(_grabfield "$1/depends" %DEPENDS%); do
		pkg_dir="$1"
		spaces="$2"
		unset dep_pkg
		unset dep_pkg_provided

		# Generate the spacer
		spacer=""
		for each in $(seq 1 $spaces); do
			spacer="$spacer$separator"
		done
		spacer="$spacer$branch_tip"

		dep_pkg="${i%%[<>=]*}"
		dep_dir="$(echo $pac_db/$dep_pkg-[0-9]*)"
		if [ ! -d "$dep_dir" ]; then    # Is $dep_pkg real or provided?

#START DOUBT
#AWK METHOD real 0m9.378s user 0m5.066s sys 0m2.083s
			#black magic
			dep_dir=$(awk '{ if ( $1 ~ /^%.*%$/ ) flag=0 ; if (flag==1) { if ($1 
~ /^'"$dep_pkg"'[<>=]*.*/ ) print FILENAME }; if ( $1=="%PROVIDES%" ) 
flag=1 ;}' $(find /var/lib/pacman/local -name depends))
			dep_dir="${dep_dir%/*}"
			dep_pkg_provided="$(_grabfield "$dep_dir/desc" %NAME%)"

#BASH METHOD real 0m28.461s user 0m10.229s sys 0m12.539s
#			for file in $(find $pac_db -name depends); do
#				for line in $(_grabfield "$file" %PROVIDES%); do
#					if [ $line = "$dep_pkg" ]; then
#						dep_dir="${file%/depends}"
#						dep_pkg_provided="$(_grabfield "$dep_dir/desc" %NAME%)"
#						break
#					fi
#				done
#				if [ $dep_pkg_provided ]; then
#					break
#				fi
#			done
#END DOUBT
		fi

		# Draws the tree
		if [ $silent -ne 1 ]; then
			if [ "$dep_pkg_provided" ]; then
				echo -e "$branch_color$spacer$leaf_color$dep_pkg_provided$leaf2_color 
$provides$leaf_color$dep_pkg"
			else
				echo -e "$branch_color$spacer$leaf_color$dep_pkg"
			fi
		fi

		if [ ! -d "$dep_dir" ]; then
			echo "No $dep_pkg in the database (inconsistent database?)" >&2
		fi
		
		# Checks for dups and depth
		if [[ ! "${dep_list[@]}" =~ $dep_pkg ]] && [ $spaces -ne $max_depth ]; then	
			dep_list=( "${dep_list[@]}" "${dep_pkg_provided:-$dep_pkg}" )
			_tree "$dep_dir" $((spaces+1))
		fi
	done
}



#######################################################################
# Main program: gets all of the money, pays none of the taxes         #
#######################################################################

# Command line parameters parser --------------------------------------
# ---------------------------------------------------------------------
if [ $# -eq 0 ]; then
	_usage
	exit 1
fi

options=( "$@" )
len_options=${#options[@]}
for (( n=0 ; n < $len_options ; n++ )); do
	if [ "${options[$n]}" = "--" ]; then
		unset options[$n]
		break
	fi
	if [ "${options[$n]}" = "-h" -o "${options[$n]}" = "--help" ]; then
		_usage
		exit 0 
	fi

	if [ "${options[$n]}" = "-v" -o "${options[$n]}" = "--version" ]; then
		_version
		exit 0
	fi

	if [ "${options[$n]}" = "-l" -o "${options[$n]}" = "--linear" ]; then
		unset options[$n]
		unset separator
		unset branch_tip
		unset provider
		linear=1
		continue
	fi

	if [ "${options[$n]}" = "-s" -o "${options[$n]}" = "--silent" ]; then
		unset options[$n]
		silent=1
		continue
	fi

	if [ "${options[$n]}" = "-u" -o "${options[$n]}" = "--unique" ]; then
		unset options[$n]
		silent=1
		nodup=1
		continue
	fi

	if [ "${options[$n]}" = "-c" -o "${options[$n]}" = "--color" ]; then
		unset options[$n]
		colored=1
		continue
	fi

	if [ "${options[$n]}" = "-d" -o "${options[$n]}" = "--depth" ]; then
		unset options[$n]
		if [[ ${options[$((n+1))]} =~ [[:digit:]]+ ]]; then
#		if [ ${options[$((n+1))]} -eq ${options[$((n+1))]} 2>/dev/null ]; then
			max_depth="${options[$((n+1))]}"
			unset options[$((n+1))]
			((++n))
		fi
		continue
	fi
done
# End of the dumb command line parser ---------------------------------


# Env -----------------------------------------------------------------
# ---------------------------------------------------------------------
max_depth=${max_depth:--1}
linear=${linear:-0}
silent=${silent:-0}
nodup=${nodup:-0}

if [ ${colored:-0} -ne 1 ]; then
	unset branch_color
	unset leaf_color
	unset leaf2_color
fi

if [ ! -r /etc/pacman.conf ]; then
	echo "ERROR: unable to read /etc/pacman.conf"
	exit 1
else
	eval $(awk '/DBPath/ {print $1$2$3}' /etc/pacman.conf)
fi

pac_db="${DBPath:-/var/lib/pacman}/local"

if [ ! -d "$pac_db" ] ; then
	echo "ERROR: pacman database directory ${pac_db} not found"
	exit 1
fi
# Env End -------------------------------------------------------------


# Program starts ------------------------------------------------------
# ---------------------------------------------------------------------
for pkg_name in ${options[@]} ; do
	pkg_dir="$(echo $pac_db/$pkg_name-[0-9]*)"

	if [ ! -d "$pkg_dir" ] ; then
		echo "ERROR: package ${pkg_name} not found in pacman database"
		exit 1
	fi

	dep_list=( "$pkg_name" )
	[ $silent -ne 1 ] && echo -e "$branch_color$branch_tip$leaf_color$pkg_name"
  [ $max_depth -ne 0 ] && _tree $(echo "$pac_db/$pkg_name-[0-9]*") 1 
	[ $nodup -eq 1 ] && echo "${dep_list[@]}"
done
# Program Ends --------------------------------------------------------
 
# vim: set ts=2 sw=2 noet:




More information about the pacman-dev mailing list