/* listRecords is a wrapper function for dbl 
   it is required because of the changed syntax of dbl in R3.14.
 */

#include <epicsVersion.h>
#include <stddef.h>

#ifdef BASE_VERSION
/* This is R3.13 */
#include <stdio.h>
long dbl(char *precordTypename, char *filename, char *fields);
#else
/* This is R3.14 */
#include <string.h>
#include <dbTest.h>
#include <epicsStdio.h>
#endif

int listRecords(char* file, char* fields)
{
#ifndef BASE_VERSION
/* This is R3.14 */
    FILE* oldStdout;
    FILE* newStdout;
#endif
    
    if (!file)
    {
        printf ("usage: listRecords \"filename\", \"field  field  ...\"\n");
        return -1;
    }
    
#ifdef BASE_VERSION
/* This is R3.13 */
    return dbl(0L, file, fields);
#else
/* This is R3.14 */
    newStdout = fopen(file, "w");
    if (!newStdout)
    {
        fprintf (stderr, "Can't open %s for writing: %s\n",
            file, strerror(errno));
        return errno;
    }
    oldStdout = epicsGetThreadStdout();
    epicsSetThreadStdout(newStdout);
    dbl(0L, fields);
    fclose(newStdout);
    epicsSetThreadStdout(oldStdout);
    return OK;
#endif
}