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

Merge branch 'master' of gitlab.psi.ch-samenv:samenv/sea

Browse Source
This commit is contained in:
l_samenv
2025-02-28 11:24:06 +01:00
parent 53e4f126ed 24f15db38f
commit 59ef340f0b
3 changed files with 3 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
.gitignore vendored
View File

@ -22,26 +22,11 @@ CVS
/log
/logger
/status
/dilsc
/lab*
/prep*
/amor
/boa
/camea
/dmc
/eiger
/flame
/focus
/hifi
/hrpt
/hrpt2
/morpheus
/poldi
/ppms
/sans
/seaman
/tasp
/zebra
/zebra2
/logger_tar
cheat_chart
tcl/stuff_before_2022

0
tcl/dilsc.config → tcl/dilsc_obsolete.config
View File

4
tcl/drivers/ah2550.tcl
View File

@ -46,7 +46,7 @@ proc ah2550::start {} {
proc ah2550::start1 {} {
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"
return ah2550::start
}
@ -74,7 +74,7 @@ proc ah2550::update {} {
set res [string map {"=" "= "} $res]
#clientput $res
lassign $res prefix c _ _ _ l un _ _ v _ _ _ _ _ _ _
if {$prefix eq "SI"} {
if {[string match "*SI" $prefix]} {
sct send "\r\nSERIAL ECHO OFF\r"
return stdSct::complete
}