/** @brief device support adcPi
 *
 */
#include <stdio.h>
#include <stdlib.h>
#include <devSup.h>
#include <recGbl.h>
#include <alarm.h>
#include <errlog.h>
#include <aiRecord.h>
#include <epicsExport.h>
#include "drvAdcPi.h"

typedef struct {
	adcPiCard* card;
	int signal;
} adcPiAiPrivate;

long adcPiInitRecordAi (aiRecord *record);
long adcPiReadAi (aiRecord *record);
long adcPiSpecialLinconvAi (aiRecord *record, int after);

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

/** @brief init record
 *
 */
long adcPiInitRecordAi (aiRecord *record)
{
	adcPiAiPrivate *priv;
	epicsUInt16 initval;
	adcPiCard* card;
	int signal;
	
	if (record->inp.type != VME_IO) {
		errlogSevPrintf (errlogFatal, "adcPiInitRecordAi %s: illegal INP link type\n", record->name);
		return -1;
	}
	
	card = adcPiOpen (record->inp.value.vmeio.card);
	if (!card) {
		errlogSevPrintf (errlogFatal, "adcPiInitRecordAi %s: invalid card number %d\n", record->name, record->inp.value.vmeio.card);
		return S_dev_noDevice;
	}
	
	signal = record->inp.value.vmeio.signal;
	if (signal < 0 || signal >= ADC_PI_MAX_CHANNEL) {
		errlogSevPrintf (errlogFatal, "adcPiInitRecordAi %s: invalid signal number %d\n", record->name, signal);
		return S_dev_badSignalNumber;
	}
	
	priv = (adcPiAiPrivate*) malloc (sizeof (adcPiAiPrivate));
	if (!priv) {
		errlogSevPrintf (errlogFatal, "adcPiInitRecordAi %s: out of memory\n", record->name);
		return S_dev_noMemory;
	}
	
	priv->card = card;
	priv->signal = signal;
	record->dpvt = priv;
	
	// printf(" priv at @%p [%d]\n", priv, sizeof (adcPiAiPrivate) );
	
	adcPiSpecialLinconvAi (record, TRUE);
	adcPiGet (card, signal, &initval);
	
	record->rval = initval;
	return 0;
}

long adcPiReadAi (aiRecord *record)
{
	adcPiAiPrivate *priv = (adcPiAiPrivate*) record->dpvt;
	int status;
	
	// printf("ReadAi:  priv at @%p [%d]\n", priv, sizeof (adcPiAiPrivate) );
	
	if (!priv) {
		recGblSetSevr (record, UDF_ALARM, INVALID_ALARM);
		errlogSevPrintf (errlogFatal, "adcPiReadAi %s: record not initialized correctly\n", record->name);
		return -1;
	}
	unsigned short value;
	status = adcPiGet (priv->card, priv->signal, &value);
	if (status) {
		errlogSevPrintf (errlogFatal, "adcPiReadAi %s: adcPiGet failes: error code 0x%x\n", record->name, status);
		recGblSetSevr (record, READ_ALARM, INVALID_ALARM);
	}
	record->rval = value;
	return status; // 2 do not convert
}

long adcPiSpecialLinconvAi (aiRecord *record, int after)
{
	if (after) {
		// printf(" In convert ....\n");
		// Check/Check ...
		// MAX_CODE_12BIT / 2048 Volt
		//record->eoff = ( 8191 * record->egul - -8192 * record->eguf) / (8191 - 8192);
		record->eoff = 0;
		record->eslo = 0.000250; // 205 uV (record->eguf - record->egul)/ (8191 - 8192);
			}
	return 0;
}