Return to myread CVS log

Up to [local] / OpenXM_contrib / pari / config

Annotation of OpenXM_contrib/pari/config/myread, Revision 1.1.1.1

1.1       maekawa     1: if test "$fastread" = yes; then
                      2:   echo "[$dflt]"
                      3:   ans=$dflt
                      4: else
                      5:   if test -n "$dflt"; then echo $n "[$dflt] $c"; fi
                      6:   while :; do
                      7:     read ans
                      8:     case "$ans" in
                      9:     '')
                     10:       ans="$dflt"
                     11:       break
                     12:       ;;
                     13:     !*)
                     14:       ans=`echo "$ans"|cut -c2-`
                     15:       break
                     16:       ;;
                     17:     *)
                     18:       if test -z "$rep"; then break; fi
                     19:       for i in $rep; do
                     20:         if test "$i" = "$ans"; then break 2; fi
                     21:       done
                     22:       echo $n "***  Please try something else : [$rep] $c"
                     23:       ;;
                     24:     esac
                     25:   done
                     26: fi