Remove superfluous trailing white space from TCL files
This commit is contained in:
@@ -10,16 +10,16 @@ proc serverOpen {channel addr port} {
|
||||
return;
|
||||
}
|
||||
|
||||
# Reads a command from a DMC2280 client and then performs an appropriate
|
||||
# Reads a command from a DMC2280 client and then performs an appropriate
|
||||
# action depending on whether or not the command produces output or has
|
||||
# been defined.
|
||||
proc readLine {who channel} {
|
||||
global didRead
|
||||
global didRead
|
||||
global B
|
||||
if {[gets $channel line]<0} {
|
||||
fileevent $channel readable {}
|
||||
after idle "close $channel;set out 1"
|
||||
} else {
|
||||
} else {
|
||||
puts "RECEIVED: $line"
|
||||
|
||||
foreach cmd [split $line ";"] {
|
||||
|
||||
Reference in New Issue
Block a user