Patch-ID: bash40-021
[bash.git] / examples / functions / dirfuncs
blob3958bbec03c0465842cb1607b4c850f2b5149ca9
2 # Directory manipulation functions from the book 'The Korn Shell'
3 # Modified for use with bash Mon Apr 18 08:37 1994 by
4 # Ken Konecki (kenk@wfg.com)
6 # Modified by Chet Ramey
8 # This could stand to have calls to `select' added back in
9
11 alias integer="declare -i"
13 integer  _push_max=${CDSTACK-31} _push_top=${CDSTACK-31}
15 unalias cd
16 # alias cd=_cd
18 # Display directory stack -- $HOME display as ~
19 dirs()
21     dir="${PWD#$HOME/}" 
22     case $dir in
23     $HOME) dir=\~ ;;
24     /*) ;;
25     *) dir=\~/$dir ;;
26     esac
28     integer i=_push_top
29     integer n=1
31     echo "$n) $dir"
32     while let "i < $_push_max"
33     do
34        n=n+1
35        eval "echo \$n\) \$_push_stack_$i"
36        i=i+1
37     done
40 # Change directory and put directory on front of stack
41 cd()
43     typeset dir=
44     integer n=0 type=4 i
45     case $1 in
46     -|-1|2) # cd -
47         n=_push_top type=1
48         ;;
49     -[1-9]|-[1-9][0-9]) # cd -n
50         n=_push_top+${1#-}-1 type=2
51         ;;
53     1) # keep present directory
54         echo "$PWD"
55         return
56         ;;
58     [2-9]|[1-9][0-9]) # cd n
59         n=_push_top+${1}-2 type=2
60         ;;
62     *)
63         if let "_push_top <= 0"; then
64             type=3 n=_push_max
65         fi
66         ;;
67     esac
69     if let "type < 3"; then
70         if let "n >= _push_max"; then
71             echo cd: Directory stack not that deep
72             return 1
73         else
74             eval dir=\${_push_stack_$n}
75         fi
76     fi
78     case $dir in
79     ~*) dir=$HOME${dir#\~} ;;
80     esac
82     cd2 ${dir:-$@} > /dev/null || return 1
83     dir=${OLDPWD#$HOME/}
84     case $dir in
85     $HOME)      dir=\~ ;;
86     /*)         ;;
87     *)          dir=\~/$dir ;;
88     esac
90     case $type in
91     1) # swap first two elements
92         eval _push_stack_$_push_top=\$dir ;;
94     2|3) # put $dir on top and shift down by one until top
95         i=_push_top
96         unset _dirlist
97         while let "i < $_push_max" ; do
98             eval _dirlist=\"\$_dirlist \$_push_stack_$i\"
99             i=i+1
100         done
102         i=_push_top
103         for dir in "$dir" ${_dirlist} ; do
104             let "i > n" && break
105             eval _push_stack_$i=\$dir
106             i=i+1
107         done
108         ;;
109     4) # push name
110         _push_top=_push_top-1;
111         eval _push_stack_$_push_top=\$dir
112         ;;
113     esac
115     echo "$PWD"
119 # Menu-driven change directory command
120 function mcd
122     dirs
123     echo -n "Select by number or enter a name: "
124     read
125     cd $REPLY
129 # Emulate ksh cd substitution
130 cd2()
132     case "$#" in
133     0)  builtin cd "$HOME" ;;
134     1)  builtin cd "$1" ;;
135     2)  newDir=$(echo $PWD | sed -e "s:$1:$2:g")
136         case "$newDir" in
137         $PWD)   echo "bash:: cd: bad substitution" >&2 ; return 1 ;;
138         *)      builtin cd "$newDir" ;;
139         esac ;;
140     *)  echo "bash: cd: wrong arg count" 1>&2 ; return 1 ;;
141     esac
142 }