updated

INSTALL.sh

@@ -16,7 +16,8 @@ install -dm777 ${DESTDIR}${CACHE_DIR}/packages
 install -dm777 ${DESTDIR}${CACHE_DIR}/sources
 install -dm777 ${DESTDIR}${CACHE_DIR}/work
 
-install -m755 xchroot revdep pkgadd pkgdel pkgbuild pkgquery scratch updateconf ${DESTDIR}${BINDIR}
+install -m755 xchroot revdep pkgadd pkgdel pkgbuild pkgquery scratch updateconf \
+              pkgbase pkgdepends pkgrebuild pkgfix portcreate ${DESTDIR}${BINDIR}
 install -m644 scratchpkg.conf scratchpkg.repo scratchpkg.alias ${DESTDIR}${CONFDIR}
 
 install -m644 revdep.conf ${DESTDIR}${REVDEPCONF}

README.md

@@ -129,7 +129,7 @@ Available options:
       
 ### pkgadd
 `pkgadd` is a tool to install and upgrade package created by `pkgbuild`. Install package is simply extract
-`<name>-<version>-<release>.spkg.txz` by using tar into real system then save list extracted file into package `INDEX_DIR`.
+`<name>-<version>-<release>.spkg.txz` by using tar into real system then save list extracted file into package `PKGDB_DIR`.
 Upgrading package is also using same extract as install, it will replace old files then compare list file from old and new
 package and remove old file which not exist in new package (like Slackware pkgtool does).
 
@@ -154,7 +154,7 @@ package and remove old file which not exist in new package (like Slackware pkgto
                                                          old configuration files and skip conflict check
                                                              
 ### pkgdel
-`pkgdel` is a tool to remove package from system. It will read file listed in package `INDEX_DIR` and remove it.
+`pkgdel` is a tool to remove package from system. It will read file listed in package `PKGDB_DIR` and remove it.
 
     Usage:
       pkgdel [ <options> <package name> ]

pkgadd

@@ -36,11 +36,11 @@ msg2() {
 }
 
 msgerr() {
-	echo "==> ERROR: $1"
+	echo "==> ERROR: $1" >&2
 }
 
 msgwarn() {
-	echo "==> WARNING: $1"
+	echo "==> WARNING: $1" >&2
 }
 
 help() {
@@ -59,6 +59,7 @@ Options:
       --no-preupgrade        skip preupgrade script before upgrade package
       --no-postupgrade       skip postupgrade script after upgrade package
       --no-backup            skip backup when upgrading package
+      --print-dbdir          print package database path
       --root=<path>          install to custom root directory
       
 EOF
@@ -96,6 +97,7 @@ parse_opts() {
 			         --no-preupgrade) NO_PREUPGRADE=yes ;;
 			        --no-postupgrade) NO_POSTUPGRADE=yes ;;
 			             --no-backup) NO_BACKUP=yes ;;
+			           --print-dbdir) PRINTDBDIR=yes ;;
 			                --root=*) ROOT_DIR="${1#*=}" ;;
 			            *.spkg.tar.*) PKGNAME="$(realpath $1)" ;;
 			                       *) msg "Invalid option! ($1)"; exit 1 ;;
@@ -112,7 +114,7 @@ ret() {
 }
 
 isinstalled() {
-	if [ -s "$ROOT_DIR/$INDEX_DIR/$1/.pkginfo" ] && grep -q "$1" "$ROOT_DIR/$INDEX_DIR/$1/.pkginfo"; then
+	if [ -s "$ROOT_DIR/$PKGDB_DIR/$1/.pkginfo" ] && grep -q "$1" "$ROOT_DIR/$PKGDB_DIR/$1/.pkginfo"; then
 		return 0
 	else
 		return 1
@@ -130,17 +132,24 @@ run_scripts() {
 parse_opts $(extract_opts "$@")
 
 SCRATCHPKG_DIR="var/lib/scratchpkg"
-INDEX_DIR="$SCRATCHPKG_DIR/index"
+PKGDB_DIR="$SCRATCHPKG_DIR/index"
 LOCK_FILE="$SCRATCHPKG_DIR/spkg.lock"
 
+ROOT_DIR="${ROOT_DIR%/}" # remove trailing slash
+
+[ "$PRINTDBDIR" ] && {
+	echo "$ROOT_DIR/$PKGDB_DIR"
+	ret 0
+}
+
 # show help page
 [ "$SHOWHELP" ] || [ -z "$PKGNAME" ] && {
 	help
 	ret 0
 }
 
-[ -d "$ROOT_DIR/$INDEX_DIR" ] || {
-	msgerr "Package's database directory not exist! ($ROOT_DIR/$INDEX_DIR)"
+[ -d "$ROOT_DIR/$PKGDB_DIR" ] || {
+	msgerr "Package's database directory not exist: $ROOT_DIR/$PKGDB_DIR"
 	ret 1
 }
 
@@ -178,8 +187,8 @@ name=${noextname%-*}
 
 # get package information if installed
 if isinstalled $name; then
-	iversion=$(grep ^version $ROOT_DIR/$INDEX_DIR/$name/.pkginfo | cut -d " " -f3-)
-	irelease=$(grep ^release $ROOT_DIR/$INDEX_DIR/$name/.pkginfo | cut -d " " -f3-)
+	iversion=$(grep ^version $ROOT_DIR/$PKGDB_DIR/$name/.pkginfo | cut -d " " -f3-)
+	irelease=$(grep ^release $ROOT_DIR/$PKGDB_DIR/$name/.pkginfo | cut -d " " -f3-)
 	ALREADYINSTALLED=yes
 fi
 
@@ -227,7 +236,7 @@ if [ ! "$IGNORE_CONFLICT" ]; then
 		fi
 		if [ -e "$ROOT_DIR/$line" ] || [ -L "$ROOT_DIR/$line" ]; then
 			if [ "$UPGRADE_PKG" ] || [ "$REINSTALL_PKG" ]; then
-				if ! grep -Fqx "$line" "$ROOT_DIR/$INDEX_DIR/$name/.files"; then
+				if ! grep -Fqx "$line" "$ROOT_DIR/$PKGDB_DIR/$name/.files"; then
 					echo "$line"
 					touch "$TMP_CONFLICT"
 				fi
@@ -290,12 +299,12 @@ if [ "$UPGRADE_PKG" ] || [ "$REINSTALL_PKG" ]; then
 	rmlist_dir="$ROOT_DIR/$SCRATCHPKG_DIR/.rmlist_dir"
 	reserve_dir="$ROOT_DIR/$SCRATCHPKG_DIR/.reserve_dir"
 	rmlist_all="$ROOT_DIR/$SCRATCHPKG_DIR/.rmlist_all"
-	grep '/$' $ROOT_DIR/$INDEX_DIR/*/.files \
-		| grep -v $ROOT_DIR/$INDEX_DIR/$name/.files \
+	grep '/$' $ROOT_DIR/$PKGDB_DIR/*/.files \
+		| grep -v $ROOT_DIR/$PKGDB_DIR/$name/.files \
 		| awk -F : '{print $2}' \
 		| sort \
 		| uniq > $reserve_dir                                                        # get list reserved dirs
-	grep -Fxv -f "$TMP_PKGINSTALL" $ROOT_DIR/$INDEX_DIR/$name/.files > $rmlist_all   # get list files and dirs to remove
+	grep -Fxv -f "$TMP_PKGINSTALL" $ROOT_DIR/$PKGDB_DIR/$name/.files > $rmlist_all   # get list files and dirs to remove
 	grep -v '/$' "$rmlist_all" | tac > "$rmlist_file"                                # get files only to remove
 	grep -Fxv -f "$reserve_dir" "$rmlist_all" | grep '/$' | tac > "$rmlist_dir"      # get dirs only (safe) to remove
 	(cd "$ROOT_DIR"/
@@ -306,30 +315,30 @@ if [ "$UPGRADE_PKG" ] || [ "$REINSTALL_PKG" ]; then
 fi
 
 # register package into database
-rm -fr "$ROOT_DIR/$INDEX_DIR/$name"
-mkdir "$ROOT_DIR/$INDEX_DIR/$name"
-echo "name = $name" > "$ROOT_DIR/$INDEX_DIR/$name/.pkginfo"
-echo "version = $version" >> "$ROOT_DIR/$INDEX_DIR/$name/.pkginfo"
-echo "release = $release" >> "$ROOT_DIR/$INDEX_DIR/$name/.pkginfo"
-install -m644 "$TMP_PKGINSTALL" "$ROOT_DIR/$INDEX_DIR/$name/.files"
+rm -fr "$ROOT_DIR/$PKGDB_DIR/$name"
+mkdir "$ROOT_DIR/$PKGDB_DIR/$name"
+echo "name = $name" > "$ROOT_DIR/$PKGDB_DIR/$name/.pkginfo"
+echo "version = $version" >> "$ROOT_DIR/$PKGDB_DIR/$name/.pkginfo"
+echo "release = $release" >> "$ROOT_DIR/$PKGDB_DIR/$name/.pkginfo"
+install -m644 "$TMP_PKGINSTALL" "$ROOT_DIR/$PKGDB_DIR/$name/.files"
 
 for ii in $(grep ^.pkg* $TMP_PKGADD); do
 	pkgfiles="$pkgfiles $ii"
 done
 
 if [ "$pkgfiles" ]; then
-	tar -x -f "$PKGNAME" -C "$ROOT_DIR/$INDEX_DIR/$name" $pkgfiles >/dev/null 2>&1
+	tar -x -f "$PKGNAME" -C "$ROOT_DIR/$PKGDB_DIR/$name" $pkgfiles >/dev/null 2>&1
 fi
 
-if [ -f "$ROOT_DIR/$INDEX_DIR/$name/.pkginstall" ]; then
+if [ -f "$ROOT_DIR/$PKGDB_DIR/$name/.pkginstall" ]; then
 	if [ ! "$NO_POSTINSTALL" ] && [ ! "$UPGRADE_PKG" ]; then
 		(cd "$ROOT_DIR"/
-			run_scripts "$INDEX_DIR/$name/.pkginstall" post-install "$version"
+			run_scripts "$PKGDB_DIR/$name/.pkginstall" post-install "$version"
 		)
 	fi
 	if [ "$UPGRADE_PKG" ] && [ ! "$NO_POSTUPGRADE" ]; then
 		(cd "$ROOT_DIR"/
-			run_scripts "$INDEX_DIR/$name/.pkginstall" post-upgrade "$version" "$iversion"
+			run_scripts "$PKGDB_DIR/$name/.pkginstall" post-upgrade "$version" "$iversion"
 		)
 	fi
 fi

pkgbase

@@ -0,0 +1,76 @@
+#!/bin/sh
+#
+#  scratchpkg
+#
+#  Copyright (c) 2018 by Emmett1  (emmett1.2miligrams@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 3 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 <https://www.gnu.org/licenses/>.
+#
+#
+#  script to remove all packages other than base and any user input
+#
+
+parseopt() {
+	while [ "$1" ]; do
+		case $1 in
+			-n) dryrun=1;;
+			-y) yes=$1;;
+			-h) printhelp; exit 0;;
+			*)  pkg="$pkg $1"
+		esac
+		shift
+	done
+}
+
+printhelp() {
+	cat << EOF
+Usage:
+  $(basename $0) [options] [packages]
+  
+Options:
+  -n  dry-run
+  -y  dont ask user confirmation
+  -h  print this help msg
+  
+EOF
+}
+
+error=0
+
+parseopt "$@"
+
+echo "Calculate packages to keep..."
+keep=$(scratch deplist base $pkg | awk '{print $2}')
+
+echo "Calculate selected packages to remove..."
+for pkg in $(scratch installed | awk '{print $1}'); do
+	echo $keep | tr ' ' '\n' | grep -qx $pkg || {
+		remove="$remove $pkg"
+	}
+done
+
+[ "$remove" ] && {
+	[ "$dryrun" = 1 ] && {
+		for i in $remove; do
+			echo "remove: $i..."
+		done
+		echo "This is dry-run, no real action is run!"
+	} || {
+		scratch remove $yes $remove || error=1
+	}
+} || {
+	echo "Already on base, nothing to remove."
+}
+
+exit $error

pkgbuild

@@ -27,46 +27,59 @@ msg2() {
 }
 
 msgerr() {
-	echo "==> ERROR: $1"
+	echo "==> ERROR: $1" >&2
 }
 
 msgwarn() {
-	echo "==> WARNING: $1"
+	echo "==> WARNING: $1" >&2
 }
 
 updatemdsum() {
-	msg "Generating .checksums..."
-	generatemdsum > .checksums
-}
-
-generatemdsum() {	
-	if [ -z "$source" ]; then
-		echo SKIP
-		return 0
-	fi
-	
-	for src in $source; do
-		if echo $src | grep -qE "::(ftp|http|https)://"; then
-			FILENAME=$SOURCE_DIR/$(echo $src | awk -F '::' '{print $1}')
-		elif echo $src | grep -qE "(ftp|http|https)://"; then
-			FILENAME=$SOURCE_DIR/$(basename $src)
-		else
-			FILENAME=$src
+	for s in $(getsourcelist); do
+		if [ ! -f $s ]; then
+			msgerr "Source file '$s' not found."
+			err=1
 		fi
-		needupdatechecksum="$needupdatechecksum $FILENAME"
 	done
-	
-	md5sum $needupdatechecksum | sed -e 's|  .*/|  |' | sort -k 2
+	[ "$err" = 1 ] && abort 1
+	generatemdsum > .checksums
+	msg "Checksums updated."
 }
 
-checkmdsum() {	
+getsourcelist() {
+	for s in $source; do
+		if echo $s | grep -qE "::(ftp|http|https)://"; then
+			FILENAME=$SOURCE_DIR/$(echo $s | awk -F '::' '{print $1}')
+		elif echo $s | grep -qE "(ftp|http|https)://"; then
+			FILENAME=$SOURCE_DIR/$(basename $s)
+		else
+			FILENAME=$PWD/$s
+		fi
+			echo $FILENAME
+	done
+}
+
+generatemdsum() {
+	for s in $(getsourcelist); do
+		if [ -f $s ]; then
+			needupdatechecksum="$needupdatechecksum $s"
+		fi
+	done
+	if [ "$needupdatechecksum" ]; then
+		md5sum $needupdatechecksum | sed -e 's|  .*/|  |' | sort -k 2
+	else
+		echo SKIP
+	fi
+}
+
+checkmdsum() {
+	[ "$CHECK_MDSUM" = 0 ] || [ "$IGNORE_MDSUM" = yes ] && return 0
 	TMPCHECKSUM=$WORK_DIR/checksumstmp.$$
 	ORICHECKSUM=$WORK_DIR/checksumsori.$$
 	DIFCHECKSUM=$WORK_DIR/checksumsdiff.$$
 	
 	if [ ! -f .checksums ]; then
-		msg "Generating .checksums..."
-		generatemdsum > .checksums
+		updatemdsum
 	else
 		msg "Checking checksums..."
 		generatemdsum > "$TMPCHECKSUM"
@@ -98,9 +111,14 @@ download_src() {
 			FILENAME=$(basename $FILE)
 			SRCURL=$FILE
 		fi
+		[ "$DOWNLOAD_PROG" = "auto" ] && {
+			command -v curl >/dev/null && DOWNLOAD_PROG=curl
+			command -v wget >/dev/null && DOWNLOAD_PROG=wget
+		}
 		case $DOWNLOAD_PROG in
 			curl) DLCMD="curl -C - -L --fail --ftp-pasv --retry 3 --retry-delay 3 -o $SOURCE_DIR/$FILENAME.partial $CURL_OPTS" ;;
 			wget) DLCMD="wget -c --passive-ftp --no-directories --tries=3 --waitretry=3 --output-document=$SOURCE_DIR/$FILENAME.partial $WGET_OPTS" ;;
+			*) msgerr "No download agent found"; abort 1;;
 		esac
 		if [ "$FILENAME" != "$FILE" ]; then
 			if [ ! -f "$SOURCE_DIR/$FILENAME" ] || [ "$REDOWNLOAD_SOURCE" ]; then
@@ -129,8 +147,6 @@ download_src() {
 }
 
 prepare_src() {	
-	[ "$IGNORE_MDSUM" -o "$CHECK_MDSUM" = 0 ] || checkmdsum
-	
 	SRC=$WORK_DIR/$name/src
 	PKG=$WORK_DIR/$name/pkg
 	
@@ -155,6 +171,11 @@ prepare_src() {
 					break
 				fi
 			done
+			if [ ! -f $FILENAME ]; then
+				msgerr "File source '$FILENAME' not found."
+				err=1
+				continue
+			fi
 			if [ "$FILENAME" != "$FILE" ] && [ "$nxt" != 1 ]; then
 				case $FILENAME in
 					*.tar|*.tar.gz|*.tar.Z|*.tgz|*.tar.bz2|*.tbz2|*.tar.xz|*.txz|*.tar.lzma|*.zip|*.rpm)
@@ -166,7 +187,7 @@ prepare_src() {
 						MODE="Unpacking" ;;
 					*)
 						COMMAND="cp $FILENAME $SRC"
-						MODE="Preparing" ;;				
+						MODE="Preparing" ;;
 				esac
 				msg "$MODE '$(basename $FILENAME)'..."
 				$COMMAND || {
@@ -211,8 +232,30 @@ run_build() {
 	cd - >/dev/null
 }
 
+pkglint() {
+	linterror=0
+	
+	# cant package empty PKG
+	if [ ! "$(find $PKG/* -maxdepth 1 -type d 2>/dev/null)" ]; then
+		msgerr "PKG is empty."
+		abort 1
+	fi
+	
+	# check for backup file
+	for f in $backup; do
+		if [ ! -f $PKG/$f ]; then
+			msgerr "Backup file '$f' not exist in PKG!"
+			linterror=1
+		fi
+	done
+	
+	if [ "$linterror" = 1 ]; then
+		abort 1
+	fi
+}
+
 removeemptydirs() {	
-	find . -type d -empty -delete	
+	find . -type d -empty -delete
 }
 
 removelibtool() {	
@@ -282,12 +325,7 @@ compressinfomanpages() {
 
 backupconf() {
 	for FILE in $backup; do
-		if [ ! -f $FILE ]; then
-			msgerr "File '$FILE' not exist!"
-			abort 1
-		else
-			mv $FILE $FILE.spkgnew
-		fi
+		mv $FILE $FILE.spkgnew
 	done
 }
 
@@ -306,10 +344,14 @@ removelocales() {
 		usr/share/locale \
 		usr/locale \
 		usr/local/locale \
-		usr/local/share/locale
+		usr/local/share/locale \
+		usr/lib/locale
 }
 
 packaging() {
+	# lint $PKG before packaging
+	pkglint
+	
 	for FILE in $INCLUDEINPKG; do
 		if [ -f $FILE ]; then
 			install -m644 $FILE $PKG/.pkg$FILE
@@ -327,9 +369,6 @@ packaging() {
 		find usr/share/fonts \( -name fonts.dir -o -name fonts.scale \) -delete
 	}
 	
-	# remove pseudo directories
-	#rm -fr dev sys proc run tmp
-	
 	[ "$KEEP_EMPTYDIR" = 0 ] && removeemptydirs
 	[ "$KEEP_LIBTOOL" = 0 ]  && removelibtool
 	[ "$STRIP_BINARY" = 1 ]  && strip_files
@@ -374,11 +413,11 @@ generate_pkgfiles() {
 		excludefile="$excludefile --exclude=.pkg$i"
 	done
 	
-	msg "Generating .pkgfiles..."
 	tar -tvf "$PACKAGE_DIR/$PKGNAME" $excludefile \
 	| awk '{$3=$4=$5=""; print $0}' \
 	| sed "s,lib/modules/$(uname -r),lib/modules/<kernelversion>,g" \
 	| sort -k 3 > .pkgfiles
+	msg "Pkgfiles updated."
 }
 
 cleanup() {
@@ -573,13 +612,13 @@ extract_opts() {
 	echo $opts
 }
 
-main() {	
+main() {
 	parse_opts $(extract_opts "$@")
 	
 	if [ -f "$PKGBUILD_CONF" ]; then
 		. "$PKGBUILD_CONF"
 	else
-		msgerr "Config file not found ('$PKGBUILD_CONF')"
+		msgerr "Config file not found: $PKGBUILD_CONF"
 		exit 1
 	fi
 	
@@ -597,7 +636,7 @@ main() {
 	
 	if [ -f "$PKGBUILD_BSCRIPT" ]; then
 		description=$(grep "^# description[[:blank:]]*:" $PKGBUILD_BSCRIPT | sed 's/^# description[[:blank:]]*:[[:blank:]]*//')
-		. ./$PKGBUILD_BSCRIPT	
+		. ./$PKGBUILD_BSCRIPT
 	else
 		msgerr "'$PKGBUILD_BSCRIPT' file not found."
 		exit 1
@@ -625,14 +664,12 @@ main() {
 	
 	# extract source only
 	[ "$EXTRACT_ONLY" ] && {
-		download_src
 		prepare_src
 		exit 0
 	}
 	
 	# update md5sum
 	[ "$UPDATE_MDSUM" ] && {
-		download_src
 		updatemdsum
 		exit 0
 	}
@@ -667,6 +704,7 @@ main() {
 	else
 		msg "Building '$name-$version-$release'..."
 		download_src
+		checkmdsum
 		prepare_src
 		run_build
 		packaging
@@ -691,7 +729,7 @@ PKGBUILD_BSCRIPT="spkgbuild"
 SOURCE_DIR="/var/cache/scratchpkg/sources"
 PACKAGE_DIR="/var/cache/scratchpkg/packages"
 WORK_DIR="/var/cache/scratchpkg/work"
-DOWNLOAD_PROG="wget"
+DOWNLOAD_PROG="auto"
 COMPRESSION_MODE="xz"
 
 OPTIONS="!libtool emptydirs strip zipman buildflags makeflags checksum !docs !locales"

pkgdel

@@ -36,11 +36,11 @@ msg2() {
 }
 
 msgerr() {
-	echo "==> ERROR: $1"
+	echo "==> ERROR: $1" >&2
 }
 
 msgwarn() {
-	echo "==> WARNING: $1"
+	echo "==> WARNING: $1" >&2
 }
 
 help() {	
@@ -100,7 +100,7 @@ ret() {
 }
 
 isinstalled() {
-	if [ -s "$ROOT_DIR/$INDEX_DIR/$1/.pkginfo" ] && grep -q "$1" "$ROOT_DIR/$INDEX_DIR/$1/.pkginfo"; then
+	if [ -s "$ROOT_DIR/$PKGDB_DIR/$1/.pkginfo" ] && grep -q "$1" "$ROOT_DIR/$PKGDB_DIR/$1/.pkginfo"; then
 		return 0
 	else
 		return 1
@@ -115,9 +115,15 @@ run_scripts() {
 	fi
 }
 
+command -v pkgadd >/dev/null 2>&1 || {
+	msgerr "'pkgadd' not found in \$PATH!"
+	exit 1
+}
+
 parse_opts $(extract_opts "$@")
 
-INDEX_DIR="var/lib/scratchpkg/index"
+PKGDB_DIR="$(pkgadd --print-dbdir)"
+PKGDB_DIR="${PKGDB_DIR##/}"              # remove leading /
 LOCK_FILE="var/lib/scratchpkg/spkg.lock"
 
 # show help page
@@ -149,9 +155,9 @@ if ! isinstalled "$RMNAME"; then
 	ret 1
 fi
 
-name=$(grep ^name $ROOT_DIR/$INDEX_DIR/$RMNAME/.pkginfo | cut -d " " -f3-)
-version=$(grep ^version $ROOT_DIR/$INDEX_DIR/$RMNAME/.pkginfo | cut -d " " -f3-)
-release=$(grep ^release $ROOT_DIR/$INDEX_DIR/$RMNAME/.pkginfo | cut -d " " -f3-)
+name=$(grep ^name $ROOT_DIR/$PKGDB_DIR/$RMNAME/.pkginfo | cut -d " " -f3-)
+version=$(grep ^version $ROOT_DIR/$PKGDB_DIR/$RMNAME/.pkginfo | cut -d " " -f3-)
+release=$(grep ^release $ROOT_DIR/$PKGDB_DIR/$RMNAME/.pkginfo | cut -d " " -f3-)
 
 if [ -z "$name" ] && [ -z "$version" ] && [ -z "$release" ]; then
 	msgerr "Package '$RMNAME' not installed but exist in database."
@@ -164,21 +170,21 @@ remove="$ROOT_DIR/$SCRATCHPKG_DIR/.pkgdel_remove"
 dirs="$ROOT_DIR/$SCRATCHPKG_DIR/.pkgdel_dirs"
 files="$ROOT_DIR/$SCRATCHPKG_DIR/.pkgdel_files"
 
-grep '/$' $ROOT_DIR/$INDEX_DIR/*/.files \
-	| grep -v "$ROOT_DIR/$INDEX_DIR/$name" \
+grep '/$' $ROOT_DIR/$PKGDB_DIR/*/.files \
+	| grep -v "$ROOT_DIR/$PKGDB_DIR/$name" \
 	| awk -F : '{print $2}' \
 	| sort \
 	| uniq > "$reserve"
-grep '/$' "$ROOT_DIR/$INDEX_DIR/$name/.files" > "$remove"
+grep '/$' "$ROOT_DIR/$PKGDB_DIR/$name/.files" > "$remove"
 grep -Fxv -f "$reserve" "$remove" | tac > "$dirs"
-grep -v '/$' "$ROOT_DIR/$INDEX_DIR/$name/.files" | tac >> "$files"
+grep -v '/$' "$ROOT_DIR/$PKGDB_DIR/$name/.files" | tac >> "$files"
 
 echo "remove: $name-$version-$release..."
 
 # pre-remove script
-if [ ! "$NO_PREREMOVE" ] && [ -f "$ROOT_DIR/$INDEX_DIR/$name/.pkginstall" ]; then
+if [ ! "$NO_PREREMOVE" ] && [ -f "$ROOT_DIR/$PKGDB_DIR/$name/.pkginstall" ]; then
 	(cd "$ROOT_DIR"/
-		run_scripts "$INDEX_DIR/$name/.pkginstall" pre-remove "$version"
+		run_scripts "$PKGDB_DIR/$name/.pkginstall" pre-remove "$version"
 	)
 fi
 
@@ -191,14 +197,14 @@ fi
 rm -f "$reserve" "$dirs" "$remove" "$files"
 
 # post-remove script
-if [ ! "$NO_POSTREMOVE" ] && [ -f "$ROOT_DIR/$INDEX_DIR/$name/.pkginstall" ]; then
+if [ ! "$NO_POSTREMOVE" ] && [ -f "$ROOT_DIR/$PKGDB_DIR/$name/.pkginstall" ]; then
 	(cd "$ROOT_DIR"/
-		run_scripts "$INDEX_DIR/$name/.pkginstall" post-remove "$version"
+		run_scripts "$PKGDB_DIR/$name/.pkginstall" post-remove "$version"
 	)
 fi
 
 # remove from database
-rm -rf "$ROOT_DIR/$INDEX_DIR/$name"
+rm -rf "$ROOT_DIR/$PKGDB_DIR/$name"
 
 # running ldconfig
 if [ -x "$ROOT_DIR"/sbin/ldconfig ]; then

pkgdepends

@@ -0,0 +1,72 @@
+#!/bin/sh
+#
+#  scratchpkg
+#
+#  Copyright (c) 2018 by Emmett1  (emmett1.2miligrams@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 3 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 <https://www.gnu.org/licenses/>.
+#
+#
+#  script to check shared libraries dependencies
+#
+
+get_libpath() {
+	ldd $1 2>/dev/null | grep $2 | awk '{print $3}'
+}
+
+scratch files $1 | while read -r line; do
+	case $line in
+		usr/share/gir-1.0/*.gir) extra_dep="$extra_dep gobject-introspection";;
+		usr/share/vala/vapi/*.vapi) extra_dep="$extra_dep vala";;
+	esac
+	case $line in
+		*/) continue;;
+	esac
+	case "$(file -bi /$line)" in
+		*application/x-sharedlib* | *application/x-executable* | *application/x-pie-executable*)
+			for NEEDED in $(objdump -x /$line | grep NEEDED | awk '{print $2}'); do
+				case $NEEDED in
+					libc.so|libc.so.6) continue;;
+				esac
+				[ "$NEEDED" ] || continue
+				[ -f /"$line" ] || continue
+				libs=$(get_libpath /$line $NEEDED)
+				[ "$libs" ] || continue
+				if ! echo $all_libs | grep -qw $libs; then
+					pkg=$(scratch provide $libs$ | awk '{print $1}' | head -n1)
+					case $pkg in
+						$1|gcc|glibc|musl) continue;;
+					esac
+					[ "$pkg" ] || continue
+					if ! echo $all_pkgs | grep -qw $pkg; then
+						echo $pkg
+						all_pkgs="$all_pkgs $pkg"
+						unset pkg
+					fi
+					all_libs="$all_libs $libs"
+					unset libs
+				fi
+			done ;;
+	esac
+	[ "$extra_dep" ] && {
+		for e in $extra_dep; do
+			if ! echo $all_pkgs | grep -qw $e; then
+				echo $e
+				all_pkgs="$all_pkgs $e"
+			fi
+		done
+	}
+done
+
+exit 0

pkgfix

@@ -0,0 +1,141 @@
+#!/bin/sh
+#
+#  Copyright (c) 2019 by Emmett1  (emmett1.2miligrams@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 3 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 <https://www.gnu.org/licenses/>.
+#
+#
+#  script to detect broken kernel modules after kernel update
+#  need to use with 'scratchpkg'
+#
+
+export LANG=C
+
+get_perlmodules() {
+	command -v perl >/dev/null || return
+	perlpath=$(dirname $(perl -V:sitearch | grep -o "'.*'" | sed "s/'//g"))
+	for i in $(dirname $perlpath)/*; do
+		[ "$perlpath" = "$i" ] && continue	
+		brokenpkg="$brokenpkg $(scratch provide $i/$ | awk '{print $1}')"
+	done
+}
+
+get_modules() {
+	[ -f /lib/modules/KERNELVERSION ] || return
+	KERVER=$(cat /lib/modules/KERNELVERSION)
+	for i in /lib/modules/*; do
+		case $i in
+			/lib/modules/KERNELVERSION|/lib/modules/$KERVER) continue ;;
+		esac
+		brokenpkg="$brokenpkg $(scratch provide $i/$ | awk '{print $1}')"
+	done
+}
+
+get_rubygem() {
+	command -v gem >/dev/null || return
+	gempath=$(gem env gemdir)
+	for i in $(dirname $gempath)/*; do
+		[ "$gempath" = "$i" ] && continue
+		brokenpkg="$brokenpkg $(scratch provide $i/$ | awk '{print $1}')"
+	done
+}
+
+sort_modules() {
+	for all in $(scratch deplist $brokenpkg | cut -d ' ' -f2); do
+		for r in $brokenpkg; do
+			if [ $r = $all ]; then
+				if [ -z "$order" ]; then
+					order="$all"
+				else
+					order="$order $all"
+				fi
+				break
+			fi
+		done
+	done
+}
+
+confirm() {
+	printf "$1 (Y/n) "
+	read -r response
+	case "$response" in
+		[Nn][Oo]|[Nn]) echo "$2"; return 2 ;;
+		*) : ;;
+	esac
+	return 0
+}
+
+usage() {
+	cat << EOF
+Usage:
+  $(basename $0) [options]
+  
+Options:
+  -r     rebuild & reinstall broken package
+  -y     dont ask user confirmation to rebuild package (use with -r)
+  -h     print this help message
+
+EOF
+}
+
+parse_opt() {
+	while [ "$1" ]; do
+		case $1 in
+			-r) REBUILD=1 ;;
+			-y) YES=1 ;;
+			-h) usage; exit 0 ;;
+			*)  echo "Invalid option ($1)"; exit 1 ;;
+		esac
+		shift
+	done
+}
+
+parse_opt $@
+
+if [ "$REBUILD" ] && [ "$(id -u)" != 0 ]; then
+	echo "Rebuild broken packages required root!"
+	exit 1
+fi
+
+get_modules
+get_perlmodules
+get_rubygem
+
+if [ "$brokenpkg" ]; then
+	sort_modules
+else
+	echo "No broken packages found."
+	exit 0
+fi
+
+if [ "$REBUILD" = 1 ]; then
+	[ "$YES" ] || {
+		echo
+		echo "Package will be rebuild & reinstall by this order:"
+		echo " $order"
+		echo
+		confirm "Continue rebuild & reinstall broken packages?" "Operation cancelled."
+	}
+	for p in $order; do
+		scratch build -f $p || exit 1
+		scratch install -r $p || exit 1
+	done
+else
+	echo "Broken packages:"
+	for p in $order; do
+		echo " $p"
+	done
+fi
+
+exit 0

pkgquery

@@ -18,342 +18,6 @@
 #  along with this program.  If not, see <https://www.gnu.org/licenses/>.
 #
 
-msg() {
-	echo "==> $1"
-}
+echo "*** ${0##*/} is deprecated, please use 'scratch' instead ***"
 
-msgerr() {
-	msg "ERROR: $*"
-}
-
-msgwarn() {
-	msg "WARNING: $*"
-}
-
-msginst() {
-	echo "[i] $1"
-}
-
-msgmiss() {
-	echo "[m] $1"
-}
-
-msgnoinst() {
-	echo "[-] $1"
-}
-
-needarg() {
-	[ "$*" ] || {
-		msgerr "This operation required an arguments!"
-		exit 1
-	}
-}
-
-isinstalled() {
-	if [ -s "$INDEX_DIR/$1/.pkginfo" ] && [ "$(grep $1 $INDEX_DIR/$1/.pkginfo)" ]; then
-		return 0
-	else
-		return 1
-	fi
-}
-
-allinstalled() {	
-	grep ^name "$INDEX_DIR"/*/.pkginfo | awk '{print $3}'
-}
-
-installed_pkg_info() {	
-	if isinstalled $1; then
-		grep ^$2 "$INDEX_DIR/$1/.pkginfo" | cut -d " " -f3-
-	fi
-}
-
-deps_alias() {
-	[ -f $ALIAS_FILE ] || {
-		echo $@
-		return
-	}
-	while [ "$1" ]; do
-		getalias=$(grep -w ^$1 $ALIAS_FILE | awk '{print $2}')
-		echo ${getalias:-$1}
-		shift
-	done
-	unset getalias
-}
-
-getdepends() {
-	ppath=$(getportpath $1) || return 0
-	deps=$(grep "^# depends[[:blank:]]*:" $ppath/$BUILD_SCRIPT \
-	| sed 's/^# depends[[:blank:]]*:[[:blank:]]*//' \
-	| tr ' ' '\n' \
-	| awk '!a[$0]++' \
-	| sed 's/,//')
-	deps_alias $deps
-}
-
-getportpath() {
-	for repo in $REPO; do
-		if [ -f $repo/$1/$BUILD_SCRIPT ]; then
-			dirname $repo/$1/$BUILD_SCRIPT
-			return 0
-		fi
-	done
-	return 1	
-}
-
-pkg_dependent() {
-	needarg $@
-	if [ "$(getportpath $1)" ]; then
-		grep -R "# depends[[:blank:]]*:" $REPO \
-		| sed "s,:# depends[[:blank:]]*:[[:blank:]]*,#|,;s, ,|,g;s,$,|,g" \
-		| grep "|$1|" \
-		| awk -F "#" '{print $1}' \
-		| rev \
-		| awk -F / '{print $2}' \
-		| rev
-	else
-		msgerr "Port '$1' not exist."
-		return 1
-	fi
-}
-
-pkg_orphan() {
-	tmpallpkg="/tmp/.pkgquery_allpkg.$$"
-	tmpalldep="/tmp/.pkgquery_alldep.$$"
-	for pkg in $(allinstalled); do
-		echo $pkg >> $tmpallpkg
-		dep="$dep $(getdepends $pkg)"
-	done
-	echo $dep | tr ' ' '\n' | sort | uniq > "$tmpalldep"
-	grep -xvF -f "$tmpalldep" "$tmpallpkg"
-	rm "$tmpalldep" "$tmpallpkg"
-}
-
-pkg_dup() {	
-	dup=$(find $REPO -type d -print | grep -Exv "($(echo $REPO | tr ' ' '|'))" | \
-		rev | cut -d '/' -f1 | rev | sort | uniq -d)
-	
-	if [ "$dup" ]; then
-		for dp in $dup; do
-			for repo in $REPO; do
-				[ -d $repo/$dp ] && echo "$repo/$dp"
-			done
-		done
-	else
-		msg "No duplicate ports found."
-	fi	
-}
-
-pkg_foreign() {
-	for pkg in $(allinstalled); do
-		if ! getportpath $pkg >/dev/null; then
-			iname=$(installed_pkg_info $pkg name)
-			iversion=$(installed_pkg_info $pkg version)
-			irelease=$(installed_pkg_info $pkg release)
-			echo "$iname $iversion-$irelease"
-		fi
-		unset iname iversion irelease
-	done	
-}
-
-pkg_search() {
-	needarg $@
-	arg=$*
-	for repo in $REPO; do
-		out=$(grep -R "# description" $repo | grep $BUILD_SCRIPT | grep "$arg" | awk -F : '{print $1}' | sort)
-		[ "$out" ] || continue
-		for line in $out; do
-			repo=$(echo $line | rev | awk -F / '{print $3}' | rev)
-			desc=$(grep "^# description[[:blank:]]*:" $line | sed 's/^# description[[:blank:]]*:[[:blank:]]*//')
-			. $line
-			echo "($repo) $name $version-$release: $desc"
-			unset repo desc name version release build
-		done
-		unset out
-	done
-}
-
-pkg_locked() {
-	for pkg in $(allinstalled); do
-		[ -f "$INDEX_DIR/$pkg/.lock" ] && echo "$pkg"
-	done
-}
-
-pkg_installed() {
-	for all in $(allinstalled); do		
-		printf "%s" "$all "
-		grep -e ^version -e ^release $INDEX_DIR/$all/.pkginfo | awk '{print $3}' | tr '\n' '-' | sed 's:\-$::'
-		echo
-	done
-}
-
-pkg_missingdep() {
-	for pkg in $(allinstalled); do
-		if getportpath "$pkg" >/dev/null; then
-			depends=$(getdepends $pkg)
-		fi
-		if [ "$depends" ]; then
-			for d in $depends; do
-				if ! isinstalled $d; then
-					if [ -z "$msd" ]; then
-						msd="$d"
-					else
-						msd="$msd $d"
-					fi
-				fi
-			done
-		fi
-		[ "$msd" ] && echo "$pkg: $msd"
-		unset depends msd
-	done
-}
-
-pkg_info() {
-	needarg $@
-	ppath=$(getportpath $1) || return 1
-	
-	. $ppath/$BUILD_SCRIPT
-	desc=$(grep "^# description[[:blank:]]*:" $ppath/$BUILD_SCRIPT | sed 's/^# description[[:blank:]]*:[[:blank:]]*//')
-	url=$(grep "^# homepage[[:blank:]]*:" $ppath/$BUILD_SCRIPT | sed 's/^# homepage[[:blank:]]*:[[:blank:]]*//')
-	maint=$(grep "^# maintainer[[:blank:]]*:" $ppath/$BUILD_SCRIPT | sed 's/^# maintainer[[:blank:]]*:[[:blank:]]*//')
-	deps=$(getdepends $1 | tr '\n' ' ')
-	
-	echo "Name:         $1"
-	echo "Path:         $ppath"
-	echo "Version:      $version"
-	echo "Release:      $release"
-	echo "Description:  $desc"
-	echo "Homepage:     $url"
-	echo "Maintainer:   $maint"
-	echo "Dependencies: $deps"
-}
-
-pkg_depends() {
-	needarg $@	
-	if getportpath "$1" >/dev/null; then
-		depends=$(getdepends $1)
-	else
-		msgerr "Port '$1' not exist."
-		return 1
-	fi
-	
-	for dep in $depends; do
-		if isinstalled $dep; then
-			msginst "$dep"
-		elif getportpath $dep >/dev/null; then
-			msgnoinst "$dep"
-		else
-			msgmiss "$dep"
-		fi
-	done
-}
-
-pkg_path() {
-	needarg $@
-	if PPATH=$(getportpath "$1"); then
-		echo "$PPATH"
-	else
-		msgerr "Port '$1' not exist."
-		return 1
-	fi
-}
-
-pkg_provide() {
-	needarg $@
-	arg=$(echo $1 | sed "s/^\///")
-	grep -R "$arg" $INDEX_DIR/*/.files \
-	| sed "s:$INDEX_DIR/::" \
-	| sed "s:/.files::" \
-	| tr : " " \
-	| column -t
-}
-
-pkg_readme() {
-	needarg $@	
-	if PPATH=$(getportpath "$1"); then
-		if [ -f "$PPATH/readme" ]; then
-			cat "$PPATH/readme"
-		else
-			msgerr "Port '$1' does not have readme."
-		fi
-	else
-		msgerr "Port '$1' not exist."
-		exit 1
-	fi
-}
-
-pkg_files() {	
-	needarg $@
-	if isinstalled $1; then
-		cat "$INDEX_DIR/$1/.files"
-	else
-		msg "Package '$1' not installed."
-	fi	
-}
-
-pkg_cat() {	
-	needarg $@
-	if PPATH=$(getportpath "$1"); then
-		cat "$PPATH/$BUILD_SCRIPT"
-	else
-		msgerr "Port '$1' not exist."
-		return 1
-	fi
-}
-
-pkg_help() {
-	cat << EOF
-Usage:
-    $(basename $0) <options> [<arg>]
-    
-Options:
-    search    <pattern>    find ports in repo
-    cat       <port>       print spkgbuild
-    depends   <port>       print dependencies
-    dependent <port>       print dependent
-    path      <port>       print path in repo
-    provide   <files>      print port's provided files
-    readme    <port>       print readme file, if exist
-    files     <port>       print files installed
-    info      <port>       print information
-    dup                    print duplicate ports in repo
-    installed              print all installed ports
-    locked                 print loacked ports
-    missingdep             print missing dependencies
-    orphan                 print orphan installed ports
-    foreign                print foreign ports
-    help                   print this help msg
-    
-EOF
-}
-
-print_runhelp_msg() {
-	echo "Run '$(basename $0) help' to see available options."
-	exit 2
-}
-
-BUILD_SCRIPT="spkgbuild"
-INDEX_DIR="/var/lib/scratchpkg/index"
-REPO_FILE="/etc/scratchpkg.repo"
-ALIAS_FILE="/etc/scratchpkg.alias"
-
-if [ -f "$REPO_FILE" ]; then
-	for repodir in $(grep -Ev '^(#|$)' "$REPO_FILE" | awk '{print $1}'); do
-		REPO="$REPO $repodir"
-	done
-fi
-
-opts=$1
-
-if [ -z "$opts" ]; then
-	print_runhelp_msg
-fi
-
-shift
-
-if [ $(command -v pkg_$opts) ]; then
-	pkg_$opts "$@"
-else
-	print_runhelp_msg
-fi
-
-exit $?
+exit 0

pkgrebuild

@@ -0,0 +1,51 @@
+#!/bin/sh
+#
+#  scratchpkg
+#
+#  Copyright (c) 2018 by Emmett1  (emmett1.2miligrams@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 3 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 <https://www.gnu.org/licenses/>.
+#
+#
+#  script to rebuild base packages in right toolchain order
+#
+
+LIST="/tmp/$(basename $0)-list"
+touch $LIST
+
+TOOLCHAIN="linux-api-headers glibc-pass1 binutils-pass1 gcc binutils glibc"
+
+#scratch sync || exit 1
+
+for tc in $TOOLCHAIN; do
+	if [ ! $(grep -x $tc $LIST) ]; then
+		pkgname="$(echo $tc | sed 's/-pass1//')"
+		scratch build -f $pkgname || exit 1
+		echo $tc >> $LIST
+		scratch install -r $pkgname --no-backup || exit 1
+	fi
+done	
+
+for pkg in $(scratch deplist base | awk '{print $2}'); do
+	case $pkg in
+		linux-api-headers|musl|gcc|binutils|glibc) continue;;
+	esac
+	if [ ! $(grep -x $pkg $LIST) ]; then
+		scratch build -f $pkg || exit 1
+		echo $pkg >> $LIST
+		scratch install -r $pkg --no-backup || exit 1
+	fi
+done
+
+exit 0

portcreate

@@ -0,0 +1,46 @@
+#!/bin/sh
+#
+#  scratchpkg
+#
+#  Copyright (c) 2018 by Emmett1  (emmett1.2miligrams@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 3 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 <https://www.gnu.org/licenses/>.
+#
+
+if [ -d "$1" ]; then
+	echo "ERROR: Directory '$1' already exist!"
+	exit 1
+else
+	mkdir "$1"
+	echo "# description	: 
+# depends	: 
+
+name=$1
+version=
+release=1
+options=\"\"
+noextract=\"\"
+backup=\"\"
+source=\"\"
+
+build() {
+	cd \$name-\$version
+	./configure --prefix=/usr
+	make
+	make DESTDIR=\$PKG install
+}" > "$1"/spkgbuild
+	echo "Template port have created for '$1'."
+fi
+
+exit 0

revdep

@@ -114,7 +114,8 @@ rebuild() {
 			confirm "Continue rebuild & reinstall broken packages?" "Operation cancelled."
 		fi
 		for p in $order; do
-			scratch build -f $p && scratch install -r $p || { cleanup; exit 1; }
+			scratch build -f $p   || { cleanup; exit 1; }
+			scratch install -r $p || { cleanup; exit 1; }
 		done
 	fi
 }
@@ -163,8 +164,13 @@ rev_exclude() {
 
 trap "interrupted" 1 2 3 15
 
+command -v pkgadd >/dev/null 2>&1 || {
+	echo "'pkgadd' not found in \$PATH!"
+	exit 1
+}
+
 # package database directory
-INDEX_DIR="/var/lib/scratchpkg/index"
+PKGDB_DIR="$(pkgadd --print-dbdir)"
 SEARCH_DIRS="/bin /usr/bin /sbin /usr/sbin /lib /usr/lib /lib64 /usr/lib64 /usr/libexec"
 
 parse_opt $(extract_opts "$@")
@@ -174,7 +180,7 @@ if [ "$(id -u)" != 0 ] && [ "$REBUILD" = 1 ]; then
 	exit 1
 fi
 
-if [ "$PKG" ] && [ ! -f "$INDEX_DIR/$PKG/.files" ]; then
+if [ "$PKG" ] && [ ! -f "$PKGDB_DIR/$PKG/.files" ]; then
 	echo "ERROR: Package '$PKG' not installed"
 	cleanup
 	exit 1
@@ -249,7 +255,7 @@ if [ "$PKG" ]; then
 		filterdir=cat
 	fi
 	printf "Find '$PKG' files... "
-	sed 's/^/\//' $INDEX_DIR/$PKG/.files | grep $gx | $filterfile | $filterdir > $FILE_LIST
+	sed 's/^/\//' $PKGDB_DIR/$PKG/.files | grep $gx | $filterfile | $filterdir > $FILE_LIST
 else
 	printf "Find all files... "
 	find $SEARCH_DIRS $EXCLUDED_DIRS $EXCLUDED_FILES -type f \( -perm /+u+x -o -name '*.so' -o -name '*.so.*' \) -print 2> /dev/null | sort -u > $FILE_LIST
@@ -278,7 +284,7 @@ while read -r line; do
 				LIB_NAME=$NEW_LIB_NAME
 				[ "$LIB_NAME" ] || continue
 				PKG_NAME=$(echo $line | sed 's#^/##')
-				PKG_NAME=$(grep -Rx $PKG_NAME "$INDEX_DIR"/*/.files | cut -d : -f1)
+				PKG_NAME=$(grep -Rx $PKG_NAME "$PKGDB_DIR"/*/.files | cut -d : -f1)
 				[ "$PKG_NAME" ] || continue
 				PKG_NAME=$(dirname $PKG_NAME)
 				PKG_NAME=$(basename $PKG_NAME)

scratch

@@ -35,27 +35,27 @@ nocolor() {
 }
 
 msg() {
-	printf "${GREEN}==>${CRESET} $1\n"
-}
-
-msgerr() {
-	printf "${RED}==> ERROR:${CRESET} $1\n"
+	printf "${GREEN}==>${CRESET} %s\n" "$1"
 }
 
 msginst() {
-	printf "[${GREEN}i${CRESET}] $1\n"
+	printf "[${GREEN}i${CRESET}] %s\n" "$1"
 }
 
 msgmiss() {
-	printf "[${YELLOW}m${CRESET}] $1\n"
+	printf "[${YELLOW}m${CRESET}] %s\n" "$1"
 }
 
 msgnoinst() {
-	printf "[-] $1\n"
+	printf "[-] %s\n" "$1"
+}
+
+msgerr() {
+	printf "${RED}==> ERROR:${CRESET} %s\n" "$1" >&2
 }
 
 msgwarn() {
-	printf "${YELLOW}==> WARNING:${CRESET} $1\n"
+	printf "${YELLOW}==> WARNING:${CRESET} %s\n" "$1" >&2
 }
 
 needroot() {	
@@ -91,25 +91,29 @@ vercomp() {
 
 installed_pkg_info() {	
 	if isinstalled $2; then
-		grep ^$1 $INDEX_DIR/$2/.pkginfo | cut -d " " -f3-
+		grep ^$1 $PKGDB_DIR/$2/.pkginfo | cut -d " " -f3-
 	fi
 }
 
 allinstalled() {	
-	grep ^name "$INDEX_DIR"/*/.pkginfo | awk '{print $3}'
+	grep ^name "$PKGDB_DIR"/*/.pkginfo | awk '{print $3}'
 }
 
 deps_alias() {
-	[ -f $ALIAS_FILE ] || {
+	[ -f "$ALIAS_FILE" ] || {
 		echo $@
 		return
 	}
 	while [ "$1" ]; do
-		getalias=$(grep -w ^$1 $ALIAS_FILE | awk '{print $2}')
-		echo ${getalias:-$1}
+		if [ "$(grep -w ^$1 $ALIAS_FILE)" ]; then
+			getalias=$(grep -w ^$1 $ALIAS_FILE | awk '{print $2}')
+			[ "$getalias" ] && echo "$getalias"
+		else
+			echo "$1"
+		fi
 		shift
+		unset getalias
 	done
-	unset getalias
 }
 
 get_depends() {
@@ -147,7 +151,7 @@ needarg() {
 }
 
 isinstalled() {
-	if [ -s "$INDEX_DIR/$1/.pkginfo" ] && [ "$(grep $1 $INDEX_DIR/$1/.pkginfo)" ]; then
+	if [ -s "$PKGDB_DIR/$1/.pkginfo" ] && [ "$(grep $1 $PKGDB_DIR/$1/.pkginfo)" ]; then
 		return 0
 	else
 		return 1
@@ -161,8 +165,8 @@ settermtitle() {
 scratch_integrity() {
 	if [ "$1" ]; then
 		cd /
-			if [ -f $INDEX_DIR/$1/.files ]; then
-				cat $INDEX_DIR/$1/.files | while read -r line; do
+			if [ -f $PKGDB_DIR/$1/.files ]; then
+				cat $PKGDB_DIR/$1/.files | while read -r line; do
 					if [ ! -e "$line" ]; then
 						if [ -L "$line" ]; then
 							printf "${YELLOW}broken symlink${CRESET} $1: /$line"
@@ -179,7 +183,7 @@ scratch_integrity() {
 	else
 		cd /
 			for pkg in $(allinstalled); do
-				cat $INDEX_DIR/$pkg/.files | while read -r line; do
+				cat $PKGDB_DIR/$pkg/.files | while read -r line; do
 					if [ ! -e "$line" ]; then
 						if [ -L "$line" ]; then
 							echo "broken symlink $pkg: /$line"
@@ -198,23 +202,30 @@ scratch_lock() {
 	for pkg in "$@"; do
 		if ! isinstalled $pkg; then
 			msgerr "Package '$pkg' is not installed."
-		elif [ -f $INDEX_DIR/$pkg/.lock ]; then
+		elif [ -f $PKGDB_DIR/$pkg/.lock ]; then
 			msgerr "Package '$pkg' already locked."
 		else
-			touch $INDEX_DIR/$pkg/.lock && msg "Successfully locked package '$pkg'."
+			touch $PKGDB_DIR/$pkg/.lock && msg "Successfully locked package '$pkg'."
 		fi
 	done	
 }
 
+scratch_locate() {
+	needarg $@
+	for repo in $PORT_REPO; do
+		grep -R $@ $repo/*/.pkgfiles 2>/dev/null | sed 's/:/ /;s/\/\.pkgfiles//' | awk '{print $1,$4}' | column -t
+	done
+}
+
 scratch_unlock() {
 	needroot "Unlocking package"	
 	for pkg in "$@"; do
 		if ! isinstalled $pkg; then
 			msgerr "Package '$pkg' is not installed."
-		elif [ ! -f $INDEX_DIR/$pkg/.lock ]; then
+		elif [ ! -f $PKGDB_DIR/$pkg/.lock ]; then
 			msgerr "Package '$pkg' is not locked."
 		else
-			rm -f $INDEX_DIR/$pkg/.lock && msg "Successfully unlocked package '$pkg'."
+			rm -f $PKGDB_DIR/$pkg/.lock && msg "Successfully unlocked package '$pkg'."
 		fi
 	done	
 }
@@ -268,7 +279,7 @@ scratch_trigger() {
 post_triggers() {
 	if [ "$trig_12" = 1 ]; then
 		echo "trigger: Running mkdirs..."
-		for mkd in $INDEX_DIR/*/.pkgmkdirs; do
+		for mkd in $PKGDB_DIR/*/.pkgmkdirs; do
 			[ -s $mkd ] || continue
 			grep -Ev '^(#|$)' $mkd | while read -r dir mode uid gid junk; do
 				if [ -e "$dir" ]; then
@@ -359,7 +370,7 @@ pre_triggers() {
 	# mime db
 	if [ "$trig_1" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/mime/$ $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/mime/$ $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_1=1
 				break
 			fi
@@ -369,7 +380,7 @@ pre_triggers() {
 	# desktop db
 	if [ "$trig_2" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/applications/$ $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/applications/$ $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_2=1
 				break
 			fi
@@ -379,7 +390,7 @@ pre_triggers() {
 	# mkfontdir
 	if [ "$trig_3" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/fonts/$ $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/fonts/$ $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_3=1
 				break
 			fi
@@ -389,7 +400,7 @@ pre_triggers() {
 	# hwdb
 	if [ "$trig_4" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^etc/udev/hwdb.d/$ $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^etc/udev/hwdb.d/$ $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_4=1
 				break
 			fi
@@ -399,7 +410,7 @@ pre_triggers() {
 	# icon caches
 	if [ "$trig_5" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/icons/$ $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/icons/$ $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_5=1
 				break
 			fi
@@ -409,7 +420,7 @@ pre_triggers() {
 	# gtk3 immodules
 	if [ "$trig_6" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gtk-3.0/3.0.0/immodules/.*.so $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gtk-3.0/3.0.0/immodules/.*.so $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_6=1
 				break
 			fi
@@ -419,7 +430,7 @@ pre_triggers() {
 	# gtk2 immodules
 	if [ "$trig_7" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gtk-2.0/2.10.0/immodules/.*.so $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gtk-2.0/2.10.0/immodules/.*.so $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_7=1
 				break
 			fi
@@ -429,7 +440,7 @@ pre_triggers() {
 	# gsettings schema
 	if [ "$trig_8" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/glib-2.0/schemas/$ $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/glib-2.0/schemas/$ $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_8=1
 				break
 			fi
@@ -439,7 +450,7 @@ pre_triggers() {
 	# gio modules
 	if [ "$trig_9" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gio/modules/.*.so $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gio/modules/.*.so $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_9=1
 				break
 			fi
@@ -449,7 +460,7 @@ pre_triggers() {
 	# gdk-pixbuf
 	if [ "$trig_10" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gdk-pixbuf-2.0/2.10.0/loaders/.*.so $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/lib/gdk-pixbuf-2.0/2.10.0/loaders/.*.so $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_10=1
 				break
 			fi
@@ -459,7 +470,7 @@ pre_triggers() {
 	# font caches
 	if [ "$trig_11" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/fonts/$ $INDEX_DIR/$pkg/.files)" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.files" ] && [ "$(grep ^usr/share/fonts/$ $PKGDB_DIR/$pkg/.files)" ]; then
 				trig_11=1
 				break
 			fi
@@ -469,7 +480,7 @@ pre_triggers() {
 	# makedirs
 	if [ "$trig_12" != "1" ]; then
 		for pkg in $@; do
-			if [ -s "$INDEX_DIR/$pkg/.pkgmkdirs" ]; then
+			if [ -s "$PKGDB_DIR/$pkg/.pkgmkdirs" ]; then
 				trig_12=1
 				break
 			fi
@@ -678,7 +689,7 @@ scratch_remove() {
 
 outdatepkg() {
 	for pkg in $(allinstalled); do
-		if [ ! -e "$INDEX_DIR/$pkg/.lock" ] && getportpath $pkg >/dev/null; then
+		if [ ! -e "$PKGDB_DIR/$pkg/.lock" ] && getportpath $pkg >/dev/null; then
 			. $(getportpath $pkg)/$BUILD_SCRIPT
 			if [ -z "$name" ] || [ -z "$version" ]; then
 				continue
@@ -797,78 +808,79 @@ scratch_upgrade() {
 	}
 	for pkg in $PKGNAME; do
 		if ! isinstalled $pkg; then
-			msgerr "Package '$pkg' not installed."
+			echo "Package '$pkg' not installed."
 			continue
 		elif [ ! $(getportpath $pkg) ]; then
-			msgerr "Package '$pkg' not exist."
+			echo "Package '$pkg' not exist."
 			continue
 		else
 			. $(getportpath $pkg)/$BUILD_SCRIPT
 			if [ "$(installed_pkg_info version $pkg)-$(installed_pkg_info release $pkg)" = "$version-$release" ]; then
-				msg "Package '$pkg' is up to date."
+				echo "Package '$pkg' is up to date."
 				continue
 			fi
 		fi
 		upkg="$upkg $pkg"
 	done
 	[ "$upkg" ] || return 0
-	[ "$NO_DEP" ] || {
+	
+	UPGPKG=0
+	NEWPKG=0	
+	if [ "$NODEP" != 1 ]; then
 		echo "Resolving dependencies..."
 		DEP=$(scratch_deplist $upkg $EXOPT | awk '{print $2}')
-		for dep in $DEP; do
-			if ! isinstalled $dep; then
-				[ "$(getportpath $dep)" ] && newpkg="$newpkg $dep"
+		echo
+		for d in $DEP; do
+			if [ "$(echo $upkg | tr ' ' '\n' | grep -x $d)" = "$d" ]; then
+				printf "[${GREEN}u${CRESET}] $d  "
+				WILLINSTALL="$WILLINSTALL $d"
+				UPGPKG=$(( UPGPKG + 1 ))
+			elif ! isinstalled $d && [ "$(getportpath "$d")" ]; then
+				printf "[${CYAN}n${CRESET}] $d  "
+				WILLINSTALL="$WILLINSTALL $d"
+				NEWPKG=$(( NEWPKG + 1 ))
 			fi
 		done
-	}
-	echo
-	tnew=0
-	tup=0
-	for i in $newpkg; do
-		tnew=$(( tnew + 1 ))
-		printf "[${CYAN}n${CRESET}] $i  "
-	done
-	for i in $upkg; do
-		tup=$(( tup + 1 ))
-		printf "[${GREEN}u${CRESET}] $i  "
-	done
+	else
+		echo
+		for dd in $upkg; do
+			printf "[${GREEN}u${CRESET}] $dd  "
+			WILLINSTALL="$WILLINSTALL $dd"
+			UPGPKG=$(( UPGPKG + 1 ))
+		done
+	fi
 	echo; echo
-	echo "( $tup upgrade, $tnew new install )"
+	echo "( $UPGPKG upgrade, $NEWPKG new install )"
 	echo
 	[ "$NOCONFIRM" ] || {
 		confirm "Continue upgrade/install these package(s)?" "Package upgrade cancelled." || exit $?
 		echo
 	}
-	total=$(( tup + tnew ))
-	count=0
 	error=0
-	if [ "$newpkg" ]; then
-		for pkg in $newpkg; do	
-			count=$(( count + 1 ))		
-			cd $(getportpath $pkg)
-				settermtitle "[ $count/$total ] Installing $pkg..."
-				pkgbuild -i $OPTS || {
-					error=1
-					count=$(( count - 1 ))
-					break
-				}
-				done_pkg="$done_pkg $pkg"
-			cd - >/dev/null
-		done
-	fi
-	for pkg in $upkg; do # upgrade all target packages
+	count=0
+	total=$(echo $WILLINSTALL | wc -w)
+	for inst in $WILLINSTALL; do # install all required dependencies and target packages itself
 		count=$(( count + 1 ))
-		cd $(getportpath $pkg)
-			settermtitle "[ $count/$total ] Upgrading $pkg..."
+		cd $(getportpath $inst)
+		if ! isinstalled $inst; then
+			settermtitle "[ $count/$total ] Installing $inst..."
+			pkgbuild -i $OPTS || {
+				error=1
+				count=$(( count - 1 ))
+				break
+			}
+		else
+			settermtitle "[ $count/$total ] Upgrading $inst..."
 			pkgbuild -u $OPTS || {
 				error=1
 				count=$(( count - 1 ))
 				break
 			}
-			done_pkg="$done_pkg $pkg"
+		fi
 		cd - >/dev/null
+		done_pkg="$done_pkg $inst"
 	done
-	settermtitle "triggering upgrade hook..."
+	settermtitle "Triggering install hook."
 	[ "$done_pkg" ] && scratch_trigger $done_pkg
 	settermtitle "$count/$total package(s) upgraded."
 	return "$error"
@@ -883,7 +895,7 @@ scratch_outdate() {
 			fi
 			iversion=$(installed_pkg_info version $pkg)
 			irelease=$(installed_pkg_info release $pkg)
-			[ -f "$INDEX_DIR/$pkg/.lock" ] && ITSLOCK="[locked]"
+			[ -f "$PKGDB_DIR/$pkg/.lock" ] && ITSLOCK="[locked]"
 			outdatemsg="$name $iversion-$irelease => $version-$release $ITSLOCK"
 			newerinstmsg="$name $iversion-$irelease => $version-$release [newer installed] $ITSLOCK"
 			if [ "$version" !=  "$iversion" ]; then
@@ -916,6 +928,7 @@ scratch_search() {
 	needarg $@
 	arg=$*
 	for repo in $PORT_REPO; do
+		[ -d $repo ] || continue
 		out=$(grep -R "# description" $repo | grep $BUILD_SCRIPT | grep "$arg" | awk -F : '{print $1}' | sort)
 		[ "$out" ] || continue
 		found=1
@@ -1130,6 +1143,189 @@ deplist() {
 	CHECK=$(echo $CHECK | sed "s/$1//")
 }
 
+scratch_cat() {	
+	needarg $@
+	if PPATH=$(getportpath "$1"); then
+		cat "$PPATH/$BUILD_SCRIPT"
+	else
+		msgerr "Port '$1' not exist."
+		return 1
+	fi
+}
+
+scratch_dependent() {
+	needarg $@
+	if [ "$(getportpath $1)" ]; then
+		grep -R "# depends[[:blank:]]*:" $PORT_REPO \
+		| sed "s,:# depends[[:blank:]]*:[[:blank:]]*,#|,;s, ,|,g;s,$,|,g" \
+		| grep "|$1|" \
+		| awk -F "#" '{print $1}' \
+		| rev \
+		| awk -F / '{print $2}' \
+		| rev
+	else
+		msgerr "Port '$1' not exist."
+		return 1
+	fi
+}
+
+scratch_depends() {
+	needarg $@	
+	if getportpath "$1" >/dev/null; then
+		depends=$(get_depends $1)
+	else
+		msgerr "Port '$1' not exist."
+		return 1
+	fi
+	
+	for dep in $depends; do
+		if isinstalled $dep; then
+			msginst "$dep"
+		elif getportpath $dep >/dev/null; then
+			msgnoinst "$dep"
+		else
+			msgmiss "$dep"
+		fi
+	done
+}
+
+scratch_dup() {	
+	dup=$(find $PORT_REPO -type d -print | grep -Exv "($(echo $PORT_REPO | tr ' ' '|'))" | \
+		rev | cut -d '/' -f1 | rev | sort | uniq -d)
+	
+	if [ "$dup" ]; then
+		for dp in $dup; do
+			for repo in $PORT_REPO; do
+				[ -d $repo/$dp ] && echo "$repo/$dp"
+			done
+		done
+	else
+		msg "No duplicate ports found."
+	fi	
+}
+
+scratch_foreign() {
+	for pkg in $(allinstalled); do
+		if ! getportpath $pkg >/dev/null; then
+			iname=$(installed_pkg_info name $pkg)
+			iversion=$(installed_pkg_info version $pkg)
+			irelease=$(installed_pkg_info release $pkg)
+			echo "$iname $iversion-$irelease"
+		fi
+		unset iname iversion irelease
+	done	
+}
+
+scratch_info() {
+	needarg $@
+	ppath=$(getportpath $1) || return 1
+	
+	. $ppath/$BUILD_SCRIPT
+	desc=$(grep "^# description[[:blank:]]*:" $ppath/$BUILD_SCRIPT | sed 's/^# description[[:blank:]]*:[[:blank:]]*//')
+	url=$(grep "^# homepage[[:blank:]]*:" $ppath/$BUILD_SCRIPT | sed 's/^# homepage[[:blank:]]*:[[:blank:]]*//')
+	maint=$(grep "^# maintainer[[:blank:]]*:" $ppath/$BUILD_SCRIPT | sed 's/^# maintainer[[:blank:]]*:[[:blank:]]*//')
+	deps=$(get_depends $1 | tr '\n' ' ')
+	
+	echo "Name:         $1"
+	echo "Path:         $ppath"
+	echo "Version:      $version"
+	echo "Release:      $release"
+	echo "Description:  $desc"
+	echo "Homepage:     $url"
+	echo "Maintainer:   $maint"
+	echo "Dependencies: $deps"
+}
+
+scratch_installed() {
+	for all in $(allinstalled); do		
+		printf "%s" "$all "
+		grep -e ^version -e ^release $PKGDB_DIR/$all/.pkginfo | awk '{print $3}' | tr '\n' '-' | sed 's:\-$::'
+		echo
+	done
+}
+
+scratch_missingdep() {
+	for pkg in $(allinstalled); do
+		if getportpath "$pkg" >/dev/null; then
+			depends=$(get_depends $pkg)
+		fi
+		if [ "$depends" ]; then
+			for d in $depends; do
+				if ! isinstalled $d; then
+					if [ -z "$msd" ]; then
+						msd="$d"
+					else
+						msd="$msd $d"
+					fi
+				fi
+			done
+		fi
+		[ "$msd" ] && echo "$pkg: $msd"
+		unset depends msd
+	done
+}
+
+scratch_locked() {
+	for pkg in $(allinstalled); do
+		[ -f "$PKGDB_DIR/$pkg/.lock" ] && echo "$pkg"
+	done
+}
+
+scratch_orphan() {
+	tmpallpkg="/tmp/.pkgquery_allpkg.$$"
+	tmpalldep="/tmp/.pkgquery_alldep.$$"
+	for pkg in $(allinstalled); do
+		echo $pkg >> $tmpallpkg
+		dep="$dep $(get_depends $pkg)"
+	done
+	echo $dep | tr ' ' '\n' | sort | uniq > "$tmpalldep"
+	grep -xvF -f "$tmpalldep" "$tmpallpkg"
+	rm "$tmpalldep" "$tmpallpkg"
+}
+
+scratch_path() {
+	needarg $@
+	if PPATH=$(getportpath "$1"); then
+		echo "$PPATH"
+	else
+		msgerr "Port '$1' not exist."
+		return 1
+	fi
+}
+
+scratch_provide() {
+	needarg $@
+	arg=$(echo $1 | sed "s/^\///")
+	grep -R "$arg" $PKGDB_DIR/*/.files \
+	| sed "s:$PKGDB_DIR/::" \
+	| sed "s:/.files::" \
+	| tr : " " \
+	| column -t
+}
+
+scratch_readme() {
+	needarg $@	
+	if PPATH=$(getportpath "$1"); then
+		if [ -f "$PPATH/readme" ]; then
+			cat "$PPATH/readme"
+		else
+			msgerr "Port '$1' does not have readme."
+		fi
+	else
+		msgerr "Port '$1' not exist."
+		exit 1
+	fi
+}
+
+scratch_files() {	
+	needarg $@
+	if isinstalled $1; then
+		cat "$PKGDB_DIR/$1/.files"
+	else
+		msg "Package '$1' not installed."
+	fi	
+}
+
 scratch_help() {
 	cat << EOF
 Usage:
@@ -1141,40 +1337,57 @@ Options:
                              -n|--no-dep      skip dependencies
                              -y|--yes         skip ask user permission
                              --exclude=*      exclude dependencies, comma separated
-                             
+
     upgrade <ports> <arg>    upgrade ports (use pkgbuild arg, except '-i' & '-r')
                              -n|--no-dep      skip dependencies
                              -y|--yes         skip ask user permission
                              --exclude=*      exclude dependencies, comma separated
-				             
+
     remove  <ports> <arg>    remove installed ports (use pkgdel arg)
                              -y|--yes         skip ask user permission
-                             
+
     sysup           <arg>    full system upgrade (use pkgbuild arg, except '-i', '-r'  & '-u')
                              -n|--no-dep      skip dependencies
                              -y|--yes         skip ask user permission
                              --exclude=*      exclude dependencies, comma separated
-                             
+
     deplist <ports>          print all dependencies for ports
                              -q|--quick       skip installed ports
                              --exclude=*      exclude dependencies, comma separated
-				
+
     build   <ports> <arg>    build ports (use pkgbuild arg, except '-i', '-u', '-r', '-g', & '-p')
 
-    lock    <ports>          locking ports prevent upgrade
-    unlock  <ports>          unlock locked ports
-    trigger [ports]          run system trigger
+    lock      <ports>        locking ports prevent upgrade
+    unlock    <ports>        unlock locked ports
+    trigger   [ports]        run system trigger
+    search    <pattern>      find ports in repo
+    cat       <port>         print spkgbuild
+    depends   <port>         print dependencies
+    dependent <port>         print dependent
+    path      <port>         print path in repo
+    provide   <files>        print port's provided files
+    readme    <port>         print readme file, if exist
+    files     <port>         print files installed
+    info      <port>         print information
+    locate    <files>        print location of files in ports repo
     sync                     update ports database
-    search  <pattern>        find ports in repo
     outdate                  print outdated ports
     cache                    print and clear old pkg and src caches
     integrity                check installed port integrity
+    dup                      print duplicate ports in repo
+    installed                print all installed ports
+    locked                   print loacked ports
+    missingdep               print missing dependencies
+    orphan                   print orphan installed ports
+    foreign                  print foreign ports
     help                     print this help msg
-    
+
 Global options:
-    --repo=<repo path>       add custom repo path
-    --nocolor                disable colour for output
-    
+    --append-repo=<repo path>       append custom repo path
+    --prepend-repo=<repo path>      prepend custom repo path
+    --repo-file=<repo file>         use custom repo file (default: $REPO_FILE)
+    --nocolor                       disable colour for output
+
 EOF
 }
 
@@ -1183,15 +1396,11 @@ print_runhelp_msg() {
 	exit 2
 }
 
-BUILD_SCRIPT="spkgbuild"
-INDEX_DIR="/var/lib/scratchpkg/index"
-REPO_FILE="/etc/scratchpkg.repo"
-ALIAS_FILE="/etc/scratchpkg.alias"
-
-# default value from pkgbuild
-SOURCE_DIR="/var/cache/scratchpkg/sources"
-PACKAGE_DIR="/var/cache/scratchpkg/packages"
-COMPRESSION_MODE="xz"
+# check for 'pkgadd', required for package database path
+command -v pkgadd >/dev/null 2>&1 || {
+	echo "'pkgadd' not found in \$PATH!"
+	exit 1
+}
 
 mode=$1
 
@@ -1203,19 +1412,31 @@ shift
 
 for opt in $@; do
 	case $opt in
-		--nocolor) nocolor;;
-		 --repo=*) PORT_REPO="$PORT_REPO ${opt#*=}";;
-		      --*) MAINOPTS="$MAINOPTS $opt";;
-		       -*) char=${#opt}; count=1
-		           while [ "$count" != "$char" ]; do
-				      count=$((count+1))
-		              MAINOPTS="$MAINOPTS -$(printf '%s' $opt | cut -c $count)"
-				   done;;
-		        *) MAINOPTS="$MAINOPTS $opt";;
+	     --nocolor) nocolor;;
+	      --repo=*) PORT_REPO="$PORT_REPO ${opt#*=}";;
+	 --repo-file=*) REPO_FILE="${opt#*=}";;
+	--alias-file=*) ALIAS_FILE="${opt#*=}";;
+	           --*) MAINOPTS="$MAINOPTS $opt";;
+	            -*) char=${#opt}; count=1
+	                while [ "$count" != "$char" ]; do
+	                   count=$((count+1))
+	                   MAINOPTS="$MAINOPTS -$(printf '%s' $opt | cut -c $count)"
+	                done;;
+	             *) MAINOPTS="$MAINOPTS $opt";;
 	esac
 	shift
 done
 
+BUILD_SCRIPT="spkgbuild"
+PKGDB_DIR="$(pkgadd --print-dbdir)"
+REPO_FILE="${REPO_FILE:-/etc/scratchpkg.repo}"
+ALIAS_FILE="${ALIAS_FILE:-/etc/scratchpkg.alias}"
+
+# default value from pkgbuild
+SOURCE_DIR="/var/cache/scratchpkg/sources"
+PACKAGE_DIR="/var/cache/scratchpkg/packages"
+COMPRESSION_MODE="xz"
+
 if [ -f "$REPO_FILE" ]; then
 	for repodir in $(grep -Ev '^(#|$)' "$REPO_FILE" | awk '{print $1}'); do
 		PORT_REPO="$PORT_REPO $repodir"

scratchpkg.conf

@@ -9,7 +9,7 @@ MAKEFLAGS="-j$(nproc)"
 # SOURCE_DIR="/var/cache/scratchpkg/sources"
 # PACKAGE_DIR="/var/cache/scratchpkg/packages"
 # WORK_DIR="/var/cache/scratchpkg/work"
-# DOWNLOAD_PROG="wget"
+# DOWNLOAD_PROG="auto"
 # WGET_OPTS=""
 # CURL_OPTS=""
 # COMPRESSION_MODE="xz"

xchroot

@@ -1,4 +1,7 @@
 #!/bin/sh
+#
+# script to enter chroot
+#
 
 printhelp() {
 	cat << EOF
@@ -14,6 +17,13 @@ EOF
 msgerr() {
 	echo "ERROR: $*"
 }
+
+unmount() {
+	while true; do
+		mountpoint -q $1 || break
+		umount $1 2>/dev/null
+	done
+}
 	
 [ "$(id -u)" = "0" ] || {
 	msgerr "$(basename $0) need root access!"
@@ -78,13 +88,13 @@ retval=$?
 	mv $TARGET/etc/resolv.conf.tmp $TARGET/etc/resolv.conf
 }
 
-umount $TARGET/dev/pts
-umount $TARGET/dev
-umount $TARGET/run
-umount $TARGET/proc
+unmount $TARGET/dev/pts
+unmount $TARGET/dev
+unmount $TARGET/run
+unmount $TARGET/proc
 if [ -n "$EFI_SYSTEM" ]; then
-	umount $TARGET/sys/firmware/efi/efivars
+	unmount $TARGET/sys/firmware/efi/efivars
 fi
-umount $TARGET/sys
+unmount $TARGET/sys
 
 exit $retval