- Implemented tcl: prefix which allows to execute a command in Tcl directly

- Fixed a stack overrun bug in macro.c
- Fixed a killing bug in devser.c
- Added node writing with offset to nxscript.c
- Wrote a simulation driver for second generation HM's
- Readded devexec commands to  SICS
- Readded Hipadaba initialisation to SICS
- Fixed a bug in sinqhttprot.c which is triggered when a reconnect happens
  during a node based download of data.


SKIPPED:
	psi/sinqhttpprot.c

tcl/hdbutil.tcl

@@ -15,7 +15,6 @@
 #----------------------------------------------------------------------
 if { [info exists hdbinit] == 0 } {
   set hdbinit 1
-  InstallHdb
   MakeStateMon
   Publish getgumtreexml Spy
   if {[string first tmp $home] < 0} { 
@@ -36,10 +35,10 @@ if { [info exists hdbinit] == 0 } {
   Publish cscan       User
   Publish sscan       User
   Publish scan        Spy
-#  Publish hmake Mugger
-#  Publish hmakescript Mugger
-#  Publish hlink    Mugger
-#  Publish hcommand Mugger
+  Publish hmake Mugger
+  Publish hmakescript Mugger
+  Publish hlink    Mugger
+  Publish hcommand Mugger
   Publish hdbstorenexus User 
   Publish scaninfo Spy
 }

tcl/simhm.tcl

@@ -0,0 +1,91 @@
+#-----------------------------------------------------
+# This is a simulation driver for the second 
+# generation histogram memory. It provides 
+# for a  fill value which is used to initialize
+# data. 
+#
+# copyright: see file COPYRIGHT
+#
+# Mark Koennecke, January 2010
+#----------------------------------------------------- 
+namespace eval simhm {}
+#-----------------------------------------------------
+proc simhm::getcontrol {name} {
+    return -9999.99
+}
+#----------------------------------------------------
+proc simhm::setcontrol {name val} {
+    switch $val {
+	1000 {
+	    hset /sics/${name}/internalstatus run
+	    set pp [hval /sics/${name}/preset]
+	    hset /sics/${name}/finishtime [expr $pp + [clock seconds]]
+	    return idle
+	}
+	1001 {
+	    hset /sics/${name}/internalstatus error
+	    return idle
+	}
+	1002 {
+	    hset /sics/${name}/internalstatus pause
+	    return idle
+	}
+	1003 {
+	    hset /sics/${name}/internalstatus run
+	    return idle
+        }
+        1005 {
+	    return idle
+	}
+	default {
+	    clientput "ERROR: bad start target $target given to control"
+	    return idle
+	}
+    }
+}
+#----------------------------------------------------
+proc simhm::getstatus {name} {
+    set status [string trim [hval /sics/${name}/internalstatus]]
+    if {[string first run $status] >= 0} {
+	set fin [string trim [hval /sics/${name}/finishtime]]
+	if {[clock seconds] > $fin} {
+	    hset /sics/${name}/internalstatus idle
+	    set val [string trim [hval /sics/${name}/initval]]
+	    $name set $val
+	    set second [string trim [hval /sics/${name}/secondbank]]
+	    if {[string compare $second NULL] != 0} {
+		harray /sics/${name}/${second} init $val
+            }
+        }
+    }
+    return $status
+}
+#-----------------------------------------------------
+proc simhm::MakeSimHM {name rank {tof  NULL} } {
+    MakeSecHM $name $rank $tof
+    hfactory /sics/${name}/initval plain user int
+    hset /sics/${name}/initval 0
+
+    hfactory /sics/${name}/finishtime plain user int
+    hfactory /sics/${name}/internalstatus plain user text
+    hupdate /sics/${name}/internalstatus idle
+
+    hdel /sics/${name}/control
+    hfactory /sics/${name}/control script \
+	"simhm::getcontrol $name" "simhm::setcontrol $name" float
+    hsetprop /sics/${name}/control priv user
+    
+    hdel /sics/${name}/status
+    hfactory /sics/${name}/status script \
+	"simhm::getstatus $name" hdbReadOnly text
+    hsetprop /sics/${name}/control priv user
+    hupdate /sics/${name}/status idle
+
+    hfactory /sics/${name}/secondbank plain user text
+    hupdate  /sics/${name}/secondbank NULL
+}
+#------------------------------------------------------
+proc simhm::makeSecond {name bankname length} {
+    hfactory /sics/${name}/${bankname} plain user intvarar $length
+    hupdate /sics/${name}/secondbank $bankname
+}