initial commit
This commit is contained in:
12
tcl/startup/commandlog.tcl
Normal file
12
tcl/startup/commandlog.tcl
Normal file
@@ -0,0 +1,12 @@
|
||||
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
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user