From 81fb796c8daae6db429557a801040c2e9b5a581c Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Wed, 26 Apr 1995 13:34:33 +0000
Subject: [PATCH] Allow record names to start with a digit.

---
 src/db/dbStaticLib.c | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/db/dbStaticLib.c b/src/db/dbStaticLib.c
index 14340b0e8..9a0dc65cb 100644
--- a/src/db/dbStaticLib.c
+++ b/src/db/dbStaticLib.c
@@ -1608,6 +1608,7 @@ char *pstring;
 	    DBLINK	*plink=(DBLINK *)pfield;
 	    char	string[80];
 	    char	*pstr=&string[0];
+	    int		ind;
 
 	    if(strlen(pstring)>=sizeof(string)) {
 	        status = S_dbLib_badField;
@@ -1617,6 +1618,11 @@ char *pstring;
 	    strcpy(pstr,pstring);
 	    /*strip off leading blanks and tabs*/
 	    while(*pstr && (*pstr==' ' || *pstr=='\t')) pstr++;
+	    /*strip off trailing blanks and tabs*/
+	    if(pstr) for(ind = strlen(pstr)-1; ind>=0; ind--) {
+		if(pstr[ind]!=' ' && pstr[ind]!='\t') break;
+		pstr[ind] = '\0';
+	    }
 	    if(!pstr || strlen(pstr)<=0 ) {
 		if(plink->type==PV_LINK) dbCvtLinkToConstant(pdbentry);
 		if(plink->type!=CONSTANT) return(S_dbLib_badField);
@@ -1628,14 +1634,15 @@ char *pstring;
 	    	    int		pp=0;
 		    int		ms=0;
 	    	    char	*end;
-		    char	chr;
+		    double	tempval;
 
 		    /* Check first to see if string is a constant*/
-		    chr = pstr[0];
-		    if(isdigit(chr) || chr=='.' || chr=='-' || chr=='+') {
+		    /*It is a double if strtod eats entire string*/
+		    /*Note that leading and trailing blanks have already been stripped*/
+		    tempval = strtod(pstr,&end);
+		    if(*end == 0) {
 			if(plink->type==PV_LINK) dbCvtLinkToConstant(pdbentry);
-			plink->value.value = strtod(pstr,&end);
-			if(*end!=0) return(S_dbLib_badField);
+			plink->value.value = tempval;
 			return(0);
 		    }
 		    if(plink->type==CONSTANT) dbCvtLinkToPvlink(pdbentry);