move all examples to separate top level build areas.

Documentation needs updating.

exampleLink/Makefile

@@ -0,0 +1,16 @@
+#Makefile at top of application tree
+TOP = .
+include $(TOP)/configure/CONFIG
+DIRS += configure
+
+DIRS += src
+src_DEPEND_DIRS = configure
+
+DIRS += example
+test_DEPEND_DIRS = src
+
+DIRS += iocBoot
+
+include $(TOP)/configure/RULES_TOP
+
+

exampleLink/configure/CONFIG

@@ -0,0 +1,29 @@
+# CONFIG - Load build configuration data
+#
+# Do not make changes to this file!
+
+# Allow user to override where the build rules come from
+RULES = $(EPICS_BASE)
+
+# RELEASE files point to other application tops
+include $(TOP)/configure/RELEASE
+-include $(TOP)/configure/RELEASE.$(EPICS_HOST_ARCH).Common
+ifdef T_A
+-include $(TOP)/configure/RELEASE.Common.$(T_A)
+-include $(TOP)/configure/RELEASE.$(EPICS_HOST_ARCH).$(T_A)
+endif
+
+CONFIG = $(RULES)/configure
+include $(CONFIG)/CONFIG
+
+# Override the Base definition:
+INSTALL_LOCATION = $(TOP)
+
+# CONFIG_SITE files contain other build configuration settings
+include $(TOP)/configure/CONFIG_SITE
+-include $(TOP)/configure/CONFIG_SITE.$(EPICS_HOST_ARCH).Common
+ifdef T_A
+ -include $(TOP)/configure/CONFIG_SITE.Common.$(T_A)
+ -include $(TOP)/configure/CONFIG_SITE.$(EPICS_HOST_ARCH).$(T_A)
+endif
+

exampleLink/configure/CONFIG_SITE

@@ -0,0 +1,39 @@
+# CONFIG_SITE
+
+# Make any application-specific changes to the EPICS build
+#   configuration variables in this file.
+#
+# Host/target specific settings can be specified in files named
+#   CONFIG_SITE.$(EPICS_HOST_ARCH).Common
+#   CONFIG_SITE.Common.$(T_A)
+#   CONFIG_SITE.$(EPICS_HOST_ARCH).$(T_A)
+
+# CHECK_RELEASE controls the consistency checking of the support
+#   applications pointed to by the RELEASE* files.
+# Normally CHECK_RELEASE should be set to YES.
+# Set CHECK_RELEASE to NO to disable checking completely.
+# Set CHECK_RELEASE to WARN to perform consistency checking but
+#   continue building anyway if conflicts are found.
+#CHECK_RELEASE = YES
+
+# Set this when you only want to compile this application
+#   for a subset of the cross-compiled target architectures
+#   that Base is built for.
+#CROSS_COMPILER_TARGET_ARCHS = vxWorks-68040
+
+# To install files into a location other than $(TOP) define
+#   INSTALL_LOCATION here.
+#INSTALL_LOCATION=</path/name/to/install/top>
+
+# Set this when your IOC and the host use different paths
+#   to access the application. This will be needed to boot
+#   from a Microsoft FTP server or with some NFS mounts.
+# You must rebuild in the iocBoot directory for this to
+#   take effect.
+#IOCS_APPL_TOP = </IOC/path/to/application/top>
+
+INSTALL_INCLUDE = $(INSTALL_LOCATION)/include/pv
+USR_INCLUDES += -I $(INSTALL_LOCATION)/include
+
+-include $(TOP)/configure/CONFIG_SITE.local
+-include $(TOP)/../CONFIG.local

exampleLink/configure/Makefile

@@ -0,0 +1,8 @@
+TOP=..
+
+include $(TOP)/configure/CONFIG
+
+TARGETS = $(CONFIG_TARGETS)
+CONFIGS += $(subst ../,,$(wildcard $(CONFIG_INSTALLS)))
+
+include $(TOP)/configure/RULES

exampleLink/configure/RELEASE

@@ -0,0 +1,44 @@
+# RELEASE - Location of external support modules
+#
+# IF YOU MAKE ANY CHANGES to this file you must subsequently
+# do a "gnumake rebuild" in this application's top level
+# directory.
+#
+# The build process does not check dependencies against files
+# that are outside this application, thus you should do a
+# "gnumake rebuild" in the top level directory after EPICS_BASE
+# or any other external module pointed to below is rebuilt.
+#
+# Host- or target-specific settings can be given in files named
+#  RELEASE.$(EPICS_HOST_ARCH).Common
+#  RELEASE.Common.$(T_A)
+#  RELEASE.$(EPICS_HOST_ARCH).$(T_A)
+#
+# This file should ONLY define paths to other support modules,
+# or include statements that pull in similar RELEASE files.
+# Build settings that are NOT module paths should appear in a
+# CONFIG_SITE file.
+
+TEMPLATE_TOP=$(EPICS_BASE)/templates/makeBaseApp/top
+
+# If using the sequencer, point SNCSEQ at its top directory:
+#SNCSEQ=$(EPICS_BASE)/../modules/soft/seq
+
+# EPICS_BASE usually appears last so other apps can override stuff:
+
+# do not edit the locations in this file
+# create RELEASE.local with the paths to your EPICS_BASE, PVDATA, and PVACCESS
+# these default locations are needed for the BNL Jenkins server to work
+
+# Set RULES here if you want to take build rules from somewhere
+# other than EPICS_BASE:
+#RULES=/path/to/epics/support/module/rules/x-y
+
+# Leave these in for the Jenkins build at BNL to work
+EPICS_BASE=/home/install/epics/base
+PVDATA=/home/mrk/hg/pvDataCPP
+PVACCESS=/home/mrk/hg/pvAccessCPP
+
+# set your EPICS_BASE, PVDATA and PVACCESS paths in here
+-include $(TOP)/../RELEASE.local
+-include $(TOP)/configure/RELEASE.local

exampleLink/configure/RELEASE.local

@@ -0,0 +1,8 @@
+EPICS_BASE=/home/install/epics/base
+TEMPLATE_TOP=$(EPICS_BASE)/templates/makeBaseApp/top
+EPICSV4HOME=/home/hg
+PVCOMMON=${EPICSV4HOME}/pvCommonCPP
+PVDATA=${EPICSV4HOME}/pvDataCPP
+PVACCESS=${EPICSV4HOME}/pvAccessCPP
+PVDATABASE=${EPICSV4HOME}/pvDatabaseCPP
+PVASRV=${EPICSV4HOME}/pvaSrv

exampleLink/configure/RULES

@@ -0,0 +1,6 @@
+# RULES
+
+include $(CONFIG)/RULES
+
+# Library should be rebuilt because LIBOBJS may have changed.
+$(LIBNAME): ../Makefile

exampleLink/configure/RULES.ioc

@@ -0,0 +1,2 @@
+#RULES.ioc
+include $(CONFIG)/RULES.ioc

exampleLink/configure/RULES_DIRS

@@ -0,0 +1,2 @@
+#RULES_DIRS
+include $(CONFIG)/RULES_DIRS

exampleLink/configure/RULES_TOP

@@ -0,0 +1,3 @@
+#RULES_TOP
+include $(CONFIG)/RULES_TOP
+

exampleLink/example/Db/Makefile

@@ -0,0 +1,21 @@
+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 += ai.db
+#----------------------------------------------------
+# If <anyname>.db template is not named <anyname>*.template add
+# <anyname>_TEMPLATE = <templatename>
+
+include $(TOP)/configure/RULES
+#----------------------------------------
+#  ADD RULES AFTER THIS LINE
+

exampleLink/example/Db/ai.db

@@ -0,0 +1,13 @@
+record(ai, "$(name)")
+{
+	field(PREC, "1")
+	field(EGU, "amps")
+	field(HIHI, "8")
+	field(HIGH, "6")
+	field(LOW, "4")
+	field(LOLO, "2")
+	field(HHSV, "MAJOR")
+	field(HSV, "MINOR")
+	field(LSV, "MINOR")
+	field(LLSV, "MAJOR")
+}

exampleLink/example/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
+

exampleLink/example/src/Makefile

@@ -0,0 +1,40 @@
+TOP=../..
+
+include $(TOP)/configure/CONFIG
+#----------------------------------------
+#  ADD MACRO DEFINITIONS AFTER THIS LINE
+#=============================
+
+#==================================================
+# Build an IOC support library
+#
+
+#=============================
+# build an ioc application
+
+
+DBD += examplePVADoubleArrayGet.dbd
+
+PROD_IOC += examplePVADoubleArrayGet
+
+
+# <name>_registerRecordDeviceDriver.cpp will be created from <name>.dbd
+examplePVADoubleArrayGet_SRCS += examplePVADoubleArrayGet_registerRecordDeviceDriver.cpp
+examplePVADoubleArrayGet_SRCS_DEFAULT += examplePVADoubleArrayGetMain.cpp
+examplePVADoubleArrayGet_SRCS_vxWorks += -nil-
+
+
+# The following adds support from base/src/vxWorks
+examplePVADoubleArrayGet_OBJS_vxWorks += $(EPICS_BASE_BIN)/vxComLibrary
+
+examplePVADoubleArrayGet_LIBS += pvData pvAccess
+examplePVADoubleArrayGet_LIBS += pvDatabase
+examplePVADoubleArrayGet_LIBS += examplePVADoubleArrayGetSupport
+examplePVADoubleArrayGet_LIBS += $(EPICS_BASE_IOC_LIBS)
+
+#===========================
+
+include $(TOP)/configure/RULES
+#----------------------------------------
+#  ADD RULES AFTER THIS LINE
+

exampleLink/example/src/examplePVADoubleArrayGetInclude.dbd

@@ -0,0 +1,5 @@
+include "base.dbd"
+include "PVAServerRegister.dbd"
+include "PVAClientRegister.dbd"
+include "registerChannelProviderLocal.dbd"
+registrar("examplePVADoubleArrayGetRegister")

exampleLink/example/src/examplePVADoubleArrayGetMain.cpp

@@ -0,0 +1,31 @@
+/* examplePVADoubleArrayGetMain.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);
+}

exampleLink/iocBoot/Makefile

@@ -0,0 +1,7 @@
+TOP = ..
+include $(TOP)/configure/CONFIG
+DIRS += $(wildcard *ioc*)
+DIRS += $(wildcard as*)
+DIRS += $(wildcard example*)
+include $(EPICS_BASE)/configure/RULES_DIRS
+

exampleLink/iocBoot/examplePVADoubleArrayGet/Makefile

@@ -0,0 +1,5 @@
+TOP = ../..
+include $(TOP)/configure/CONFIG
+ARCH = $(EPICS_HOST_ARCH)
+TARGETS = envPaths
+include $(TOP)/configure/RULES.ioc

exampleLink/iocBoot/examplePVADoubleArrayGet/st.local

@@ -0,0 +1,16 @@
+< envPaths
+
+cd ${TOP}
+
+## Register all support components
+dbLoadDatabase("dbd/examplePVADoubleArrayGet.dbd")
+examplePVADoubleArrayGet_registerRecordDeviceDriver(pdbbase)
+
+## Load record instances
+dbLoadRecords("db/dbArray.db","name=double01,type=DOUBLE")
+
+cd ${TOP}/iocBoot/${IOC}
+iocInit()
+startPVAClient
+startPVAServer
+examplePVADoubleArrayGetCreateRecord examplePVADoubleArrayGet local doubleArray

exampleLink/iocBoot/examplePVADoubleArrayGet/st.remote

@@ -0,0 +1,16 @@
+< envPaths
+
+cd ${TOP}
+
+## Register all support components
+dbLoadDatabase("dbd/examplePVADoubleArrayGet.dbd")
+examplePVADoubleArrayGet_registerRecordDeviceDriver(pdbbase)
+
+## Load record instances
+dbLoadRecords("db/dbArray.db","name=double01,type=DOUBLE")
+
+cd ${TOP}/iocBoot/${IOC}
+iocInit()
+startPVAClient
+startPVAServer
+examplePVADoubleArrayGetCreateRecord examplePVADoubleArrayGet pvAccess arrayDouble

exampleLink/src/Makefile

@@ -0,0 +1,29 @@
+TOP=..
+
+include $(TOP)/configure/CONFIG
+#----------------------------------------
+#  ADD MACRO DEFINITIONS AFTER THIS LINE
+#=============================
+
+#==================================================
+# Build an IOC support library
+#
+
+DBD += examplePVADoubleArrayGet.dbd
+
+INC += examplePVADoubleArrayGet.h
+
+LIBRARY_IOC += examplePVADoubleArrayGetSupport
+examplePVADoubleArrayGetSupport_SRCS += examplePVADoubleArrayGet.cpp
+examplePVADoubleArrayGetSupport_SRCS += examplePVADoubleArrayGetRegister.cpp
+examplePVADoubleArrayGetSupport_LIBS += pvData
+examplePVADoubleArrayGetSupport_LIBS += pvAccess
+examplePVADoubleArrayGetSupport_LIBS += pvDatabase
+examplePVADoubleArrayGetSupport_LIBS += $(EPICS_BASE_IOC_LIBS)
+
+#===========================
+
+include $(TOP)/configure/RULES
+#----------------------------------------
+#  ADD RULES AFTER THIS LINE
+

exampleLink/src/examplePVADoubleArrayGet.cpp

@@ -0,0 +1,161 @@
+/* examplePVADoubleArrayGet.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.08.02
+ */
+
+#include <pv/examplePVADoubleArrayGet.h>
+#include <pv/standardPVField.h>
+#include <pv/convert.h>
+
+namespace epics { namespace pvDatabase { 
+using namespace epics::pvData;
+using namespace epics::pvAccess;
+using std::tr1::static_pointer_cast;
+using std::tr1::dynamic_pointer_cast;
+using std::cout;
+using std::endl;
+
+ExamplePVADoubleArrayGetPtr ExamplePVADoubleArrayGet::create(
+    String const & recordName,
+    String const & providerName,
+    String const & channelName)
+{
+    PVStructurePtr pvStructure = getStandardPVField()->scalarArray(
+        pvDouble,"alarm.timeStamp");
+    ExamplePVADoubleArrayGetPtr pvRecord(
+        new ExamplePVADoubleArrayGet(
+           recordName,providerName,channelName,pvStructure));    
+    if(!pvRecord->init()) pvRecord.reset();
+    return pvRecord;
+}
+
+ExamplePVADoubleArrayGet::ExamplePVADoubleArrayGet(
+    String const & recordName,
+    String providerName,
+    String channelName,
+    PVStructurePtr const & pvStructure)
+: PVRecord(recordName,pvStructure),
+  providerName(providerName),
+  channelName(channelName),
+  convert(getConvert())
+{
+}
+
+void ExamplePVADoubleArrayGet::destroy()
+{
+    PVRecord::destroy();
+}
+
+bool ExamplePVADoubleArrayGet::init()
+{
+    initPVRecord();
+
+    PVStructurePtr pvStructure = getPVRecordStructure()->getPVStructure();
+    pvTimeStamp.attach(pvStructure->getSubField("timeStamp"));
+    pvAlarm.attach(pvStructure->getSubField("alarm"));
+    pvValue = static_pointer_cast<PVDoubleArray>(
+        pvStructure->getScalarArrayField("value",pvDouble));
+    if(pvValue==NULL) {
+        return false;
+    }
+    ChannelAccess::shared_pointer channelAccess = getChannelAccess();
+    ChannelProvider::shared_pointer provider =
+        channelAccess->getProvider(providerName);
+    if(provider==NULL) {
+         cout << getRecordName() << " provider "
+              << providerName << " does not exist" << endl;
+        return false;
+    }
+    ChannelRequester::shared_pointer channelRequester =
+        dynamic_pointer_cast<ChannelRequester>(getPtrSelf());
+    channel = provider->createChannel(channelName,channelRequester);
+    event.wait();
+    if(!status.isOK()) {
+        cout << getRecordName() << " createChannel failed "
+             << status.getMessage() << endl;
+        return false;
+    }
+    ChannelGetRequester::shared_pointer channelGetRequester =
+        dynamic_pointer_cast<ChannelGetRequester>(getPtrSelf());
+    PVStructurePtr pvRequest = CreateRequest::create()->createRequest(
+        "value,alarm,timeStamp");
+    channelGet = channel->createChannelGet(channelGetRequester,pvRequest);
+    event.wait();
+    if(!status.isOK()) {
+        cout << getRecordName() << " createChannelGet failed "
+             << status.getMessage() << endl;
+        return false;
+    }
+    getPVValue = static_pointer_cast<PVDoubleArray>(
+        getPVStructure->getScalarArrayField("value",pvDouble));
+    if(getPVValue==NULL) {
+        cout << getRecordName() << " get value not  PVDoubleArray" << endl;
+        return false;
+    }
+    return true;
+}
+
+void ExamplePVADoubleArrayGet::process()
+{
+    status = Status::Ok;
+    channelGet->get(false);
+    event.wait();
+    timeStamp.getCurrent();
+    pvTimeStamp.set(timeStamp);
+    AlarmSeverity severity(noAlarm);
+    if(!status.isOK()) {
+        switch(status.getType()) {
+        case Status::STATUSTYPE_OK: severity = noAlarm; break;
+        case Status::STATUSTYPE_WARNING: severity = minorAlarm; break;
+        case Status::STATUSTYPE_ERROR: severity = majorAlarm; break;
+        case Status::STATUSTYPE_FATAL: severity = invalidAlarm; break;
+        }
+        alarm.setSeverity(severity);
+    } else {
+        convert->copy(getPVValue,pvValue);
+    }
+    alarm.setMessage(status.getMessage());
+    pvAlarm.set(alarm);
+}
+
+void ExamplePVADoubleArrayGet::channelCreated(
+        const Status& status,
+        Channel::shared_pointer const & channel)
+{
+    this->status = status;
+    this->channel = channel;
+    event.signal();
+}
+
+void ExamplePVADoubleArrayGet::channelStateChange(
+        Channel::shared_pointer const & channel,
+        Channel::ConnectionState connectionState)
+{
+}
+
+void ExamplePVADoubleArrayGet::channelGetConnect(
+        const Status& status,
+        ChannelGet::shared_pointer const & channelGet,
+        PVStructure::shared_pointer const & pvStructure,
+        BitSet::shared_pointer const & bitSet)
+{
+    this->status = status;
+    this->channelGet = channelGet;
+    this->getPVStructure = pvStructure;
+    this->bitSet = bitSet;
+    event.signal();
+}
+
+void ExamplePVADoubleArrayGet::getDone(const Status& status)
+{
+    this->status = status;
+    event.signal();
+}
+
+}}

exampleLink/src/examplePVADoubleArrayGet.h

@@ -0,0 +1,89 @@
+/* examplePVADoubleArrayGet.h */
+/**
+ * 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.08.02
+ */
+#ifndef EXAMPLEPVADOUBLEARRAYGET_H
+#define EXAMPLEPVADOUBLEARRAYGET_H
+
+
+#include <pv/timeStamp.h>
+#include <pv/pvTimeStamp.h>
+#include <pv/alarm.h>
+#include <pv/pvAlarm.h>
+#include <pv/pvDatabase.h>
+#include <pv/pvCopy.h>
+#include <pv/pvAccess.h>
+#include <pv/serverContext.h>
+
+namespace epics { namespace pvDatabase { 
+
+
+class ExamplePVADoubleArrayGet;
+typedef std::tr1::shared_ptr<ExamplePVADoubleArrayGet> ExamplePVADoubleArrayGetPtr;
+
+class ExamplePVADoubleArrayGet :
+    public PVRecord,
+    public epics::pvAccess::ChannelRequester,
+    public epics::pvAccess::ChannelGetRequester
+{
+public:
+    POINTER_DEFINITIONS(ExamplePVADoubleArrayGet);
+    static ExamplePVADoubleArrayGetPtr create(
+        epics::pvData::String const & recordName,
+        epics::pvData::String const & providerName,
+        epics::pvData::String const & channelName
+        );
+    virtual ~ExamplePVADoubleArrayGet() {}
+    virtual void destroy();
+    virtual bool init();
+    virtual void process();
+    virtual void channelCreated(
+        const epics::pvData::Status& status,
+        epics::pvAccess::Channel::shared_pointer const & channel);
+    virtual void channelStateChange(
+        epics::pvAccess::Channel::shared_pointer const & channel,
+        epics::pvAccess::Channel::ConnectionState connectionState);
+    virtual void channelGetConnect(
+        const epics::pvData::Status& status,
+        epics::pvAccess::ChannelGet::shared_pointer const & channelGet,
+        epics::pvData::PVStructure::shared_pointer const & pvStructure,
+        epics::pvData::BitSet::shared_pointer const & bitSet);
+    virtual void getDone(const epics::pvData::Status& status);
+    virtual epics::pvData::String getRequesterName() {return channelName;}
+    virtual void message(
+        epics::pvData::String const & message,
+        epics::pvData::MessageType messageType)
+        {
+           std::cout << "Why is ExamplePVADoubleArrayGet::message called\n";
+        }
+private:
+    ExamplePVADoubleArrayGet(epics::pvData::String const & recordName,
+        epics::pvData::String providerName,
+        epics::pvData::String channelName,
+        epics::pvData::PVStructurePtr const & pvStructure);
+    epics::pvData::String providerName;
+    epics::pvData::String channelName;
+    epics::pvData::ConvertPtr convert;
+    epics::pvData::PVDoubleArrayPtr pvValue;
+    epics::pvData::PVTimeStamp pvTimeStamp;
+    epics::pvData::TimeStamp timeStamp;
+    epics::pvData::PVAlarm pvAlarm;
+    epics::pvData::Alarm alarm;
+    epics::pvAccess::Channel::shared_pointer channel;
+    epics::pvAccess::ChannelGet::shared_pointer channelGet;
+    epics::pvData::Event event;
+    epics::pvData::Status status;
+    epics::pvData::PVStructurePtr getPVStructure;
+    epics::pvData::BitSetPtr bitSet;
+    epics::pvData::PVDoubleArrayPtr getPVValue;
+};
+
+}}
+
+#endif  /* EXAMPLEPVADOUBLEARRAYGET_H */

exampleLink/src/examplePVADoubleArrayGetInclude.dbd

@@ -0,0 +1,5 @@
+include "base.dbd"
+include "PVAServerRegister.dbd"
+include "PVAClientRegister.dbd"
+include "registerChannelProviderLocal.dbd"
+registrar("examplePVADoubleArrayGetRegister")

exampleLink/src/examplePVADoubleArrayGetRegister.cpp

@@ -0,0 +1,85 @@
+/*examplePVADoubleArrayGet.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
+ */
+
+
+/* Author: Marty Kraimer */
+
+#include <cstddef>
+#include <cstdlib>
+#include <cstddef>
+#include <string>
+#include <cstdio>
+#include <memory>
+#include <iostream>
+
+#include <cantProceed.h>
+#include <epicsStdio.h>
+#include <epicsMutex.h>
+#include <epicsEvent.h>
+#include <epicsThread.h>
+#include <iocsh.h>
+
+#include <epicsExport.h>
+
+#include <pv/pvIntrospect.h>
+#include <pv/pvData.h>
+#include <pv/standardField.h>
+#include <pv/standardPVField.h>
+#include <pv/pvAccess.h>
+#include <pv/pvDatabase.h>
+#include <pv/examplePVADoubleArrayGet.h>
+
+using namespace epics::pvData;
+using namespace epics::pvAccess;
+using namespace epics::pvDatabase;
+using std::cout;
+using std::endl;
+
+static StandardPVFieldPtr standardPVField = getStandardPVField();
+
+static const iocshArg testArg0 = { "recordName", iocshArgString };
+static const iocshArg testArg1 = { "providerName", iocshArgString };
+static const iocshArg testArg2 = { "channelName", iocshArgString };
+static const iocshArg *testArgs[] = {
+    &testArg0,&testArg1,&testArg2};
+
+static const iocshFuncDef examplePVADoubleArrayGetFuncDef = {
+    "examplePVADoubleArrayGetCreateRecord", 3, testArgs};
+static void examplePVADoubleArrayGetCallFunc(const iocshArgBuf *args)
+{
+    PVDatabasePtr master = PVDatabase::getMaster();
+    PVRecordPtr pvRecord;
+    bool result(false);
+    String recordName;
+    PVStructurePtr pvStructure = standardPVField->scalarArray(
+        pvDouble,"alarm,timeStamp");
+    pvRecord = PVRecord::create("doubleArray",pvStructure);
+    result = master->addRecord(pvRecord);
+    if(!result) cout<< "record " << recordName << " not added" << endl;
+
+    recordName = args[0].sval;
+    char *providerName = args[1].sval;
+    char *channelName = args[2].sval;
+    ExamplePVADoubleArrayGetPtr record = ExamplePVADoubleArrayGet::create(recordName,providerName,channelName);
+    if(record!=NULL) 
+    result = master->addRecord(record);
+    if(!result) cout << "recordname" << " not added" << endl;
+}
+
+static void examplePVADoubleArrayGetRegister(void)
+{
+    static int firstTime = 1;
+    if (firstTime) {
+        firstTime = 0;
+        iocshRegister(&examplePVADoubleArrayGetFuncDef, examplePVADoubleArrayGetCallFunc);
+    }
+}
+epicsExportRegistrar(examplePVADoubleArrayGetRegister);