- Rearranged directory structure for forking out ANSTO

- Refactored site specific stuff into a site module
- PSI specific stuff is now in the PSI directory.
- The old version has been tagged with pre-ansto

utils/check/focuscheck

@@ -0,0 +1,82 @@
+#! /bin/sh
+#next line is executed by sh, not by Tcl \
+   exec tclsh $0 ${1+"$@"}
+#--------------------------------------------------------------------------
+# This is the SICS syntax checker for the FOCUS TOF diffractometer
+#
+# Mark Koennecke, March 2003
+#--------------------------------------------------------------------------
+source /data/koenneck/src/sics/utils/check/sicssyntaxlib.tcl
+
+#------------ define FOCUS motors and aliases
+sicsSyntaxMap mtt       syntaxMotor
+sicsSyntaxMap msl       syntaxMotor
+sicsSyntaxMap mth       syntaxMotor
+sicsSyntaxMap mtx       syntaxMotor
+sicsSyntaxMap mty       syntaxMotor
+sicsSyntaxMap mgo       syntaxMotor
+sicsSyntaxMap m1ch      syntaxMotor
+sicsSyntaxMap m1cv      syntaxMotor
+sicsSyntaxMap m2ch      syntaxMotor
+sicsSyntaxMap m2cv      syntaxMotor
+sicsSyntaxMap mex       syntaxMotor
+sicsSyntaxMap som       syntaxMotor
+sicsSyntaxMap sth       syntaxMotor
+sicsSyntaxMap sph       syntaxMotor
+sicsSyntaxMap theta     syntaxMotor
+
+sicsSyntaxMap a1        syntaxMotor
+sicsSyntaxMap a2        syntaxMotor
+
+#------------ define FOCUS counters
+sicsSyntaxMap counter syntaxCounter
+sicsSyntaxMap hm      syntaxHM
+
+#------------ define FOCUS variables 
+sicsSyntaxMap title        syntaxTextPar
+sicsSyntaxMap user         syntaxTextPar
+sicsSyntaxMap adres        syntaxTextPar 
+sicsSyntaxMap collimation  syntaxTextPar
+sicsSyntaxMap sample       syntaxTextPar
+sicsSyntaxMap comment1     syntaxTextPar
+sicsSyntaxMap comment2     syntaxTextPar
+sicsSyntaxMap comment3     syntaxTextPar
+sicsSyntaxMap fax          syntaxTextPar
+sicsSyntaxMap email        syntaxTextPar
+sicsSyntaxMap sample       syntaxTextPar
+sicsSyntaxMap lambda       syntaxNumPar
+
+#----------- define FOCUS environment
+sicsSyntaxMap temperature evSyntax
+sicsSyntaxMap tt          evSyntax
+
+#---------- define FOCUS auxiliary
+sicsSyntaxMap   fermispeed  syntaxNumPar
+sicsSyntaxMap   diskspeed   syntaxNumPar
+sicsSyntaxMap   ratio       syntaxNumPar
+sicsSyntaxMap   phase       syntaxNumPar
+
+sicsSyntaxMap   shutter     syntaxTextPar
+sicsSyntaxMap   colli       syntaxTextPar
+sicsSyntaxMap   td          syntaxNumPar
+sicsSyntaxMap   aw          syntaxNumPar
+sicsSyntaxMap   helium      syntaxDummy 
+
+sicsSyntaxMap   mono        syntaxDummy
+
+#--------- Main checking stuff
+#syntaxLoadSICS focusstatus.tcl
+#puts stdout [array names sicsPar]
+
+if { $argc < 1} {
+	puts stdout "Usage: \n\tfocuscheck filename"
+	exit 0
+}
+set filename [lindex $argv 0]
+lappend fileList [file tail $filename]
+puts stdout "Syntax checking --> $filename <-- ........."
+source $filename
+puts stdout "If this completed without errors the likelihoof of your script"
+puts stdout "executing properly on the instrument has increased significantly"
+exit 1
+