home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / shell / SKsh017.lzh / scr_source / dstack.s < prev    next >
Encoding:
Text File  |  1991-04-26  |  651 b   |  27 lines
  1. #!c:sksh
  2.  
  3. #*************************************************************************
  4. # This function displays the directory stack.
  5. #*************************************************************************
  6.  
  7.    local _stack
  8.  
  9.    if [ "$1" = '-?' ]
  10.    then
  11.       echo 'Usage:' $(basename $0)
  12.       echo '       (displays directory _stack)'
  13.       return 1
  14.    fi
  15.  
  16.    # --- use _stack so we don't mess up the original -------------------------
  17.  
  18.    _stack="$DIRSTACK"
  19.  
  20.    # --- print out all the components of the stack, one per line -------------
  21.  
  22.    while [ -n "$_stack" ]
  23.    do
  24.       echo $(car "$_stack" ',')
  25.       _stack  = $(cdr "$_stack" ',')
  26.    done
  27.