home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 13_13.tcl < prev    next >
Text File  |  2003-04-15  |  561b  |  34 lines
  1. #
  2. # Example 13-13
  3. # Time Stamps in log records.
  4. #
  5.  
  6. proc Log {args} {
  7.     global log
  8.     if [info exists log(file)] {
  9.         set now [clock clicks]
  10.         puts $log(file) [format "%s (%d)\t%s" \
  11.             [clock format [clock seconds]] \
  12.             [expr $now - $log(last)] \
  13.             [join $args " "]]
  14.         set log(last) $now
  15.     }
  16. }
  17. proc Log_Open {file} {
  18.     global log
  19.     catch {close $log(file)}
  20.     set log(file) [open $file w]
  21.     set log(last) [clock clicks]
  22. }
  23. proc Log_Flush {} {
  24.     global log
  25.     catch {flush $log(file)}
  26. }
  27. proc Log_Close {} {
  28.     global log
  29.     catch {close $log(file)}
  30.     catch {unset log(file)}
  31. }
  32.  
  33.  
  34.