Changeset 480

Timestamp:

Dec 4, 2009 5:06:52 PM (13 years ago)

Author:

toby

Message:

# on 2001/10/31 20:08:54, toby did:
support excledt

File:

• trunk/readexp.tcl (modified) (3 diffs, 3 props)

trunk/readexp.tcl

@@ -328 +328 @@
             cdatset MXCY [format %4d $value]
         }
+        cyclesrun-get {
+            set cycle -1
+            regexp {.*cycles run *([0-9]*) } [readexp "  GNLS  RUN"] x cycle
+            return $cycle
+        }
         print-get {
             set print [string trim [cdatget PRNT]]
@@ -1002 +1007 @@
 #     dstep -- dummy histogram step size tmin/emin/2theta (*)
 #     dpoints -- dummy histogram number of points (*)
+#     dtype   -- dummy histogram type (CONST or SLOG)
+#   parameters transferred from the instrument parameter file:
+#     ITYP    -- returns the contents of the ITYP record
 proc histinfo {histlist parm "action get" "value {}"} {
     global expgui
@@ -1411 +1419 @@
                 if ![validint value 10] {return 0}
                 setexp "${key} DUMMY" $value 1 10
+            }
+            dtype-get {
+                return [string trim [string range [readexp "${key} DUMMY"] 10 19]]
+            }
+            ITYP-get {
+                return [string trim [readexp "${key}I ITYP"]]
             }
             default {