EPICS_driver_modules/StreamDevice
0
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

no eol translation

Browse Source
This commit is contained in:
zimoch
2012-07-06 11:19:06 +00:00
parent 01f0761ca8
commit c6af859f9d
2 changed files with 4 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
streamApp/terminal.tcl
View File

@ -18,7 +18,7 @@ proc createTerm {sock} {
} }
proc connect {sock addr port} { proc connect {sock addr port} {
fconfigure $sock -blocking 0 -buffering none fconfigure $sock -blocking 0 -buffering none -translation binary
createTerm $sock createTerm $sock
fileevent $sock readable "receiveHandler $sock" fileevent $sock readable "receiveHandler $sock"
} }
@ -136,14 +136,6 @@ proc sendAsync {wait message} {
after $wait sendAsync $wait [list $message] after $wait sendAsync $wait [list $message]
} }
proc sendAsyncX {wait} {
if {$::counter < 0} return
foreach term [array names ::socket] {
sendReply $::socket($term) "\u00101\u0004~\u0005~\u00100\u0002|0062|2|1|0|1216|0|0.1087E+0 \u0003\u0012"
}
after $wait sendAsyncX $wait
}
if {[info proc tkTextInsert] != ""} { if {[info proc tkTextInsert] != ""} {
set insert tkTextInsert set insert tkTextInsert
set paste tkTextPaste set paste tkTextPaste
@ -196,7 +188,7 @@ for {set ascii 0x61} {$ascii <= 0x7a} {incr ascii} {
bind Text <Control-[format %c $ascii]> "" bind Text <Control-[format %c $ascii]> ""
} }
#remove bindings on symbolic tags #remove bindings on symbolic tags
foreach tag {Clear Paste Copy Cut } { foreach tag {Clear Paste Copy Cut} {
bind Text <<$tag>> "" bind Text <<$tag>> ""
} }

4
streamApp/test.proto
View File

@ -1,5 +1,5 @@
terminator = CR LF; terminator = LF;
readtimeout = 1000; readtimeout = 10;
pollperiod = 10; pollperiod = 10;
replytimeout = 1000; replytimeout = 1000;
command { command {