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

bug fix in finding flags. Use <begin word>-n<end word> to let -num, -nostat, -noname. -noegu pass

Browse Source
This commit is contained in:
portmann
2015-04-04 20:45:05 +00:00
parent 8645e215f5
commit ab0ecbfdf5
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ca
View File

@@ -2,12 +2,12 @@
# ca* by Dirk Zimoch
# $Source: /cvs/G/EPICS/App/scripts/ca,v $
# $Date: 2015/03/31 15:46:11 $
# $Date: 2015/04/04 20:45:05 $
regsub -all {\$} {ca* by Dirk Zimoch
$Source: /cvs/G/EPICS/App/scripts/ca,v $
$Revision: 1.27 $
$Date: 2015/03/31 15:46:11 $} {} version
$Revision: 1.28 $
$Date: 2015/04/04 20:45:05 $} {} version
package require Tclx
package require Epics
@@ -89,9 +89,7 @@ while {[string match "-*" [set flag [lindex $argv 0]]]} {
set argv [lrange $argv 2 end] }
{^-prec} { set prec [lindex $argv 1]
set argv [lrange $argv 2 end] }
{^-num} { lappend flags $flag
set argv [lrange $argv 1 end] }
{^-n} { check_n [lindex $argv 1];
{^-n$} { check_n [lindex $argv 1];
set argv [lrange $argv 2 end] }
default { check_flag $flag
set argv [lrange $argv 1 end] }