/**
 * Copyright - See the COPYRIGHT that is included with this distribution.
 * pvxs is distributed subject to a Software License Agreement found
 * in file LICENSE that is included with this distribution.
 */

#include <iostream>
#include <map>
#include <atomic>

#include <epicsVersion.h>
#include <epicsThread.h>

#define PVXS_ENABLE_EXPERT_API

#include <pvxs/client.h>
#include <pvxs/log.h>
#include <pvxs/json.h>
#include "utilpvt.h"
#include "evhelper.h"
#include "cliutil.h"

#ifndef REALMAIN
#  define REALMAIN main
#endif

using namespace pvxs;

namespace {

void usage(const char* argv0)
{
    std::cerr<<"Usage: "<<argv0<<" <opts> <pvname> [ <value> | <fld>=<value> ...]\n"
               "\n"
               "  -h        Show this message.\n"
               "  -V        Print version and exit.\n"
               "  -r <req>  pvRequest condition.\n"
               "  -v        Make more noise.\n"
               "  -d        Shorthand for $PVXS_LOG=\"pvxs.*=DEBUG\".  Make a lot of noise.\n"
               "  -w <sec>  Operation timeout in seconds.  default 5 sec.\n"
               ;
}

} // namespace

int REALMAIN(int argc, char *argv[])
{
    try {
        logger_config_env(); // from $PVXS_LOG
        double timeout = 5.0;
        bool verbose = false;
        std::string request;

        GetOpt opts(argc, argv, "hvVdw:r:");
        for(auto& pair : opts.arguments) {
            switch(pair.first) {
            case 'h':
                usage(opts.argv0);
                return 0;
            case 'V':
                std::cout<<pvxs::version_information;
                return 0;
            case 'v':
                verbose = true;
                break;
            case 'd':
                logger_level_set("pvxs.*", Level::Debug);
                break;
            case 'w':
                timeout = pair.second.as<double>();
                break;
            case 'r':
                request = *pair.second;
                break;
            default:
                usage(opts.argv0);
                std::cerr<<"\nUnknown argument: "<<pair.first<<std::endl;
                return 1;
            }
        }

        if(opts.positional.size()<2) {
            usage(opts.argv0);
            std::cerr<<"\nExpected PV name and at least one value\n";
            return 1;
        }

        const auto& pvname = opts.positional.front();
        std::map<std::string, std::string> values;

        if(opts.positional.size()==2 && std::string(opts.positional[1]).find_first_of('=')==std::string::npos) {
            // only one field assignment, and field name omitted.
            // if JSON map, treat as entire struct.  Others imply .value

            const auto& sval = opts.positional[1];
            values[sval[0]=='{' ? "" : "value"] = sval;

        } else {
            for(auto n : range(size_t(1), opts.positional.size())) {
                std::string fv(opts.positional[n]);
                auto sep = fv.find_first_of('=');

                if(sep==std::string::npos) {
                    std::cerr<<ERL_ERROR ": expected <fld>=<value> not \""<<escape(fv)<<"\"\n";
                    return 1;
                }

                values[fv.substr(0, sep)] = fv.substr(sep+1);
            }
        }


        auto ctxt(client::Context::fromEnv());

        if(verbose)
            std::cout<<"Effective config\n"<<ctxt.config();

        epicsEvent done;
        int ret=0;

        auto op =ctxt.put(pvname)
                .pvRequest(request)
                .build([&values, verbose](Value&& prototype) -> Value {
                    auto val = std::move(prototype);
                    // clear all defined fields, but retain "current" values for NTEnum lookup.
                    val.unmark(false, true);
                    for(auto& pair : values) {
                        try{
                            auto fld(val);
                            if(!pair.first.empty())
                                fld = val.lookup(pair.first);
                            auto& sv(pair.second);
                            if(!sv.empty() && (sv[0]=='{' || sv[0]=='[' || sv[0]=='"'))
                                json::Parse(pair.second).into(fld);
                            else
                                fld.from(sv);
                        }catch(std::exception& e){
                            throw std::runtime_error(SB()<<"Unable to assign "<<pair.first
                                                     <<" from \""<<escape(pair.second)<<"\""
                                                     <<" : "<<e.what());
                        }
                    }
                    if(verbose) {
                        std::cout<<"Writing fields:\n";
                        Indented I(std::cout);
                        std::cout<<val.format().delta()<<"\n";
                    }
                    return val;
                })
                .result([&ret, &done](client::Result&& result) {
                    try {
                        result();
                    }catch(std::exception& e){
                        std::cerr<<ERL_ERROR " "<<typeid(e).name()<<" : "<<e.what()<<"\n";
                        ret=1;
                    }
                    done.signal();
                })
                .exec();

        // expedite search after starting all requests
        ctxt.hurryUp();

        SigInt sig([&done]() {
            done.signal();
        });

        if(!done.wait(timeout)) {
            std::cerr<<"Timeout\n";
            return 1;
        } else {
            return ret;
        }
    }catch(std::exception& e){
        std::cerr<<ERL_ERROR ": "<<e.what()<<"\n";
        return 1;
    }
}