Use generic name for scan header.

r1532 | ffr | 2007-02-20 16:15:49 +1100 (Tue, 20 Feb 2007) | 2 lines

site_ansto/instrument/hipd/config/scan/scan.tcl

@@ -1,5 +1,5 @@
 namespace eval scanCommand {
-#MakeScanCommand  escan counter echidna.hdd recover.bin
+
 variable scanVariable scan_var scanVarStart 0 scanVarStep 1
   proc scan_prepare {sobj uobj} {
     variable scanVarStart;
@@ -107,7 +107,7 @@ proc hdb_hmscan {scanvar scanstart scanincr np mode preset} {
     hmscan clear
     hmscan configure script
 
-    hmscan add $scanvar scanstart scanincr
+    hmscan add $scanvar $scanstart $scanincr
     set status [catch {hmscan run $np $mode $preset} msg]
     hmscan configure soft
     if {$status == 0} {
@@ -119,7 +119,7 @@ proc hdb_hmscan {scanvar scanstart scanincr np mode preset} {
 
 publish hdb_hmscan user
 
-MakeScanCommand bmonscan bm $cfPath(scan)/echidna.hdd recover.bin
+MakeScanCommand bmonscan bm $cfPath(scan)/scan.hdd recover.bin
 bmonscan configure script
 bmonscan function writeheader ::scanCommand::donothing
 bmonscan function writepoint ::scanCommand::bm_nxaddpoint

site_ansto/instrument/hipd/script_validator/config/hmm/hmm_configuration.tcl

@@ -14,7 +14,7 @@ hmm configure Counter counter
 hmm configure init 0
 hmm init
 
-MakeScanCommand hmscan bm echidna.hdd recover.bin
+MakeScanCommand hmscan bm scan.hdd recover.bin
 
 proc hs_prepare {scanobjectname userobjectname} {}
 proc hs_finish {scanobjectname userobjectname} {}