/*
 * Stringin device support for EPICS time stamps
 *
 * devTimestampSI.c,v 1.1.2.1 2004/01/08 21:08:56 norume Exp
 *
 * fixed for vxWorks 5.4.2 bfr
 */

#include <string.h>
#include <epicsStdio.h>
#include <epicsTime.h>
#include <stringinRecord.h>
#include <alarm.h>
#include <devSup.h>
#include <recGbl.h>
#include <epicsExport.h>

static long
read_stringin (struct stringinRecord *psi)
{
    int l;

    recGblGetTimeStamp(psi);
    if (strcmp(psi->inp.value.instio.string,"%s")==0) {
        l = epicsSnprintf(psi->val, sizeof psi->val, "%u", psi->time.secPastEpoch);
    } else {
        l = epicsTimeToStrftime(psi->val, sizeof psi->val, psi->inp.value.instio.string, &psi->time);
    }
    if (l >= sizeof psi->val) {
        psi->udf = 1;
        recGblSetSevr(psi,UDF_ALARM,INVALID_ALARM);
        return -1;
    }
    psi->udf = 0;
    return 0;
}

struct {
    long        number;
    DEVSUPFUN   dev_report;
    DEVSUPFUN   init;
    DEVSUPFUN   init_record; /*returns: (0,2)=>(success,success no convert)*/
    DEVSUPFUN   get_ioint_info;
    DEVSUPFUN   read_stringin;/*(0)=>(success ) */
} devSiTimestampWorkaround = {
    6,
    NULL,
    NULL,
    NULL,
    NULL,
    read_stringin
};
epicsExportAddress(dset,devSiTimestampWorkaround);