logging.tcl

##
# @brief Basic namespace for all Excentis Tcl extensions
#
namespace eval excentis {

##
# @brief This namespace holds all ByteBlower-related Tcl extensions, including the ByteBlower higher-layer Tcl API.
#
# These procedures are developed for higher-level usage of the ByteBlower API.
# They are mainly used to simplify running specific Test Scenarios similar to
# scenarios you know from the ByteBlower GUI.
#
namespace eval ByteBlower {

# This files includes helper functions to perform logging tasks.

package require excentis_basic

##
# 0: ERROR
# 1: WARNING
# 2: INFO
# 3: DEBUG
set LOG_LEVELS [ list "ERROR" "WARNING" "INFO" ]

proc x.Print.Debug { args } {
    if { [ lsearch $::excentis::ByteBlower::LOG_LEVELS "DEBUG" ] != -1} {
        if { [ llength ${args} ] > 1} {
            set channel [ lindex $args 0 ]
            set msg [ lrange $args 1 end ]
        } else {
            set channel stdout
            set msg [ lindex $args 0 ]
        }

        puts ${channel} "\[DEBUG\] $msg"
    }
}


}

}