home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a524 / 40.ddi / read.sh < prev    next >
Encoding:
Text File  |  1980-01-08  |  695 b   |  27 lines
  1. :
  2. # 
  3. # $Header: read.sh,v 6.3 89/03/15 15:40:28 rafsarif Exp $ read.sh
  4. # 
  5.  
  6. # Read an input or use a default value with optional escape to sh.
  7. #       usage:    DEFLT=<default> ; . read.sh ; SH_VAR=$RDVAR
  8. #  Use a ! to escape to a sub-shell. When you exit from the
  9. #  sub-shell you may still enter a new value or use the displayed
  10. #  default.  If the variable ORACLE_DEFAULT is set to T, then don't
  11. #  do a read, but just take the DEFLT value.
  12. #
  13.  
  14. case $ORACLE_DEFAULT in
  15.     T)    RDVAR=$DEFLT ; echo "$DEFLT" ;;
  16.     *)    while :
  17.     do
  18.         echo $N "[${DEFLT}]: $C"
  19.         read RDVAR
  20.         case $RDVAR in
  21.         "")    RDVAR=$DEFLT ; break ;;
  22.         !*)    ${SHELL-/bin/sh} ; echo ;;
  23.         *)    break ;;
  24.         esac
  25.     done ;;
  26. esac
  27.