/* $Header: HVCAENx527/HVCAENx527App/src/HVCAENx527chLongio.c 1.13 2007/06/01 13:32:58CST Ru Igarashi (igarasr) Exp Ru Igarashi (igarasr)(2007/06/01 13:32:58CST) $
 * 
 * Copyright Canadian Light Source, Inc.  All rights reserved.
 *    - see licence.txt and licence_CAEN.txt for limitations on use.
 */
/*
 * HVCAENx527chLongio.c:
 * Long input record and long output record device support routines.
 */
#include "HVCAENx527.h"

#include <alarm.h>
#include <recGbl.h>
#include <longinRecord.h>
#include <longoutRecord.h>

/*
 * devCAENx527chLongin
 */

static long
init_record_longin( longinRecord *pior)
{
	struct instio *pinstio;
	PARPROP *pp = NULL;
	struct HVChan *hvchan;

	if( pior->inp.type != INST_IO)
	{
		errlogPrintf( "%s: longin INP field type should be INST_IO\n", pior->name);
		return( S_db_badField);
	}

	/* parse device dependent option string and set data pointer */
	pinstio = &(pior->inp.value.instio);
	if( ( pp = CAENx527ParseDevArgs( pinstio->string)) == NULL)
	{
		errlogPrintf( "%s: Invalid device parameters: \"%s\"\n", pior->name, pinstio->string);
		return(2);
	}

	if( pp->evntno > 0) 
	  sprintf( pior->evnt, "%d", pp->evntno );

	pior->dpvt = pp;
	strcpy( pp->PVname, pior->name);
	hvchan = (struct HVChan *) pp->hvchan;
	hvchan->epicsenabled = 1;
PDEBUG(10) printf( "DEBUG: set %s EVNT: %s\n", pp->pname, pior->evnt);

	return( 0);
}

static long
read_longin( longinRecord *pior)
{
#if SCAN_SERVER == 0
	void *pval;
#endif
	PARPROP *pp;
	struct HVChan *hvchan;
	struct HVCrate *hvcrate;

	pp = (PARPROP *)pior->dpvt;
	if( pp == NULL ) return (3);
	hvchan = (struct HVChan*) pp->hvchan;
	hvcrate = (struct HVCrate*) hvchan->hvcrate;
	if (hvchan->epicsenabled == 0)	return( 3);
	if (hvcrate->connected == 0) { // No connection, then report an alarm
		recGblSetSevr(pior, READ_ALARM, MAJOR_ALARM);
		return( 3);
	}

#if SCAN_SERVER == 0
	pval = CAENx527GetChParVal( pp);
	if( pval == NULL)
		return( 3);
#endif

	pior->val = (long)(pp->pval.l);
	pior->udf = FALSE;
PDEBUG(10) printf( "DEBUG: get %s = %ld\n", pp->pname, (long)(pior->val));

	return( 0);
}

struct
{
        long number;
        DEVSUPFUN       report;
        DEVSUPFUN       init;
        DEVSUPFUN       init_record;
        DEVSUPFUN       get_ioint_info;
        DEVSUPFUN       read_longin;
} devCAENx527chLongin = 
        {
                5,
                NULL,
                NULL,
                init_record_longin,
                NULL,
                read_longin
        };

/*
 * devCAENx527chLongout
 */

static long
init_record_longout( longoutRecord *pior)
{
	struct instio *pinstio;
	PARPROP *pp = NULL;
	void *pval;
	struct HVChan *hvchan;

	if( pior->out.type != INST_IO)
	{
		errlogPrintf( "%s: longout INP field type should be INST_IO\n", pior->name);
		return( S_db_badField);
	}

	/* parse device dependent option string and set data pointer */
	pinstio = &(pior->out.value.instio);
	if( ( pp = CAENx527ParseDevArgs( pinstio->string)) == NULL)
	{
		errlogPrintf( "%s: Invalid device parameters: \"%s\"\n", pior->name, pinstio->string);
		return(2);
	}

	pior->dpvt = pp;
	strcpy( pp->PVname, pior->name);

	/* Initialize the value from value in the crate */
	pval = CAENx527GetChParVal( pp);
	if( pval == NULL)
		return( 3);
	pior->val = (long)(pp->pval.l);

	hvchan = (struct HVChan *) pp->hvchan;
	hvchan->epicsenabled = 1;

	return( 0);
}

static long
write_longout( longoutRecord *pior)
{
	PARPROP *pp;
	struct HVChan *hvchan;

	pp = (PARPROP *)(pior->dpvt);
	if( pp == NULL ) return(3);
	hvchan = (struct HVChan *) pp->hvchan;
	if( hvchan->epicsenabled == 0) return (3);

	pp->pvalset.l = (long)(pior->val);
PDEBUG(10) printf( "DEBUG: put %s = %ld\n", pp->pname, (long)(pior->val));
	if( CAENx527SetChParVal( pp) != 0)
		return( 3);

	pior->udf = FALSE;

	return( 0);
}

struct
{
        long number;
        DEVSUPFUN       report;
        DEVSUPFUN       init;
        DEVSUPFUN       init_record;
        DEVSUPFUN       get_ioint_info;
        DEVSUPFUN       write_longout;
} devCAENx527chLongout =
        {
                5,
                NULL,
                NULL,
                init_record_longout,
                NULL,
                write_longout
        };
#include <epicsExport.h>
epicsExportAddress(dset,devCAENx527chLongin);
epicsExportAddress(dset,devCAENx527chLongout);

/* 
 * $Log: HVCAENx527/HVCAENx527App/src/HVCAENx527chLongio.c  $
 * Revision 1.13 2007/06/01 13:32:58CST Ru Igarashi (igarasr) 
 * Member moved from EPICS/HVCAENx527App/src/HVCAENx527chLongio.c in project e:/MKS_Home/archive/cs/epics_local/drivers/CAENx527HV/project.pj to HVCAENx527/HVCAENx527App/src/HVCAENx527chLongio.c in project e:/MKS_Home/archive/cs/epics_local/drivers/CAENx527HV/project.pj.
 */