pelican

Create pas/config/source/source.tcl
config/source/source_common.tcl
pelican_configuration.tcl

deploySICS.sh
Don't deploy script validator configs, they are obsolete

server_config.tcl
Source config has been moved to  config/source and is specialised for each instrument by calling the instrument specific initialiser ::source:isc_initalize

commands_common_1.tcl
The monitor mode and preset are recorded when running the count command

counter_common_1.tcl
Report and record the counts and time for the multicounter and each monitor.  Also record the mode and preset for the multicounter.

hmm_configuration_common_1.tcl
Cleanup, remove obsolete code.
Report and record the hmm total counts and time.
Allow monitor controlled acquisition from the histogram server

nxscripts_common_1.tcl
Add DataType to NXdata section, preserve case in text attributes.

scan_common_1.tcl
Provide sensible feedback for our bmonscan and hmscan objects.
Set run_mode when doing a scan.  Allow users to select the datatype for histmem scans and to force a scan

wombat_configuration.tcl
echidna_configuration.tcl
platypus_configuration.tcl
kowari_configuration.tcl
quokka_configuration.tcl
Load source config.

quokka_configuration.tcl
SICS-198 HACK, Add AttrotDeg and RotApDeg status feedback.

sans/commands/commands.tcl
Add status feedback for quokka "guide" command.

sans/parameters/parameters.tcl
Make sure data can be saved as xml (replace % with _percent)
SICS-198 HACK, add AttRotDeg and RotApDeg status feedback.

utility.tcl
Fix nasty "params array generator" bug.  SICS commands execute at runlevel 0 which means that the params anonymous array must be made at this level.
Provide the normalattlist command to enable creating attribute lists with the case preserved.

Added the runsics, runtestsics and sicsclient scripts to CVS.
Added source configurations for echidna, wombat, kowari, quokka, platypus, and pelican to CVS

r2644 | ffr | 2008-07-11 11:09:57 +1000 (Fri, 11 Jul 2008) | 53 lines

site_ansto/instrument/config/nexus/nxscripts_common_1.tcl

@@ -11,12 +11,15 @@ sicsdatafactory new nxscript_data
 ::utility::mkVar eend Text user end_time true entry false true
 ::utility::mkVar timestamp int user time_stamp true entry false true
 ::utility::mkVar data_run_number int user run_number true instrument false true
+::utility::mkVar nexus_datatype text user DataType true data false true
 sicslist setatt data_run_number mutable true
 sicslist setatt timestamp mutable true
 sicslist setatt timestamp units seconds
+sicslist setatt nexus_datatype mutable false
 
 namespace eval nexus {
   variable data_gp_path "/data"
+  nexus_datatype "UNKNOWN"
   set exports [list newfile closefile save data]
   eval namespace export $exports
   if 0 {datafilename}
@@ -129,6 +132,7 @@ proc newFileName {postfix} {
 }
 
   proc ::nexus::process_filetype_policy {filetype filetype_spec} {
+
     upvar $filetype_spec ft_spec
     array set ft_spec_arr $ft_spec
     if {[info exists ft_spec_arr($filetype)] == 0} {
@@ -265,8 +269,10 @@ proc ::nexus::newfile {type {namestyle data}} {
       ::hdb::set_save / false
       hsetprop $data_gp_path currentfiletype UNKNOWN
       hsetprop $data_gp_path datatype UNKNOWN
+      nexus_datatype "UNKNOWN"
     } else {
       ::nexus::process_filetype_policy $type filetype_spec
+      nexus_datatype $type
     }
   } message ] {
     if {$::errorCode=="NONE"} {return $message}
@@ -484,10 +490,10 @@ proc ::nexus::newfile {type {namestyle data}} {
         }
         "clear" {
           debug_msg "'clear' case of switch"
-            foreach child [hlist $dpath] {
-              hsetprop $dpath/$child link @none
-              hsetprop $dpath/$child long_name @none
-            }
+          foreach child [hlist $dpath] {
+            hsetprop $dpath/$child link @none
+            hsetprop $dpath/$child long_name @none
+          }
         }
         "alias" {
           debug_msg "'alias' case of switch" 
@@ -808,7 +814,6 @@ proc ::nexus::histmem::save {hm nxalias data_type args} {
 # TODO Get rank from /data
 proc ::nexus::histmem::sdsinfo {hm data_type args} {
   array set param $args
-  array set hm_prop [attlist $hm]
   set rank [SplitReply [$hm configure rank]]
 
   for {set i 0} {$i < $rank} {incr i} {lappend dimstr "\$(padim$i)"}
@@ -839,7 +844,7 @@ proc ::nexus::motor::save {motor nxalias data_type args} {
 }
 proc ::nexus::motor::sdsinfo {motor data_type args} {
   array set param $args
-  array set attribute [attlist $motor]
+  array set attribute [::utility::normalattlist $motor]
   set dtype [::nexus::hdb2nx_type $data_type]
   if {[info exists attribute(units)]} {
     set units_att " -attr {units,$attribute(units)} "
@@ -889,7 +894,7 @@ proc ::nexus::macro::getset_save {sobj nxalias data_type args} {
 # @brief Define the scientific data set path for the nexus dictionary.
 proc ::nexus::macro::getset_sdsinfo {sobj data_type args} {
   array set param $args
-  array set attribute [attlist $sobj]
+  array set attribute [::utility::normalattlist $sobj]
   set dtype [::nexus::hdb2nx_type $data_type]
   if {[info exists attribute(units)]} {
     set units_att " -attr {units,$attribute(units)} "
@@ -916,7 +921,7 @@ proc ::nexus::environment_controller::save {evc nxalias data_type args} {
 }
 proc ::nexus::environment_controller::sdsinfo {evc data_type args} {
   array set param $args
-  array set attribute [attlist $evc]
+  array set attribute [::utility::normalattlist $evc]
   set dtype [::nexus::hdb2nx_type $data_type]
   if {[info exists attribute(units)]} {
     set units_att " -attr {units,$attribute(units)} "
@@ -958,6 +963,8 @@ proc ::nexus::sicsvariable::save {svar nxalias data_type args} {
     nxscript putattribute $nxalias units $attribute(units)
   }
 }
+
+# TODO Add optional units to sicsvariables
 proc ::nexus::sicsvariable::sdsinfo {svar data_type args} {
   array set param $args
     set dtype [::nexus::hdb2nx_type $data_type]
@@ -1053,7 +1060,7 @@ foreach expt $::nexus::exports {
 
 set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
 set nx_content_release_tag [lindex $tmpstr [expr [llength $tmpstr] - 1]]
-set tmpstr [string map {"$" ""} {$Revision: 1.39 $}]
+set tmpstr [string map {"$" ""} {$Revision: 1.40 $}]
 set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
 
 #namespace eval data {