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

10
site_ansto/instrument/kookaburra/config/scan/scan.tcl
View File

@@ -13,17 +13,17 @@ proc filecounts_log {fname txt} {
proc thresholdscan {minVoltage maxVoltage stepVoltage minBMThreshold manBMThreshold stepBMThreshold scantime} {
# following is used to obtain an optimal BM threshold
# following is used to obtain an optimal BM threshold
set fileCounts ../log/bmcounts.log
set fileCountsDiff ../log/bmcountsdiff.log
variable curCount
set fd [open $fileCounts w]
close $fd
set fd [open $fileCountsDiff w]
close $fd
set txt ""
for {set thres $minBMThreshold} {$thres <= $manBMThreshold} {incr thres $stepBMThreshold} {
lappend txt $thres
@@ -51,8 +51,8 @@ proc thresholdscan {minVoltage maxVoltage stepVoltage minBMThreshold manBMThresh
lappend diff [expr [lindex $curCount $ind]-[lindex $curCount [expr $ind-1]]]
}
set txt "$vol : $diff"
filecounts_log $fileCountsDiff $txt
filecounts_log $fileCountsDiff $txt
}
}