path: root/lotuswordpro/source/filter/benval.cxx

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*************************************************************************
 *
 *  The Contents of this file are made available subject to the terms of
 *  either of the following licenses
 *
 *         - GNU Lesser General Public License Version 2.1
 *         - Sun Industry Standards Source License Version 1.1
 *
 *  Sun Microsystems Inc., October, 2000
 *
 *  GNU Lesser General Public License Version 2.1
 *  =============================================
 *  Copyright 2000 by Sun Microsystems, Inc.
 *  901 San Antonio Road, Palo Alto, CA 94303, USA
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License version 2.1, as published by the Free Software Foundation.
 *
 *  This library is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 *  MA  02111-1307  USA
 *
 *
 *  Sun Industry Standards Source License Version 1.1
 *  =================================================
 *  The contents of this file are subject to the Sun Industry Standards
 *  Source License Version 1.1 (the "License"); You may not use this file
 *  except in compliance with the License. You may obtain a copy of the
 *  License at http://www.openoffice.org/license.html.
 *
 *  Software provided under this License is provided on an "AS IS" basis,
 *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
 *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
 *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
 *  See the License for the specific provisions governing your rights and
 *  obligations concerning the Software.
 *
 *  The Initial Developer of the Original Code is: IBM Corporation
 *
 *  Copyright: 2008 by IBM Corporation
 *
 *  All Rights Reserved.
 *
 *  Contributor(s): _______________________________________
 *
 *
 ************************************************************************/
#include "first.hxx"
#include "assert.h"
namespace OpenStormBento
{

unsigned long
CBenValue::GetValueSize()
{
    unsigned long Size = 0;
    pCBenValueSegment pCurr = NULL;
    while ((pCurr = GetNextValueSegment(pCurr)) != NULL)
        Size += pCurr->GetSize();
    return Size;
}

BenError
CBenValue::ReadValueData(BenDataPtr pReadBuffer, unsigned long Offset,
  unsigned long Amt, unsigned long * pAmtRead)
{
    BenError Err;
    unsigned long SegOffset = 0;
    *pAmtRead = 0;
    pCBenValueSegment pCurrSeg = NULL;
    pLtcBenContainer pContainer = GetContainer();
    BenByteDataPtr pBuffer = (BenByteDataPtr) pReadBuffer;

    /// pReadBuffer -- pointer to buffer of read result, allocated outside this function
    /// Offset          -- read buffer's start offset address, relative value in the whole value stream
    /// Amt             -- read buffer's size
    /// pAmtRead    -- return the actual read size

    /// SegOffset     -- current segment's start address offset, relative value in the whole value stream

    while ((pCurrSeg = GetNextValueSegment(pCurrSeg)) != NULL)
    {
        if (Amt == 0)               /// whole buffer is full now, so return
            return BenErr_OK;

        if (SegOffset <= Offset && Offset < SegOffset + pCurrSeg->GetSize()) /// begin at current segment
        {
            unsigned long OffsetIntoSeg = Offset - SegOffset;  /// relative value in this value segment stream

            unsigned long AmtThisSeg = UtMin(Amt, pCurrSeg->GetSize() -
                OffsetIntoSeg);           /// size read in this segment, it's minimal value between Amt &
                                          /// remain part from OffsetIntoSeg to the end of this segment

            unsigned long AmtReadThisSeg; /// actual read size in this segment
            if (pCurrSeg->IsImmediate())
            {
                UtHugeMemcpy(pBuffer, pCurrSeg->GetImmediateData() +
                  OffsetIntoSeg, AmtThisSeg);
                AmtReadThisSeg = AmtThisSeg;
            }
            else
            {
                if ((Err = pContainer->SeekToPosition(pCurrSeg->GetPosition() +
                        OffsetIntoSeg)) != BenErr_OK)
                    return Err;

                if ((Err = pContainer->Read(pBuffer, AmtThisSeg,
                                            &AmtReadThisSeg)) != BenErr_OK)
                    return Err;
            }

            *pAmtRead += AmtReadThisSeg;

            if (AmtThisSeg != AmtReadThisSeg)
                return BenErr_UnexpectedEndOfFile;

            pBuffer += AmtReadThisSeg;
            Offset += AmtReadThisSeg;
            Amt -= AmtReadThisSeg;
        }

        SegOffset += pCurrSeg->GetSize();
    }
    return BenErr_OK;
}

BenError
CBenValue::ReadValueDataKnownSize(BenDataPtr pBuffer, unsigned long Offset,
  unsigned long Amt)
{
    unsigned long AmtRead;
    BenError Err = ReadValueData(pBuffer, Offset, Amt, &AmtRead);

    if (Err == UtErr_OK && AmtRead != Amt)
        Err = (BenError) UtErr_Fail;

    return Err;
}

BenError
CBenValue::WriteValueData(BenConstDataPtr pWriteBuffer, unsigned long Offset,
  unsigned long Amt, unsigned long * pAmtWritten)
{
#if 0// Deleted by  2004-06-16
    unsigned long AmtWritten;
    if (pAmtWritten == NULL)
        pAmtWritten = &AmtWritten;

    *pAmtWritten = 0;

    if (Amt == 0)
        return BenErr_OK;

    unsigned long SegOffset = 0;
    pCBenValueSegment pCurrSeg = NULL;
    BenError Err;
    pLtcBenContainer pContainer = GetContainer();
    BenConstByteDataPtr pBuffer = (BenConstByteDataPtr) pWriteBuffer;

    while ((pCurrSeg = GetNextValueSegment(pCurrSeg)) != NULL)
    {
        if (Amt == 0)
            return BenErr_OK;

        if (SegOffset <= Offset && Offset < SegOffset + pCurrSeg->GetSize())
        {
            unsigned long OffsetIntoSeg = Offset - SegOffset;

            unsigned long AmtThisSeg = UtMin(Amt, pCurrSeg->GetSize() -
              OffsetIntoSeg);

            if (pCurrSeg->IsImmediate())
            {
                UtHugeMemcpy(pCurrSeg->GetImmediateData() + OffsetIntoSeg,
                  pBuffer, AmtThisSeg);
                *pAmtWritten += AmtThisSeg;
            }
            else
            {
                if ((Err = pContainer->SeekToPosition(pCurrSeg->GetPosition()
                        + OffsetIntoSeg)) != BenErr_OK)
                    return Err;

                unsigned long AmtWrittenThisWrite;
                Err = pContainer->Write(pBuffer, AmtThisSeg,
                  &AmtWrittenThisWrite);
                *pAmtWritten += AmtWrittenThisWrite;
                if (Err != BenErr_OK)
                    return Err;
            }

            pBuffer += AmtThisSeg;
            Offset += AmtThisSeg;
            Amt -= AmtThisSeg;
        }

        SegOffset += pCurrSeg->GetSize();
    }

    if (Offset > SegOffset)
    {
        assert(! "Write past end of value");
        return BenErr_InvalidWriteOffset;
    }

    if (Amt == 0)
        return BenErr_OK;

    if ((Err = pContainer->SeekFromEnd(0)) != BenErr_OK)
        return Err;

    BenContainerPos EndFilePos;
    if ((Err = pContainer->GetPosition(&EndFilePos)) != BenErr_OK)
        return Err;

    unsigned long AmtWrittenThisWrite;
    Err = pContainer->Write(pBuffer, Amt, &AmtWrittenThisWrite);
    *pAmtWritten += AmtWrittenThisWrite;
    if (Err != BenErr_OK)
        return Err;

    pCBenValueSegment pLastSeg = (pCBenValueSegment) (
      cValueSegments.GetLast() == cValueSegments.GetTerminating() ?
      NULL : cValueSegments.GetLast() );
    if (pLastSeg != NULL && ! pLastSeg->IsImmediate() &&
      pLastSeg->GetPosition() + pLastSeg->GetSize() == EndFilePos)
        pLastSeg->SetSize(pLastSeg->GetSize() + Amt);
    else new CBenValueSegment(this, EndFilePos, Amt);
#endif
    return BenErr_OK;
}

BenError
CBenValue::TruncateValueSize(unsigned long NewSize)
{
    unsigned long SegOffset = 0;

    pCBenValueSegment pCurrSeg = GetNextValueSegment(NULL);
    while (pCurrSeg != NULL)
    {
        pCBenValueSegment pNextSeg = GetNextValueSegment(pCurrSeg);

        long SegSize = UtMin((long) pCurrSeg->GetSize(), (long) NewSize -
          (long) SegOffset);

        if (SegSize <= 0)
            delete pCurrSeg;
        else pCurrSeg->SetSize(SegSize);

        SegOffset += SegSize;
        pCurrSeg = pNextSeg;
    }

    return BenErr_OK;
}

BenError
CBenValue::WriteValueData(BenConstDataPtr pWriteBuffer, unsigned long Offset,
  unsigned long Amt)
{
    unsigned long AmtWritten;
    return WriteValueData(pWriteBuffer, Offset, Amt, &AmtWritten);
}

BenError
CBenValue::WriteImmediateValueData(BenConstDataPtr pBuffer,
  unsigned short Size)
{
    // Only one write can be an immediate value in current implementation
    if (cValueSegments.GetFirst() != cValueSegments.GetTerminating() ||
      Size > 4)
        return BenErr_InvalidImmediateWrite;

    if (Size == 0)
        return BenErr_OK;

    new CBenValueSegment(this, pBuffer, Size);
    return BenErr_OK;
}

BenError
CBenValue::NewReference(BenObjectID ReferencedObjectID, pCBenReference
  pReference)
{
    BenError Err;

    if (cpReferencedList == NULL)
    {
        pLtcBenContainer pContainer = cpProperty->GetContainer();

        pCBenObject pNewObject;
        if ((Err = pContainer->NewObject(&pNewObject)) != BenErr_OK)
            return Err;

        pCBenValue pNewValue;
        if ((Err = pNewObject->NewValue(BEN_PROPID_OBJ_REFERENCES,
          BEN_TYPEID_OBJ_REFERENCES_DATA, &pNewValue)) != BenErr_OK)
        {
            delete pNewObject;
            return Err;
        }

        cpReferencedList = pNewValue;
        cReferencedObjectsSize = 0;
    }

    BenByte Buffer[8];
    UtPutIntelDWord(Buffer, ReferencedObjectID);
    UtPutIntelDWord(Buffer + 4, ReferencedObjectID);

    UtPutIntelDWord(pReference->GetData(), ReferencedObjectID);

    if ((Err = cpReferencedList->WriteValueData(Buffer,
      cReferencedObjectsSize, 8)) != BenErr_OK)
        return Err;

    cReferencedObjectsSize += 8;
    return BenErr_OK;
}

BenObjectID
CBenValue::GetReferencedObject(pCBenReference pReference)
{
    return UtGetIntelDWord(pReference->GetData());
}

BenObjectID
CBenValue::GetReferencedListID()
{
    if (cpReferencedList != NULL)
        return cpReferencedList->GetProperty()->GetBenObject()->GetID();
    else
    {
#ifdef BENUTIL_SUPPORT
        return cReferencedListID;
#else
        return 0;
#endif
    }
}
}//end namespace OpenStormBento

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */