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

Remove superfluous trailing white space from TCL files

Browse Source
This commit is contained in:
Douglas Clowes
2014-05-16 12:30:51 +10:00
parent 89e4e37f9e
commit 92d3acb5d5
230 changed files with 1835 additions and 1835 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/hipd/config/hmm/hmm_configuration.tcl
View File

@@ -10,7 +10,7 @@ proc ::histogram_memory::init_OAT_TABLE {args} {
} else {
set resolution "hires"
}
# We don't need a MAX_CHAN parameter for time because the time channel
# We don't need a MAX_CHAN parameter for time because the time channel
# is scaled by calling the ::histogram_memory::clock_scale function
OAT_TABLE X -setdata MAX_CHAN 3872
OAT_TABLE X -setdata MAX_CHAN_PERSEG 992
@@ -64,7 +64,7 @@ proc ::histogram_memory::oat_bins {axis} {
set bb0 3871.5
set bb1 [expr $bb0+$bstep]
FAT_TABLE -set MULTI_HOST_HISTO_STITCH_OVERLAP [expr abs(32.0/$bstep)]
}
}
return [list $bb0 $bb1]
} else {
return [OAT_TABLE -get $axis]
@@ -78,7 +78,7 @@ proc ::histogram_memory::oat_bins {axis} {
# @brief Returns the current number of channels for a given axis.
proc ::histogram_memory::number_of_channels {axis} {
array set channID {X NXC Y NYC T NTC}
if [ catch {
if [ catch {
if {$axis == "X"} {
set nch_perseg [OAT_TABLE -get $channID($axis)]
set overlap [FAT_TABLE -get MULTI_HOST_HISTO_STITCH_OVERLAP]

2
site_ansto/instrument/hipd/config/hmm/hmm_rapid.tcl
View File

@@ -122,7 +122,7 @@ proc histmem_acquire_period_sequence { Np Nf } {
histmem start
set dlytime [ expr int( 1000 * $Nf / 50. ) ]
# clientput "Waiting for" $dlytime "ms..."
# clientput "Waiting for" $dlytime "ms..."
after $dlytime
# clientput "tc1 reading is: " [tc1 get]

2
site_ansto/instrument/hipd/config/hmm/hmm_temp.tcl
View File

@@ -43,7 +43,7 @@ proc histmem_acquire_period_sequence { Np Nf } {
histmem start
set dlytime [ expr int( 1000 * $Nf / 50. ) ]
# clientput "Waiting for" $dlytime "ms..."
# clientput "Waiting for" $dlytime "ms..."
# after $dlytime
# clientput "tc1 reading is: " [tc1 get]