/* devAiSoft.c */
/* share/src/dev $Id$ */

/* devAiSoft.c - Device Support Routines for soft Analog Input Records*/


#include	<vxWorks.h>
#include	<types.h>
#include	<stdioLib.h>

#include	<alarm.h>
#include	<cvtTable.h>
#include	<dbDefs.h>
#include	<dbAccess.h>
#include	<devSup.h>
#include	<link.h>
#include	<aiRecord.h>

/* Create the dset for devAiSoft */
long init_record();
long read_ai();
struct {
	long		number;
	DEVSUPFUN	report;
	DEVSUPFUN	init;
	DEVSUPFUN	init_record;
	DEVSUPFUN	get_ioint_info;
	DEVSUPFUN	read_ai;
	DEVSUPFUN	special_linconv;
}devAiSoft={
	6,
	NULL,
	NULL,
	init_record,
	NULL,
	read_ai,
	NULL};


static long init_record(pai)
    struct aiRecord	*pai;
{
    char message[100];

    /* ai.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
    switch (pai->inp.type) {
    case (CONSTANT) :
	pai->val = pai->inp.value.value;
	break;
    case (PV_LINK) :
	break;
    case (DB_LINK) :
	break;
    case (CA_LINK) :
	break;
    default :
	strcpy(message,pai->name);
	strcat(message,": devAiSoft (init_record) Illegal INP field");
	errMessage(S_db_badField,message);
	return(S_db_badField);
    }
    /* Make sure record processing routine does not perform any conversion*/
    pai->linr=0;
    return(0);
}

static long read_ai(pai)
    struct aiRecord	*pai;
{
    char message[100];
    long status,options,nRequest;

    /* ai.inp must be a CONSTANT or a DB_LINK or a CA_LINK*/
    switch (pai->inp.type) {
    case (CONSTANT) :
	break;
    case (DB_LINK) :
	options=0;
	nRequest=1;
	status = dbGetLink(&(pai->inp.value.db_link),pai,DBR_DOUBLE,
		&(pai->val),&options,&nRequest);
	if(status!=0) {
		if(pai->nsev<VALID_ALARM) {
			pai->nsev = VALID_ALARM;
			pai->nsta = LINK_ALARM;
		}
	}
	break;
    case (CA_LINK) :
	break;
    default :
	if(pai->nsev<MAJOR_ALARM) {
		pai->nsev = MAJOR_ALARM;
		pai->nsta = SOFT_ALARM;
		if(pai->stat!=SOFT_ALARM) {
			strcpy(message,pai->name);
			strcat(message,": devAiSoft (read_ai) Illegal INP field");
			errMessage(S_db_badField,message);
		}
	}
    }
    return(2); /*don't convert*/
}