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

Splitreply now trims spaces.

Browse Source 
r1478 | ffr | 2007-02-13 16:21:49 +1100 (Tue, 13 Feb 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-02-13 16:21:49 +11:00
committed by Douglas Clowes
parent c9379f4258
commit 3ed95df1a5
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/utility.tcl
View File

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration. # Some useful functions for SICS configuration.
# $Revision: 1.6 $ # $Revision: 1.7 $
# $Date: 2007-02-12 01:01:02 $ # $Date: 2007-02-13 05:21:49 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $ # Last revision by $Author: ffr $
@@ -37,7 +37,7 @@ proc params {args} {
# Parse motor readings for virtual motor scripts. # Parse motor readings for virtual motor scripts.
proc SplitReply { text } { proc SplitReply { text } {
set l [split $text =] set l [split $text =]
return [lindex $l 1] return [string trim [lindex $l 1]]
} }
# Sets motor position reading to pos by adjusting the softzero # Sets motor position reading to pos by adjusting the softzero