[pacman-dev] pactree, view the dependency tree
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@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:
Carlo Bersani wrote:
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 am going to give this a prod. There is a slightly updated version on the forums (http://bbs.archlinux.org/viewtopic.php?pid=393865). The only question I have for everyone is what is the best way to deal with provides? e.g. Currently:
./pactree glibc |--glibc +--bash provides sh |--glibc |--tzdata
But there is the possibility that multiple installed packages provide something E.g. there are multiple packages that provide imap-server that don't (all) conflict: bincimap/PKGBUILD:provides=('imap-server') courier-imap/PKGBUILD:provides=('imap-server' 'pop3-server') courier-mta/PKGBUILD:provides=('smtp-server' 'imap-server' 'pop3-server' 'courier-imap' 'courier-maildrop') dovecot/PKGBUILD:provides=('imap-server' 'pop3-server') imap/PKGBUILD:provides=('imap-server' 'pop3-server') So what is the best approach here? If possible I think that continuing down the dependency tree if we find one installed provider is good but we should just list the providers if more than one. Any opinions? Allan
Allan McRae wrote:
I am going to give this a prod. There is a slightly updated version on the forums (http://bbs.archlinux.org/viewtopic.php?pid=393865).
The only question I have for everyone is what is the best way to deal with provides? e.g. Currently:
./pactree glibc |--glibc +--bash provides sh |--glibc |--tzdata
But there is the possibility that multiple installed packages provide something E.g. there are multiple packages that provide imap-server that don't (all) conflict:
bincimap/PKGBUILD:provides=('imap-server') courier-imap/PKGBUILD:provides=('imap-server' 'pop3-server') courier-mta/PKGBUILD:provides=('smtp-server' 'imap-server' 'pop3-server' 'courier-imap' 'courier-maildrop') dovecot/PKGBUILD:provides=('imap-server' 'pop3-server') imap/PKGBUILD:provides=('imap-server' 'pop3-server')
So what is the best approach here? If possible I think that continuing down the dependency tree if we find one installed provider is good but we should just list the providers if more than one.
Any opinions?
What pacman does when resolving dependencies is to first look for a package with the literal name (eg sh or imap-server) and if it doesn't exist, then it just picks up the first provider it finds. So just doing the same in pactree is fine. I guess that, as a bonus, you could also display the other providers (without their dep tree), but that is just optional.
participants (3)
-
Allan McRae
-
Carlo Bersani
-
Xavier