sl@0: /*
sl@0:  *
sl@0:  * (C) Copyright IBM Corp. 1998-2005 - All Rights Reserved
sl@0:  *
sl@0:  */
sl@0: 
sl@0: #include "LETypes.h"
sl@0: #include "OpenTypeUtilities.h"
sl@0: #include "LEFontInstance.h"
sl@0: #include "OpenTypeTables.h"
sl@0: #include "Features.h"
sl@0: #include "Lookups.h"
sl@0: #include "ScriptAndLanguage.h"
sl@0: #include "GlyphDefinitionTables.h"
sl@0: #include "GlyphIterator.h"
sl@0: #include "LookupProcessor.h"
sl@0: #include "LEGlyphStorage.h"
sl@0: #include "LESwaps.h"
sl@0: 
sl@0: U_NAMESPACE_BEGIN
sl@0: 
sl@0: const LETag LookupProcessor::notSelected    = 0x00000000;
sl@0: const LETag LookupProcessor::defaultFeature = 0xFFFFFFFF;
sl@0: 
sl@0: static const LETag emptyTag = 0x00000000;
sl@0: 
sl@0: 
sl@0: le_uint32 LookupProcessor::applyLookupTable(const LookupTable *lookupTable,
sl@0:     GlyphIterator *glyphIterator, const LEFontInstance *fontInstance,
sl@0:     LEErrorCode& success) const
sl@0: {
sl@0:     if (LE_FAILURE(success)) {
sl@0:         return 0;
sl@0:     }
sl@0: 
sl@0:     le_uint16 lookupType = SWAPW(lookupTable->lookupType);
sl@0:     le_uint16 subtableCount = SWAPW(lookupTable->subTableCount);
sl@0:     le_int32 startPosition = glyphIterator->getCurrStreamPosition();
sl@0:     le_uint32 delta;
sl@0: 
sl@0:     for (le_uint16 subtable = 0; subtable < subtableCount; subtable += 1) {
sl@0:         const LookupSubtable *lookupSubtable = lookupTable->getLookupSubtable(subtable);
sl@0: 
sl@0:         delta = applySubtable(lookupSubtable, lookupType, glyphIterator,
sl@0:             fontInstance, success);
sl@0: 
sl@0:         if (delta > 0 || LE_FAILURE(success)) {
sl@0:             return 1;
sl@0:         }
sl@0: 
sl@0:         glyphIterator->setCurrStreamPosition(startPosition);
sl@0:     }
sl@0: 
sl@0:     return 1;
sl@0: }
sl@0: 
sl@0: le_int32 LookupProcessor::process(LEGlyphStorage &glyphStorage, GlyphPositionAdjustments *glyphPositionAdjustments,
sl@0:                               le_bool rightToLeft, const GlyphDefinitionTableHeader *glyphDefinitionTableHeader,
sl@0:                               const LEFontInstance *fontInstance, LEErrorCode& success) const
sl@0: {
sl@0:     if (LE_FAILURE(success)) {
sl@0:         return 0;
sl@0:     }
sl@0: 
sl@0:     le_int32 glyphCount = glyphStorage.getGlyphCount();
sl@0: 
sl@0:     if (lookupSelectArray == NULL) {
sl@0:         return glyphCount;
sl@0:     }
sl@0: 
sl@0:     GlyphIterator glyphIterator(glyphStorage, glyphPositionAdjustments,
sl@0:                                 rightToLeft, 0, 0, glyphDefinitionTableHeader);
sl@0:     le_int32 newGlyphCount = glyphCount;
sl@0: 
sl@0:     for (le_uint16 order = 0; order < lookupOrderCount; order += 1) {
sl@0:         le_uint16 lookup = lookupOrderArray[order];
sl@0:         LETag selectTag = lookupSelectArray[lookup];
sl@0: 
sl@0:         if (selectTag != notSelected) {
sl@0:             const LookupTable *lookupTable = lookupListTable->getLookupTable(lookup);
sl@0:             le_uint16 lookupFlags = SWAPW(lookupTable->lookupFlags);
sl@0:             
sl@0:             glyphIterator.reset(lookupFlags, selectTag);
sl@0: 
sl@0:             while (glyphIterator.findFeatureTag()) {
sl@0:                 le_uint32 delta = 1;
sl@0: 
sl@0:                 while (glyphIterator.next(delta)) {
sl@0:                     delta = applyLookupTable(lookupTable, &glyphIterator, fontInstance, success);
sl@0:                     if (LE_FAILURE(success)) {
sl@0:                         return 0;
sl@0:                     }
sl@0:                 }
sl@0:             }
sl@0: 
sl@0:             newGlyphCount = glyphIterator.applyInsertions();
sl@0:         }
sl@0:     }
sl@0: 
sl@0:     return newGlyphCount;
sl@0: }
sl@0: 
sl@0: le_uint32 LookupProcessor::applySingleLookup(le_uint16 lookupTableIndex, GlyphIterator *glyphIterator,
sl@0:     const LEFontInstance *fontInstance, LEErrorCode& success) const
sl@0: {
sl@0:     if (LE_FAILURE(success)) {
sl@0:         return 0;
sl@0:     }
sl@0: 
sl@0:     const LookupTable *lookupTable = lookupListTable->getLookupTable(lookupTableIndex);
sl@0:     le_uint16 lookupFlags = SWAPW(lookupTable->lookupFlags);
sl@0:     GlyphIterator tempIterator(*glyphIterator, lookupFlags);
sl@0:     le_uint32 delta = applyLookupTable(lookupTable, &tempIterator, fontInstance, success);
sl@0: 
sl@0:     return delta;
sl@0: }
sl@0: 
sl@0: le_int32 LookupProcessor::selectLookups(const FeatureTable *featureTable, LETag featureTag, le_int32 order)
sl@0: {
sl@0:     le_uint16 lookupCount = featureTable? SWAPW(featureTable->lookupCount) : 0;
sl@0:     le_int32  store = order;
sl@0: 
sl@0:     for (le_uint16 lookup = 0; lookup < lookupCount; lookup += 1) {
sl@0:         le_uint16 lookupListIndex = SWAPW(featureTable->lookupListIndexArray[lookup]);
sl@0: 
sl@0:         if (lookupSelectArray[lookupListIndex] == notSelected) { 
sl@0:             lookupSelectArray[lookupListIndex] = featureTag;
sl@0:             lookupOrderArray[store++]   = lookupListIndex;
sl@0:         }
sl@0:     }
sl@0: 
sl@0:     return store - order;
sl@0: }
sl@0: 
sl@0: LookupProcessor::LookupProcessor(const char *baseAddress,
sl@0:         Offset scriptListOffset, Offset featureListOffset, Offset lookupListOffset,
sl@0:         LETag scriptTag, LETag languageTag, const LETag *featureOrder)
sl@0:     : lookupListTable(NULL), featureListTable(NULL), lookupSelectArray(NULL),
sl@0:       requiredFeatureTag(notSelected), lookupOrderArray(NULL), lookupOrderCount(0)
sl@0: {
sl@0:     const ScriptListTable *scriptListTable = NULL;
sl@0:     const LangSysTable *langSysTable = NULL;
sl@0:     le_uint16 featureCount = 0;
sl@0:     le_uint16 lookupListCount = 0;
sl@0:     le_uint16 requiredFeatureIndex;
sl@0: 
sl@0:     if (scriptListOffset != 0) {
sl@0:         scriptListTable = (const ScriptListTable *) (baseAddress + scriptListOffset);
sl@0:         langSysTable = scriptListTable->findLanguage(scriptTag, languageTag);
sl@0: 
sl@0:         if (langSysTable != 0) {
sl@0:             featureCount = SWAPW(langSysTable->featureCount);
sl@0:         }
sl@0:     }
sl@0: 
sl@0:     if (featureListOffset != 0) {
sl@0:         featureListTable = (const FeatureListTable *) (baseAddress + featureListOffset);
sl@0:     }
sl@0: 
sl@0:     if (lookupListOffset != 0) {
sl@0:         lookupListTable = (const LookupListTable *) (baseAddress + lookupListOffset);
sl@0:         lookupListCount = SWAPW(lookupListTable->lookupCount);
sl@0:     }
sl@0:     
sl@0:     if (langSysTable == NULL || featureListTable == NULL || lookupListTable == NULL ||
sl@0:         featureCount == 0 || lookupListCount == 0) {
sl@0:         return;
sl@0:     }
sl@0:  
sl@0:     requiredFeatureIndex = SWAPW(langSysTable->reqFeatureIndex);
sl@0: 
sl@0:     lookupSelectArray = LE_NEW_ARRAY(LETag, lookupListCount);
sl@0:     if (!lookupSelectArray)
sl@0:     	return;
sl@0: 
sl@0:     for (int i = 0; i < lookupListCount; i += 1) {
sl@0:         lookupSelectArray[i] = notSelected;
sl@0:     }
sl@0: 
sl@0:     le_int32 count, order = 0;
sl@0:     const FeatureTable *featureTable = 0;
sl@0:     LETag featureTag;
sl@0: 
sl@0:     lookupOrderArray = LE_NEW_ARRAY(le_uint16, lookupListCount);
sl@0:     if (!lookupOrderArray)
sl@0:     	return;
sl@0: 
sl@0:     if (requiredFeatureIndex != 0xFFFF) {
sl@0:         featureTable = featureListTable->getFeatureTable(requiredFeatureIndex, &featureTag);
sl@0:         order += selectLookups(featureTable, defaultFeature, order);
sl@0:     }
sl@0: 
sl@0:     if (featureOrder != NULL) {
sl@0:         if (order > 1) {
sl@0:             OpenTypeUtilities::sort(lookupOrderArray, order);
sl@0:         }
sl@0: 
sl@0:         for (le_int32 tag = 0; featureOrder[tag] != emptyTag; tag += 1) {
sl@0:             featureTag = featureOrder[tag];
sl@0:             count = 0;
sl@0: 
sl@0:             for (le_uint16 feature = 0; feature < featureCount; feature += 1) {
sl@0:                 le_uint16 featureIndex = SWAPW(langSysTable->featureIndexArray[feature]);
sl@0: 
sl@0:                 featureTable = featureListTable->getFeatureTable(featureIndex, &featureTag);
sl@0: 
sl@0:                 if (featureTag == featureOrder[tag]) {
sl@0:                     count += selectLookups(featureTable, featureTag, order + count);
sl@0:                 }
sl@0:             }
sl@0: 
sl@0:             if (count > 1) {
sl@0:                 OpenTypeUtilities::sort(&lookupOrderArray[order], count);
sl@0:             }
sl@0: 
sl@0:             order += count;
sl@0:         }
sl@0:     } else {
sl@0:         for (le_uint16 feature = 0; feature < featureCount; feature += 1) {
sl@0:             le_uint16 featureIndex = SWAPW(langSysTable->featureIndexArray[feature]);
sl@0:  
sl@0:             // don't add the required feature to the list more than once...
sl@0:             if (featureIndex == requiredFeatureIndex) {
sl@0:                 continue;
sl@0:             }
sl@0: 
sl@0:             featureTable = featureListTable->getFeatureTable(featureIndex, &featureTag);
sl@0:             count = selectLookups(featureTable, featureTag, order);
sl@0:             order += count;
sl@0:         }
sl@0: 
sl@0:         if (order > 1) {
sl@0:             OpenTypeUtilities::sort(lookupOrderArray, order);
sl@0:         }
sl@0:     }
sl@0: 
sl@0:     lookupOrderCount = order;
sl@0: }
sl@0: 
sl@0: LookupProcessor::LookupProcessor()
sl@0: {
sl@0:     lookupOrderArray = 0;
sl@0:     lookupSelectArray = 0;
sl@0: }
sl@0: 
sl@0: le_bool LookupProcessor::isBogus()
sl@0: {
sl@0:     return lookupSelectArray && lookupSelectArray? FALSE : TRUE;
sl@0: }
sl@0: 
sl@0: LookupProcessor::~LookupProcessor()
sl@0: {
sl@0:     LE_DELETE_ARRAY(lookupOrderArray);
sl@0:     LE_DELETE_ARRAY(lookupSelectArray);
sl@0: }
sl@0: 
sl@0: U_NAMESPACE_END