PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/amorpar.tcl
+++ b/amorpar.tcl
@@ -0,0 +1,23 @@
+#--------------------------------------------------------------------------
+# A SICS-tcl-macro script for formatting the parameters for the 
+# reflectometer AMOR's status display.
+#
+# Mark Koennecke, October 1999
+#-------------------------------------------------------------------------
+proc amorpar {} {
+   lappend list "amorpar == "
+   lappend list [lastscancommand] ";"
+    catch {scan getvars} msg
+   lappend list $msg ";"
+   lappend list [xxxscan getfile] ";"
+   lappend list [sicstime] ";"
+   set ret [catch {temperature} msg]
+   if {$ret == 0} {
+       lappend list $msg
+   }
+   set ret [catch {magnet} msg]
+   if {$ret == 0} {
+       lappend list $msg
+   }
+   return [join $list]
+}