calcurve_read: fix missing calibrange keyword

+ seaman: fix get_devices
2023-05-25 09:31:08 +02:00
parent 0b8f3bd51c
commit 82db8ffbd0
2 changed files with 3 additions and 2 deletions
--- a/tcl/drivers/lsc.tcl
+++ b/tcl/drivers/lsc.tcl
@ -552,10 +552,10 @@ proc lsc::read_curve_inp {} {
        excit - range - rang {
          error "[sct Data_File]: replace 'excit' and 'range' by 'intype'"
        }
-        form - intype - loadfmt {
+        form - intype - loadfmt - calibrange {
        }
        default {
-          error "[sct Data_File]: unknown keyword"
+          error "[sct Data_File]: unknown keyword $keyword"
        }
      }
      sct $keyword $value
--- a/tcl/seamancom.tcl
+++ b/tcl/seamancom.tcl
@ -370,6 +370,7 @@ proc show {{key ""}} {

 proc get_devices {args} {
  set ilist [split $args ","]
+  set result [list]
  foreach ins $ilist {
    set dev [silent {} result samenv_list $ins]
    if {$dev eq ""} {