#!/bin/sh
# 
# Beispiel für Profiler und Logger
# \
exec tclsh $0 $@

package require logger
package require profiler


puts stdout "Listing 1\n"

# Initialisierung
profiler::init

namespace eval anwendung {
    variable log 
    set log [logger::init Anwendung]
    ${log}::setlevel info

    proc A {} {
	variable log
	${log}::info "1"
	B 1
	${log}::notice "2"
	B 2
	${log}::debug "erscheint nicht"
	B 3
	${log}::setlevel debug
	B 4
    }
    
    proc B {i} {
	variable log
	${log}::debug "B $i"
    }    
}

anwendung::A

puts stderr [::profiler::print ::anwendung::*]