#!/usr/local/bin/tclsh
#
# Copyright (c): Uwe Schmidt, FH Wedel
#
# You may study, modify and distribute this source code
# FOR NON-COMMERCIAL PURPOSES ONLY.
# This copyright message has to remain unchanged.
#
# Note that this document is provided 'as is',
# WITHOUT WARRANTY of any kind either expressed or implied.

# $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
    }
}