4672 lines
120 KiB
C
4672 lines
120 KiB
C
/*************************************************************************\
|
||
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
|
||
* National Laboratory.
|
||
* Copyright (c) 2002 The Regents of the University of California, as
|
||
* Operator of Los Alamos National Laboratory.
|
||
* EPICS BASE Versions 3.13.7
|
||
* and higher are distributed subject to a Software License Agreement found
|
||
* in file LICENSE that is included with this distribution.
|
||
\*************************************************************************/
|
||
/* dbConvert.c */
|
||
/*
|
||
* Original Author: Bob Dalesio
|
||
* Current Author: Marty Kraimer
|
||
* Date: 11-7-90
|
||
*/
|
||
|
||
#include <stddef.h>
|
||
#include <epicsStdlib.h>
|
||
#include <stdarg.h>
|
||
#include <stdio.h>
|
||
#include <string.h>
|
||
#include <math.h>
|
||
#include <float.h>
|
||
|
||
#include "cvtFast.h"
|
||
#include "dbDefs.h"
|
||
#include "epicsConvert.h"
|
||
#include "errlog.h"
|
||
#include "errMdef.h"
|
||
|
||
#define epicsExportSharedSymbols
|
||
#include "dbAccessDefs.h"
|
||
#include "dbAddr.h"
|
||
#include "dbBase.h"
|
||
#include "dbConvert.h"
|
||
#include "dbFldTypes.h"
|
||
#include "dbStaticLib.h"
|
||
#include "link.h"
|
||
#include "recGbl.h"
|
||
#include "recSup.h"
|
||
|
||
/* Helper for copy as bytes with no type conversion.
|
||
* Assumes nRequest <= no_bytes
|
||
* nRequest, no_bytes, and offset should be given in bytes.
|
||
*/
|
||
static void copyNoConvert(const void *pfrom,
|
||
void *pto, long nRequest, long no_bytes, long offset)
|
||
{
|
||
const void *pfrom_offset = (const char *) pfrom + offset;
|
||
|
||
if (offset > 0 && offset < no_bytes && offset + nRequest > no_bytes) {
|
||
const size_t N = no_bytes - offset;
|
||
void *pto_N = (char *) pto + N;
|
||
|
||
/* copy with wrap */
|
||
memmove(pto, pfrom_offset, N);
|
||
memmove(pto_N, pfrom, nRequest - N);
|
||
} else {
|
||
/* no wrap, just copy */
|
||
memmove(pto, pfrom_offset, nRequest);
|
||
}
|
||
}
|
||
#define COPYNOCONVERT(N, FROM, TO, NREQ, NO_ELEM, OFFSET) \
|
||
copyNoConvert(FROM, TO, (N)*(NREQ), (N)*(NO_ELEM), (N)*(OFFSET))
|
||
|
||
/* DATABASE ACCESS GET CONVERSION SUPPORT */
|
||
|
||
static long getStringString (
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
char *psrc = paddr->pfield;
|
||
short size = paddr->field_size;
|
||
short sizeto;
|
||
|
||
/* always force result string to be null terminated*/
|
||
sizeto = size;
|
||
if (sizeto>=MAX_STRING_SIZE) sizeto = MAX_STRING_SIZE-1;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
strncpy(pbuffer,psrc,sizeto);
|
||
pbuffer[sizeto] = 0;
|
||
return 0;
|
||
}
|
||
psrc+= (size*offset);
|
||
while (nRequest) {
|
||
strncpy(pbuffer,psrc,sizeto);
|
||
pbuffer[sizeto] = 0;
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(psrc,"%hd",&value) == 1) {
|
||
*pbuffer = (char)value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (sscanf(psrc,"%hd",&value) == 1) {
|
||
*pbuffer = (char)value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
unsigned short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(psrc,"%hu",&value) == 1) {
|
||
*pbuffer = (epicsUInt8)value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (sscanf(psrc,"%hu",&value) == 1) {
|
||
*pbuffer = (epicsUInt8)value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(psrc,"%hd",&value) == 1) {
|
||
*pbuffer = value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (sscanf(psrc,"%hd",&value) == 1) {
|
||
*pbuffer = value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
unsigned short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(psrc,"%hu",&value) == 1) {
|
||
*pbuffer = value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (sscanf(psrc,"%hu",&value) == 1) {
|
||
*pbuffer = value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
epicsInt32 value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(psrc,"%d",&value) == 1) {
|
||
*pbuffer = value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (sscanf(psrc,"%d",&value) == 1) {
|
||
*pbuffer = value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
double value;
|
||
|
||
/*Convert to double first so that numbers like 1.0e3 convert properly*/
|
||
/*Problem was old database access said to get unsigned long as double*/
|
||
if (nRequest==1 && offset==0) {
|
||
if (epicsScanDouble(psrc, &value) == 1) {
|
||
*pbuffer = (epicsUInt32)value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (epicsScanDouble(psrc, &value) == 1) {
|
||
*pbuffer = (epicsUInt32)value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
float value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (epicsScanFloat(psrc, &value) == 1) {
|
||
*pbuffer = value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (epicsScanFloat(psrc, &value) == 1) {
|
||
*pbuffer = value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
double value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (epicsScanDouble(psrc, &value) == 1) {
|
||
*pbuffer = value;
|
||
return 0;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0.0;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
psrc += MAX_STRING_SIZE*offset;
|
||
while (nRequest) {
|
||
if (epicsScanDouble(psrc, &value) == 1) {
|
||
*pbuffer = value;
|
||
} else if (strlen(psrc) == 0) {
|
||
*pbuffer = 0.0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
psrc = paddr->pfield;
|
||
else
|
||
psrc += MAX_STRING_SIZE;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getStringEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
return(getStringUshort(paddr,pto,nRequest,no_elements,offset));
|
||
}
|
||
|
||
static long getCharString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtCharToString(*psrc,pbuffer);
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtCharToString(*psrc,pbuffer);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getCharChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (paddr->pfldDes && paddr->pfldDes->field_type == DBF_STRING) {
|
||
/* This is a DBF_STRING field being read as a long string.
|
||
* The buffer we return must be zero-terminated.
|
||
*/
|
||
pbuffer[--nRequest] = 0;
|
||
if (nRequest == 0) return 0;
|
||
}
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(char), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getCharUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (paddr->pfldDes && paddr->pfldDes->field_type == DBF_STRING) {
|
||
/* This is a DBF_STRING field being read as a long string.
|
||
* The buffer we return must be zero-terminated.
|
||
*/
|
||
pbuffer[--nRequest] = 0;
|
||
if (nRequest == 0) return 0;
|
||
}
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(char), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getCharShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getCharUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getCharLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getCharUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getCharFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getCharDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getCharEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
char *psrc = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtUcharToString(*psrc,pbuffer);
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtUcharToString(*psrc,pbuffer);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
char *pbuffer = (char *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt8), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt8), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUcharEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
epicsUInt8 *psrc = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtShortToString(*psrc,pbuffer);
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtShortToString(*psrc,pbuffer);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (char)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (char)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt8)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt8)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt16), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getShortUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt16), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getShortLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getShortEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
epicsInt16 *psrc = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtUshortToString(*psrc,pbuffer);
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtUshortToString(*psrc,pbuffer);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (char)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (char)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt8)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt8)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
static long getUshortShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt16), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt16), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUshortEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
epicsUInt16 *psrc = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtLongToString(*psrc,pbuffer);
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtLongToString(*psrc,pbuffer);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt32), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getLongUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt32), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getLongFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (float)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (float)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getLongEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
epicsInt32 *psrc = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtUlongToString(*psrc,pbuffer);
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtUlongToString(*psrc,pbuffer);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt32), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt32), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (float)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (float)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getUlongEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
epicsUInt32 *psrc = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
long status = 0;
|
||
long precision = 6;
|
||
rset *prset = 0;
|
||
|
||
if (paddr) prset = dbGetRset(paddr);
|
||
if (prset && (prset->get_precision))
|
||
status = (*prset->get_precision)(paddr,&precision);
|
||
if (nRequest==1 && offset==0) {
|
||
cvtFloatToString(*psrc,pbuffer,precision);
|
||
return(status);
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtFloatToString(*psrc,pbuffer,precision);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return(status);
|
||
}
|
||
|
||
static long getFloatChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (char)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (char)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt8)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt8)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsInt16)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsInt16)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt16)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt16)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsInt32)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsInt32)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt32)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt32)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
float *pbuffer = (float *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(float), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getFloatEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
float *psrc = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsEnum16)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsEnum16)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
long status = 0;
|
||
long precision = 6;
|
||
rset *prset = 0;
|
||
|
||
if (paddr) prset = dbGetRset(paddr);
|
||
if (prset && (prset->get_precision))
|
||
status = (*prset->get_precision)(paddr,&precision);
|
||
if (nRequest==1 && offset==0) {
|
||
cvtDoubleToString(*psrc,pbuffer,precision);
|
||
return(status);
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
cvtDoubleToString(*psrc,pbuffer,precision);
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
else
|
||
psrc++;
|
||
nRequest--;
|
||
}
|
||
return(status);
|
||
}
|
||
|
||
static long getDoubleChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (char)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (char)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt8)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt8)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsInt16)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsInt16)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt16)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt16)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsInt32)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsInt32)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt32)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt32)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = epicsConvertDoubleToFloat(*psrc);
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer = epicsConvertDoubleToFloat(*psrc);
|
||
++psrc; ++pbuffer;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
double *pbuffer = (double *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(double), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getDoubleEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
double *psrc = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsEnum16)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsEnum16)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
rset *prset;
|
||
long status;
|
||
|
||
if ((prset=dbGetRset(paddr)) && (prset->get_enum_str))
|
||
return( (*prset->get_enum_str)(paddr,pbuffer) );
|
||
status=S_db_noRSET;
|
||
recGblRecSupError(status,paddr,"dbGet","get_enum_str");
|
||
return(S_db_badDbrtype);
|
||
}
|
||
|
||
static long getEnumChar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (char)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (char)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumUchar(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt8 *pbuffer = (epicsUInt8 *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = (epicsUInt8)*psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = (epicsUInt8)*psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumShort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt16 *pbuffer = (epicsInt16 *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumUshort(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt16 *pbuffer = (epicsUInt16 *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumLong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsInt32 *pbuffer = (epicsInt32 *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumUlong(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
epicsUInt32 *pbuffer = (epicsUInt32 *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumFloat(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
float *pbuffer = (float *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumDouble(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
double *pbuffer = (double *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
psrc += offset;
|
||
while (nRequest) {
|
||
*pbuffer++ = *psrc++;
|
||
if (++offset == no_elements)
|
||
psrc = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long getEnumEnum(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
epicsEnum16 *pbuffer = (epicsEnum16 *) pto;
|
||
epicsEnum16 *psrc = (epicsEnum16 *) paddr->pfield;
|
||
|
||
*pbuffer = *psrc;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsEnum16), paddr->pfield, pto, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long getMenuString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
dbFldDes *pdbFldDes = paddr->pfldDes;
|
||
dbMenu *pdbMenu;
|
||
char **papChoiceValue;
|
||
char *pchoice;
|
||
epicsEnum16 choice_ind= *((epicsEnum16*) paddr->pfield);
|
||
|
||
if (no_elements!=1){
|
||
recGblDbaddrError(S_db_onlyOne,paddr,"dbGet(getMenuString)");
|
||
return(S_db_onlyOne);
|
||
}
|
||
if (!pdbFldDes
|
||
|| !(pdbMenu = (dbMenu *)pdbFldDes->ftPvt)
|
||
|| (choice_ind>=pdbMenu->nChoice)
|
||
|| !(papChoiceValue = pdbMenu->papChoiceValue)
|
||
|| !(pchoice=papChoiceValue[choice_ind])) {
|
||
recGblDbaddrError(S_db_badChoice,paddr,"dbGet(getMenuString)");
|
||
return(S_db_badChoice);
|
||
}
|
||
strncpy(pbuffer,pchoice,MAX_STRING_SIZE);
|
||
return 0;
|
||
}
|
||
|
||
static long getDeviceString(
|
||
const dbAddr *paddr,
|
||
void *pto, long nRequest, long no_elements, long offset)
|
||
{
|
||
char *pbuffer = (char *) pto;
|
||
dbFldDes *pdbFldDes = paddr->pfldDes;
|
||
dbDeviceMenu *pdbDeviceMenu;
|
||
char **papChoice;
|
||
char *pchoice;
|
||
epicsEnum16 choice_ind= *((epicsEnum16*) paddr->pfield);
|
||
|
||
if (no_elements!=1){
|
||
recGblDbaddrError(S_db_onlyOne,paddr,"dbGet(getDeviceString)");
|
||
return(S_db_onlyOne);
|
||
}
|
||
if (!pdbFldDes
|
||
|| !(pdbDeviceMenu = (dbDeviceMenu *)pdbFldDes->ftPvt)
|
||
|| (choice_ind>=pdbDeviceMenu->nChoice )
|
||
|| !(papChoice = pdbDeviceMenu->papChoice)
|
||
|| !(pchoice=papChoice[choice_ind])) {
|
||
recGblDbaddrError(S_db_badChoice,paddr,"dbGet(getDeviceString)");
|
||
return(S_db_badChoice);
|
||
}
|
||
strncpy(pbuffer,pchoice,MAX_STRING_SIZE);
|
||
return 0;
|
||
}
|
||
|
||
/* DATABASE ACCESS PUT CONVERSION SUPPORT */
|
||
|
||
static long putStringString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
char *pdest = paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
strncpy(pdest,pbuffer,size);
|
||
*(pdest+size-1) = 0;
|
||
return 0;
|
||
}
|
||
pdest+= (size*offset);
|
||
while (nRequest) {
|
||
strncpy(pdest,pbuffer,size);
|
||
*(pdest+size-1) = 0;
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(pbuffer,"%hd",&value) == 1) {
|
||
*pdest = (char)value;
|
||
return 0;
|
||
}
|
||
else return(-1);
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (sscanf(pbuffer,"%hd",&value) == 1) {
|
||
*pdest = (char)value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
unsigned short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(pbuffer,"%hu",&value) == 1) {
|
||
*pdest = (epicsUInt8)value;
|
||
return 0;
|
||
}
|
||
else return(-1);
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (sscanf(pbuffer,"%hu",&value) == 1) {
|
||
*pdest = (epicsUInt8)value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(pbuffer,"%hd",&value) == 1) {
|
||
*pdest = value;
|
||
return 0;
|
||
}
|
||
else return(-1);
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (sscanf(pbuffer,"%hd",&value) == 1) {
|
||
*pdest = value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
unsigned short value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(pbuffer,"%hu",&value) == 1) {
|
||
*pdest = value;
|
||
return 0;
|
||
}
|
||
else return(-1);
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (sscanf(pbuffer,"%hu",&value) == 1) {
|
||
*pdest = value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
long value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (sscanf(pbuffer,"%ld",&value) == 1) {
|
||
*pdest = value;
|
||
return 0;
|
||
}
|
||
else return(-1);
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (sscanf(pbuffer,"%ld",&value) == 1) {
|
||
*pdest = value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
double value;
|
||
|
||
/*Convert to double first so that numbers like 1.0e3 convert properly*/
|
||
/*Problem was old database access said to get unsigned long as double*/
|
||
if (nRequest==1 && offset==0) {
|
||
if (epicsScanDouble(pbuffer, &value) == 1) {
|
||
*pdest = (epicsUInt32)value;
|
||
return 0;
|
||
}
|
||
else return(-1);
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (epicsScanDouble(pbuffer, &value) == 1) {
|
||
*pdest = (epicsUInt32)value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
float value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (epicsScanFloat(pbuffer, &value) == 1) {
|
||
*pdest = value;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (epicsScanFloat(pbuffer, &value) == 1) {
|
||
*pdest = value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
double value;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
if (epicsScanDouble(pbuffer, &value) == 1) {
|
||
*pdest = value;
|
||
return 0;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
if (epicsScanDouble(pbuffer, &value) == 1) {
|
||
*pdest = value;
|
||
} else {
|
||
return(-1);
|
||
}
|
||
pbuffer += MAX_STRING_SIZE;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest++;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putStringEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
rset *prset;
|
||
epicsEnum16 *pfield = (epicsEnum16*) paddr->pfield;
|
||
long status;
|
||
unsigned int nchoices,ind;
|
||
int nargs,nchars;
|
||
struct dbr_enumStrs enumStrs;
|
||
|
||
if ((prset=dbGetRset(paddr))
|
||
&& (prset->put_enum_str)) {
|
||
status = (*prset->put_enum_str)(paddr,pbuffer);
|
||
if (!status) return 0;
|
||
if (prset->get_enum_strs) {
|
||
status = (*prset->get_enum_strs)(paddr,&enumStrs);
|
||
if (!status) {
|
||
nchoices = enumStrs.no_str;
|
||
nargs = sscanf(pbuffer,"%u%n",&ind,&nchars);
|
||
if (nargs==1 && nchars==strlen(pbuffer) && ind<nchoices) {
|
||
*pfield = ind;
|
||
return 0;
|
||
}
|
||
status = S_db_badChoice;
|
||
}
|
||
}else {
|
||
status=S_db_noRSET;
|
||
}
|
||
} else {
|
||
status=S_db_noRSET;
|
||
}
|
||
if (status == S_db_noRSET) {
|
||
recGblRecSupError(status,paddr,"dbPutField","put_enum_str");
|
||
} else {
|
||
recGblRecordError(status,(void *) paddr->precord,pbuffer);
|
||
}
|
||
return(status);
|
||
}
|
||
|
||
static long putStringMenu(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
dbFldDes *pdbFldDes = paddr->pfldDes;
|
||
dbMenu *pdbMenu;
|
||
char **papChoiceValue;
|
||
char *pchoice;
|
||
epicsEnum16 *pfield = (epicsEnum16*) paddr->pfield;
|
||
unsigned int nChoice,ind;
|
||
int nargs,nchars;
|
||
|
||
if (no_elements!=1){
|
||
recGblDbaddrError(S_db_onlyOne,paddr,"dbPut(putStringMenu)");
|
||
return(S_db_onlyOne);
|
||
}
|
||
if (pdbFldDes
|
||
&& (pdbMenu = (dbMenu *)pdbFldDes->ftPvt)
|
||
&& (papChoiceValue = pdbMenu->papChoiceValue)) {
|
||
nChoice = pdbMenu->nChoice;
|
||
for(ind=0; ind<nChoice; ind++) {
|
||
if (!(pchoice=papChoiceValue[ind])) continue;
|
||
if (strcmp(pchoice,pbuffer)==0) {
|
||
*pfield = ind;
|
||
return 0;
|
||
}
|
||
}
|
||
nargs = sscanf(pbuffer,"%u%n",&ind,&nchars);
|
||
if (nargs==1 && nchars==strlen(pbuffer) && ind<nChoice) {
|
||
*pfield = ind;
|
||
return 0;
|
||
}
|
||
}
|
||
recGblDbaddrError(S_db_badChoice,paddr,"dbPut(putStringMenu)");
|
||
return(S_db_badChoice);
|
||
}
|
||
|
||
static long putStringDevice(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
dbFldDes *pdbFldDes = paddr->pfldDes;
|
||
dbDeviceMenu *pdbDeviceMenu = (dbDeviceMenu *)pdbFldDes->ftPvt;
|
||
char **papChoice;
|
||
char *pchoice;
|
||
epicsEnum16 *pfield = (epicsEnum16*) paddr->pfield;
|
||
unsigned int nChoice,ind;
|
||
int nargs,nchars;
|
||
|
||
if (no_elements!=1){
|
||
recGblDbaddrError(S_db_onlyOne,paddr,"dbPut(putStringDevice)");
|
||
return(S_db_onlyOne);
|
||
}
|
||
if (pdbFldDes
|
||
&& (pdbDeviceMenu = (dbDeviceMenu *)pdbFldDes->ftPvt)
|
||
&& (papChoice = pdbDeviceMenu->papChoice)) {
|
||
nChoice = pdbDeviceMenu->nChoice;
|
||
for(ind=0; ind<nChoice; ind++) {
|
||
if (!(pchoice=papChoice[ind])) continue;
|
||
if (strcmp(pchoice,pbuffer)==0) {
|
||
*pfield = ind;
|
||
return 0;
|
||
}
|
||
}
|
||
nargs = sscanf(pbuffer,"%u%n",&ind,&nchars);
|
||
if (nargs==1 && nchars==strlen(pbuffer) && ind<nChoice) {
|
||
*pfield = ind;
|
||
return 0;
|
||
}
|
||
}
|
||
recGblDbaddrError(S_db_badChoice,paddr,"dbPut(putStringDevice)");
|
||
return(S_db_badChoice);
|
||
}
|
||
|
||
static long putCharString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtCharToString(*pbuffer,pdest);
|
||
return 0;
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtCharToString(*pbuffer,pdest);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putCharChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const char *pbuffer = (const char *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(char), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putCharUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt8), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putCharShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putCharUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putCharLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putCharUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putCharFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putCharDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putCharEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const char *pbuffer = (const char *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtUcharToString(*pbuffer,pdest);
|
||
return 0;
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtUcharToString(*pbuffer,pdest);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt8), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt8), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUcharEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt8 *pbuffer = (const epicsUInt8 *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtShortToString(*pbuffer,pdest);
|
||
return 0;
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtShortToString(*pbuffer,pdest);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (char) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (char) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt8) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt8) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt16), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putShortUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt16), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putShortLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putShortEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt16 *pbuffer = (const epicsInt16 *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtUshortToString(*pbuffer,pdest);
|
||
return 0;
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtUshortToString(*pbuffer,pdest);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (char) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (char) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt8) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt8) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt16), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt16), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUshortEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt16 *pbuffer = (const epicsUInt16 *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtLongToString(*pbuffer,pdest);
|
||
return 0;
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtLongToString(*pbuffer,pdest);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt32), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putLongUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsInt32), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putLongFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (float) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (float) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putLongEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsInt32 *pbuffer = (const epicsInt32 *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtUlongToString(*pbuffer,pdest);
|
||
return 0;
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtUlongToString(*pbuffer,pdest);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt32), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsUInt32), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (float) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (float) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putUlongEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsUInt32 *pbuffer = (const epicsUInt32 *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
long status = 0;
|
||
long precision = 6;
|
||
rset *prset = dbGetRset(paddr);
|
||
short size = paddr->field_size;
|
||
|
||
if (prset && (prset->get_precision))
|
||
status = (*prset->get_precision)(paddr,&precision);
|
||
if (nRequest==1 && offset==0) {
|
||
cvtFloatToString(*pbuffer,pdest,precision);
|
||
return(status);
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtFloatToString(*pbuffer,pdest,precision);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return(status);
|
||
}
|
||
|
||
static long putFloatChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (char) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (char) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt8) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt8) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsInt16) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsInt16) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt16) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt16) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsInt32) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsInt32) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt32) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt32) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const float *pbuffer = (const float *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(float), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putFloatEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const float *pbuffer = (const float *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsEnum16) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsEnum16) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
long status = 0;
|
||
long precision = 6;
|
||
rset *prset = dbGetRset(paddr);
|
||
short size = paddr->field_size;
|
||
|
||
if (prset && (prset->get_precision))
|
||
status = (*prset->get_precision)(paddr,&precision);
|
||
if (nRequest==1 && offset==0) {
|
||
cvtDoubleToString(*pbuffer,pdest,precision);
|
||
return(status);
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtDoubleToString(*pbuffer,pdest,precision);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return(status);
|
||
}
|
||
|
||
static long putDoubleChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (char) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (char) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt8) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt8) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsInt16) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsInt16) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt16) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt16) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsInt32) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsInt32) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt32) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt32) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = epicsConvertDoubleToFloat(*pbuffer);
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest = epicsConvertDoubleToFloat(*pbuffer);
|
||
++pbuffer; ++pdest;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const double *pbuffer = (const double *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(double), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
static long putDoubleEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const double *pbuffer = (const double *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsEnum16) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsEnum16) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsEnum16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumString(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
short size = paddr->field_size;
|
||
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
cvtUshortToString(*pbuffer,pdest);
|
||
return 0;
|
||
}
|
||
pdest += (size*offset);
|
||
while (nRequest) {
|
||
cvtUshortToString(*pbuffer,pdest);
|
||
pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
else
|
||
pdest += size;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumChar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
char *pdest = (char *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (char) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (char) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (char *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumUchar(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
epicsUInt8 *pdest = (epicsUInt8 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = (epicsUInt8) *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = (epicsUInt8) *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt8 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumShort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
epicsInt16 *pdest = (epicsInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumUshort(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
epicsUInt16 *pdest = (epicsUInt16 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt16 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumLong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
epicsInt32 *pdest = (epicsInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumUlong(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
epicsUInt32 *pdest = (epicsUInt32 *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (epicsUInt32 *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumFloat(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
float *pdest = (float *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (float *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumDouble(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
double *pdest = (double *) paddr->pfield;
|
||
|
||
if (nRequest==1 && offset==0) {
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
pdest += offset;
|
||
while (nRequest) {
|
||
*pdest++ = *pbuffer++;
|
||
if (++offset == no_elements)
|
||
pdest = (double *) paddr->pfield;
|
||
nRequest--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static long putEnumEnum(
|
||
dbAddr *paddr,
|
||
const void *pfrom, long nRequest, long no_elements, long offset)
|
||
{
|
||
if (nRequest==1 && offset==0) {
|
||
const epicsEnum16 *pbuffer = (const epicsEnum16 *) pfrom;
|
||
epicsEnum16 *pdest = (epicsEnum16 *) paddr->pfield;
|
||
|
||
*pdest = *pbuffer;
|
||
return 0;
|
||
}
|
||
COPYNOCONVERT(sizeof(epicsEnum16), pfrom, paddr->pfield, nRequest, no_elements, offset);
|
||
return 0;
|
||
}
|
||
|
||
/* This is the table of routines for converting database fields */
|
||
/* the rows represent the field type of the database field */
|
||
/* the columns represent the types of the buffer in which they are placed */
|
||
|
||
/* buffer types are********************************************************
|
||
DBR_STRING, DBR_CHR, DBR_UCHAR, DBR_SHORT, DBR_USHORT,
|
||
DBR_LONG, DBR_ULONG, DBR_FLOAT, DBR_DOUBLE, DBR_ENUM
|
||
***************************************************************************/
|
||
|
||
epicsShareDef GETCONVERTFUNC dbGetConvertRoutine[DBF_DEVICE+1][DBR_ENUM+1] = {
|
||
|
||
/* source is a DBF_STRING */
|
||
{getStringString, getStringChar, getStringUchar, getStringShort, getStringUshort,
|
||
getStringLong, getStringUlong, getStringFloat, getStringDouble, getStringEnum},
|
||
/* source is a DBF_CHAR */
|
||
{getCharString, getCharChar, getCharUchar, getCharShort, getCharUshort,
|
||
getCharLong, getCharUlong, getCharFloat, getCharDouble, getCharEnum},
|
||
/* source is a DBF_UCHAR */
|
||
{getUcharString, getUcharChar, getUcharUchar, getUcharShort, getUcharUshort,
|
||
getUcharLong, getUcharUlong, getUcharFloat, getUcharDouble, getUcharEnum},
|
||
/* source is a DBF_SHORT */
|
||
{getShortString, getShortChar, getShortUchar, getShortShort, getShortUshort,
|
||
getShortLong, getShortUlong, getShortFloat, getShortDouble, getShortEnum},
|
||
/* source is a DBF_USHORT */
|
||
{getUshortString, getUshortChar, getUshortUchar, getUshortShort, getUshortUshort,
|
||
getUshortLong, getUshortUlong, getUshortFloat, getUshortDouble, getUshortEnum},
|
||
/* source is a DBF_LONG */
|
||
{getLongString, getLongChar, getLongUchar, getLongShort, getLongUshort,
|
||
getLongLong, getLongUlong, getLongFloat, getLongDouble, getLongEnum},
|
||
/* source is a DBF_ULONG */
|
||
{getUlongString, getUlongChar, getUlongUchar, getUlongShort, getUlongUshort,
|
||
getUlongLong, getUlongUlong, getUlongFloat, getUlongDouble, getUlongEnum},
|
||
/* source is a DBF_FLOAT */
|
||
{getFloatString, getFloatChar, getFloatUchar, getFloatShort, getFloatUshort,
|
||
getFloatLong, getFloatUlong, getFloatFloat, getFloatDouble, getFloatEnum},
|
||
/* source is a DBF_DOUBLE */
|
||
{getDoubleString, getDoubleChar, getDoubleUchar, getDoubleShort, getDoubleUshort,
|
||
getDoubleLong, getDoubleUlong, getDoubleFloat, getDoubleDouble, getDoubleEnum},
|
||
/* source is a DBF_ENUM */
|
||
{getEnumString, getEnumChar, getEnumUchar, getEnumShort, getEnumUshort,
|
||
getEnumLong, getEnumUlong, getEnumFloat, getEnumDouble, getEnumEnum},
|
||
/* source is a DBF_MENU */
|
||
{getMenuString, getEnumChar, getEnumUchar, getEnumShort, getEnumUshort,
|
||
getEnumLong, getEnumUlong, getEnumFloat, getEnumDouble, getEnumEnum},
|
||
/* source is a DBF_DEVICE */
|
||
{getDeviceString,getEnumChar, getEnumUchar, getEnumShort, getEnumUshort,
|
||
getEnumLong, getEnumUlong, getEnumFloat, getEnumDouble, getEnumEnum},
|
||
};
|
||
|
||
/* This is the table of routines for converting database fields */
|
||
/* the rows represent the buffer types */
|
||
/* the columns represent the field types */
|
||
|
||
/* field types are********************************************************
|
||
DBF_STRING, DBF_CHAR, DBF_UCHAR, DBF_SHORT, DBF_USHORT,
|
||
DBF_LONG, DBF_ULONG, DBF_FLOAT, DBF_DOUBLE, DBF_ENUM
|
||
DBF_MENU, DBF_DEVICE
|
||
***************************************************************************/
|
||
|
||
epicsShareDef PUTCONVERTFUNC dbPutConvertRoutine[DBR_ENUM+1][DBF_DEVICE+1] = {
|
||
/* source is a DBR_STRING */
|
||
{putStringString, putStringChar, putStringUchar, putStringShort, putStringUshort,
|
||
putStringLong, putStringUlong, putStringFloat, putStringDouble, putStringEnum,
|
||
putStringMenu,putStringDevice},
|
||
/* source is a DBR_CHAR */
|
||
{putCharString, putCharChar, putCharUchar, putCharShort, putCharUshort,
|
||
putCharLong, putCharUlong, putCharFloat, putCharDouble, putCharEnum,
|
||
putCharEnum, putCharEnum},
|
||
/* source is a DBR_UCHAR */
|
||
{putUcharString, putUcharChar, putUcharUchar, putUcharShort, putUcharUshort,
|
||
putUcharLong, putUcharUlong, putUcharFloat, putUcharDouble, putUcharEnum,
|
||
putUcharEnum, putUcharEnum},
|
||
/* source is a DBR_SHORT */
|
||
{putShortString, putShortChar, putShortUchar, putShortShort, putShortUshort,
|
||
putShortLong, putShortUlong, putShortFloat, putShortDouble, putShortEnum,
|
||
putShortEnum, putShortEnum},
|
||
/* source is a DBR_USHORT */
|
||
{putUshortString, putUshortChar, putUshortUchar, putUshortShort, putUshortUshort,
|
||
putUshortLong, putUshortUlong, putUshortFloat, putUshortDouble, putUshortEnum,
|
||
putUshortEnum, putUshortEnum},
|
||
/* source is a DBR_LONG */
|
||
{putLongString, putLongChar, putLongUchar, putLongShort, putLongUshort,
|
||
putLongLong, putLongUlong, putLongFloat, putLongDouble, putLongEnum,
|
||
putLongEnum, putLongEnum},
|
||
/* source is a DBR_ULONG */
|
||
{putUlongString, putUlongChar, putUlongUchar, putUlongShort, putUlongUshort,
|
||
putUlongLong, putUlongUlong, putUlongFloat, putUlongDouble, putUlongEnum,
|
||
putUlongEnum, putUlongEnum},
|
||
/* source is a DBR_FLOAT */
|
||
{putFloatString, putFloatChar, putFloatUchar, putFloatShort, putFloatUshort,
|
||
putFloatLong, putFloatUlong, putFloatFloat, putFloatDouble, putFloatEnum,
|
||
putFloatEnum, putFloatEnum},
|
||
/* source is a DBR_DOUBLE */
|
||
{putDoubleString, putDoubleChar, putDoubleUchar, putDoubleShort, putDoubleUshort,
|
||
putDoubleLong, putDoubleUlong, putDoubleFloat, putDoubleDouble, putDoubleEnum,
|
||
putDoubleEnum, putDoubleEnum},
|
||
/* source is a DBR_ENUM */
|
||
{putEnumString, putEnumChar, putEnumUchar, putEnumShort, putEnumUshort,
|
||
putEnumLong, putEnumUlong, putEnumFloat, putEnumDouble, putEnumEnum,
|
||
putEnumEnum, putEnumEnum}
|
||
};
|