From 307a3ccc6bb7a9ad7368e8786aa314a615b08c8b Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Mon, 12 Mar 2007 08:59:27 +1100
Subject: [PATCH] Declare some empty functions to make scan and nexus code
 happy.

r1628 | ffr | 2007-03-12 08:59:27 +1100 (Mon, 12 Mar 2007) | 2 lines
---
 .../config/hmm/hmm_configuration.tcl                 | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/site_ansto/instrument/hipd/script_validator/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/hipd/script_validator/config/hmm/hmm_configuration.tcl
index 150443ff..6c70fa70 100644
--- a/site_ansto/instrument/hipd/script_validator/config/hmm/hmm_configuration.tcl
+++ b/site_ansto/instrument/hipd/script_validator/config/hmm/hmm_configuration.tcl
@@ -2,7 +2,7 @@ MakeHM hmm SIM
 hmm configure HistMode Normal
 hmm configure OverFlowMode    Ceil
 hmm configure dim0 512
-hmm configure dim1 128
+hmm configure dim1 [expr 480 * 8 - 1]
 hmm configure rank 2
 hmm configure BinWidth 4
 #hmm configure BinWidth 1
@@ -12,8 +12,16 @@ hmm configure Counter counter
 hmm configure init 0
 hmm init
 
-MakeScanCommand hmscan bm scan.hdd recover.bin
+#MakeScanCommand hmscan bm scan.hdd recover.bin
 
+namespace eval histogram_memory {
 proc hs_prepare {scanobjectname userobjectname} {}
 proc hs_finish {scanobjectname userobjectname} {}
 proc hs_count_bm_controlled  {scanobjectname userobjectname point mode preset} {}
+proc hmm_initialize {} {}
+proc hmm_setup {mode bankNum rankNum nyc nxc ntc} {}
+}
+
+publish ::histogram_memory::hs_prepare user
+publish ::histogram_memory::hs_finish user
+publish ::histogram_memory::hs_count_bm_controlled user