X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=zpm-contents;h=ff607fbb0b24726e84767aa7d461f347f92bdd4a;hb=6cd290b379076aa17eed531cb23585b20cae3a37;hp=23c07ae29a1d327050f8c5a06e953c5b141083c0;hpb=e2dfb7252f431080ce11afa01e08729e59d97116;p=zpackage

diff --git a/zpm-contents b/zpm-contents
index 23c07ae..ff607fb 100755
--- a/zpm-contents
+++ b/zpm-contents
@@ -1,44 +1,102 @@
 #!/bin/sh
 
-pkgfile=${ZPMDB:-/var/lib/zpm/db.zpm}
+pkgfile=${ZPMDB:-/var/lib/zpm/local.db}
 
-verbose=0
+long=0
+pkgonly=0
+quiet=0
+config=include
+showsoname=0
+status=
 
-while getopts f:v opt; do
+while getopts f:qlncCLI opt; do
 	case $opt in
 		f) pkgfile="$OPTARG" ;;
-		v) verbose=1
+		l) long=1 ;;
+		n) pkgonly=1 ;;
+		q) quiet=1 ;;
+		c) config=only ;;
+		C) config=exclude ;;
+		L) showsoname=1 ;;
+		I) status=installed
 	esac
 done
 shift $((OPTIND - 1))
 
-set -e
-
 if [ ! -f $pkgfile ]; then
 	echo cannot find $pkgfile
 	exit 1
 fi
 
-cols=
-if [ $verbose -gt 0 ]; then
-	cols="filetype,printf('%4.4s', mode) as mode,username,groupname,"
+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 -f $pkgfile $pkg)
-
-	zpm shell $pkgfile <<EOS
-.separator " "
-select pkgid, $cols
-case when filetype = 'd' then
-	rtrim(path,'/') || '/'
-else
-	path
-end as path
-from packagefiles_pkgid
-where pkgid = '$pkgid'
-order by path
-;
-EOS
+pkglist=
+while [ $# -gt 0 ]; do
+	pkg=$1
+	shift
+	if [ "$pkg" = '--' ]; then
+		break;
+	fi
+
+	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_status 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
+	if [ -n "$status" ]; then
+		printf "and status = '%s'\n" "$status"
+	fi
+	printf 'order by pkgid,path\n'
+	printf ';\n'
+} | zpm shell $pkgfile
+#} | cat