Initial revision
This commit is contained in:
9
psitest.tcl
Normal file
9
psitest.tcl
Normal file
@@ -0,0 +1,9 @@
|
||||
#--------------------------------------------------------------------------
|
||||
# some tcl for testing Tcl language environment device drivers in psish
|
||||
# Mark Koennecke, February 1998
|
||||
#--------------------------------------------------------------------------
|
||||
rename Controller serialport
|
||||
|
||||
proc ClientPut {text} {
|
||||
puts stdout $text
|
||||
}
|
||||
Reference in New Issue
Block a user