10 lines
336 B
Tcl
10 lines
336 B
Tcl
#--------------------------------------------------------------------------
|
|
# some tcl for testing Tcl language environment device drivers in psish
|
|
# Mark Koennecke, February 1998
|
|
#--------------------------------------------------------------------------
|
|
rename Controller serialport
|
|
|
|
proc ClientPut {text} {
|
|
puts stdout $text
|
|
}
|