1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
################################################################################
# Logger Utilities - SNIT wrapper for logger
#
# A SNIT type to wrap logger
#
# (c) 2005 Michael Schlenker <mic42@users.sourceforge.net>
#
# $Id: snit-logger.tcl,v 1.2 2005/04/27 02:40:40 andreas_kupries Exp $
#
#################################################################################
package require snit
package require logger
namespace eval ::logger::snit {
snit::type Logger {
variable loggertoken ""
option -servicename -configuremethod servicenameconf
option -loglevel -default debug -configuremethod loglevelconf
delegate method * using "%s _indirect %m"
constructor {args} {
$self configurelist $args
${loggertoken}::setlevel $options(-loglevel)
}
destructor {
${loggertoken}::delete
}
method log {level args} {
eval [linsert $args 0 ${loggertoken}::${level}]
}
method _indirect {cmd args} {
eval [linsert $args 0 ${loggertoken}::${cmd}]
}
method servicenameconf {opt val} {
if {$loggertoken != ""} {
${loggertoken}::delete
}
if {$val != ""} {
if {[lsearch -exact [logger::services] $val] == -1} {
set loggertoken [logger::init $val]
set options(-servicename) $val
} else {
set loggertoken [logger::servicecmd $val]
set options(-servicename) $val
}
}
}
method loglevelconf {opt val} {
set options($opt) $val
if {$loggertoken != ""} {
${loggertoken}::setlevel $val
}
}
}
}
package provide ::logger::snit 0.1
|
