linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ah2700: fix issue with detecting echo

Browse Source
This commit is contained in:
l_samenv
2025-02-28 11:27:34 +01:00
parent ee3e8d38d8
commit f125bf1f28
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tcl/drivers/ah2700.tcl
View File

@ -51,7 +51,7 @@ proc ah2700::start {} {
proc ah2700::start1 {} { proc ah2700::start1 {} {
set prefix [lindex [sct result] 0] set prefix [lindex [sct result] 0]
if {$prefix eq "UN"} { # this was the echo if {$prefix eq "UN" || $prefix eq ">UN"} { # this was the echo
sct send "SERIAL ECHO OFF" sct send "SERIAL ECHO OFF"
return ah2700::start return ah2700::start
} }
@ -76,7 +76,7 @@ proc ah2700::read {} {
proc ah2700::update {} { proc ah2700::update {} {
# analyze result: _ is a placeholder for text words # analyze result: _ is a placeholder for text words
lassign [string map {"=" "= "} [sct result]] prefix f _ _ c _ _ l un _ v lassign [string map {"=" "= "} [sct result]] prefix f _ _ c _ _ l un _ v
if {$prefix eq "SI"} { if {$prefix eq "SI" || $prefix eq ">SI"} { # this was the echo
sct send "\r\nSERIAL ECHO OFF\r" sct send "\r\nSERIAL ECHO OFF\r"
return stdSct::complete return stdSct::complete
} }