Add example of record which supports RPC and a client

Record has x and y-coordinate fields and a timestamp and also provides
a service which sets (x,y) to a sequence of values.

An RPC client application (move) sends positions as an array.

exampleRPC/ioc/Db/Makefile

@@ -0,0 +1,28 @@
+TOP=../..
+include $(TOP)/configure/CONFIG
+#----------------------------------------
+#  ADD MACRO DEFINITIONS AFTER THIS LINE
+
+#----------------------------------------------------
+#  Optimization of db files using dbst (DEFAULT: NO)
+#DB_OPT = YES
+
+#----------------------------------------------------
+# Create and install (or just install)
+# databases, templates, substitutions like this
+DB += dbScalar.db
+DB += dbInteger.db
+DB += dbArray.db
+DB += dbString.db
+DB += dbStringArray.db
+DB += dbEnum.db
+DB += dbCounter.db
+
+#----------------------------------------------------
+# If <anyname>.db template is not named <anyname>*.template add
+# <anyname>_TEMPLATE = <templatename>
+
+include $(TOP)/configure/RULES
+#----------------------------------------
+#  ADD RULES AFTER THIS LINE
+

exampleRPC/ioc/Db/dbArray.db

@@ -0,0 +1,9 @@
+record(waveform, "$(name)")
+{
+        field(NELM,"5")
+        field(NORD,"5")
+        field(FTVL,"$(type)")
+	field(EGU, "Counts")
+	field(HOPR, "10")
+	field(LOPR, "0")
+}

exampleRPC/ioc/Db/dbCounter.db

@@ -0,0 +1,20 @@
+record(calc, "${name}")
+{
+        field(DESC, "Counter")
+        field(SCAN,"1 second")
+        field(CALC, "(A<B)?(A+C):D")
+        field(INPA, "${name}  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")
+}

exampleRPC/ioc/Db/dbEnum.db

@@ -0,0 +1,14 @@
+record(mbbo, "$(name)")
+{
+    field(NOBT,"2")
+    field(ZRVL,"0")
+    field(ONVL,"1")
+    field(TWVL,"2")
+    field(THVL,"3")
+    field(ZRST,"zero")
+    field(ONST,"one")
+    field(TWST,"two")
+    field(THST,"three")
+    field(TWSV,"MINOR")
+    field(THSV,"MAJOR")
+}

exampleRPC/ioc/Db/dbInteger.db

@@ -0,0 +1,16 @@
+record($(type), "$(name)")
+{
+	field(EGU, "Counts")
+	field(HOPR, "10")
+	field(LOPR, "0")
+	field(DRVH, "9")
+	field(DRVL, "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")
+}

exampleRPC/ioc/Db/dbScalar.db

@@ -0,0 +1,17 @@
+record($(type), "$(name)")
+{
+	field(PREC, "1")
+	field(EGU, "Counts")
+	field(HOPR, "10")
+	field(LOPR, "0")
+	field(DRVH, "9.9")
+	field(DRVL, "-0.1")
+	field(HIHI, "8")
+	field(HIGH, "6")
+	field(LOW, "4")
+	field(LOLO, "2")
+	field(HHSV, "MAJOR")
+	field(HSV, "MINOR")
+	field(LSV, "MINOR")
+	field(LLSV, "MAJOR")
+}

exampleRPC/ioc/Db/dbString.db

@@ -0,0 +1,3 @@
+record(stringout, "$(name)")
+{
+}

exampleRPC/ioc/Db/dbStringArray.db

@@ -0,0 +1,5 @@
+record(waveform, "${name}")
+{
+        field(NELM,"5")
+        field(FTVL,"STRING")
+}

exampleRPC/ioc/Makefile

@@ -0,0 +1,8 @@
+TOP = ..
+include $(TOP)/configure/CONFIG
+DIRS := $(DIRS) $(filter-out $(DIRS), $(wildcard *src*))
+DIRS := $(DIRS) $(filter-out $(DIRS), $(wildcard *Src*))
+DIRS := $(DIRS) $(filter-out $(DIRS), $(wildcard *db*))
+DIRS := $(DIRS) $(filter-out $(DIRS), $(wildcard *Db*))
+include $(TOP)/configure/RULES_DIRS
+

exampleRPC/ioc/src/Makefile

@@ -0,0 +1,41 @@
+TOP=../..
+
+include $(TOP)/configure/CONFIG
+#----------------------------------------
+#  ADD MACRO DEFINITIONS AFTER THIS LINE
+#=============================
+
+#==================================================
+# Build an IOC support library
+#
+
+DBD += exampleRPC.dbd
+
+#=============================
+# build an ioc application
+
+PROD_IOC += exampleRPC
+
+
+# <name>_registerRecordDeviceDriver.cpp will be created from <name>.dbd
+exampleRPC_SRCS += exampleRPC_registerRecordDeviceDriver.cpp
+exampleRPC_SRCS_DEFAULT += exampleRPCMain.cpp
+exampleRPC_SRCS_vxWorks += -nil-
+
+
+# The following adds support from base/src/vxWorks
+exampleRPC_OBJS_vxWorks += $(EPICS_BASE_BIN)/vxComLibrary
+
+exampleRPC_LIBS += exampleRPC
+exampleRPC_LIBS += pvDatabase
+exampleRPC_LIBS += pvaSrv
+exampleRPC_LIBS += pvAccess
+exampleRPC_LIBS += pvData
+exampleRPC_LIBS += $(EPICS_BASE_IOC_LIBS)
+
+#===========================
+
+include $(TOP)/configure/RULES
+#----------------------------------------
+#  ADD RULES AFTER THIS LINE
+

exampleRPC/ioc/src/exampleRPCInclude.dbd

@@ -0,0 +1,6 @@
+include "base.dbd"
+include "PVAClientRegister.dbd"
+include "PVAServerRegister.dbd"
+include "registerChannelProviderLocal.dbd"
+include "dbPv.dbd"
+include "exampleRPC.dbd"

exampleRPC/ioc/src/exampleRPCMain.cpp

@@ -0,0 +1,31 @@
+/* exampleRPCMain.cpp */
+/**
+ * Copyright - See the COPYRIGHT that is included with this distribution.
+ * EPICS pvData is distributed subject to a Software License Agreement found
+ * in file LICENSE that is included with this distribution.
+ */
+/**
+ * @author mrk
+ * @date 2013.07.24
+ */
+
+#include <stddef.h>
+#include <stdlib.h>
+#include <stddef.h>
+#include <string.h>
+#include <stdio.h>
+
+#include "epicsExit.h"
+#include "epicsThread.h"
+#include "iocsh.h"
+
+int main(int argc,char *argv[])
+{
+    if(argc>=2) {    
+        iocsh(argv[1]);
+        epicsThreadSleep(.2);
+    }
+    iocsh(NULL);
+    epicsExit(0);
+    return(0);
+}