830 lines
20 KiB
Bash
Executable File
830 lines
20 KiB
Bash
Executable File
#!/bin/sh
|
||
#
|
||
# iocMakeApp
|
||
#
|
||
# Author: Marty Kraimer
|
||
#
|
||
|
||
#set -xv
|
||
|
||
SAVEDIR=$PWD
|
||
EXAMPLES=""
|
||
|
||
Cleanup() {
|
||
cd $SAVEDIR
|
||
rtncode=$1
|
||
shift 1
|
||
for MESSAGE
|
||
do
|
||
echo "$MESSAGE"
|
||
done
|
||
exit $rtncode
|
||
}
|
||
USAGE="Usage: iocMakeApp -r release -e appname ... "
|
||
|
||
if [ "$PWD" = "$HOME" ]; then Cleanup 1 "In Home Directory" "$USAGE"; fi;
|
||
|
||
#look for options (Currently only -r release and -e)
|
||
RELEASE=
|
||
while getopts r:e OPT
|
||
do
|
||
case $OPT in
|
||
r) RELEASE=$OPTARG
|
||
;;
|
||
e) EXAMPLES=TRUE
|
||
;;
|
||
\?)
|
||
Cleanup 1 "$USAGE"
|
||
;;
|
||
esac
|
||
done
|
||
shift `expr $OPTIND - 1`
|
||
|
||
#if user did not specify release and none exists error
|
||
if [ -z "$RELEASE" -a ! -f EPICS_BASE ]; then
|
||
Cleanup 1 "No release " "$USAGE"
|
||
fi
|
||
|
||
if [ ! -z "$RELEASE" ]; then
|
||
${RELEASE}/bin/${HOST_ARCH}/getrel ${RELEASE}
|
||
if [ ! -f EPICS_BASE ]; then
|
||
Cleanup 1 "Did not detect successful getrel" "$USAGE"
|
||
fi
|
||
fi
|
||
|
||
EPICS_BASE=`sed -e "s%EPICS_BASE=%%" < EPICS_BASE`
|
||
|
||
if [ ! -f Makefile ]; then
|
||
cat > Makefile <<-\END
|
||
TOP = .
|
||
include $(TOP)/config/CONFIG_APP
|
||
#add directories as follows
|
||
#DIRS += <dir>
|
||
include $(EPICS_BASE)/config/RULES_TOP
|
||
END
|
||
fi
|
||
|
||
if [ ! -d config ]; then
|
||
mkdir config
|
||
cat > config/CONFIG <<-\END
|
||
# Add any changes to make rules here
|
||
END
|
||
cat > config/CONFIG_APP <<-\END
|
||
#CONFIG_APP DO NOT EDIT THIS FILE
|
||
include $(TOP)/EPICS_BASE
|
||
include $(EPICS_BASE)/config/CONFIG
|
||
include $(TOP)/config/CONFIG
|
||
END
|
||
cat > config/RULES.Unix <<-\END
|
||
include $(EPICS_BASE)/config/RULES.Unix
|
||
END
|
||
cat > config/RULES.Vx <<-\END
|
||
include $(EPICS_BASE)/config/RULES.Vx
|
||
END
|
||
cat > config/RULES_DIRS <<-\END
|
||
include $(EPICS_BASE)/config/RULES_DIRS
|
||
END
|
||
fi
|
||
|
||
if [ $# = 0 ]; then Cleanup 0; fi;
|
||
|
||
for APPNAME
|
||
do
|
||
if [ -d "${APPNAME}" ]; then continue; fi
|
||
mkdir ${APPNAME}
|
||
if [ $? -ne 0 ]; then Cleanup 1 "$USAGE"; fi
|
||
cd ${APPNAME}
|
||
cat > Makefile <<-\END
|
||
TOP = ..
|
||
include $(TOP)/config/CONFIG_APP
|
||
DIRS = src
|
||
include $(EPICS_BASE)/config/RULES_DIRS
|
||
END
|
||
mkdir db
|
||
if [ -n "${EXAMPLES}" ]; then
|
||
#if source starts with blank tab replace by tab
|
||
sed -e "s/ / /" > db/dbExample.db <<-\END
|
||
record(ai, "$(user):aiExample")
|
||
{
|
||
field(DESC, "Analog input")
|
||
field(INP, "$(user):calcExample.VAL NPP NMS")
|
||
field(EGUF, "10")
|
||
field(EGU, "Counts")
|
||
field(HOPR, "10")
|
||
field(LOPR, "0")
|
||
field(HIHI, "8")
|
||
field(HIGH, "6")
|
||
field(LOW, "4")
|
||
field(LOLO, "2")
|
||
field(HHSV, "MAJOR")
|
||
field(HSV, "MINOR")
|
||
field(LSV, "MINOR")
|
||
field(LLSV, "MAJOR")
|
||
}
|
||
record(calc, "$(user):calcExample")
|
||
{
|
||
field(DESC, "Counter")
|
||
field(SCAN,"1 second")
|
||
field(FLNK, "$(user):aiExample")
|
||
field(CALC, "(A<B)?(A+C):D")
|
||
field(INPA, "$(user):calcExample.VAL NPP NMS")
|
||
field(INPB, "9")
|
||
field(INPC, "1")
|
||
field(INPD, "0")
|
||
field(EGU, "Counts")
|
||
field(HOPR, "10")
|
||
field(HIHI, "8")
|
||
field(HIGH, "6")
|
||
field(LOW, "4")
|
||
field(LOLO, "2")
|
||
field(HHSV, "MAJOR")
|
||
field(HSV, "MINOR")
|
||
field(LSV, "MINOR")
|
||
field(LLSV, "MAJOR")
|
||
}
|
||
record(xxx, "$(user):xxxExample")
|
||
{
|
||
field(DESC, "xxx record")
|
||
field(FLNK, "mrkc0a1.VAL ")
|
||
field(EGU, "Counts")
|
||
field(HOPR, "10")
|
||
field(HIHI, "8")
|
||
field(HIGH, "6")
|
||
field(LOW, "4")
|
||
field(LOLO, "2")
|
||
field(HHSV, "MAJOR")
|
||
field(HSV, "MINOR")
|
||
field(LSV, "MINOR")
|
||
field(LLSV, "MAJOR")
|
||
}
|
||
END
|
||
fi
|
||
mkdir src
|
||
cat > src/Makefile <<-\END
|
||
TOP=../..
|
||
include $(TOP)/config/CONFIG_APP
|
||
include $(EPICS_BASE)/config/RULES_ARCHS
|
||
END
|
||
sed -e "s/APPNAME/${APPNAME}/" > src/Makefile.Vx <<-\END
|
||
# Makefile.Vx
|
||
TOP = ../../..
|
||
include $(TOP)/config/CONFIG_APP
|
||
INSTALL_LOCATION = $(TOP)
|
||
#----------------------------------------
|
||
# ADD MACRO DEFINITIONS AFTER THIS LINE
|
||
|
||
END
|
||
if [ -n "${EXAMPLES}" ]; then
|
||
sed -e "s/APPNAME/${APPNAME}/" >> src/Makefile.Vx <<-\END
|
||
RECTYPES += xxxRecord.h
|
||
USR_INCLUDES += -I$(EPICS_BASE)/include
|
||
USER_DBDFLAGS += -I .. -I $(EPICS_BASE)/dbd
|
||
DBDEXPAND = APPNAMEInclude.dbd
|
||
DBDNAME = APPNAME.dbd
|
||
|
||
include ../baseLIBOBJS
|
||
LIBOBJS += xxxRecord.o
|
||
LIBOBJS += devXxxSoft.o
|
||
LIBOBJS += sncExample.o
|
||
LIBNAME = APPNAMESupport
|
||
SCRIPTS += st.APPNAME
|
||
SCRIPTS += vxWorks vxWorks.sym iocCore seq
|
||
END
|
||
else
|
||
sed -e "s/APPNAME/${APPNAME}/" >> src/Makefile.Vx <<-\END
|
||
#RECTYPES += xxxRecord.h
|
||
USR_INCLUDES += -I$(EPICS_BASE)/include
|
||
USER_DBDFLAGS += -I .. -I $(EPICS_BASE)/dbd
|
||
#DBDEXPAND = APPNAMEInclude.dbd
|
||
#DBDNAME = APPNAME.dbd
|
||
|
||
#include ../baseLIBOBJS
|
||
#LIBOBJS += xxx.o
|
||
#LIBNAME = APPNAMESupport
|
||
#SCRIPTS += st.APPNAME
|
||
#SCRIPTS += vxWorks vxWorks.sym iocCore seq
|
||
END
|
||
fi
|
||
sed -e "s/APPNAME/${APPNAME}/" >> src/Makefile.Vx <<-\END
|
||
include $(TOP)/config/RULES.Vx
|
||
#----------------------------------------
|
||
# ADD RULES AFTER THIS LINE
|
||
|
||
$(LIBNAME): ../baseLIBOBJS
|
||
$(DBDNAME): ../base.dbd ../APPNAMEInclude.dbd
|
||
$(DBDNAME): $(RECTYPES:%.h=%.dbd)
|
||
|
||
END
|
||
cat > src/Makefile.Unix <<-\END
|
||
# Makefile.Unix
|
||
TOP = ../../..
|
||
include $(TOP)/config/CONFIG_APP
|
||
INSTALL_LOCATION = $(TOP)
|
||
#----------------------------------------
|
||
# ADD MACRO DEFINITIONS AFTER THIS LINE
|
||
|
||
#USR_CFLAGS +=
|
||
USR_INCLUDES += -I$(EPICS_BASE)/include
|
||
DEPLIBS += $(EPICS_BASE_LIB)/libca.a
|
||
DEPLIBS += $(EPICS_BASE_LIB)/libCom.a
|
||
|
||
USR_LDFLAGS = -L$(EPICS_BASE_LIB)
|
||
USR_LDLIBS = -lca -lDb -lCom
|
||
|
||
END
|
||
if [ -n "${EXAMPLES}" ]; then
|
||
sed -e "s/APPNAME/${APPNAME}/" >> src/Makefile.Unix <<-\END
|
||
OBJS += caExample.o
|
||
PROD += caExample
|
||
END
|
||
else
|
||
sed -e "s/APPNAME/${APPNAME}/" >> src/Makefile.Unix <<-\END
|
||
#OBJS += xxx.o
|
||
#PROD += xxx
|
||
END
|
||
fi
|
||
sed -e "s/APPNAME/${APPNAME}/" >> src/Makefile.Unix <<-\END
|
||
|
||
include $(TOP)/config/RULES.Unix
|
||
#----------------------------------------
|
||
# ADD RULES AFTER THIS LINE
|
||
END
|
||
if [ -n "${EXAMPLES}" ]; then
|
||
cat > src/${APPNAME}Include.dbd <<-\END
|
||
include "base.dbd"
|
||
include "xxxRecord.dbd"
|
||
device(xxx,CONSTANT,devXxxSoft,"SoftChannel")
|
||
END
|
||
else
|
||
cat > src/${APPNAME}Include.dbd <<-\END
|
||
include "base.dbd"
|
||
#private database definitions go here
|
||
#device(xxx,CONSTANT,devXxxSoft,"SoftChannel")
|
||
END
|
||
fi
|
||
cp ${EPICS_BASE}/dbd/base.dbd src/base.dbd
|
||
cp ${EPICS_BASE}/dbd/baseLIBOBJS src/baseLIBOBJS
|
||
sed -e "s/USER/${USER}/" \
|
||
-e "s/APPNAME/${APPNAME}/" > src/st.${APPNAME} <<-\END
|
||
# Example vxWorks startup file
|
||
#Following must be added for many board support packages
|
||
#cd <full path name to boot directory>
|
||
ld < iocCore
|
||
ld < seq
|
||
ld < APPNAMESupport
|
||
|
||
dbLoadDatabase("../../dbd/APPNAME.dbd")
|
||
END
|
||
if [ -n "${EXAMPLES}" ]; then
|
||
sed -e "s/USER/${USER}/" \
|
||
-e "s/APPNAME/${APPNAME}/" >> src/st.${APPNAME} <<-\END
|
||
dbLoadRecords("../../APPNAME/db/dbExample.db","user=USER")
|
||
iocInit
|
||
seq &snctest
|
||
END
|
||
else
|
||
sed -e "s/USER/${USER}/" \
|
||
-e "s/APPNAME/${APPNAME}/" >> src/st.${APPNAME} <<-\END
|
||
#dbLoadRecords("../../APPNAME/db/xxx.db","user=USER")
|
||
iocInit
|
||
#start sequence programs
|
||
#seq &sncxxx
|
||
END
|
||
fi
|
||
if [ -z "${EXAMPLES}" ]; then Cleanup 0; fi;
|
||
#if source starts with blank tab replace by tab
|
||
sed -e "s/ / /" > src/caExample.c <<-\END
|
||
/*caExample.c*/
|
||
#include <stddef.h>
|
||
#include <stdlib.h>
|
||
#include <stdio.h>
|
||
#include <string.h>
|
||
|
||
#include <cadef.h>
|
||
|
||
main(int argc,char **argv)
|
||
{
|
||
double data;
|
||
int status;
|
||
chid mychid;
|
||
|
||
if(argc != 2) {
|
||
fprintf(stderr,"usage: caExample pvname\n");
|
||
exit(1);
|
||
}
|
||
SEVCHK(ca_task_initialize(),"ca_task_initialize");
|
||
SEVCHK(ca_search(argv[1],&mychid),"ca_search failure");
|
||
SEVCHK(ca_pend_io(5.0),"ca_pend_io failure");
|
||
SEVCHK(ca_get(DBR_DOUBLE,mychid,(void *)&data),"ca_get failure");
|
||
SEVCHK(ca_pend_io(5.0),"ca_pend_io failure");
|
||
printf("%s %f\n",argv[1],data);
|
||
return(0);
|
||
}
|
||
END
|
||
#if source starts with blank tab replace by tab
|
||
sed -e "s/ / /" > src/xxxRecord.c <<-\END
|
||
/* recXxx.c */
|
||
/* Example record support module */
|
||
|
||
#include <vxWorks.h>
|
||
#include <stddef.h>
|
||
#include <stdio.h>
|
||
#include <lstLib.h>
|
||
#include <string.h>
|
||
|
||
#include <alarm.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
|
||
|
||
/* 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();
|
||
|
||
struct 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};
|
||
|
||
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 alarm(xxxRecord *pxxx);
|
||
static void convert(xxxRecord *pxxx);
|
||
static void monitor(xxxRecord *pxxx);
|
||
|
||
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);
|
||
}
|
||
|
||
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 */
|
||
alarm(pxxx);
|
||
/* check event list */
|
||
monitor(pxxx);
|
||
/* process the forward scan link record */
|
||
recGblFwdLink(pxxx);
|
||
|
||
pxxx->pact=FALSE;
|
||
return(status);
|
||
}
|
||
|
||
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);
|
||
}
|
||
|
||
static void alarm(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;
|
||
}
|
||
|
||
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;
|
||
}
|
||
END
|
||
#if source starts with blank tab replace by tab
|
||
sed -e "s/ / /" > src/xxxRecord.dbd <<-\END
|
||
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)
|
||
}
|
||
}
|
||
END
|
||
#if source starts with blank tab replace by tab
|
||
sed -e "s/ / /" > src/devXxxSoft.c <<-\END
|
||
/* devXxxSoft.c */
|
||
/* Example device support module */
|
||
|
||
#include <vxWorks.h>
|
||
#include <stdlib.h>
|
||
#include <stdio.h>
|
||
#include <string.h>
|
||
|
||
#include <alarm.h>
|
||
#include <cvtTable.h>
|
||
#include <dbDefs.h>
|
||
#include <dbAccess.h>
|
||
#include <recSup.h>
|
||
#include <devSup.h>
|
||
#include <link.h>
|
||
#include <xxxRecord.h>
|
||
/* Added for Channel Access Links */
|
||
long dbCaAddInlink();
|
||
long dbCaGetLink();
|
||
|
||
/*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,
|
||
};
|
||
|
||
|
||
static long init_record(pxxx)
|
||
struct xxxRecord *pxxx;
|
||
{
|
||
long status;
|
||
|
||
/* xxx.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
|
||
switch (pxxx->inp.type) {
|
||
case (CONSTANT) :
|
||
if(recGblInitConstantLink(&pxxx->inp,DBF_DOUBLE,&pxxx->val))
|
||
pxxx->udf = FALSE;
|
||
|
||
break;
|
||
case (PV_LINK) :
|
||
case (CA_LINK) :
|
||
case (DB_LINK) :
|
||
break;
|
||
default :
|
||
recGblRecordError(S_db_badField, (void *)pxxx,
|
||
"devXxxSoft (init_record) Illegal INP field");
|
||
|
||
return(S_db_badField);
|
||
}
|
||
return(0);
|
||
}
|
||
|
||
static long read_xxx(pxxx)
|
||
struct xxxRecord *pxxx;
|
||
{
|
||
long status;
|
||
|
||
status = dbGetLink(&(pxxx->inp),DBF_DOUBLE, &(pxxx->val),0,0);
|
||
|
||
if (RTN_SUCCESS(status))
|
||
pxxx->udf = FALSE;
|
||
return(0);
|
||
}
|
||
END
|
||
#if source starts with blank tab replace by tab
|
||
sed -e "s/USER/${USER}/" \
|
||
-e "s/ / /" > src/sncExample.st <<-\END
|
||
program snctest
|
||
float v;
|
||
assign v to "USER:xxxExample";
|
||
monitor v;
|
||
|
||
ss ss1
|
||
{
|
||
state low
|
||
{
|
||
when(v>5.0)
|
||
{
|
||
printf("changing to high\n");
|
||
} state high
|
||
when(delay(.1))
|
||
{
|
||
} state low
|
||
}
|
||
state high
|
||
{
|
||
when(v<=5.0)
|
||
{
|
||
printf("changing to low\n");
|
||
} state low
|
||
when(delay(.1))
|
||
{
|
||
} state high
|
||
}
|
||
}
|
||
END
|
||
cd ..
|
||
echo "add line to Makefile DIRS+=$APPNAME "
|
||
done
|
||
Cleanup 0
|