/*

 *

 * (C) Copyright IBM Corp. 2002-2004 - All Rights Reserved

 *

 */

#include "LETypes.h"

#include "LEGlyphStorage.h"

#include "MPreFixups.h"

U_NAMESPACE_BEGIN

struct FixupData

{

    le_int32 fBaseIndex;

    le_int32 fMPreIndex;

};

MPreFixups::MPreFixups(le_int32 charCount)

    : fFixupData(NULL), fFixupCount(0)

{

    fFixupData = LE_NEW_ARRAY(FixupData, charCount);

}

MPreFixups::~MPreFixups()

{

    LE_DELETE_ARRAY(fFixupData);

    fFixupData = NULL;

}

void MPreFixups::add(le_int32 baseIndex, le_int32 mpreIndex)

{

    // NOTE: don't add the fixup data if the mpre is right

    // before the base consonant glyph.

    if (baseIndex - mpreIndex > 1) {

        fFixupData[fFixupCount].fBaseIndex = baseIndex;

        fFixupData[fFixupCount].fMPreIndex = mpreIndex;

        fFixupCount += 1;

    }

}

void MPreFixups::apply(LEGlyphStorage &glyphStorage, LEErrorCode& success)

{

    if (LE_FAILURE(success)) {

        return;

    }

    for (le_int32 fixup = 0; fixup < fFixupCount; fixup += 1) {

        le_int32 baseIndex = fFixupData[fixup].fBaseIndex;

        le_int32 mpreIndex = fFixupData[fixup].fMPreIndex;

        le_int32 mpreLimit = mpreIndex + 1;

        while (glyphStorage[baseIndex] == 0xFFFF || glyphStorage[baseIndex] == 0xFFFE) {

            baseIndex -= 1;

        }

        while (glyphStorage[mpreLimit] == 0xFFFF || glyphStorage[mpreLimit] == 0xFFFE) {

            mpreLimit += 1;

        }

        if (mpreLimit == baseIndex) {

            continue;

        }

        LEErrorCode success = LE_NO_ERROR;

        le_int32   mpreCount = mpreLimit - mpreIndex;

        le_int32   moveCount = baseIndex - mpreLimit;

        le_int32   mpreDest  = baseIndex - mpreCount;

        LEGlyphID *mpreSave  = LE_NEW_ARRAY(LEGlyphID, mpreCount);

        le_int32  *indexSave = LE_NEW_ARRAY(le_int32, mpreCount);

        if (!mpreSave || !indexSave) {

            LE_DELETE_ARRAY(mpreSave);

            LE_DELETE_ARRAY(indexSave);

            success = LE_MEMORY_ALLOCATION_ERROR;

            return;

        }

        le_int32   i;

        for (i = 0; i < mpreCount; i += 1) {

            mpreSave[i]  = glyphStorage[mpreIndex + i];

            indexSave[i] = glyphStorage.getCharIndex(mpreIndex + i, success); //charIndices[mpreIndex + i];

        }

        for (i = 0; i < moveCount; i += 1) {

            LEGlyphID glyph = glyphStorage[mpreLimit + i];

            le_int32 charIndex = glyphStorage.getCharIndex(mpreLimit + i, success);

            glyphStorage[mpreIndex + i] = glyph;

            glyphStorage.setCharIndex(mpreIndex + i, charIndex, success);

        }

        for (i = 0; i < mpreCount; i += 1) {

            glyphStorage[mpreDest + i] = mpreSave[i];

            glyphStorage.setCharIndex(mpreDest, indexSave[i], success);

        }

        LE_DELETE_ARRAY(indexSave);

        LE_DELETE_ARRAY(mpreSave);

    }

}

U_NAMESPACE_END