From f869a4f6d28bc467cfb3b6c8ff664e4414b38e7c Mon Sep 17 00:00:00 2001
From: Silvio Rhatto <rhatto@riseup.net>
Date: Thu, 21 Sep 2017 17:59:36 -0300
Subject: Adds stowpkg_list

---
 stowpkg | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/stowpkg b/stowpkg
index 739784c..1b0538e 100755
--- a/stowpkg
+++ b/stowpkg
@@ -67,7 +67,7 @@ __stowpkg_initialize () {
   export BASE="$BASE"
   export PORTS="$PORTS"
   export SOURCES="$SOURCES"
-  export BASE="$BINARIES"
+  export BINARIES="$BINARIES"
 }
 
 stowpkg_usage () {
@@ -215,6 +215,22 @@ stowpkg_build () {
   fi
 }
 
+stowpkg_list () {
+  local pattern="$1"
+
+  if [ ! -z "$pattern" ]; then
+    local name="-name \'*$pattern*\'"
+  fi
+
+  find $BASE -type l | while read file; do
+    dest="`stat $file | head -n 1 | cut -d '>' -f 2 | sed -e 's/ //'`"
+
+    if echo $dest | grep -q "^stow/" || echo $dest | grep -q "/stow/"; then
+      echo $dest | sed -e 's|.*stow/\(.*\)/.*|\1|'
+    fi
+  done | sort | uniq
+}
+
 # Dispatch
 if grep -q "^stowpkg_$ACTION () {$" $0; then
   __stowpkg_initialize
-- 
cgit v1.2.3