54 lines
1.2 KiB
C
54 lines
1.2 KiB
C
/* SPDX-FileCopyrightText: 2002 Argonne National Laboratory */
|
|
|
|
/* SPDX-License-Identifier: EPICS */
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <dbDefs.h>
|
|
#include <registryFunction.h>
|
|
#include <subRecord.h>
|
|
#include <aSubRecord.h>
|
|
#include <epicsExport.h>
|
|
|
|
int mySubDebug;
|
|
|
|
static long mySubInit(subRecord *precord)
|
|
{
|
|
if (mySubDebug)
|
|
printf("Record %s called mySubInit(%p)\n",
|
|
precord->name, precord);
|
|
return 0;
|
|
}
|
|
|
|
static long mySubProcess(subRecord *precord)
|
|
{
|
|
if (mySubDebug)
|
|
printf("Record %s called mySubProcess(%p)\n",
|
|
precord->name, precord);
|
|
return 0;
|
|
}
|
|
|
|
static long myAsubInit(aSubRecord *precord)
|
|
{
|
|
if (mySubDebug)
|
|
printf("Record %s called myAsubInit(%p)\n",
|
|
precord->name, precord);
|
|
return 0;
|
|
}
|
|
|
|
static long myAsubProcess(aSubRecord *precord)
|
|
{
|
|
if (mySubDebug)
|
|
printf("Record %s called myAsubProcess(%p)\n",
|
|
precord->name, precord);
|
|
return 0;
|
|
}
|
|
|
|
/* Register these symbols for use by IOC code: */
|
|
|
|
epicsExportAddress(int, mySubDebug);
|
|
epicsRegisterFunction(mySubInit);
|
|
epicsRegisterFunction(mySubProcess);
|
|
epicsRegisterFunction(myAsubInit);
|
|
epicsRegisterFunction(myAsubProcess);
|