/*
 * Copyright information and license terms for this software can be
 * found in the file LICENSE that is included with the distribution
 */
/*
 * serializeHelper.cpp
 *
 *  Created on: Oct 22, 2010
 *      Author: Miha Vitorovic
 */

#include <algorithm>

#include <epicsEndian.h>

#define epicsExportSharedSymbols
#include <pv/pvType.h>
#include <pv/byteBuffer.h>
#include <pv/epicsException.h>
#include <pv/byteBuffer.h>
#include <pv/serializeHelper.h>

using namespace std;

namespace epics {
    namespace pvData {

        void SerializeHelper::writeSize(std::size_t s, ByteBuffer* buffer,
                SerializableControl* flusher) {
            flusher->ensureBuffer(sizeof(int64)+1);
            SerializeHelper::writeSize(s, buffer);
        }

        void SerializeHelper::writeSize(std::size_t s, ByteBuffer* buffer) {
            if(s==(std::size_t)-1) // null    // TODO remove
                buffer->putByte(-1);
            else if(s<254)
                buffer->putByte(static_cast<int8>(s));
            else
            {
                buffer->putByte(-2);
                buffer->putInt(static_cast<uint32>(s)); // (byte)-2 + size
            }
        }

        std::size_t SerializeHelper::readSize(ByteBuffer* buffer,
                DeserializableControl* control) {
            control->ensureData(1);
            int8 b = buffer->getByte();
            if(b==-1)
                return -1;
            else if(b==-2) {
                control->ensureData(sizeof(int32));
                int32 s = buffer->getInt();
                if(s<0) THROW_BASE_EXCEPTION("negative size");
                return s;
            }
            else
                return (std::size_t)(b<0 ? b+256 : b);
        }

        void SerializeHelper::serializeString(const string& value,
                ByteBuffer* buffer, SerializableControl* flusher) {
            std::size_t len = value.length();
            SerializeHelper::writeSize(len, buffer, flusher);
            if (len<=0) return;
            std::size_t i = 0;
            while(true) {
                std::size_t maxToWrite = min(len-i, buffer->getRemaining());
                buffer->put(value.data(), i, maxToWrite); // ASCII
                i += maxToWrite;
                if(i<len)
                    flusher->flushSerializeBuffer();
                else
                    break;
            }
        }

        void SerializeHelper::serializeSubstring(const string& value,
                std::size_t offset, std::size_t count, ByteBuffer* buffer,
                SerializableControl* flusher) {
            /*if(offset<0)
                offset = 0;
            else*/ if(offset>value.length()) offset = value.length();

            if(offset+count>value.length()) count = value.length()-offset;

            SerializeHelper::writeSize(count, buffer, flusher);
            /*if (count<=0)*/ return;
            std::size_t i = 0;
            while(true) {
                std::size_t maxToWrite = min(count-i, buffer->getRemaining());
                buffer->put(value.data(), offset+i, maxToWrite); // ASCII
                i += maxToWrite;
                if(i<count)
                    flusher->flushSerializeBuffer();
                else
                    break;
            }
        }

        string SerializeHelper::deserializeString(ByteBuffer* buffer,
                DeserializableControl* control) {

            std::size_t size = SerializeHelper::readSize(buffer, control);
            if(size!=(size_t)-1)	// TODO null strings check, to be removed in the future
            {
                if (buffer->getRemaining()>=size)
                {
                    // entire string is in buffer, simply create a string out of it (copy)
                    std::size_t pos = buffer->getPosition();
                    string str(buffer->getArray()+pos, size);
                    buffer->setPosition(pos+size);
                    return str;
                }
                else
                {
                    string str;
                    str.reserve(size);
                    try {
                        std::size_t i = 0;
                        while(true) {
                            std::size_t toRead = min(size-i, buffer->getRemaining());
                            std::size_t pos = buffer->getPosition();
                            str.append(buffer->getArray()+pos, toRead);
                            buffer->setPosition(pos+toRead);
                            i += toRead;
                            if(i<size)
                                control->ensureData(1); // at least one
                            else
                                break;
                        }
                        return str;
                    } catch(...) {
                        throw;
                    }
                }
            }
            else
                return std::string();
        }
    }
}

namespace {
using namespace epics::pvData;

struct ToString : public epics::pvData::SerializableControl
{
    typedef std::vector<epicsUInt8> buf_type;
    buf_type buf;
    buf_type& out;
    ByteBuffer bufwrap;

    ToString(buf_type& out, int byteOrder = EPICS_BYTE_ORDER)
        :buf(16*1024)
        ,out(out)
        ,bufwrap((char*)&buf[0], buf.size(), byteOrder)
    {}

    virtual void flushSerializeBuffer()
    {
        size_t N = out.size();
        out.resize(out.size()+bufwrap.getPosition());
        std::copy(buf.begin(),
                  buf.begin()+bufwrap.getPosition(),
                  out.begin()+N);
        bufwrap.clear();
    }

    virtual void ensureBuffer(std::size_t size)
    {
        flushSerializeBuffer();
        assert(bufwrap.getRemaining()>0);
    }

    virtual void alignBuffer(std::size_t alignment)
    {
        if(bufwrap.getRemaining()<alignment)
            flushSerializeBuffer();
        assert(bufwrap.getRemaining()>=alignment);
        bufwrap.align(alignment);
    }

    virtual bool directSerialize(
        ByteBuffer *existingBuffer,
        const char* toSerialize,
        std::size_t elementCount,
        std::size_t elementSize)
    {
        return false;
    }

    virtual void cachedSerialize(
        std::tr1::shared_ptr<const Field> const & field,
        ByteBuffer* buffer)
    {
        field->serialize(buffer, this);
    }
};

} // namespace

namespace epics {
    namespace pvData {
        void serializeToVector(const Serializable *S,
                               int byteOrder,
                               std::vector<epicsUInt8>& out)
        {
            ToString TS(out, byteOrder);
            S->serialize(&TS.bufwrap, &TS);
            TS.flushSerializeBuffer();
            assert(TS.bufwrap.getPosition()==0);
        }
    }
}

namespace {
struct FromString : public epics::pvData::DeserializableControl
{
    ByteBuffer &buf;
    epics::pvData::FieldCreatePtr create;

    FromString(ByteBuffer& b)
        :buf(b)
        ,create(epics::pvData::getFieldCreate())
    {}

    virtual void ensureData(std::size_t size)
    {
        if(size>buf.getRemaining())
            throw std::logic_error("Incomplete buffer");
    }

    virtual void alignData(std::size_t alignment)
    {
        size_t pos = buf.getPosition(), k = alignment-1;
        if(pos&k) {
            std::size_t npad = alignment-(pos&k);
            ensureData(npad);
            buf.align(alignment);
        }
    }

    virtual bool directDeserialize(
        ByteBuffer *existingBuffer,
        char* deserializeTo,
        std::size_t elementCount,
        std::size_t elementSize)
    {
        return false;
    }
    virtual std::tr1::shared_ptr<const Field> cachedDeserialize(
        ByteBuffer* buffer)
    {
        return create->deserialize(buffer, this);
    }
};
}

namespace epics {
    namespace pvData {
        void deserializeFromBuffer(Serializable *S,
                                   ByteBuffer& buf)
        {
            FromString F(buf);
            S->deserialize(&buf, &F);
        }
    }
}