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

ah2550: fix auto detection and disabling of serial echo

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

4
tcl/drivers/ah2550.tcl
View File

@ -46,7 +46,7 @@ proc ah2550::start {} {
proc ah2550::start1 {} { proc ah2550::start1 {} {
set prefix [lindex [sct result] 0] set prefix [lindex [sct result] 0]
if {$prefix eq "UN"} { # this was the echo if {[string match "*UN" $prefix]} { # this was the echo
sct send "SERIAL ECHO OFF" sct send "SERIAL ECHO OFF"
return ah2550::start return ah2550::start
} }
@ -74,7 +74,7 @@ proc ah2550::update {} {
set res [string map {"=" "= "} $res] set res [string map {"=" "= "} $res]
#clientput $res #clientput $res
lassign $res prefix c _ _ _ l un _ _ v _ _ _ _ _ _ _ lassign $res prefix c _ _ _ l un _ _ v _ _ _ _ _ _ _
if {$prefix eq "SI"} { if {[string match "*SI" $prefix]} {
sct send "\r\nSERIAL ECHO OFF\r" sct send "\r\nSERIAL ECHO OFF\r"
return stdSct::complete return stdSct::complete
} }