tcl/Display.tcl

   1 package provide Display 1.0
   2 package require Tcl     8.4
   3
   4 namespace eval ::Display {
   5   namespace export \
   6     display \
   7     verbose \
   8     debug \
   9     set_debug \
  10     set_verbose
  11
  12   set debug   0
  13   set verbose 0
  14 }
  15
  16 proc ::Display::display {msg} {
  17   puts $msg
  18 }
  19
  20 proc ::Display::debug {msg} {
  21   global debug
  22
  23   if {$Display::debug} {
  24     display "DEBUG: $msg"
  25   }
  26 }
  27
  28 proc ::Display::error {msg} {
  29   display "ERROR: $msg"
  30   exit 1
  31 }
  32
  33 proc ::Display::verbose {msg} {
  34   global verbose
  35
  36   if {$Display::verbose} {
  37     display $msg
  38   }
  39 }
  40
  41 proc ::Display::set_debug {newValue} {
  42   global debug
  43
  44   set oldValue $Display::debug
  45
  46   set Display::debug $newValue
  47
  48   return $oldValue
  49 }
  50
  51 proc ::Display::set_verbose {newValue} {
  52   global verbose
  53
  54   set oldValue $Display::verbose
  55
  56   set Display::verbose $newValue
  57
  58   return $oldValue
  59 }