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

calcurve_read: fix missing calibrange keyword

Browse Source 
+ seaman: fix get_devices
This commit is contained in:
l_samenv
2023-05-25 09:31:08 +02:00
parent 0b8f3bd51c
commit 82db8ffbd0
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tcl/drivers/lsc.tcl
View File

@ -552,10 +552,10 @@ proc lsc::read_curve_inp {} {
excit - range - rang { excit - range - rang {
error "[sct Data_File]: replace 'excit' and 'range' by 'intype'" error "[sct Data_File]: replace 'excit' and 'range' by 'intype'"
} }
form - intype - loadfmt { form - intype - loadfmt - calibrange {
} }
default { default {
error "[sct Data_File]: unknown keyword" error "[sct Data_File]: unknown keyword $keyword"
} }
} }
sct $keyword $value sct $keyword $value

1
tcl/seamancom.tcl
View File

@ -370,6 +370,7 @@ proc show {{key ""}} {
proc get_devices {args} { proc get_devices {args} {
set ilist [split $args ","] set ilist [split $args ","]
set result [list]
foreach ins $ilist { foreach ins $ilist {
set dev [silent {} result samenv_list $ins] set dev [silent {} result samenv_list $ins]
if {$dev eq ""} { if {$dev eq ""} {