13 lines
237 B
Tcl
13 lines
237 B
Tcl
if {[sicsdescriptor commandlog] eq "notfound"} {
|
|
proc commandlog {{cmd tail} {n 50}} {
|
|
if {$cmd eq "tail"} {
|
|
loglisten tail $n
|
|
} else {
|
|
error "'commandlog $cmd' not supported"
|
|
}
|
|
}
|
|
|
|
publishLazy commandlog
|
|
}
|
|
|