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

fix sitck sensor stuff

Browse Source 
- code not found in stick table -> must match with code undefined
- fix_stick_sensors must use sctval, not hval
This commit is contained in:
zolliker
2023-10-18 15:15:16 +02:00
parent 6c4e7989af
commit 759f7ac06c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tcl/seacom.tcl
View File

@ -628,7 +628,7 @@ proc stick_sensors {sensor1 sensor2} {
source config/stick.list source config/stick.list
if {[string match "code*" $sensor2]} { if {[string match "code*" $sensor2]} {
set code [lindex [split $sensor2=0 =] 1] set code [lindex [split $sensor2=0 =] 1]
set table_code [silent -1 set stick_cfgtable($stick_name)] set table_code [silent 0 set stick_cfgtable($stick_name)]
if {$table_code != $code} { if {$table_code != $code} {
clientput "ERROR: code $code in $stick_name.stick does not match value from config/sticklist: $table_code" clientput "ERROR: code $code in $stick_name.stick does not match value from config/sticklist: $table_code"
} }
@ -655,7 +655,7 @@ proc stick_sensors {sensor1 sensor2} {
proc fix_stick_sensors {} { proc fix_stick_sensors {} {
# fix stick sensors # fix stick sensors
foreach path {/tt/ts/curve /tt/ts_2/curve} { foreach path {/tt/ts/curve /tt/ts_2/curve} {
set curv [silent "" hval $path] set curv [silent "" sctval $path]
if {$curv ne ""} { if {$curv ne ""} {
hset $path $curv hset $path $curv
} }