/* testPVStructureArray.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:  Marty Kraimer Date: 2010.10 */

#include <cstddef>
#include <cstdlib>
#include <cstddef>
#include <string>
#include <cstdio>

#include <epicsAssert.h>
#include <epicsExit.h>

#include <pv/requester.h>
#include <pv/pvIntrospect.h>
#include <pv/pvData.h>
#include <pv/convert.h>
#include <pv/standardField.h>
#include <pv/standardPVField.h>

using namespace epics::pvData;

static bool debug = false;

static FieldCreatePtr fieldCreate;
static PVDataCreatePtr pvDataCreate;
static StandardFieldPtr standardField;
static StandardPVFieldPtr standardPVField;
static ConvertPtr convert;
static String buffer;

static void testPVStructureArray(FILE * fd) {
    if(debug) fprintf(fd,"/ntestPVStructureArray\n");
    StructureArrayConstPtr alarm(
        fieldCreate->createStructureArray(standardField->alarm()));
    PVStructureArrayPtr pvAlarmStructure(
         pvDataCreate->createPVStructureArray(alarm));
    PVStructurePtrArray palarms;
    size_t na=2;
    palarms.reserve(na);
    for(size_t i=0; i<na; i++) {
        palarms.push_back(
            pvDataCreate->createPVStructure(standardField->alarm()));
    }
    pvAlarmStructure->put(0,2,palarms,0);
    buffer.clear();
    pvAlarmStructure->toString(&buffer);
    if(debug) fprintf(fd,"pvAlarmStructure\n%s\n",buffer.c_str());
    PVStructureArrayPtr copy(pvDataCreate->createPVStructureArray(alarm));
    convert->copyStructureArray(pvAlarmStructure,copy);
    buffer.clear();
    copy->toString(&buffer);
    if(debug) fprintf(fd,"copy\n%s\n",buffer.c_str());
    fprintf(fd,"testPVStructureArray PASSED\n");
}

static StructureConstPtr getPowerSupplyStructure() {
    String properties("alarm");
    FieldConstPtrArray  fields;
    StringArray fieldNames;
    fields.reserve(3);
    fieldNames.reserve(3);
    fieldNames.push_back("voltage");
    fieldNames.push_back("power");
    fieldNames.push_back("current");
    fields.push_back(standardField->scalar(pvDouble,properties));
    fields.push_back(standardField->scalar(pvDouble,properties));
    fields.push_back(standardField->scalar(pvDouble,properties));
    StructureConstPtr structure = fieldCreate->createStructure(
        "powerSupply_t",fieldNames,fields);
    return structure;
}

static void testPowerSupplyArray(FILE * fd) {
    if(debug) fprintf(fd,"/ntestPowerSupplyArray\n");
    PVStructurePtr powerSupplyArrayStruct = standardPVField->structureArray(
        getPowerSupplyStructure(),String("alarm,timeStamp"));
    PVStructureArrayPtr powerSupplyArray =
        powerSupplyArrayStruct->getStructureArrayField(String("value"));
    assert(powerSupplyArray.get()!=NULL);
    int offset = powerSupplyArray->append(5);
    if(debug) fprintf(fd,"offset %d\n",offset);
    buffer.clear();
    powerSupplyArrayStruct->toString(&buffer);
    if(debug) fprintf(fd,"after append 5\n%s\n",buffer.c_str());
    powerSupplyArray->remove(0,2);
    buffer.clear();
    powerSupplyArrayStruct->toString(&buffer);
    if(debug) fprintf(fd,"after remove(0,2)\n%s\n",buffer.c_str());
    powerSupplyArray->remove(2,1);
    buffer.clear();
    powerSupplyArrayStruct->toString(&buffer);
    if(debug) fprintf(fd,"after remove 2,1%s\n",buffer.c_str());
    powerSupplyArray->compress();
    buffer.clear();
    powerSupplyArrayStruct->toString(&buffer);
    if(debug) fprintf(fd,"after compress%s\n",buffer.c_str());
    fprintf(fd,"testPowerSupplyArray PASSED\n");
}

int main(int argc,char *argv[])
{
    char *fileName = 0;
    if(argc>1) fileName = argv[1];
    FILE * fd = stdout;
    if(fileName!=0 && fileName[0]!=0) {
        fd = fopen(fileName,"w+");
    }
    fieldCreate = getFieldCreate();
    pvDataCreate = getPVDataCreate();
    standardField = getStandardField();
    standardPVField = getStandardPVField();
    convert = getConvert();
    testPVStructureArray(fd);
    testPowerSupplyArray(fd);
    return(0);
}