Datei: message.tcl

# $Id: message.tcl,v 1.1 1996/08/26 15:24:56 uwe Exp $

# message output --------------------

# priority = 0 : always

# = 1 : errors

# = 2 : diagnostics

# = 3 : trace

# default init

set state(trace) 0

proc message {priority mes} {

global state

if {$priority <= $state(trace)} {

puts stderr $mes

}

Die Datei: message.tcl