epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

allow hex and octal constants

Browse Source
This commit is contained in:
Marty Kraimer
2001-07-23 14:43:36 +00:00
parent 694f21d8b9
commit 420d583db2
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/dbStatic/dbStaticLib.c
View File

@@ -2054,13 +2054,17 @@ long epicsShareAPI dbPutString(DBENTRY *pdbentry,const char *pstring)
short ppOpt = 0;
short msOpt = 0;
char *end;
double tempval;
char *enddouble;
double tempdouble;
char *endlong;
long templong;
/* Check first to see if string is a constant*/
/*It is a double if strtod eats entire string*/
/*It is a string if strtod or strtol eats entire string*/
/*leading and trailing blanks have already been stripped*/
tempval = strtod(pstr,&end);
if(*end == 0) {
tempdouble = strtod(pstr,&enddouble);
templong = strtol(pstr,&endlong,0);
if((*enddouble == 0) || (*endlong == 0)) {
if(plink->type==PV_LINK) dbCvtLinkToConstant(pdbentry);
if((!plink->value.constantStr) ||
((int)strlen(plink->value.constantStr)<(int)strlen(pstr)