cleanup

diff --git a/ebctrl/ioc/ebctrlApp/src/devXxxSoft.c b/ebctrl/ioc/ebctrlApp/src/devXxxSoft.c
deleted file mode 100644 (file)
index 0507fdf..0000000
--- a/ebctrl/ioc/ebctrlApp/src/devXxxSoft.c
+++ /dev/null
@@ -1,58 +0,0 @@
-/* devXxxSoft.c */
-/* Example device support module */
-
-#include <stddef.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-
-#include "alarm.h"
-#include "cvtTable.h"
-#include "dbDefs.h"
-#include "dbAccess.h"
-#include "recGbl.h"
-#include "recSup.h"
-#include "devSup.h"
-#include "link.h"
-#include "xxxRecord.h"
-#include "epicsExport.h"
-
-/*Create the dset for devXxxSoft */
-static long init_record();
-static long read_xxx();
-struct {
-       long            number;
-       DEVSUPFUN       report;
-       DEVSUPFUN       init;
-       DEVSUPFUN       init_record;
-       DEVSUPFUN       get_ioint_info;
-       DEVSUPFUN       read_xxx;
-}devXxxSoft={
-       5,
-       NULL,
-       NULL,
-       init_record,
-       NULL,
-       read_xxx,
-};
-epicsExportAddress(dset,devXxxSoft);
-\f
-
-static long init_record(pxxx)
-    struct xxxRecord   *pxxx;
-{
-    if(recGblInitConstantLink(&pxxx->inp,DBF_DOUBLE,&pxxx->val))
-         pxxx->udf = FALSE;
-    return(0);
-}
-\f
-static long read_xxx(pxxx)
-    struct xxxRecord   *pxxx;
-{
-    long status;
-
-    status = dbGetLink(&(pxxx->inp),DBF_DOUBLE, &(pxxx->val),0,0);
-    /*If return was succesful then set undefined false*/
-    if(!status) pxxx->udf = FALSE;
-    return(0);
-}

diff --git a/ebctrl/ioc/ebctrlApp/src/sncExample.dbd b/ebctrl/ioc/ebctrlApp/src/sncExample.dbd
deleted file mode 100644 (file)
index df61066..0000000
--- a/ebctrl/ioc/ebctrlApp/src/sncExample.dbd
+++ /dev/null
@@ -1 +0,0 @@
-registrar(sncExampleRegistrar)

diff --git a/ebctrl/ioc/ebctrlApp/src/sncExample.stt b/ebctrl/ioc/ebctrlApp/src/sncExample.stt
deleted file mode 100644 (file)
index 235f3f4..0000000
--- a/ebctrl/ioc/ebctrlApp/src/sncExample.stt
+++ /dev/null
@@ -1,22 +0,0 @@
-program sncExample
-double v;
-assign v to "{user}:aiExample";
-monitor v;
-
-ss ss1 {
-    state init {
-       when (delay(10)) {
-           printf("sncExample: Startup delay over\n");
-       } state low
-    }
-    state low {
-       when (v > 5.0) {
-           printf("sncExample: Changing to high\n");
-       } state high
-    }
-    state high {
-       when (v <= 5.0) {
-           printf("sncExample: Changing to low\n");
-       } state low
-    }
-}

diff --git a/ebctrl/ioc/ebctrlApp/src/sncProgram.st b/ebctrl/ioc/ebctrlApp/src/sncProgram.st
deleted file mode 100644 (file)
index 1ba2989..0000000
--- a/ebctrl/ioc/ebctrlApp/src/sncProgram.st
+++ /dev/null
@@ -1 +0,0 @@
-#include "../sncExample.stt"

diff --git a/ebctrl/ioc/ebctrlApp/src/xxxRecord.c b/ebctrl/ioc/ebctrlApp/src/xxxRecord.c
deleted file mode 100644 (file)
index 6fb1472..0000000
--- a/ebctrl/ioc/ebctrlApp/src/xxxRecord.c
+++ /dev/null
@@ -1,272 +0,0 @@
-/* xxxRecord.c */
-/* Example record support module */
-  
-#include <stddef.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-
-#include "alarm.h"
-#include "dbAccess.h"
-#include "recGbl.h"
-#include "dbEvent.h"
-#include "dbDefs.h"
-#include "dbAccess.h"
-#include "devSup.h"
-#include "errMdef.h"
-#include "recSup.h"
-#include "special.h"
-#define GEN_SIZE_OFFSET
-#include "xxxRecord.h"
-#undef  GEN_SIZE_OFFSET
-#include "epicsExport.h"
-
-/* Create RSET - Record Support Entry Table */
-#define report NULL
-#define initialize NULL
-static long init_record();
-static long process();
-#define special NULL
-#define get_value NULL
-#define cvt_dbaddr NULL
-#define get_array_info NULL
-#define put_array_info NULL
-static long get_units();
-static long get_precision();
-#define get_enum_str NULL
-#define get_enum_strs NULL
-#define put_enum_str NULL
-static long get_graphic_double();
-static long get_control_double();
-static long get_alarm_double();
- 
-rset xxxRSET={
-       RSETNUMBER,
-       report,
-       initialize,
-       init_record,
-       process,
-       special,
-       get_value,
-       cvt_dbaddr,
-       get_array_info,
-       put_array_info,
-       get_units,
-       get_precision,
-       get_enum_str,
-       get_enum_strs,
-       put_enum_str,
-       get_graphic_double,
-       get_control_double,
-       get_alarm_double
-};
-epicsExportAddress(rset,xxxRSET);
-
-typedef struct xxxset { /* xxx input dset */
-       long            number;
-       DEVSUPFUN       dev_report;
-       DEVSUPFUN       init;
-       DEVSUPFUN       init_record; /*returns: (-1,0)=>(failure,success)*/
-       DEVSUPFUN       get_ioint_info;
-       DEVSUPFUN       read_xxx;
-}xxxdset;
-
-static void checkAlarms(xxxRecord *pxxx);
-static void monitor(xxxRecord *pxxx);
-\f
-static long init_record(void *precord,int pass)
-{
-    xxxRecord  *pxxx = (xxxRecord *)precord;
-    xxxdset    *pdset;
-    long       status;
-
-    if (pass==0) return(0);
-
-    if(!(pdset = (xxxdset *)(pxxx->dset))) {
-       recGblRecordError(S_dev_noDSET,(void *)pxxx,"xxx: init_record");
-       return(S_dev_noDSET);
-    }
-    /* must have read_xxx function defined */
-    if( (pdset->number < 5) || (pdset->read_xxx == NULL) ) {
-       recGblRecordError(S_dev_missingSup,(void *)pxxx,"xxx: init_record");
-       return(S_dev_missingSup);
-    }
-
-    if( pdset->init_record ) {
-       if((status=(*pdset->init_record)(pxxx))) return(status);
-    }
-    return(0);
-}
-\f
-static long process(void *precord)
-{
-       xxxRecord       *pxxx = (xxxRecord *)precord;
-       xxxdset         *pdset = (xxxdset *)(pxxx->dset);
-       long             status;
-       unsigned char    pact=pxxx->pact;
-
-       if( (pdset==NULL) || (pdset->read_xxx==NULL) ) {
-               pxxx->pact=TRUE;
-               recGblRecordError(S_dev_missingSup,(void *)pxxx,"read_xxx");
-               return(S_dev_missingSup);
-       }
-
-       /* pact must not be set until after calling device support */
-       status=(*pdset->read_xxx)(pxxx);
-       /* check if device support set pact */
-       if ( !pact && pxxx->pact ) return(0);
-       pxxx->pact = TRUE;
-
-       recGblGetTimeStamp(pxxx);
-       /* check for alarms */
-       checkAlarms(pxxx);
-       /* check event list */
-       monitor(pxxx);
-       /* process the forward scan link record */
-        recGblFwdLink(pxxx);
-
-       pxxx->pact=FALSE;
-       return(status);
-}
-\f
-static long get_units(DBADDR *paddr, char *units)
-{
-    xxxRecord  *pxxx=(xxxRecord *)paddr->precord;
-
-    strncpy(units,pxxx->egu,DB_UNITS_SIZE);
-    return(0);
-}
-
-static long get_precision(DBADDR *paddr, long *precision)
-{
-    xxxRecord  *pxxx=(xxxRecord *)paddr->precord;
-
-    *precision = pxxx->prec;
-    if(paddr->pfield == (void *)&pxxx->val) return(0);
-    recGblGetPrec(paddr,precision);
-    return(0);
-}
-
-static long get_graphic_double(DBADDR *paddr,struct dbr_grDouble *pgd)
-{
-    xxxRecord  *pxxx=(xxxRecord *)paddr->precord;
-    int                fieldIndex = dbGetFieldIndex(paddr);
-
-    if(fieldIndex == xxxRecordVAL
-    || fieldIndex == xxxRecordHIHI
-    || fieldIndex == xxxRecordHIGH
-    || fieldIndex == xxxRecordLOW
-    || fieldIndex == xxxRecordLOLO
-    || fieldIndex == xxxRecordHOPR
-    || fieldIndex == xxxRecordLOPR) {
-        pgd->upper_disp_limit = pxxx->hopr;
-        pgd->lower_disp_limit = pxxx->lopr;
-    } else recGblGetGraphicDouble(paddr,pgd);
-    return(0);
-}
-
-static long get_control_double(DBADDR *paddr,struct dbr_ctrlDouble *pcd)
-{
-    xxxRecord  *pxxx=(xxxRecord *)paddr->precord;
-    int                fieldIndex = dbGetFieldIndex(paddr);
-
-    if(fieldIndex == xxxRecordVAL
-    || fieldIndex == xxxRecordHIHI
-    || fieldIndex == xxxRecordHIGH
-    || fieldIndex == xxxRecordLOW
-    || fieldIndex == xxxRecordLOLO) {
-       pcd->upper_ctrl_limit = pxxx->hopr;
-       pcd->lower_ctrl_limit = pxxx->lopr;
-    } else recGblGetControlDouble(paddr,pcd);
-    return(0);
-}
-
-static long get_alarm_double(DBADDR *paddr,struct dbr_alDouble *pad)
-{
-    xxxRecord  *pxxx=(xxxRecord *)paddr->precord;
-    int                fieldIndex = dbGetFieldIndex(paddr);
-
-    if(fieldIndex == xxxRecordVAL) {
-       pad->upper_alarm_limit = pxxx->hihi;
-       pad->upper_warning_limit = pxxx->high;
-       pad->lower_warning_limit = pxxx->low;
-       pad->lower_alarm_limit = pxxx->lolo;
-    } else recGblGetAlarmDouble(paddr,pad);
-    return(0);
-}
-\f
-static void checkAlarms(xxxRecord *pxxx)
-{
-       double          val;
-       float           hyst, lalm, hihi, high, low, lolo;
-       unsigned short  hhsv, llsv, hsv, lsv;
-
-       if(pxxx->udf == TRUE ){
-               recGblSetSevr(pxxx,UDF_ALARM,INVALID_ALARM);
-               return;
-       }
-       hihi = pxxx->hihi; lolo = pxxx->lolo; high = pxxx->high; low = pxxx->low;
-       hhsv = pxxx->hhsv; llsv = pxxx->llsv; hsv = pxxx->hsv; lsv = pxxx->lsv;
-       val = pxxx->val; hyst = pxxx->hyst; lalm = pxxx->lalm;
-
-       /* alarm condition hihi */
-       if (hhsv && (val >= hihi || ((lalm==hihi) && (val >= hihi-hyst)))){
-               if (recGblSetSevr(pxxx,HIHI_ALARM,pxxx->hhsv)) pxxx->lalm = hihi;
-               return;
-       }
-
-       /* alarm condition lolo */
-       if (llsv && (val <= lolo || ((lalm==lolo) && (val <= lolo+hyst)))){
-               if (recGblSetSevr(pxxx,LOLO_ALARM,pxxx->llsv)) pxxx->lalm = lolo;
-               return;
-       }
-
-       /* alarm condition high */
-       if (hsv && (val >= high || ((lalm==high) && (val >= high-hyst)))){
-               if (recGblSetSevr(pxxx,HIGH_ALARM,pxxx->hsv)) pxxx->lalm = high;
-               return;
-       }
-
-       /* alarm condition low */
-       if (lsv && (val <= low || ((lalm==low) && (val <= low+hyst)))){
-               if (recGblSetSevr(pxxx,LOW_ALARM,pxxx->lsv)) pxxx->lalm = low;
-               return;
-       }
-
-       /* we get here only if val is out of alarm by at least hyst */
-       pxxx->lalm = val;
-       return;
-}
-\f
-static void monitor(xxxRecord *pxxx)
-{
-       unsigned short  monitor_mask;
-       double          delta;
-
-        monitor_mask = recGblResetAlarms(pxxx);
-       /* check for value change */
-       delta = pxxx->mlst - pxxx->val;
-       if(delta<0.0) delta = -delta;
-       if (delta > pxxx->mdel) {
-               /* post events for value change */
-               monitor_mask |= DBE_VALUE;
-               /* update last value monitored */
-               pxxx->mlst = pxxx->val;
-       }
-
-       /* check for archive change */
-       delta = pxxx->alst - pxxx->val;
-       if(delta<0.0) delta = -delta;
-       if (delta > pxxx->adel) {
-               /* post events on value field for archive change */
-               monitor_mask |= DBE_LOG;
-               /* update last archive value monitored */
-               pxxx->alst = pxxx->val;
-       }
-
-       /* send out monitors connected to the value field */
-       if (monitor_mask){
-               db_post_events(pxxx,&pxxx->val,monitor_mask);
-       }
-       return;
-}

diff --git a/ebctrl/ioc/ebctrlApp/src/xxxRecord.dbd b/ebctrl/ioc/ebctrlApp/src/xxxRecord.dbd
deleted file mode 100644 (file)
index 4a71c54..0000000
--- a/ebctrl/ioc/ebctrlApp/src/xxxRecord.dbd
+++ /dev/null
@@ -1,117 +0,0 @@
-recordtype(xxx) {
-       include "dbCommon.dbd" 
-       field(VAL,DBF_DOUBLE) {
-               prompt("Current EGU Value")
-               asl(ASL0)
-               pp(TRUE)
-       }
-       field(INP,DBF_INLINK) {
-               prompt("Input Specification")
-               promptgroup(GUI_INPUTS)
-               special(SPC_NOMOD)
-               interest(1)
-       }
-       field(PREC,DBF_SHORT) {
-               prompt("Display Precision")
-               promptgroup(GUI_DISPLAY)
-               interest(1)
-       }
-       field(EGU,DBF_STRING) {
-               prompt("Engineering Units")
-               promptgroup(GUI_DISPLAY)
-               interest(1)
-               size(16)
-       }
-       field(HOPR,DBF_FLOAT) {
-               prompt("High Operating Range")
-               promptgroup(GUI_DISPLAY)
-               interest(1)
-       }
-       field(LOPR,DBF_FLOAT) {
-               prompt("Low Operating Range")
-               promptgroup(GUI_DISPLAY)
-               interest(1)
-       }
-       field(HIHI,DBF_FLOAT) {
-               prompt("Hihi Alarm Limit")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-       }
-       field(LOLO,DBF_FLOAT) {
-               prompt("Lolo Alarm Limit")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-       }
-       field(HIGH,DBF_FLOAT) {
-               prompt("High Alarm Limit")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-       }
-       field(LOW,DBF_FLOAT) {
-               prompt("Low Alarm Limit")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-       }
-       field(HHSV,DBF_MENU) {
-               prompt("Hihi Severity")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-               menu(menuAlarmSevr)
-       }
-       field(LLSV,DBF_MENU) {
-               prompt("Lolo Severity")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-               menu(menuAlarmSevr)
-       }
-       field(HSV,DBF_MENU) {
-               prompt("High Severity")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-               menu(menuAlarmSevr)
-       }
-       field(LSV,DBF_MENU) {
-               prompt("Low Severity")
-               promptgroup(GUI_ALARMS)
-               pp(TRUE)
-               interest(1)
-               menu(menuAlarmSevr)
-       }
-       field(HYST,DBF_DOUBLE) {
-               prompt("Alarm Deadband")
-               promptgroup(GUI_ALARMS)
-               interest(1)
-       }
-       field(ADEL,DBF_DOUBLE) {
-               prompt("Archive Deadband")
-               promptgroup(GUI_DISPLAY)
-               interest(1)
-       }
-       field(MDEL,DBF_DOUBLE) {
-               prompt("Monitor Deadband")
-               promptgroup(GUI_DISPLAY)
-               interest(1)
-       }
-       field(LALM,DBF_DOUBLE) {
-               prompt("Last Value Alarmed")
-               special(SPC_NOMOD)
-               interest(3)
-       }
-       field(ALST,DBF_DOUBLE) {
-               prompt("Last Value Archived")
-               special(SPC_NOMOD)
-               interest(3)
-       }
-       field(MLST,DBF_DOUBLE) {
-               prompt("Last Val Monitored")
-               special(SPC_NOMOD)
-               interest(3)
-       }
-}

diff --git a/ebctrl/ioc/ebctrlApp/src/xxxSupport.dbd b/ebctrl/ioc/ebctrlApp/src/xxxSupport.dbd
deleted file mode 100644 (file)
index 8094bdd..0000000
--- a/ebctrl/ioc/ebctrlApp/src/xxxSupport.dbd
+++ /dev/null
@@ -1,2 +0,0 @@
-include "xxxRecord.dbd"
-device(xxx,CONSTANT,devXxxSoft,"SoftChannel")