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

fix for hex numbers

Browse Source
This commit is contained in:
zimoch
2009-05-19 10:27:45 +00:00
parent 23cd26eefa
commit 0afa694bc1
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
externalLinks
+4 -4
View File
@@ -4,8 +4,8 @@
version () {
echo '$Author: zimoch $' >&2
echo '$Date: 2008/12/22 17:11:32 $' >&2
echo '$Revision: 1.1 $' >&2
echo '$Date: 2009/05/19 10:27:45 $' >&2
echo '$Revision: 1.2 $' >&2
echo '$Source: /cvs/G/EPICS/App/scripts/externalLinks,v $' >&2
exit 1
}
@@ -382,7 +382,7 @@ function expandFile () {
value, record, field, rtype) > "/dev/stderr"
}
} else if (isinteger[rtype,field]) {
if (!match(value,/^ *[+-]?(0[xX])?[0-9]+ *$/)) {
if (!match(value,/^ *[+-]?(0[xX][0-9A-Fa-f]+|[0-9]+) *$/)) {
printf("value \"%s\" in %s.%s (%s) should be integer %d...%d\n",
value, record, field, rtype, -range[rtype,field]-1, range[rtype,field]) > "/dev/stderr"
}
@@ -391,7 +391,7 @@ function expandFile () {
value, record, field, rtype, -range[rtype,field]-1, range[rtype,field]) > "/dev/stderr"
}
} else if (isunsigned[rtype,field]) {
if (!match(value,/^ *+?(0[xX])?[0-9]+ *$/)) {
if (!match(value,/^ *+?(0[xX][0-9A-Fa-f]+|[0-9]+) *$/)) {
printf("value \"%s\" in %s.%s (%s) should be unsigned integer 0...%d\n",
value, record, field, rtype, range[rtype,field]) > "/dev/stderr"
}