home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume5 / grabchars1.3 / demo < prev    next >
Encoding:
Text File  |  1989-02-03  |  1.8 KB  |  95 lines
  1. #!/bin/csh -f
  2. clear
  3. cat << GUMBY
  4.  
  5.     Grabchars demo...
  6.  
  7.     get one character with "grabchars"
  8. GUMBY
  9. grabchars
  10. echo " status returned was $status"
  11.  
  12. cat << POKEY
  13.  
  14.     grab a vowel with "grabchars -caeiou"
  15.  
  16.     Type something that isn't a vowel at first...
  17.  
  18. POKEY
  19. grabchars -caeiou
  20. echo " status returned was $status"
  21.  
  22. cat << WILMA
  23.  
  24.     prompt the user  with "grabchars -p 'give me any character >> '"
  25. WILMA
  26. grabchars -p 'give me any character >> '
  27. echo " status returned was $status"
  28.  
  29. cat << FRED
  30.  
  31.     prompt through stderr  with "grabchars -q 'give me any character >> '",
  32. so that we can set the variable "user_char"...
  33. FRED
  34. set user_char=`grabchars -q 'give me any character >> '`
  35. echo " status returned was $status"
  36. echo '$user_char = '$user_char
  37.  
  38. cat << BETTY
  39.  
  40.     enter three characters...  "grabchars -n3"
  41.  
  42. BETTY
  43. grabchars -n3
  44. echo " status returned was $status"
  45.  
  46. cat <<  BARNEY
  47.  
  48.     enter 10 characters within 3 seconds... "grabchars -n10 -t3"
  49.  
  50.  
  51. BARNEY
  52. grabchars -n10 -t3
  53. set really_typed=$status
  54. if ($really_typed == 10) then
  55.     echo 'hey\! you got 10\!?'
  56. else
  57.     echo "    $really_typed returned...means that grabchars timed out..."
  58. endif
  59.  
  60. def_test:
  61. cat << RADRED
  62.  
  63.     let the user pick a default...
  64.     using "grabchars -d yes -p 'just hit return '...
  65.  
  66. RADRED
  67. #    the '-f' here is used to flush any previous input...
  68. grabchars -f -d yes -p 'just hit return '
  69. if ($status != 3) then
  70.     echo whoops\!  Let\'s try that again...
  71.     goto def_test
  72. endif
  73.  
  74. cat << MUSKRAT
  75.  
  76.     same idea, but let this timeout in four seconds...
  77.     using "grabchars -f -d always -t 4"
  78.  
  79.     (don't type anything...)
  80.  
  81. MUSKRAT
  82. grabchars -f -d always -t 4
  83.  
  84. cat << PEBBLES
  85.  
  86.  
  87.     The last one...  get two numbers with a ten second timeout...
  88.     trying "grabchars -c 0123456789 -n2 -t10 -p 'give me 2 numbers >> '
  89.  
  90. PEBBLES
  91. grabchars -c 0123456789 -n2 -t10 -p 'give me 2 numbers >> '
  92. echo " status returned was $status"
  93. echo ""
  94. echo test/demo done...enjoy\!
  95.