#!/bin/sh
-pkgfile=${ZPMDB:-/var/lib/zpm/db.zpm}
+pkgfile=${ZPMDB:-/var/lib/zpm/local.db}
-while getopts f: opt; do
+long=0
+pkgonly=0
+quiet=0
+config=include
+showsoname=0
+
+while getopts f:qlncCL opt; do
case $opt in
f) pkgfile="$OPTARG" ;;
+ l) long=1 ;;
+ n) pkgonly=1 ;;
+ q) quiet=1 ;;
+ c) config=only ;;
+ C) config=exclude ;;
+ L) showsoname=1 ;;
esac
done
shift $((OPTIND - 1))
-set -e
-
if [ ! -f $pkgfile ]; then
echo cannot find $pkgfile
exit 1
fi
+if [ $long -gt 0 ]; then
+ cols="filetype,printf('%.4s', mode) as mode,username,groupname,"
+fi
+
+if [ $pkgonly -eq 1 ]; then
+ cols="pkgid"
+elif [ $quiet -eq 0 ]; then
+ cols="pkgid,$cols"
+fi
-for pkg in "$@"; do
- pkgid=$(zpm findpkg $pkgfile $pkg)
+pkglist=
+while [ $# -gt 0 ]; do
+ pkg=$1
+ shift
+ if [ "$pkg" = '--' ]; then
+ break;
+ fi
- zpm shell $pkgfile <<EOS
-.separator "\t"
-select package, version, release,
-path || case when hash is null then '/' else '' end
-from packagefiles
-where printf('%s-%s-%s', package,version,release) = '$pkgid'
-;
-EOS
+ pkgid=$(zpm findpkg -f $pkgfile "$pkg")
+ if [ -n "$pkgid" ]; then
+ q=$(zpm quote -q "$pkgid")
+ pkglist=",$q"
+ else
+ warn "package $pkg not found, ignoring"
+ fi
+done
+pkglist=${pkglist#,}
+globlist=
+for glob in "$@"; do
+ q=$(zpm quote -q "$glob")
+ globlist="or path glob $q"
done
+globlist=${globlist#'or '}
+
+cols=${cols%,}
+
+{
+ printf '.separator " "\n'
+ printf 'select %s\n' "$cols"
+
+ if [ $pkgonly -eq 0 ]; then
+ if [ -n "$cols" ]; then
+ printf ', '
+ fi
+
+ printf "case\n";
+ printf "when filetype = 'd' then rtrim(path,'/') || '/'\n"
+ printf "when filetype = 'l' then printf('%%s -> %%s', path, target)\n"
+ if [ $showsoname -eq 1 ]; then
+ printf "when EL.soname is not null then printf('%%s (%%s)', path, EL.soname)\n"
+ fi
+ printf "else path end as path\n"
+ fi
+ printf 'from packagefiles_pkgid PF left join elflibraries EL on EL.file = PF.hash\nwhere true\n'
+ if [ -n "$globlist" ]; then
+ printf "and (%s)\n" "$globlist"
+ fi
+ if [ -n "$pkglist" ]; then
+ printf "and pkgid in (%s)\n" "$pkglist"
+ fi
+ case $config in
+ only) printf "and configuration = 1\n" ;;
+ exclude) printf "and configuration = 0\n" ;;
+ esac
+ printf 'order by pkgid,path\n'
+ printf ';\n'
+} | zpm shell $pkgfile
+#} | cat