- 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
This commit is contained in:
@ -632,6 +632,14 @@ if {$hmhttp == 1} {
|
||||
apple init
|
||||
}
|
||||
|
||||
set simhm 1
|
||||
#if {$simhm == 1} {
|
||||
source ../tcl/simhm.tcl
|
||||
simhm::MakeSimHM simi 2
|
||||
# simhm::makeSecond simi singledet 30
|
||||
simi dim 64 64
|
||||
simi init
|
||||
#}
|
||||
|
||||
set phytron 0
|
||||
if {$phytron == 1} {
|
||||
@ -673,8 +681,9 @@ mf lowerlimit -10
|
||||
mf tolerance .1
|
||||
}
|
||||
|
||||
set dc-804 1
|
||||
|
||||
source ../tcl/pimotor.tcl
|
||||
makesctcontroller dc804sct std localhost:8080 "\r" 10 "\x03" "\x03"
|
||||
pimotor::makepimotor dc1 1 dc804sct -10000 10000
|
||||
set dc-804 0
|
||||
if {${dc-804} == 1} {
|
||||
source ../tcl/pimotor.tcl
|
||||
makesctcontroller dc804sct std localhost:8080 "\r" 10 "\x03" "\x03"
|
||||
pimotor::makepimotor dc1 1 dc804sct -10000 10000
|
||||
}
|
Reference in New Issue
Block a user