From e2540c442ba888475261df9603a299a47f442f0c Mon Sep 17 00:00:00 2001
From: Ambrevar <ambrevar@gmail.com>
Date: Tue, 11 Sep 2012 14:05:29 +0200
Subject: [PATCH] Shell: pacman-deps recursive version (draft).

---
 .shell.d/funs_pacman | 59 ++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 57 insertions(+), 2 deletions(-)

diff --git a/.shell.d/funs_pacman b/.shell.d/funs_pacman
index c7271213..a1001616 100644
--- a/.shell.d/funs_pacman
+++ b/.shell.d/funs_pacman
@@ -27,6 +27,7 @@ _pacman_set_vars()
 
     pacman_name="$(echo "$pacman_var_list" | sed -n '1{p;q}')"
     pacman_deps="$(echo "$pacman_var_list" | sed -n '7{p;q}')"
+    pacman_deps_none="$(pacman -Qi tzdata | sed -n '7{s/.*: //;p;q}')"
     pacman_optdeps="$(echo "$pacman_var_list" | sed -n '8{p;q}')"
     pacman_size="$(echo "$pacman_var_list" | sed -n '12{p;q}')"
 }
@@ -248,9 +249,13 @@ pacman-deps()
     }
 
     local CMD="pacman -Si"
+    local OPT_REC=0
     local SEP=": "
 
-    while getopts ":ahq" opt; do
+    ## TODO: why is OPTIND messy if we do not set it as local?
+    local OPTIND
+
+    while getopts ":ahrq" opt; do
         case $opt in
             a)
                 CMD="yaourt -Si"
@@ -259,6 +264,9 @@ pacman-deps()
                 printhelp "$0"
                 return 1
                 ;;
+            r)
+                OPT_REC=1
+                ;;
             q)
                 CMD="pacman -Qi"
                 ;;
@@ -283,7 +291,54 @@ pacman-deps()
     fi
 
     _pacman_set_vars
-    eval "${CMD} $@ 2>/dev/null" | awk -F "$SEP" -v filter="$pacman_deps" '$0 ~ filter {gsub(/[>=<][^ ]*/,"",$2) ; gsub(/ +/,"\n",$2) ; print $2}' | sort -u
+
+    if [ $OPT_REC -eq 0 ]; then
+        eval "${CMD} $@ 2>/dev/null" | awk -F "$SEP" -v filter="$pacman_deps" '$0 ~ filter {gsub(/[>=<][^ ]*/,"",$2) ; gsub(/ +/,"\n",$2) ; print $2}' | sort -u
+    else
+        ## TODO: needs Zsh globbing fix.
+
+        local DEPLIST
+
+        _printdeps()
+        {
+            local ARGLIST
+            echo "{$@}"
+
+            local CURLIST
+            # CURLIST="$(pacman -Qi ${CMD} $@ 2>/dev/null | awk -F $SEP -v filter=$pacman_deps '$0 ~ filter {gsub(/[>=<][^ ]*/,\" \",$2) ; print $2}' )"
+            CURLIST="$(pacman -Qi $ARGLIST 2>/dev/null | awk -F $SEP -v filter=$pacman_deps '$0 ~ filter { print $2}' )"
+
+            echo "1[$CURLIST]"
+            CURLIST=$(echo $CURLIST | sed 's/[>=<][^ ]*//g')
+            echo "2[$CURLIST]"
+
+            # for i in $CURLIST;do
+            #     echo "ARG $i"
+            # done
+
+            if [ -n "$CURLIST" ] && [ ! "$CURLIST" = "None" ]; then
+                DEPLIST=$DEPLIST$CURLIST
+
+                CURLIST=$(echo $CURLIST | sed 's/ /\n/g')
+
+                # for i; do
+                #     echo "BAM"
+                #     ARGLIST=(${ARGLIST[*]} $i)
+                # done
+                # echo "TEST {$ARGLIST}"
+                _printdeps "$CURLIST"
+            fi
+        }
+        
+        _printdeps "$@"
+
+        echo "===="
+        if [ -n "$DEPLIST" ]; then
+            echo "$DEPLIST" | sort -u
+        fi
+
+    fi
+
     _pacman_unset_vars
 }