epics/utilities
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-num fix

Browse Source
This commit is contained in:
laznovsky
2013-04-16 10:12:11 +00:00
parent 9e12112b4d
commit d6818a2326
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ca
View File

@@ -2,12 +2,12 @@
# ca* by Dirk Zimoch
# $Source: /cvs/G/EPICS/App/scripts/ca,v $
# $Date: 2013/04/16 10:00:17 $
# $Date: 2013/04/16 10:12:11 $
regsub -all {\$} {ca* by Dirk Zimoch
$Source: /cvs/G/EPICS/App/scripts/ca,v $
$Revision: 1.23 $
$Date: 2013/04/16 10:00:17 $} {} version
$Revision: 1.24 $
$Date: 2013/04/16 10:12:11 $} {} version
proc printHelp {} {
puts {usage: caget [flags] <channel> [<channel> ...]}
@@ -138,7 +138,7 @@ proc formatval {channel {value {}} {sevr {}} {stat {}} {time {}}} {
}
}
if {$TYPE == "DBF_ENUM" && \
([lsearch $flags "-int"] != -1 || [lsearch $flags "-hex"] != -1)} {
([lsearch $flags "-int"] != -1 || [lsearch $flags "-num"] != -1 || [lsearch $flags "-hex"] != -1)} {
set v [lsearch $ENUM $val]
if {$v != -1} {set val $v}
set TYPE "DBF_INT"