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

#include <dbDefs.h>
#include <registryFunction.h>
#include <subRecord.h>
#include <aSubRecord.h>
#include <epicsExport.h>

#include "pi_2_dht_read.h"

#define USED_DHT_TYPE 22
int aSubReadDHTDebug = 0;
unsigned short GPIOPin;

static long aSubReadDHTInit(aSubRecord *precord)
{
unsigned short *a;

  if (aSubReadDHTDebug)
    printf("Record %s called aSubReadDHTInit(%p)\n", precord->name, (void*) precord);

  a = (unsigned short *)precord->a; 
  GPIOPin = a[0];

  if (aSubReadDHTDebug)
    printf("Record %s : GPIOPin = %d\n", precord->name, GPIOPin);

  return 0;
}

static long aSubReadDHTProcess(aSubRecord *precord)
{
float humidity, temperature;
int ret;
double *vala, *valb;

  if (aSubReadDHTDebug)
    printf("Record %s called aSubRreadDHTProcess(%p)\n", precord->name, (void*) precord);

  ret = pi_2_dht_read(USED_DHT_TYPE, GPIOPin, &humidity, &temperature);

  if (aSubReadDHTDebug)
    printf(" ret : %d, humidity = %f, temperature = %f\n", ret, humidity, temperature);

  if (!ret) {
    vala = (double *)precord->vala;
    valb = (double *)precord->valb;
    vala[0] = (double)temperature;
    valb[0] = (double)humidity;
  }
  return 0;
}

/* Register these symbols for use by IOC code: */

epicsExportAddress(int, aSubReadDHTDebug);
epicsRegisterFunction(aSubReadDHTInit);
epicsRegisterFunction(aSubReadDHTProcess);