forked from epics_driver_modules/require
zimoch
54 lines
1.1 KiB
C
54 lines
1.1 KiB
C
/* 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>
|
|
#include <errno.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 0;
|
|
#endif
|
|
}
|