1058N/A#

1058N/A# DIRECTORY MANIPULATION FUNCTIONS, REPLACES CD

1058N/A#

1058N/A# Uses global parameters _push_max _push_top _push_stack

1058N/Ainteger _push_max=${CDSTACK-32} _push_top=${CDSTACK-32}

1058N/Aunalias cd

1058N/Aalias cd=_cd

1058N/A# Display directory stack -- $HOME displayed as ~

1058N/Afunction dirs

1058N/A{

1058N/A typeset dir="${PWD#$HOME/}"

1058N/A case $dir in

1058N/A $HOME)

1058N/A dir=\~

1058N/A ;;

1058N/A /*) ;;

1058N/A *) dir=\~/$dir

1058N/A esac

1058N/A PS3=

1058N/A select i in "$dir" "${_push_stack[@]}"

1058N/A do :

1058N/A done < /dev/null

3232N/A}

1058N/A

1058N/A# Change directory and put directory on front of stack

1058N/Afunction _cd

1058N/A{

1058N/A typeset dir=

1058N/A integer n=0 type=4

1058N/A case $1 in

-|-1|2) # \cd -

n=_push_top type=1

;;

-[1-9]*([0-9])) # \cd -n

n=_push_top+${1#-}-1 type=2

;;

1) # keep present directory

print -r - "$PWD"

return

;;

[1-9]*([0-9])) # \cd n

n=_push_top+${1}-2 type=2

;;

*) if ((_push_top <= 0))

then type=3 n=_push_max

fi

esac

if ((type<3))

then if ((n >= _push_max+1))

then print -u2 cd: Directory stack not that deep.

return 1

else dir=${_push_stack[n]}

fi

fi

case $dir in

\~*) dir=$HOME${dir#\~}

esac

\cd "${dir:-$@}" >| /dev/null || return 1

dir=${OLDPWD#$HOME/}

case $TERM in

630)

print "\033[?${#PWD};2v$PWD\c"

;;

esac

case $dir in

$HOME)

dir=\~

;;

/*) ;;

*) dir=\~/$dir

esac

case $type in

1) # swap first two elements

_push_stack[_push_top]=$dir

;;

2|3) # put $dir on top and shift down by one until top

integer i=_push_top

for dir in "$dir" "${_push_stack[@]}"

do ((i > n)) && break

_push_stack[i]=$dir

i=i+1

done

;;

4) # push name

_push_stack[_push_top=_push_top-1]=$dir

;;

esac

print -r - "$PWD"

}

# Menu driven change directory command

function mcd

{

typeset dir="${PWD#$HOME/}"

case $dir in

$HOME)

dir=\~

;;

/*) ;;

*) dir=\~/$dir

esac

PS3='Select by number or enter a name: '

select dir in "$dir" "${_push_stack[@]}"

do if _cd $REPLY

then return

fi

done

}