linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove type prefixes from the "commands" which were refactored as tcl procedures.

Browse Source 
r2214 | ffr | 2007-11-01 09:03:54 +1100 (Thu, 01 Nov 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-11-01 09:03:54 +11:00
committed by Douglas Clowes
parent 83b82e43d0
commit beb622526f
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
site_ansto/instrument/config/hmm/hmm_configuration_common_1.tcl
View File

@@ -1,5 +1,5 @@
# $Revision: 1.20 $ # $Revision: 1.21 $
# $Date: 2007-10-31 05:39:00 $ # $Date: 2007-10-31 22:03:54 $
# Author: Ferdi Franceschini # Author: Ferdi Franceschini
# Based on the examples in the hs_test.tcl sample configuration by Mark Lesha. # Based on the examples in the hs_test.tcl sample configuration by Mark Lesha.
# http://gumtree.ansto.gov.au:9080/nbicms/bragg-systems/histogram-server/hs_test.tcl/view # http://gumtree.ansto.gov.au:9080/nbicms/bragg-systems/histogram-server/hs_test.tcl/view
@@ -976,7 +976,7 @@ proc ::histogram_memory::post_count {} {}
## ##
# @brief Choose method for controlling acquisition duration. # @brief Choose method for controlling acquisition duration.
proc ::histogram_memory::count_method {text:time,monitor,unlimited,period,count,frame method} { proc ::histogram_memory::count_method {method} {
set modes [list time monitor unlimited period count frame] set modes [list time monitor unlimited period count frame]
if {[lsearch $modes $method] == -1} { if {[lsearch $modes $method] == -1} {
return -code error "Count mode, $method, must be one of $modes" return -code error "Count mode, $method, must be one of $modes"
@@ -990,7 +990,7 @@ proc ::histogram_memory::post_count {} {}
# #
# @param preset: The interpretation of the preset depends on the count method. # @param preset: The interpretation of the preset depends on the count method.
# @see count_method # @see count_method
proc ::histogram_memory::count_size {float: preset} { proc ::histogram_memory::count_size {preset} {
hmm configure FAT_COUNT_SIZE [expr 100.0 * $preset] hmm configure FAT_COUNT_SIZE [expr 100.0 * $preset]
hmm init 0 hmm init 0
hmm init hmm init
@@ -999,7 +999,7 @@ proc ::histogram_memory::post_count {} {}
# @brief Set stop condition for histogram memory # @brief Set stop condition for histogram memory
# #
# @param condition # @param condition
proc ::histogram_memory::stop_condition {text:immediate,period condition} { proc ::histogram_memory::stop_condition {condition} {
array set count_stop {immediate IMMEDIATE period AT_END_OF_PERIOD} array set count_stop {immediate IMMEDIATE period AT_END_OF_PERIOD}
hmm configure FAT_COUNT_STOP $count_stop($condition) hmm configure FAT_COUNT_STOP $count_stop($condition)
hmm init 0 hmm init 0