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

Convert parameter values to lowercase to be consistant with the rest of SICS.

Browse Source 
r1151 | ffr | 2006-10-16 09:36:36 +1000 (Mon, 16 Oct 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-10-16 09:36:36 +10:00
committed by Douglas Clowes
parent 4f5ed50c91
commit 0587a8695f
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.2 $ # $Revision: 1.3 $
# $Date: 2006-10-09 03:02:46 $ # $Date: 2006-10-15 23:36:36 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $ # Last revision by $Author: ffr $
@@ -33,7 +33,7 @@ if {$args == ""} {clientput $usage; return}
proc params {args} { proc params {args} {
upvar 1 "" x; upvar 1 "" x;
if [info exists x] {unset x} if [info exists x] {unset x}
eval "array set x [list $args]" foreach {k v} $args {set x([string tolower $k]) $v}
} }
# Parse motor readings for virtual motor scripts. # Parse motor readings for virtual motor scripts.