From 82db8ffbd04268b3dd3a8d4083ac3bc429a2f9f7 Mon Sep 17 00:00:00 2001
From: l_samenv <l_samenv@samenv.psi.ch>
Date: Thu, 25 May 2023 09:31:08 +0200
Subject: [PATCH] calcurve_read: fix missing calibrange keyword

+ seaman: fix get_devices
---
 tcl/drivers/lsc.tcl | 4 ++--
 tcl/seamancom.tcl   | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/tcl/drivers/lsc.tcl b/tcl/drivers/lsc.tcl
index f28bef5..176ff80 100644
--- 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
diff --git a/tcl/seamancom.tcl b/tcl/seamancom.tcl
index 67561c5..799dbf3 100644
--- 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 ""} {