Welcome, guest | Sign In | My Account | Store | Cart
# Helper procedure
proc stty args {
   eval [list exec /bin/stty <@/dev/tty] $args

proc yesOrNo {prompt} {
   # Save the current state; makes it easier to reset!
   set savedStty [stty -g]

   # Turn off echoing and turn on raw input
   stty -echo raw

   # Prompt!
   puts -nonewline "$prompt [Y/N] "
   flush stdout

   set answer ?

   # Get input as yes or no, or sound the terminal bell...
   while {1} {
      switch [string tolower [read stdin 1]] {
         y {set answer yes; puts YES; break}
         n {set answer no;  puts NO;  break}
         default {puts -nonewline \a; flush stdout}

   # Put things back as they were; this is IMPORTANT!
   stty $savedStty

   return $answer

if {[yesOrNo "Frobnicate the manglewurzel?"]} {
   frobnicate manglewurzel