Move all under modules/database

2018-06-19 11:31:13 +02:00
parent e613d685fd
commit 568c405165
562 changed files with 0 additions and 101 deletions
--- a/modules/database/src/std/dev/asSubRecordFunctions.c
+++ b/modules/database/src/std/dev/asSubRecordFunctions.c
@@ -0,0 +1,91 @@
+/*************************************************************************\
+* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
+*     National Laboratory.
+* Copyright (c) 2002 The Regents of the University of California, as
+*     Operator of Los Alamos National Laboratory.
+* EPICS BASE Versions 3.13.7
+* and higher are distributed subject to a Software License Agreement found
+* in file LICENSE that is included with this distribution. 
+\*************************************************************************/
+/* asSubRecordFunctions.c */
+
+/* Author:  Marty Kraimer Date:    01MAY2000 */
+
+#include <stddef.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "dbAccess.h"
+#include "cantProceed.h"
+#include "callback.h"
+#include "alarm.h"
+#include "errlog.h"
+#include "dbEvent.h"
+#include "recSup.h"
+#include "recGbl.h"
+#include "registryFunction.h"
+#include "asLib.h"
+#include "asDbLib.h"
+#include "subRecord.h"
+#include "epicsExport.h"
+
+/* The following is provided for access security*/
+/*It allows a CA client to force access security initialization*/
+
+static void myCallback(CALLBACK *pcallback)
+{
+    ASDBCALLBACK	*pasdbcallback = (ASDBCALLBACK *)pcallback;
+    subRecord	*precord;
+    rset		*prset;
+
+    callbackGetUser(precord,pcallback);
+    prset=(rset *)(precord->rset);
+    precord->val = 0.0;
+    if(pasdbcallback->status) {
+	recGblSetSevr(precord,READ_ALARM,precord->brsv);
+	recGblRecordError(pasdbcallback->status,precord,"asInit Failed");
+    }
+    dbScanLock((dbCommon *)precord);
+    (*prset->process)((dbCommon *)precord);
+    dbScanUnlock((dbCommon *)precord);
+}
+
+long asSubInit(subRecord *precord,void *process)
+{
+    ASDBCALLBACK *pcallback;
+
+    pcallback = (ASDBCALLBACK *)callocMustSucceed(
+        1,sizeof(ASDBCALLBACK),"asSubInit");
+    precord->dpvt = (void *)pcallback;
+    callbackSetCallback(myCallback,&pcallback->callback);
+    callbackSetUser(precord,&pcallback->callback);
+    return(0);
+}
+
+long asSubProcess(subRecord *precord)
+{
+    ASDBCALLBACK *pcallback = (ASDBCALLBACK *)precord->dpvt;
+
+    if(!precord->pact && precord->val==1.0)  {
+	db_post_events(precord,&precord->val,DBE_VALUE);
+	callbackSetPriority(precord->prio,&pcallback->callback);
+	asInitAsyn(pcallback);
+	precord->pact=TRUE;
+	return(1);
+    }
+    db_post_events(precord,&precord->val,DBE_VALUE);
+    return(0);
+}
+
+static registryFunctionRef asSubRef[] = {
+    {"asSubInit",(REGISTRYFUNCTION)asSubInit},
+    {"asSubProcess",(REGISTRYFUNCTION)asSubProcess}
+};
+
+static void asSub(void)
+{
+    registryFunctionRefAdd(asSubRef,NELEMENTS(asSubRef));
+}
+epicsExportRegistrar(asSub);