Experimental Physics and
Industrial Control System

priya tiwari <[email protected]> · Mon, 2 Feb 2015 10:35:44 +0530

#include <stdio.h>
#include <stddef.h>
#include <string.h>

#include "alarm.h"
#include "cvtTable.h"
#include "dbDefs.h"
#include "dbAccess.h"
#include "recGbl.h"
#include "recSup.h"
#include "devSup.h"
#include "link.h"
#include "aiRecord.h"
#include "epicsExport.h"

static long init();
static long init_record();
static long read_ai();

char buf[100];

struct {
 long       number;
 DEVSUPFUN  report;
 DEVSUPFUN  init;
 DEVSUPFUN  init_record;
 DEVSUPFUN  get_ioint_info;
 DEVSUPFUN  read_ai;
 DEVSUPFUN  special_linconv;
}devaiVal={
      6,
      NULL,
      init,
      init_record,
      NULL,
      read_ai,
      NULL};
epicsExportAddress(dset,devaiVal);

static long init()
{

return(2);
}

static long init_record(precord)
struct aiRecord *precord;
{
 switch (precord->inp.type) {
    case (CONSTANT) :
	return(0);
	break;
    case (PV_LINK) :
    case (DB_LINK) : 
    case (CA_LINK) :
    break;
    default :
	recGblRecordError(S_db_badField,(void *)precord,
		"devWfSoft (init_record) Illegal INP field");
	return(S_db_badField);
    }
return(2);
}

static long read_ai(precord) 
struct aiRecord *precord;
{
char myptr[100];
int e;
DBADDR *dbaddr;
precord->VAL=3;
e=precord->VAL;
dbaddr= dbGetPdbAddrFromLink(precord->inp);
dbPut(dbaddr,precord->DOUBLE,(void *)myptr,&e);
//printf("value=",e);
return(2);
}

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System