EPICS_driver_modules/StreamDevice
0
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

support for lsi and lso records added

Browse Source
This commit is contained in:
zimoch
2018-06-06 15:53:29 +02:00
parent 9f6d4ab63f
commit 1d6d23b444
3 changed files with 159 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/CONFIG_STREAM
View File

@ -15,6 +15,10 @@ ifdef BASE_3_14
RECORDTYPES += calcout
endif
ifdef BASE_3_15
RECORDTYPES += lsi lso
endif
ifdef BASE_3_16
RECORDTYPES += int64in int64out
endif

78
src/devlsiStream.c Normal file
View File

@ -0,0 +1,78 @@
/***************************************************************
* Stream Device record interface for string input records *
* *
* (C) 1999 Dirk Zimoch (zimoch@delta.uni-dortmund.de) *
* (C) 2005 Dirk Zimoch (dirk.zimoch@psi.ch) *
* *
* This is an EPICS record Interface for StreamDevice. *
* Please refer to the HTML files in ../doc/ for a detailed *
* documentation. *
* *
* If you do any changes in this file, you are not allowed to *
* redistribute it any more. If there is a bug or a missing *
* feature, send me an email and/or your patch. If I accept *
* your changes, they will go to the next release. *
* *
* DISCLAIMER: If this software breaks something or harms *
* someone, it's your problem. *
* *
***************************************************************/
#include "lsiRecord.h"
#include "epicsExport.h"
#include "devStream.h"
static long readData(dbCommon *record, format_t *format)
{
lsiRecord *lsi = (lsiRecord *)record;
if (format->type == DBF_STRING)
{
long len;
if ((len = streamScanfN(record, format, lsi->val, lsi->sizv) == ERROR))
{
lsi->len = 0;
return ERROR;
}
lsi->len = len;
return OK;
}
return ERROR;
}
static long writeData(dbCommon *record, format_t *format)
{
lsiRecord *lsi = (lsiRecord *)record;
if (format->type == DBF_STRING)
{
return streamPrintf(record, format, lsi->val);
}
return ERROR;
}
static long initRecord(dbCommon *record)
{
lsiRecord *lsi = (lsiRecord *)record;
return streamInitRecord(record, &lsi->inp, readData, writeData) == ERROR ?
ERROR : OK;
}
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read;
} devlsiStream = {
5,
streamReport,
streamInit,
initRecord,
streamGetIointInfo,
streamRead
};
epicsExportAddress(dset,devlsiStream);

77
src/devlsoStream.c Normal file
View File

@ -0,0 +1,77 @@
/***************************************************************
* Stream Device record interface for string output records *
* *
* (C) 2018 Dirk Zimoch (dirk.zimoch@psi.ch) *
* *
* This is an EPICS record Interface for StreamDevice. *
* Please refer to the HTML files in ../doc/ for a detailed *
* documentation. *
* *
* If you do any changes in this file, you are not allowed to *
* redistribute it any more. If there is a bug or a missing *
* feature, send me an email and/or your patch. If I accept *
* your changes, they will go to the next release. *
* *
* DISCLAIMER: If this software breaks something or harms *
* someone, it's your problem. *
* *
***************************************************************/
#include "lsoRecord.h"
#include "epicsExport.h"
#include "devStream.h"
static long readData(dbCommon *record, format_t *format)
{
lsoRecord *lso = (lsoRecord *)record;
if (format->type == DBF_STRING)
{
long len;
if ((len = streamScanfN(record, format, lso->val, lso->sizv) == ERROR))
{
lso->len = 0;
return ERROR;
}
lso->len = len;
return OK;
}
return ERROR;
}
static long writeData(dbCommon *record, format_t *format)
{
lsoRecord *lso = (lsoRecord *)record;
if (format->type == DBF_STRING)
{
return streamPrintf(record, format, lso->val);
}
return ERROR;
}
static long initRecord(dbCommon *record)
{
lsoRecord *lso = (lsoRecord *)record;
return streamInitRecord(record, &lso->out, readData, writeData) == ERROR ?
ERROR : OK;
}
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write;
} devlsoStream = {
5,
streamReport,
streamInit,
initRecord,
streamGetIointInfo,
streamWrite
};
epicsExportAddress(dset,devlsoStream);