epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Allow hex and octal strings in dbPut and dbGet

Browse Source 
Setting EPICS_DB_CONVERT_DECIMAL_ONLY to YES/yes change the dbPut() and dbGet()
string to integer conversions to the original decimal only policy.
This commit is contained in:
zimoch
2025-11-05 17:11:06 +01:00
committed by GitHub
parent e08d7310b9
commit 88bfd6f378
6 changed files with 59 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
modules/database/src/ioc/db/dbConvert.c
View File

@@ -171,7 +171,7 @@ static long getStringChar(const dbAddr *paddr,
*pdst++ = 0;
else {
char *end;
long status = epicsParseInt8(psrc, pdst++, 10, &end);
long status = epicsParseInt8(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -195,7 +195,7 @@ static long getStringUchar(const dbAddr *paddr,
*pdst++ = 0;
else {
char *end;
long status = epicsParseUInt8(psrc, pdst++, 10, &end);
long status = epicsParseUInt8(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -219,7 +219,7 @@ static long getStringShort(const dbAddr *paddr,
*pdst++ = 0;
else {
char *end;
long status = epicsParseInt16(psrc, pdst++, 10, &end);
long status = epicsParseInt16(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -243,7 +243,7 @@ static long getStringUshort(const dbAddr *paddr,
*pdst++ = 0;
else {
char *end;
long status = epicsParseUInt16(psrc, pdst++, 10, &end);
long status = epicsParseUInt16(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -267,7 +267,7 @@ static long getStringLong(const dbAddr *paddr,
*pdst++ = 0;
else {
char *end;
long status = epicsParseInt32(psrc, pdst++, 10, &end);
long status = epicsParseInt32(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -291,7 +291,7 @@ static long getStringUlong(const dbAddr *paddr,
*pdst++ = 0;
else {
char *end;
long status = epicsParseUInt32(psrc, pdst, 10, &end);
long status = epicsParseUInt32(psrc, pdst, dbConvertBase, &end);
if (status == S_stdlib_noConversion ||
(!status && (*end == '.' || *end == 'e' || *end == 'E'))) {
@@ -328,7 +328,7 @@ static long getStringInt64(const dbAddr *paddr,
*pdst++ = 0;
else {
char *end;
long status = epicsParseInt64(psrc, pdst++, 10, &end);
long status = epicsParseInt64(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -946,7 +946,7 @@ static long putStringChar(dbAddr *paddr,
while (nRequest--) {
char *end;
long status = epicsParseInt8(psrc, pdst++, 10, &end);
long status = epicsParseInt8(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -965,7 +965,7 @@ static long putStringUchar(dbAddr *paddr,
while (nRequest--) {
char *end;
long status = epicsParseUInt8(psrc, pdst++, 10, &end);
long status = epicsParseUInt8(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -984,7 +984,7 @@ static long putStringShort(dbAddr *paddr,
while (nRequest--) {
char *end;
long status = epicsParseInt16(psrc, pdst++, 10, &end);
long status = epicsParseInt16(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -1003,7 +1003,7 @@ static long putStringUshort(dbAddr *paddr,
while (nRequest--) {
char *end;
long status = epicsParseUInt16(psrc, pdst++, 10, &end);
long status = epicsParseUInt16(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -1022,7 +1022,7 @@ static long putStringLong(dbAddr *paddr,
while (nRequest--) {
char *end;
long status = epicsParseInt32(psrc, pdst++, 10, &end);
long status = epicsParseInt32(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -1041,7 +1041,7 @@ static long putStringUlong(dbAddr *paddr,
while (nRequest--) {
char *end;
long status = epicsParseUInt32(psrc, pdst, 10, &end);
long status = epicsParseUInt32(psrc, pdst, dbConvertBase, &end);
if (status == S_stdlib_noConversion ||
(!status && (*end == '.' || *end == 'e' || *end == 'E'))) {
@@ -1074,7 +1074,7 @@ static long putStringInt64(dbAddr *paddr,
while (nRequest--) {
char *end;
long status = epicsParseInt64(psrc, pdst++, 10, &end);
long status = epicsParseInt64(psrc, pdst++, dbConvertBase, &end);
if (status)
return status;
@@ -1178,7 +1178,7 @@ static long putStringEnum(dbAddr *paddr,
epicsEnum16 val;
char *end;
status = epicsParseUInt16(pfrom, &val, 10, &end);
status = epicsParseUInt16(pfrom, &val, dbConvertBase, &end);
if (!status && val < enumStrs.no_str) {
*pfield = val;
return 0;
@@ -1219,7 +1219,7 @@ static long putStringMenu(dbAddr *paddr,
}
}
if (!epicsParseUInt16(pfrom, &val, 10, NULL)
if (!epicsParseUInt16(pfrom, &val, dbConvertBase, NULL)
&& val < nChoice) {
*pfield = val;
return 0;
@@ -1258,7 +1258,7 @@ static long putStringDevice(dbAddr *paddr,
}
}
if (!epicsParseUInt16(pfrom, &val, 10, NULL) && val < nChoice) {
if (!epicsParseUInt16(pfrom, &val, dbConvertBase, NULL) && val < nChoice) {
*pfield = val;
return 0;
}

20
modules/database/src/ioc/db/dbFastLinkConv.c
View File

@@ -98,7 +98,7 @@ static long cvt_st_c(const void *f, void *t, const dbAddr *paddr)
*to = 0;
return 0;
}
return epicsParseInt8(from, to, 10, &end);
return epicsParseInt8(from, to, dbConvertBase, &end);
}
/* Convert String to Unsigned Char */
@@ -112,7 +112,7 @@ static long cvt_st_uc(const void *f, void *t, const dbAddr *paddr)
*to = 0;
return 0;
}
return epicsParseUInt8(from, to, 10, &end);
return epicsParseUInt8(from, to, dbConvertBase, &end);
}
/* Convert String to Short */
@@ -126,7 +126,7 @@ static long cvt_st_s(const void *f, void *t, const dbAddr *paddr)
*to = 0;
return 0;
}
return epicsParseInt16(from, to, 10, &end);
return epicsParseInt16(from, to, dbConvertBase, &end);
}
/* Convert String to Unsigned Short */
@@ -140,7 +140,7 @@ static long cvt_st_us(const void *f, void *t, const dbAddr *paddr)
*to = 0;
return 0;
}
return epicsParseUInt16(from, to, 10, &end);
return epicsParseUInt16(from, to, dbConvertBase, &end);
}
/* Convert String to Long */
@@ -154,7 +154,7 @@ static long cvt_st_l(const void *f, void *t, const dbAddr *paddr)
*to = 0;
return 0;
}
return epicsParseInt32(from, to, 10, &end);
return epicsParseInt32(from, to, dbConvertBase, &end);
}
/* Convert String to Unsigned Long */
@@ -169,7 +169,7 @@ static long cvt_st_ul(const void *f, void *t, const dbAddr *paddr)
*to = 0;
return 0;
}
status = epicsParseUInt32(from, to, 10, &end);
status = epicsParseUInt32(from, to, dbConvertBase, &end);
if (status == S_stdlib_noConversion ||
(!status && (*end == '.' || *end == 'e' || *end == 'E'))) {
/*
@@ -198,7 +198,7 @@ static long cvt_st_q(const void *f, void *t, const dbAddr *paddr)
*to = 0;
return 0;
}
return epicsParseInt64(from, to, 10, &end);
return epicsParseInt64(from, to, dbConvertBase, &end);
}
/* Convert String to UInt64 */
@@ -269,7 +269,7 @@ static long cvt_st_e(const void *f, void *t, const dbAddr *paddr)
if (!status) {
epicsEnum16 val;
status = epicsParseUInt16(from, &val, 10, NULL);
status = epicsParseUInt16(from, &val, dbConvertBase, NULL);
if (!status && val < enumStrs.no_str) {
*to = val;
return 0;
@@ -306,7 +306,7 @@ static long cvt_st_menu(const void *f, void *t, const dbAddr *paddr)
}
}
if (!epicsParseUInt16(from, &val, 10, NULL) && val < nChoice) {
if (!epicsParseUInt16(from, &val, dbConvertBase, NULL) && val < nChoice) {
*to = val;
return 0;
}
@@ -339,7 +339,7 @@ static long cvt_st_device(const void *f, void *t, const dbAddr *paddr)
}
}
if (!epicsParseUInt16(from, &val, 10, NULL) && val < nChoice) {
if (!epicsParseUInt16(from, &val, dbConvertBase, NULL) && val < nChoice) {
*to = val;
return 0;
}

12
modules/database/src/ioc/misc/iocInit.c
View File

@@ -31,6 +31,7 @@
#include "epicsPrint.h"
#include "epicsSignal.h"
#include "epicsThread.h"
#include "epicsString.h"
#include "errMdef.h"
#include "iocsh.h"
#include "taskwd.h"
@@ -59,6 +60,7 @@
#include "devSup.h"
#include "drvSup.h"
#include "epicsRelease.h"
#include "epicsConvert.h"
#include "initHooks.h"
#include "iocInit.h"
#include "link.h"
@@ -129,6 +131,16 @@ static int iocBuild_1(void)
errlogPrintf("iocBuild: " ERL_ERROR " Aborting, bad database definition (DBD)!\n");
return -1;
}
{
/* fall back to "old" decimal-only conversion if
EPICS_DB_CONVERT_DECIMAL_ONLY is YES (case insensitive). */
const char* dec_only = getenv("EPICS_DB_CONVERT_DECIMAL_ONLY");
if (dec_only && epicsStrCaseCmp(dec_only, "YES") == 0) {
dbConvertBase = 10;
}
}
epicsSignalInstallSigHupIgnore();
initHookAnnounce(initHookAtBeginning);

2
modules/libcom/src/misc/epicsConvert.c
View File

@@ -33,3 +33,5 @@ LIBCOM_API float epicsConvertDoubleToFloat(double value)
return (float) value;
}
int dbConvertBase = 0;

6
modules/libcom/src/misc/epicsConvert.h
View File

@@ -20,6 +20,12 @@ extern "C" {
LIBCOM_API float epicsConvertDoubleToFloat(double value);
/* dbConvertBase is used in dbPut and dbGet string to integer conversions.
It defaults to 0 but is set to 10 if the EPICS_DB_CONVERT_DECIMAL_ONLY
environment variable is YES (case insensitive).
*/
LIBCOM_API extern int dbConvertBase;
#ifdef __cplusplus
}
#endif