3441 lines
120 KiB
C
3441 lines
120 KiB
C
/*
|
|
* Implementation of Shaping for the Uniscribe Script Processor (usp10.dll)
|
|
*
|
|
* Copyright 2010 CodeWeavers, Aric Stewart
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*
|
|
*/
|
|
#include <stdarg.h>
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "wingdi.h"
|
|
#include "winuser.h"
|
|
#include "winnls.h"
|
|
#include "usp10.h"
|
|
#include "winternl.h"
|
|
|
|
#include "usp10_internal.h"
|
|
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(uniscribe);
|
|
|
|
#define FIRST_ARABIC_CHAR 0x0600
|
|
#define LAST_ARABIC_CHAR 0x06ff
|
|
|
|
typedef VOID (*ContextualShapingProc)(HDC, ScriptCache*, SCRIPT_ANALYSIS*,
|
|
WCHAR*, INT, WORD*, INT*, INT, WORD*);
|
|
|
|
static void ContextualShape_Arabic(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Syriac(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Phags_pa(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Sinhala(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Devanagari(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Bengali(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Gurmukhi(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Gujarati(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Oriya(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Tamil(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Telugu(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Kannada(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
static void ContextualShape_Malayalam(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust);
|
|
|
|
typedef VOID (*ShapeCharGlyphPropProc)( HDC , ScriptCache*, SCRIPT_ANALYSIS*, const WCHAR*, const INT, const WORD*, const INT, WORD*, SCRIPT_CHARPROP*, SCRIPT_GLYPHPROP*);
|
|
|
|
static void ShapeCharGlyphProp_Default( HDC hdc, ScriptCache* psc, SCRIPT_ANALYSIS* psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD* pwLogClust, SCRIPT_CHARPROP* pCharProp, SCRIPT_GLYPHPROP* pGlyphProp);
|
|
static void ShapeCharGlyphProp_Arabic( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP* pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Thai( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_None( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Tibet( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Sinhala( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Devanagari( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Bengali( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Gurmukhi( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Gujarati( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Oriya( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Tamil( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Telugu( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Kannada( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
static void ShapeCharGlyphProp_Malayalam( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp );
|
|
|
|
extern const unsigned short indic_syllabic_table[];
|
|
extern const unsigned short wine_shaping_table[];
|
|
extern const unsigned short wine_shaping_forms[LAST_ARABIC_CHAR - FIRST_ARABIC_CHAR + 1][4];
|
|
|
|
enum joining_types {
|
|
jtU,
|
|
jtT,
|
|
jtR,
|
|
jtL,
|
|
jtD,
|
|
jtC
|
|
};
|
|
|
|
enum joined_forms {
|
|
Xn=0,
|
|
Xr,
|
|
Xl,
|
|
Xm,
|
|
/* Syriac Alaph */
|
|
Afj,
|
|
Afn,
|
|
Afx
|
|
};
|
|
|
|
#ifdef WORDS_BIGENDIAN
|
|
#define GET_BE_WORD(x) (x)
|
|
#else
|
|
#define GET_BE_WORD(x) RtlUshortByteSwap(x)
|
|
#endif
|
|
|
|
/* These are all structures needed for the GSUB table */
|
|
#define GSUB_TAG MS_MAKE_TAG('G', 'S', 'U', 'B')
|
|
#define GSUB_E_NOFEATURE -2
|
|
#define GSUB_E_NOGLYPH -1
|
|
|
|
typedef struct {
|
|
DWORD version;
|
|
WORD ScriptList;
|
|
WORD FeatureList;
|
|
WORD LookupList;
|
|
} GSUB_Header;
|
|
|
|
typedef struct {
|
|
CHAR ScriptTag[4];
|
|
WORD Script;
|
|
} GSUB_ScriptRecord;
|
|
|
|
typedef struct {
|
|
WORD ScriptCount;
|
|
GSUB_ScriptRecord ScriptRecord[1];
|
|
} GSUB_ScriptList;
|
|
|
|
typedef struct {
|
|
CHAR LangSysTag[4];
|
|
WORD LangSys;
|
|
} GSUB_LangSysRecord;
|
|
|
|
typedef struct {
|
|
WORD DefaultLangSys;
|
|
WORD LangSysCount;
|
|
GSUB_LangSysRecord LangSysRecord[1];
|
|
} GSUB_Script;
|
|
|
|
typedef struct {
|
|
WORD LookupOrder; /* Reserved */
|
|
WORD ReqFeatureIndex;
|
|
WORD FeatureCount;
|
|
WORD FeatureIndex[1];
|
|
} GSUB_LangSys;
|
|
|
|
typedef struct {
|
|
CHAR FeatureTag[4];
|
|
WORD Feature;
|
|
} GSUB_FeatureRecord;
|
|
|
|
typedef struct {
|
|
WORD FeatureCount;
|
|
GSUB_FeatureRecord FeatureRecord[1];
|
|
} GSUB_FeatureList;
|
|
|
|
typedef struct {
|
|
WORD FeatureParams; /* Reserved */
|
|
WORD LookupCount;
|
|
WORD LookupListIndex[1];
|
|
} GSUB_Feature;
|
|
|
|
typedef struct {
|
|
WORD LookupCount;
|
|
WORD Lookup[1];
|
|
} GSUB_LookupList;
|
|
|
|
typedef struct {
|
|
WORD LookupType;
|
|
WORD LookupFlag;
|
|
WORD SubTableCount;
|
|
WORD SubTable[1];
|
|
} GSUB_LookupTable;
|
|
|
|
typedef struct {
|
|
WORD CoverageFormat;
|
|
WORD GlyphCount;
|
|
WORD GlyphArray[1];
|
|
} GSUB_CoverageFormat1;
|
|
|
|
typedef struct {
|
|
WORD Start;
|
|
WORD End;
|
|
WORD StartCoverageIndex;
|
|
} GSUB_RangeRecord;
|
|
|
|
typedef struct {
|
|
WORD CoverageFormat;
|
|
WORD RangeCount;
|
|
GSUB_RangeRecord RangeRecord[1];
|
|
} GSUB_CoverageFormat2;
|
|
|
|
typedef struct {
|
|
WORD SubstFormat; /* = 1 */
|
|
WORD Coverage;
|
|
WORD DeltaGlyphID;
|
|
} GSUB_SingleSubstFormat1;
|
|
|
|
typedef struct {
|
|
WORD SubstFormat; /* = 2 */
|
|
WORD Coverage;
|
|
WORD GlyphCount;
|
|
WORD Substitute[1];
|
|
}GSUB_SingleSubstFormat2;
|
|
|
|
typedef struct {
|
|
WORD SubstFormat; /* = 1 */
|
|
WORD Coverage;
|
|
WORD SequenceCount;
|
|
WORD Sequence[1];
|
|
}GSUB_MultipleSubstFormat1;
|
|
|
|
typedef struct {
|
|
WORD GlyphCount;
|
|
WORD Substitute[1];
|
|
}GSUB_Sequence;
|
|
|
|
typedef struct {
|
|
WORD SubstFormat; /* = 1 */
|
|
WORD Coverage;
|
|
WORD LigSetCount;
|
|
WORD LigatureSet[1];
|
|
}GSUB_LigatureSubstFormat1;
|
|
|
|
typedef struct {
|
|
WORD LigatureCount;
|
|
WORD Ligature[1];
|
|
}GSUB_LigatureSet;
|
|
|
|
typedef struct{
|
|
WORD LigGlyph;
|
|
WORD CompCount;
|
|
WORD Component[1];
|
|
}GSUB_Ligature;
|
|
|
|
typedef struct{
|
|
WORD SequenceIndex;
|
|
WORD LookupListIndex;
|
|
|
|
}GSUB_SubstLookupRecord;
|
|
|
|
typedef struct{
|
|
WORD SubstFormat; /* = 1 */
|
|
WORD Coverage;
|
|
WORD ChainSubRuleSetCount;
|
|
WORD ChainSubRuleSet[1];
|
|
}GSUB_ChainContextSubstFormat1;
|
|
|
|
typedef struct {
|
|
WORD SubstFormat; /* = 3 */
|
|
WORD BacktrackGlyphCount;
|
|
WORD Coverage[1];
|
|
}GSUB_ChainContextSubstFormat3_1;
|
|
|
|
typedef struct{
|
|
WORD InputGlyphCount;
|
|
WORD Coverage[1];
|
|
}GSUB_ChainContextSubstFormat3_2;
|
|
|
|
typedef struct{
|
|
WORD LookaheadGlyphCount;
|
|
WORD Coverage[1];
|
|
}GSUB_ChainContextSubstFormat3_3;
|
|
|
|
typedef struct{
|
|
WORD SubstCount;
|
|
GSUB_SubstLookupRecord SubstLookupRecord[1];
|
|
}GSUB_ChainContextSubstFormat3_4;
|
|
|
|
typedef struct {
|
|
WORD SubstFormat; /* = 1 */
|
|
WORD Coverage;
|
|
WORD AlternateSetCount;
|
|
WORD AlternateSet[1];
|
|
} GSUB_AlternateSubstFormat1;
|
|
|
|
typedef struct{
|
|
WORD GlyphCount;
|
|
WORD Alternate[1];
|
|
} GSUB_AlternateSet;
|
|
|
|
/* These are all structures needed for the GDEF table */
|
|
#define GDEF_TAG MS_MAKE_TAG('G', 'D', 'E', 'F')
|
|
|
|
enum {BaseGlyph=1, LigatureGlyph, MarkGlyph, ComponentGlyph};
|
|
|
|
typedef struct {
|
|
DWORD Version;
|
|
WORD GlyphClassDef;
|
|
WORD AttachList;
|
|
WORD LigCaretList;
|
|
WORD MarkAttachClassDef;
|
|
} GDEF_Header;
|
|
|
|
typedef struct {
|
|
WORD ClassFormat;
|
|
WORD StartGlyph;
|
|
WORD GlyphCount;
|
|
WORD ClassValueArray[1];
|
|
} GDEF_ClassDefFormat1;
|
|
|
|
typedef struct {
|
|
WORD Start;
|
|
WORD End;
|
|
WORD Class;
|
|
} GDEF_ClassRangeRecord;
|
|
|
|
typedef struct {
|
|
WORD ClassFormat;
|
|
WORD ClassRangeCount;
|
|
GDEF_ClassRangeRecord ClassRangeRecord[1];
|
|
} GDEF_ClassDefFormat2;
|
|
|
|
static INT GSUB_apply_lookup(const GSUB_LookupList* lookup, INT lookup_index, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count);
|
|
|
|
typedef struct tagVowelComponents
|
|
{
|
|
WCHAR base;
|
|
WCHAR parts[3];
|
|
} VowelComponents;
|
|
|
|
typedef struct tagConsonantComponents
|
|
{
|
|
WCHAR parts[3];
|
|
WCHAR output;
|
|
} ConsonantComponents;
|
|
|
|
typedef void (*second_reorder_function)(LPWSTR pwChar, IndicSyllable *syllable,WORD* pwGlyphs, IndicSyllable* glyph_index, lexical_function lex);
|
|
|
|
/* the orders of joined_forms and contextual_features need to line up */
|
|
static const char* contextual_features[] =
|
|
{
|
|
"isol",
|
|
"fina",
|
|
"init",
|
|
"medi",
|
|
/* Syriac Alaph */
|
|
"med2",
|
|
"fin2",
|
|
"fin3"
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD standard_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('c','c','m','p'), 1},
|
|
{ MS_MAKE_TAG('l','o','c','l'), 1},
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD latin_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('l','i','g','a'), 1},
|
|
{ MS_MAKE_TAG('c','l','i','g'), 1},
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD arabic_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('r','l','i','g'), 1},
|
|
{ MS_MAKE_TAG('c','a','l','t'), 1},
|
|
{ MS_MAKE_TAG('l','i','g','a'), 1},
|
|
{ MS_MAKE_TAG('d','l','i','g'), 1},
|
|
{ MS_MAKE_TAG('c','s','w','h'), 1},
|
|
{ MS_MAKE_TAG('m','s','e','t'), 1},
|
|
};
|
|
|
|
static const char* required_arabic_features[] =
|
|
{
|
|
"fina",
|
|
"init",
|
|
"medi",
|
|
"rlig",
|
|
NULL
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD hebrew_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('d','l','i','g'), 0},
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD syriac_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('r','l','i','g'), 1},
|
|
{ MS_MAKE_TAG('c','a','l','t'), 1},
|
|
{ MS_MAKE_TAG('l','i','g','a'), 1},
|
|
{ MS_MAKE_TAG('d','l','i','g'), 1},
|
|
};
|
|
|
|
static const char* required_syriac_features[] =
|
|
{
|
|
"fina",
|
|
"fin2",
|
|
"fin3",
|
|
"init",
|
|
"medi",
|
|
"med2",
|
|
"rlig",
|
|
NULL
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD sinhala_features[] =
|
|
{
|
|
/* Presentation forms */
|
|
{ MS_MAKE_TAG('b','l','w','s'), 1},
|
|
{ MS_MAKE_TAG('a','b','v','s'), 1},
|
|
{ MS_MAKE_TAG('p','s','t','s'), 1},
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD tibetan_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('a','b','v','s'), 1},
|
|
{ MS_MAKE_TAG('b','l','w','s'), 1},
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD thai_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('c','c','m','p'), 1},
|
|
};
|
|
|
|
static const char* required_lao_features[] =
|
|
{
|
|
"ccmp",
|
|
NULL
|
|
};
|
|
|
|
static const char* required_devanagari_features[] =
|
|
{
|
|
"nukt",
|
|
"akhn",
|
|
"rphf",
|
|
"blwf",
|
|
"half",
|
|
"vatu",
|
|
"pres",
|
|
"abvs",
|
|
"blws",
|
|
"psts",
|
|
"haln",
|
|
NULL
|
|
};
|
|
|
|
static OPENTYPE_FEATURE_RECORD devanagari_features[] =
|
|
{
|
|
{ MS_MAKE_TAG('p','r','e','s'), 1},
|
|
{ MS_MAKE_TAG('a','b','v','s'), 1},
|
|
{ MS_MAKE_TAG('b','l','w','s'), 1},
|
|
{ MS_MAKE_TAG('p','s','t','s'), 1},
|
|
{ MS_MAKE_TAG('h','a','l','n'), 1},
|
|
{ MS_MAKE_TAG('c','a','l','t'), 1},
|
|
};
|
|
|
|
static const char* required_bengali_features[] =
|
|
{
|
|
"nukt",
|
|
"akhn",
|
|
"rphf",
|
|
"blwf",
|
|
"half",
|
|
"vatu",
|
|
"pstf",
|
|
"init",
|
|
"abvs",
|
|
"blws",
|
|
"psts",
|
|
"haln",
|
|
NULL
|
|
};
|
|
|
|
static const char* required_gurmukhi_features[] =
|
|
{
|
|
"nukt",
|
|
"akhn",
|
|
"rphf",
|
|
"blwf",
|
|
"half",
|
|
"pstf",
|
|
"vatu",
|
|
"cjct",
|
|
"pres",
|
|
"abvs",
|
|
"blws",
|
|
"psts",
|
|
"haln",
|
|
"calt",
|
|
NULL
|
|
};
|
|
|
|
static const char* required_oriya_features[] =
|
|
{
|
|
"nukt",
|
|
"akhn",
|
|
"rphf",
|
|
"blwf",
|
|
"pstf",
|
|
"cjct",
|
|
"pres",
|
|
"abvs",
|
|
"blws",
|
|
"psts",
|
|
"haln",
|
|
"calt",
|
|
NULL
|
|
};
|
|
|
|
static const char* required_tamil_features[] =
|
|
{
|
|
"nukt",
|
|
"akhn",
|
|
"rphf",
|
|
"pref",
|
|
"half",
|
|
"pres",
|
|
"abvs",
|
|
"blws",
|
|
"psts",
|
|
"haln",
|
|
"calt",
|
|
NULL
|
|
};
|
|
|
|
static const char* required_telugu_features[] =
|
|
{
|
|
"nukt",
|
|
"akhn",
|
|
"rphf",
|
|
"pref",
|
|
"half",
|
|
"pstf",
|
|
"cjct",
|
|
"pres",
|
|
"abvs",
|
|
"blws",
|
|
"psts",
|
|
"haln",
|
|
"calt",
|
|
NULL
|
|
};
|
|
|
|
typedef struct ScriptShapeDataTag {
|
|
TEXTRANGE_PROPERTIES defaultTextRange;
|
|
const char** requiredFeatures;
|
|
CHAR otTag[5];
|
|
CHAR newOtTag[5];
|
|
ContextualShapingProc contextProc;
|
|
ShapeCharGlyphPropProc charGlyphPropProc;
|
|
} ScriptShapeData;
|
|
|
|
/* in order of scripts */
|
|
static const ScriptShapeData ShapingData[] =
|
|
{
|
|
{{ standard_features, 2}, NULL, "", "", NULL, NULL},
|
|
{{ latin_features, 2}, NULL, "latn", "", NULL, NULL},
|
|
{{ latin_features, 2}, NULL, "latn", "", NULL, NULL},
|
|
{{ latin_features, 2}, NULL, "latn", "", NULL, NULL},
|
|
{{ standard_features, 2}, NULL, "" , "", NULL, NULL},
|
|
{{ latin_features, 2}, NULL, "latn", "", NULL, NULL},
|
|
{{ arabic_features, 6}, required_arabic_features, "arab", "", ContextualShape_Arabic, ShapeCharGlyphProp_Arabic},
|
|
{{ arabic_features, 6}, required_arabic_features, "arab", "", ContextualShape_Arabic, ShapeCharGlyphProp_Arabic},
|
|
{{ hebrew_features, 1}, NULL, "hebr", "", NULL, NULL},
|
|
{{ syriac_features, 4}, required_syriac_features, "syrc", "", ContextualShape_Syriac, ShapeCharGlyphProp_None},
|
|
{{ arabic_features, 6}, required_arabic_features, "arab", "", ContextualShape_Arabic, ShapeCharGlyphProp_Arabic},
|
|
{{ NULL, 0}, NULL, "thaa", "", NULL, ShapeCharGlyphProp_None},
|
|
{{ standard_features, 2}, NULL, "grek", "", NULL, NULL},
|
|
{{ standard_features, 2}, NULL, "cyrl", "", NULL, NULL},
|
|
{{ standard_features, 2}, NULL, "armn", "", NULL, NULL},
|
|
{{ standard_features, 2}, NULL, "geor", "", NULL, NULL},
|
|
{{ sinhala_features, 3}, NULL, "sinh", "", ContextualShape_Sinhala, ShapeCharGlyphProp_Sinhala},
|
|
{{ tibetan_features, 2}, NULL, "tibt", "", NULL, ShapeCharGlyphProp_Tibet},
|
|
{{ tibetan_features, 2}, NULL, "tibt", "", NULL, ShapeCharGlyphProp_Tibet},
|
|
{{ tibetan_features, 2}, NULL, "phag", "", ContextualShape_Phags_pa, ShapeCharGlyphProp_Thai},
|
|
{{ thai_features, 1}, NULL, "thai", "", NULL, ShapeCharGlyphProp_Thai},
|
|
{{ thai_features, 1}, NULL, "thai", "", NULL, ShapeCharGlyphProp_Thai},
|
|
{{ thai_features, 1}, required_lao_features, "lao", "", NULL, ShapeCharGlyphProp_Thai},
|
|
{{ thai_features, 1}, required_lao_features, "lao", "", NULL, ShapeCharGlyphProp_Thai},
|
|
{{ devanagari_features, 6}, required_devanagari_features, "deva", "dev2", ContextualShape_Devanagari, ShapeCharGlyphProp_Devanagari},
|
|
{{ devanagari_features, 6}, required_devanagari_features, "deva", "dev2", ContextualShape_Devanagari, ShapeCharGlyphProp_Devanagari},
|
|
{{ devanagari_features, 6}, required_bengali_features, "beng", "bng2", ContextualShape_Bengali, ShapeCharGlyphProp_Bengali},
|
|
{{ devanagari_features, 6}, required_bengali_features, "beng", "bng2", ContextualShape_Bengali, ShapeCharGlyphProp_Bengali},
|
|
{{ devanagari_features, 6}, required_bengali_features, "beng", "bng2", ContextualShape_Bengali, ShapeCharGlyphProp_Bengali},
|
|
{{ devanagari_features, 6}, required_gurmukhi_features, "guru", "gur2", ContextualShape_Gurmukhi, ShapeCharGlyphProp_Gurmukhi},
|
|
{{ devanagari_features, 6}, required_gurmukhi_features, "guru", "gur2", ContextualShape_Gurmukhi, ShapeCharGlyphProp_Gurmukhi},
|
|
{{ devanagari_features, 6}, required_devanagari_features, "gujr", "gjr2", ContextualShape_Gujarati, ShapeCharGlyphProp_Gujarati},
|
|
{{ devanagari_features, 6}, required_devanagari_features, "gujr", "gjr2", ContextualShape_Gujarati, ShapeCharGlyphProp_Gujarati},
|
|
{{ devanagari_features, 6}, required_devanagari_features, "gujr", "gjr2", ContextualShape_Gujarati, ShapeCharGlyphProp_Gujarati},
|
|
{{ devanagari_features, 6}, required_oriya_features, "orya", "ory2", ContextualShape_Oriya, ShapeCharGlyphProp_Oriya},
|
|
{{ devanagari_features, 6}, required_oriya_features, "orya", "ory2", ContextualShape_Oriya, ShapeCharGlyphProp_Oriya},
|
|
{{ devanagari_features, 6}, required_tamil_features, "taml", "tam2", ContextualShape_Tamil, ShapeCharGlyphProp_Tamil},
|
|
{{ devanagari_features, 6}, required_tamil_features, "taml", "tam2", ContextualShape_Tamil, ShapeCharGlyphProp_Tamil},
|
|
{{ devanagari_features, 6}, required_telugu_features, "telu", "tel2", ContextualShape_Telugu, ShapeCharGlyphProp_Telugu},
|
|
{{ devanagari_features, 6}, required_telugu_features, "telu", "tel2", ContextualShape_Telugu, ShapeCharGlyphProp_Telugu},
|
|
{{ devanagari_features, 6}, required_telugu_features, "knda", "knd2", ContextualShape_Kannada, ShapeCharGlyphProp_Kannada},
|
|
{{ devanagari_features, 6}, required_telugu_features, "knda", "knd2", ContextualShape_Kannada, ShapeCharGlyphProp_Kannada},
|
|
{{ devanagari_features, 6}, required_telugu_features, "mlym", "mlm2", ContextualShape_Malayalam, ShapeCharGlyphProp_Malayalam},
|
|
{{ devanagari_features, 6}, required_telugu_features, "mlym", "mlm2", ContextualShape_Malayalam, ShapeCharGlyphProp_Malayalam},
|
|
{{ standard_features, 2}, NULL, "" , "", NULL, NULL},
|
|
{{ latin_features, 2}, NULL, "latn" , "", NULL, NULL},
|
|
{{ standard_features, 2}, NULL, "" , "", NULL, NULL},
|
|
};
|
|
|
|
static INT GSUB_is_glyph_covered(LPCVOID table , UINT glyph)
|
|
{
|
|
const GSUB_CoverageFormat1* cf1;
|
|
|
|
cf1 = table;
|
|
|
|
if (GET_BE_WORD(cf1->CoverageFormat) == 1)
|
|
{
|
|
int count = GET_BE_WORD(cf1->GlyphCount);
|
|
int i;
|
|
TRACE("Coverage Format 1, %i glyphs\n",count);
|
|
for (i = 0; i < count; i++)
|
|
if (glyph == GET_BE_WORD(cf1->GlyphArray[i]))
|
|
return i;
|
|
return -1;
|
|
}
|
|
else if (GET_BE_WORD(cf1->CoverageFormat) == 2)
|
|
{
|
|
const GSUB_CoverageFormat2* cf2;
|
|
int i;
|
|
int count;
|
|
cf2 = (const GSUB_CoverageFormat2*)cf1;
|
|
|
|
count = GET_BE_WORD(cf2->RangeCount);
|
|
TRACE("Coverage Format 2, %i ranges\n",count);
|
|
for (i = 0; i < count; i++)
|
|
{
|
|
if (glyph < GET_BE_WORD(cf2->RangeRecord[i].Start))
|
|
return -1;
|
|
if ((glyph >= GET_BE_WORD(cf2->RangeRecord[i].Start)) &&
|
|
(glyph <= GET_BE_WORD(cf2->RangeRecord[i].End)))
|
|
{
|
|
return (GET_BE_WORD(cf2->RangeRecord[i].StartCoverageIndex) +
|
|
glyph - GET_BE_WORD(cf2->RangeRecord[i].Start));
|
|
}
|
|
}
|
|
return -1;
|
|
}
|
|
else
|
|
ERR("Unknown CoverageFormat %i\n",GET_BE_WORD(cf1->CoverageFormat));
|
|
|
|
return -1;
|
|
}
|
|
|
|
static const GSUB_Script* GSUB_get_script_table( const GSUB_Header* header, const char* tag)
|
|
{
|
|
const GSUB_ScriptList *script;
|
|
const GSUB_Script *deflt = NULL;
|
|
int i;
|
|
script = (const GSUB_ScriptList*)((const BYTE*)header + GET_BE_WORD(header->ScriptList));
|
|
|
|
TRACE("%i scripts in this font\n",GET_BE_WORD(script->ScriptCount));
|
|
for (i = 0; i < GET_BE_WORD(script->ScriptCount); i++)
|
|
{
|
|
const GSUB_Script *scr;
|
|
int offset;
|
|
|
|
offset = GET_BE_WORD(script->ScriptRecord[i].Script);
|
|
scr = (const GSUB_Script*)((const BYTE*)script + offset);
|
|
|
|
if (strncmp(script->ScriptRecord[i].ScriptTag, tag,4)==0)
|
|
return scr;
|
|
if (strncmp(script->ScriptRecord[i].ScriptTag, "dflt",4)==0)
|
|
deflt = scr;
|
|
}
|
|
return deflt;
|
|
}
|
|
|
|
static const GSUB_LangSys* GSUB_get_lang_table( const GSUB_Script* script, const char* tag)
|
|
{
|
|
int i;
|
|
int offset;
|
|
const GSUB_LangSys *Lang;
|
|
|
|
TRACE("Deflang %x, LangCount %i\n",GET_BE_WORD(script->DefaultLangSys), GET_BE_WORD(script->LangSysCount));
|
|
|
|
for (i = 0; i < GET_BE_WORD(script->LangSysCount) ; i++)
|
|
{
|
|
offset = GET_BE_WORD(script->LangSysRecord[i].LangSys);
|
|
Lang = (const GSUB_LangSys*)((const BYTE*)script + offset);
|
|
|
|
if ( strncmp(script->LangSysRecord[i].LangSysTag,tag,4)==0)
|
|
return Lang;
|
|
}
|
|
offset = GET_BE_WORD(script->DefaultLangSys);
|
|
if (offset)
|
|
{
|
|
Lang = (const GSUB_LangSys*)((const BYTE*)script + offset);
|
|
return Lang;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
static const GSUB_Feature * GSUB_get_feature(const GSUB_Header *header, const GSUB_LangSys *lang, const char* tag)
|
|
{
|
|
int i;
|
|
const GSUB_FeatureList *feature;
|
|
feature = (const GSUB_FeatureList*)((const BYTE*)header + GET_BE_WORD(header->FeatureList));
|
|
|
|
TRACE("%i features\n",GET_BE_WORD(lang->FeatureCount));
|
|
for (i = 0; i < GET_BE_WORD(lang->FeatureCount); i++)
|
|
{
|
|
int index = GET_BE_WORD(lang->FeatureIndex[i]);
|
|
if (strncmp(feature->FeatureRecord[index].FeatureTag,tag,4)==0)
|
|
{
|
|
const GSUB_Feature *feat;
|
|
feat = (const GSUB_Feature*)((const BYTE*)feature + GET_BE_WORD(feature->FeatureRecord[index].Feature));
|
|
return feat;
|
|
}
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
static INT GSUB_apply_SingleSubst(const GSUB_LookupTable *look, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count)
|
|
{
|
|
int j;
|
|
TRACE("Single Substitution Subtable\n");
|
|
|
|
for (j = 0; j < GET_BE_WORD(look->SubTableCount); j++)
|
|
{
|
|
int offset;
|
|
const GSUB_SingleSubstFormat1 *ssf1;
|
|
offset = GET_BE_WORD(look->SubTable[j]);
|
|
ssf1 = (const GSUB_SingleSubstFormat1*)((const BYTE*)look+offset);
|
|
if (GET_BE_WORD(ssf1->SubstFormat) == 1)
|
|
{
|
|
int offset = GET_BE_WORD(ssf1->Coverage);
|
|
TRACE(" subtype 1, delta %i\n", GET_BE_WORD(ssf1->DeltaGlyphID));
|
|
if (GSUB_is_glyph_covered((const BYTE*)ssf1+offset, glyphs[glyph_index]) != -1)
|
|
{
|
|
TRACE(" Glyph 0x%x ->",glyphs[glyph_index]);
|
|
glyphs[glyph_index] = glyphs[glyph_index] + GET_BE_WORD(ssf1->DeltaGlyphID);
|
|
TRACE(" 0x%x\n",glyphs[glyph_index]);
|
|
return glyph_index + write_dir;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
const GSUB_SingleSubstFormat2 *ssf2;
|
|
INT index;
|
|
INT offset;
|
|
|
|
ssf2 = (const GSUB_SingleSubstFormat2 *)ssf1;
|
|
offset = GET_BE_WORD(ssf1->Coverage);
|
|
TRACE(" subtype 2, glyph count %i\n", GET_BE_WORD(ssf2->GlyphCount));
|
|
index = GSUB_is_glyph_covered((const BYTE*)ssf2+offset, glyphs[glyph_index]);
|
|
TRACE(" Coverage index %i\n",index);
|
|
if (index != -1)
|
|
{
|
|
if (glyphs[glyph_index] == GET_BE_WORD(ssf2->Substitute[index]))
|
|
return GSUB_E_NOGLYPH;
|
|
|
|
TRACE(" Glyph is 0x%x ->",glyphs[glyph_index]);
|
|
glyphs[glyph_index] = GET_BE_WORD(ssf2->Substitute[index]);
|
|
TRACE("0x%x\n",glyphs[glyph_index]);
|
|
return glyph_index + write_dir;
|
|
}
|
|
}
|
|
}
|
|
return GSUB_E_NOGLYPH;
|
|
}
|
|
|
|
static INT GSUB_apply_MultipleSubst(const GSUB_LookupTable *look, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count)
|
|
{
|
|
int j;
|
|
TRACE("Multiple Substitution Subtable\n");
|
|
|
|
for (j = 0; j < GET_BE_WORD(look->SubTableCount); j++)
|
|
{
|
|
int offset, index;
|
|
const GSUB_MultipleSubstFormat1 *msf1;
|
|
offset = GET_BE_WORD(look->SubTable[j]);
|
|
msf1 = (const GSUB_MultipleSubstFormat1*)((const BYTE*)look+offset);
|
|
|
|
offset = GET_BE_WORD(msf1->Coverage);
|
|
index = GSUB_is_glyph_covered((const BYTE*)msf1+offset, glyphs[glyph_index]);
|
|
if (index != -1)
|
|
{
|
|
const GSUB_Sequence *seq;
|
|
int sub_count;
|
|
int j;
|
|
offset = GET_BE_WORD(msf1->Sequence[index]);
|
|
seq = (const GSUB_Sequence*)((const BYTE*)msf1+offset);
|
|
sub_count = GET_BE_WORD(seq->GlyphCount);
|
|
TRACE(" Glyph 0x%x (+%i)->",glyphs[glyph_index],(sub_count-1));
|
|
|
|
for (j = (*glyph_count)+(sub_count-1); j > glyph_index; j--)
|
|
glyphs[j] =glyphs[j-(sub_count-1)];
|
|
|
|
for (j = 0; j < sub_count; j++)
|
|
if (write_dir < 0)
|
|
glyphs[glyph_index + (sub_count-1) - j] = GET_BE_WORD(seq->Substitute[j]);
|
|
else
|
|
glyphs[glyph_index + j] = GET_BE_WORD(seq->Substitute[j]);
|
|
|
|
*glyph_count = *glyph_count + (sub_count - 1);
|
|
|
|
if (TRACE_ON(uniscribe))
|
|
{
|
|
for (j = 0; j < sub_count; j++)
|
|
TRACE(" 0x%x",glyphs[glyph_index+j]);
|
|
TRACE("\n");
|
|
}
|
|
|
|
return glyph_index + (sub_count * write_dir);
|
|
}
|
|
}
|
|
return GSUB_E_NOGLYPH;
|
|
}
|
|
|
|
static INT GSUB_apply_AlternateSubst(const GSUB_LookupTable *look, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count)
|
|
{
|
|
int j;
|
|
TRACE("Alternate Substitution Subtable\n");
|
|
|
|
for (j = 0; j < GET_BE_WORD(look->SubTableCount); j++)
|
|
{
|
|
int offset;
|
|
const GSUB_AlternateSubstFormat1 *asf1;
|
|
INT index;
|
|
|
|
offset = GET_BE_WORD(look->SubTable[j]);
|
|
asf1 = (const GSUB_AlternateSubstFormat1*)((const BYTE*)look+offset);
|
|
offset = GET_BE_WORD(asf1->Coverage);
|
|
|
|
index = GSUB_is_glyph_covered((const BYTE*)asf1+offset, glyphs[glyph_index]);
|
|
if (index != -1)
|
|
{
|
|
const GSUB_AlternateSet *as;
|
|
offset = GET_BE_WORD(asf1->AlternateSet[index]);
|
|
as = (const GSUB_AlternateSet*)((const BYTE*)asf1+offset);
|
|
FIXME("%i alternates, picking index 0\n",GET_BE_WORD(as->GlyphCount));
|
|
if (glyphs[glyph_index] == GET_BE_WORD(as->Alternate[0]))
|
|
return GSUB_E_NOGLYPH;
|
|
|
|
TRACE(" Glyph 0x%x ->",glyphs[glyph_index]);
|
|
glyphs[glyph_index] = GET_BE_WORD(as->Alternate[0]);
|
|
TRACE(" 0x%x\n",glyphs[glyph_index]);
|
|
return glyph_index + write_dir;
|
|
}
|
|
}
|
|
return GSUB_E_NOGLYPH;
|
|
}
|
|
|
|
static INT GSUB_apply_LigatureSubst(const GSUB_LookupTable *look, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count)
|
|
{
|
|
int j;
|
|
|
|
TRACE("Ligature Substitution Subtable\n");
|
|
for (j = 0; j < GET_BE_WORD(look->SubTableCount); j++)
|
|
{
|
|
const GSUB_LigatureSubstFormat1 *lsf1;
|
|
int offset,index;
|
|
|
|
offset = GET_BE_WORD(look->SubTable[j]);
|
|
lsf1 = (const GSUB_LigatureSubstFormat1*)((const BYTE*)look+offset);
|
|
offset = GET_BE_WORD(lsf1->Coverage);
|
|
index = GSUB_is_glyph_covered((const BYTE*)lsf1+offset, glyphs[glyph_index]);
|
|
TRACE(" Coverage index %i\n",index);
|
|
if (index != -1)
|
|
{
|
|
const GSUB_LigatureSet *ls;
|
|
int k, count;
|
|
|
|
offset = GET_BE_WORD(lsf1->LigatureSet[index]);
|
|
ls = (const GSUB_LigatureSet*)((const BYTE*)lsf1+offset);
|
|
count = GET_BE_WORD(ls->LigatureCount);
|
|
TRACE(" LigatureSet has %i members\n",count);
|
|
for (k = 0; k < count; k++)
|
|
{
|
|
const GSUB_Ligature *lig;
|
|
int CompCount,l,CompIndex;
|
|
|
|
offset = GET_BE_WORD(ls->Ligature[k]);
|
|
lig = (const GSUB_Ligature*)((const BYTE*)ls+offset);
|
|
CompCount = GET_BE_WORD(lig->CompCount) - 1;
|
|
CompIndex = glyph_index+write_dir;
|
|
for (l = 0; l < CompCount && CompIndex >= 0 && CompIndex < *glyph_count; l++)
|
|
{
|
|
int CompGlyph;
|
|
CompGlyph = GET_BE_WORD(lig->Component[l]);
|
|
if (CompGlyph != glyphs[CompIndex])
|
|
break;
|
|
CompIndex += write_dir;
|
|
}
|
|
if (l == CompCount)
|
|
{
|
|
int replaceIdx = glyph_index;
|
|
if (write_dir < 0)
|
|
replaceIdx = glyph_index - CompCount;
|
|
|
|
TRACE(" Glyph is 0x%x (+%i) ->",glyphs[glyph_index],CompCount);
|
|
glyphs[replaceIdx] = GET_BE_WORD(lig->LigGlyph);
|
|
TRACE("0x%x\n",glyphs[replaceIdx]);
|
|
if (CompCount > 0)
|
|
{
|
|
int j;
|
|
for (j = replaceIdx + 1; j < *glyph_count; j++)
|
|
glyphs[j] =glyphs[j+CompCount];
|
|
*glyph_count = *glyph_count - CompCount;
|
|
}
|
|
return replaceIdx + write_dir;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
return GSUB_E_NOGLYPH;
|
|
}
|
|
|
|
static INT GSUB_apply_ChainContextSubst(const GSUB_LookupList* lookup, const GSUB_LookupTable *look, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count)
|
|
{
|
|
int j;
|
|
BOOL done = FALSE;
|
|
|
|
TRACE("Chaining Contextual Substitution Subtable\n");
|
|
for (j = 0; j < GET_BE_WORD(look->SubTableCount) && !done; j++)
|
|
{
|
|
const GSUB_ChainContextSubstFormat1 *ccsf1;
|
|
int offset;
|
|
int dirLookahead = write_dir;
|
|
int dirBacktrack = -1 * write_dir;
|
|
|
|
offset = GET_BE_WORD(look->SubTable[j]);
|
|
ccsf1 = (const GSUB_ChainContextSubstFormat1*)((const BYTE*)look+offset);
|
|
if (GET_BE_WORD(ccsf1->SubstFormat) == 1)
|
|
{
|
|
FIXME(" TODO: subtype 1 (Simple context glyph substitution)\n");
|
|
continue;
|
|
}
|
|
else if (GET_BE_WORD(ccsf1->SubstFormat) == 2)
|
|
{
|
|
FIXME(" TODO: subtype 2 (Class-based Chaining Context Glyph Substitution)\n");
|
|
continue;
|
|
}
|
|
else if (GET_BE_WORD(ccsf1->SubstFormat) == 3)
|
|
{
|
|
int k;
|
|
int indexGlyphs;
|
|
const GSUB_ChainContextSubstFormat3_1 *ccsf3_1;
|
|
const GSUB_ChainContextSubstFormat3_2 *ccsf3_2;
|
|
const GSUB_ChainContextSubstFormat3_3 *ccsf3_3;
|
|
const GSUB_ChainContextSubstFormat3_4 *ccsf3_4;
|
|
int newIndex = glyph_index;
|
|
|
|
ccsf3_1 = (const GSUB_ChainContextSubstFormat3_1 *)ccsf1;
|
|
|
|
TRACE(" subtype 3 (Coverage-based Chaining Context Glyph Substitution)\n");
|
|
|
|
for (k = 0; k < GET_BE_WORD(ccsf3_1->BacktrackGlyphCount); k++)
|
|
{
|
|
offset = GET_BE_WORD(ccsf3_1->Coverage[k]);
|
|
if (GSUB_is_glyph_covered((const BYTE*)ccsf3_1+offset, glyphs[glyph_index + (dirBacktrack * (k+1))]) == -1)
|
|
break;
|
|
}
|
|
if (k != GET_BE_WORD(ccsf3_1->BacktrackGlyphCount))
|
|
continue;
|
|
TRACE("Matched Backtrack\n");
|
|
|
|
ccsf3_2 = (const GSUB_ChainContextSubstFormat3_2 *)(((LPBYTE)ccsf1)+sizeof(GSUB_ChainContextSubstFormat3_1) + (sizeof(WORD) * (GET_BE_WORD(ccsf3_1->BacktrackGlyphCount)-1)));
|
|
|
|
indexGlyphs = GET_BE_WORD(ccsf3_2->InputGlyphCount);
|
|
for (k = 0; k < indexGlyphs; k++)
|
|
{
|
|
offset = GET_BE_WORD(ccsf3_2->Coverage[k]);
|
|
if (GSUB_is_glyph_covered((const BYTE*)ccsf3_1+offset, glyphs[glyph_index + (write_dir * k)]) == -1)
|
|
break;
|
|
}
|
|
if (k != indexGlyphs)
|
|
continue;
|
|
TRACE("Matched IndexGlyphs\n");
|
|
|
|
ccsf3_3 = (const GSUB_ChainContextSubstFormat3_3 *)(((LPBYTE)ccsf3_2)+sizeof(GSUB_ChainContextSubstFormat3_2) + (sizeof(WORD) * (GET_BE_WORD(ccsf3_2->InputGlyphCount)-1)));
|
|
|
|
for (k = 0; k < GET_BE_WORD(ccsf3_3->LookaheadGlyphCount); k++)
|
|
{
|
|
offset = GET_BE_WORD(ccsf3_3->Coverage[k]);
|
|
if (GSUB_is_glyph_covered((const BYTE*)ccsf3_1+offset, glyphs[glyph_index + (dirLookahead * (indexGlyphs + k))]) == -1)
|
|
break;
|
|
}
|
|
if (k != GET_BE_WORD(ccsf3_3->LookaheadGlyphCount))
|
|
continue;
|
|
TRACE("Matched LookAhead\n");
|
|
|
|
ccsf3_4 = (const GSUB_ChainContextSubstFormat3_4 *)(((LPBYTE)ccsf3_3)+sizeof(GSUB_ChainContextSubstFormat3_3) + (sizeof(WORD) * (GET_BE_WORD(ccsf3_3->LookaheadGlyphCount)-1)));
|
|
|
|
if (GET_BE_WORD(ccsf3_4->SubstCount))
|
|
{
|
|
for (k = 0; k < GET_BE_WORD(ccsf3_4->SubstCount); k++)
|
|
{
|
|
int lookupIndex = GET_BE_WORD(ccsf3_4->SubstLookupRecord[k].LookupListIndex);
|
|
int SequenceIndex = GET_BE_WORD(ccsf3_4->SubstLookupRecord[k].SequenceIndex) * write_dir;
|
|
|
|
TRACE("SUBST: %i -> %i %i\n",k, SequenceIndex, lookupIndex);
|
|
newIndex = GSUB_apply_lookup(lookup, lookupIndex, glyphs, glyph_index + SequenceIndex, write_dir, glyph_count);
|
|
if (newIndex == -1)
|
|
{
|
|
ERR("Chain failed to generate a glyph\n");
|
|
continue;
|
|
}
|
|
}
|
|
return newIndex;
|
|
}
|
|
else return GSUB_E_NOGLYPH;
|
|
}
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
static INT GSUB_apply_lookup(const GSUB_LookupList* lookup, INT lookup_index, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count)
|
|
{
|
|
int offset;
|
|
const GSUB_LookupTable *look;
|
|
|
|
offset = GET_BE_WORD(lookup->Lookup[lookup_index]);
|
|
look = (const GSUB_LookupTable*)((const BYTE*)lookup + offset);
|
|
TRACE("type %i, flag %x, subtables %i\n",GET_BE_WORD(look->LookupType),GET_BE_WORD(look->LookupFlag),GET_BE_WORD(look->SubTableCount));
|
|
switch(GET_BE_WORD(look->LookupType))
|
|
{
|
|
case 1:
|
|
return GSUB_apply_SingleSubst(look, glyphs, glyph_index, write_dir, glyph_count);
|
|
case 2:
|
|
return GSUB_apply_MultipleSubst(look, glyphs, glyph_index, write_dir, glyph_count);
|
|
case 3:
|
|
return GSUB_apply_AlternateSubst(look, glyphs, glyph_index, write_dir, glyph_count);
|
|
case 4:
|
|
return GSUB_apply_LigatureSubst(look, glyphs, glyph_index, write_dir, glyph_count);
|
|
case 6:
|
|
return GSUB_apply_ChainContextSubst(lookup, look, glyphs, glyph_index, write_dir, glyph_count);
|
|
default:
|
|
FIXME("We do not handle SubType %i\n",GET_BE_WORD(look->LookupType));
|
|
}
|
|
return GSUB_E_NOGLYPH;
|
|
}
|
|
|
|
static INT GSUB_apply_feature_all_lookups(const GSUB_Header * header, const GSUB_Feature* feature, WORD *glyphs, INT glyph_index, INT write_dir, INT *glyph_count)
|
|
{
|
|
int i;
|
|
int out_index = GSUB_E_NOGLYPH;
|
|
const GSUB_LookupList *lookup;
|
|
|
|
lookup = (const GSUB_LookupList*)((const BYTE*)header + GET_BE_WORD(header->LookupList));
|
|
|
|
TRACE("%i lookups\n", GET_BE_WORD(feature->LookupCount));
|
|
for (i = 0; i < GET_BE_WORD(feature->LookupCount); i++)
|
|
{
|
|
out_index = GSUB_apply_lookup(lookup, GET_BE_WORD(feature->LookupListIndex[i]), glyphs, glyph_index, write_dir, glyph_count);
|
|
if (out_index != GSUB_E_NOGLYPH)
|
|
break;
|
|
}
|
|
if (out_index == GSUB_E_NOGLYPH)
|
|
TRACE("lookups found no glyphs\n");
|
|
else
|
|
{
|
|
int out2;
|
|
out2 = GSUB_apply_feature_all_lookups(header, feature, glyphs, glyph_index, write_dir, glyph_count);
|
|
if (out2!=GSUB_E_NOGLYPH)
|
|
out_index = out2;
|
|
}
|
|
return out_index;
|
|
}
|
|
|
|
static const char* get_opentype_script(HDC hdc, SCRIPT_ANALYSIS *psa, ScriptCache *psc, BOOL tryNew)
|
|
{
|
|
UINT charset;
|
|
|
|
if (psc->userScript != 0)
|
|
{
|
|
if (tryNew && ShapingData[psa->eScript].newOtTag[0] != 0 && strncmp((char*)&psc->userScript,ShapingData[psa->eScript].otTag,4)==0)
|
|
return ShapingData[psa->eScript].newOtTag;
|
|
else
|
|
return (char*)&psc->userScript;
|
|
}
|
|
|
|
if (tryNew && ShapingData[psa->eScript].newOtTag[0] != 0)
|
|
return ShapingData[psa->eScript].newOtTag;
|
|
|
|
if (ShapingData[psa->eScript].otTag[0] != 0)
|
|
return ShapingData[psa->eScript].otTag;
|
|
|
|
/*
|
|
* fall back to the font charset
|
|
*/
|
|
charset = GetTextCharsetInfo(hdc, NULL, 0x0);
|
|
switch (charset)
|
|
{
|
|
case ANSI_CHARSET: return "latn";
|
|
case BALTIC_CHARSET: return "latn"; /* ?? */
|
|
case CHINESEBIG5_CHARSET: return "hani";
|
|
case EASTEUROPE_CHARSET: return "latn"; /* ?? */
|
|
case GB2312_CHARSET: return "hani";
|
|
case GREEK_CHARSET: return "grek";
|
|
case HANGUL_CHARSET: return "hang";
|
|
case RUSSIAN_CHARSET: return "cyrl";
|
|
case SHIFTJIS_CHARSET: return "kana";
|
|
case TURKISH_CHARSET: return "latn"; /* ?? */
|
|
case VIETNAMESE_CHARSET: return "latn";
|
|
case JOHAB_CHARSET: return "latn"; /* ?? */
|
|
case ARABIC_CHARSET: return "arab";
|
|
case HEBREW_CHARSET: return "hebr";
|
|
case THAI_CHARSET: return "thai";
|
|
default: return "latn";
|
|
}
|
|
}
|
|
|
|
static LPCVOID load_GSUB_feature(HDC hdc, SCRIPT_ANALYSIS *psa, ScriptCache *psc, const char* feat)
|
|
{
|
|
const GSUB_Feature *feature;
|
|
const char* script;
|
|
int i;
|
|
|
|
script = get_opentype_script(hdc,psa,psc,FALSE);
|
|
|
|
for (i = 0; i < psc->feature_count; i++)
|
|
{
|
|
if (strncmp(psc->features[i].tag,feat,4)==0 && strncmp(psc->features[i].script,script,4)==0)
|
|
return psc->features[i].feature;
|
|
}
|
|
|
|
feature = NULL;
|
|
|
|
if (psc->GSUB_Table)
|
|
{
|
|
const GSUB_Script *script;
|
|
const GSUB_LangSys *language;
|
|
int attempt = 2;
|
|
|
|
do
|
|
{
|
|
script = GSUB_get_script_table(psc->GSUB_Table, get_opentype_script(hdc,psa,psc,(attempt==2)));
|
|
attempt--;
|
|
if (script)
|
|
{
|
|
if (psc->userLang != 0)
|
|
language = GSUB_get_lang_table(script,(char*)&psc->userLang);
|
|
else
|
|
language = GSUB_get_lang_table(script, "xxxx"); /* Need to get Lang tag */
|
|
if (language)
|
|
feature = GSUB_get_feature(psc->GSUB_Table, language, feat);
|
|
}
|
|
} while(attempt && !feature);
|
|
|
|
/* try in the default (latin) table */
|
|
if (!feature)
|
|
{
|
|
script = GSUB_get_script_table(psc->GSUB_Table, "latn");
|
|
if (script)
|
|
{
|
|
language = GSUB_get_lang_table(script, "xxxx"); /* Need to get Lang tag */
|
|
if (language)
|
|
feature = GSUB_get_feature(psc->GSUB_Table, language, feat);
|
|
}
|
|
}
|
|
}
|
|
|
|
TRACE("Feature %s located at %p\n",debugstr_an(feat,4),feature);
|
|
|
|
psc->feature_count++;
|
|
|
|
if (psc->features)
|
|
psc->features = HeapReAlloc(GetProcessHeap(), 0, psc->features, psc->feature_count * sizeof(LoadedFeature));
|
|
else
|
|
psc->features = HeapAlloc(GetProcessHeap(), 0, psc->feature_count * sizeof(LoadedFeature));
|
|
|
|
lstrcpynA(psc->features[psc->feature_count - 1].tag, feat, 5);
|
|
lstrcpynA(psc->features[psc->feature_count - 1].script, script, 5);
|
|
psc->features[psc->feature_count - 1].feature = feature;
|
|
return feature;
|
|
}
|
|
|
|
static INT apply_GSUB_feature_to_glyph(HDC hdc, SCRIPT_ANALYSIS *psa, ScriptCache* psc, WORD *glyphs, INT index, INT write_dir, INT* glyph_count, const char* feat)
|
|
{
|
|
const GSUB_Feature *feature;
|
|
|
|
feature = load_GSUB_feature(hdc, psa, psc, feat);
|
|
if (!feature)
|
|
return GSUB_E_NOFEATURE;
|
|
|
|
TRACE("applying feature %s\n",feat);
|
|
return GSUB_apply_feature_all_lookups(psc->GSUB_Table, feature, glyphs, index, write_dir, glyph_count);
|
|
}
|
|
|
|
static VOID *load_gsub_table(HDC hdc)
|
|
{
|
|
VOID* GSUB_Table = NULL;
|
|
int length = GetFontData(hdc, GSUB_TAG , 0, NULL, 0);
|
|
if (length != GDI_ERROR)
|
|
{
|
|
GSUB_Table = HeapAlloc(GetProcessHeap(),0,length);
|
|
GetFontData(hdc, GSUB_TAG , 0, GSUB_Table, length);
|
|
TRACE("Loaded GSUB table of %i bytes\n",length);
|
|
}
|
|
return GSUB_Table;
|
|
}
|
|
|
|
INT SHAPE_does_GSUB_feature_apply_to_chars(HDC hdc, SCRIPT_ANALYSIS *psa, ScriptCache* psc, const WCHAR *chars, INT write_dir, INT count, const char* feature)
|
|
{
|
|
WORD *glyphs;
|
|
INT glyph_count = count;
|
|
INT rc;
|
|
|
|
glyphs = HeapAlloc(GetProcessHeap(),0,sizeof(WORD)*(count*2));
|
|
GetGlyphIndicesW(hdc, chars, count, glyphs, 0);
|
|
rc = apply_GSUB_feature_to_glyph(hdc, psa, psc, glyphs, 0, write_dir, &glyph_count, feature);
|
|
if (rc > GSUB_E_NOGLYPH)
|
|
rc = count - glyph_count;
|
|
else
|
|
rc = 0;
|
|
|
|
HeapFree(GetProcessHeap(),0,glyphs);
|
|
return rc;
|
|
}
|
|
|
|
static WORD GDEF_get_glyph_class(const GDEF_Header *header, WORD glyph)
|
|
{
|
|
int offset;
|
|
WORD class = 0;
|
|
const GDEF_ClassDefFormat1 *cf1;
|
|
|
|
if (!header)
|
|
return 0;
|
|
|
|
offset = GET_BE_WORD(header->GlyphClassDef);
|
|
if (!offset)
|
|
return 0;
|
|
|
|
cf1 = (GDEF_ClassDefFormat1*)(((BYTE*)header)+offset);
|
|
if (GET_BE_WORD(cf1->ClassFormat) == 1)
|
|
{
|
|
if (glyph >= GET_BE_WORD(cf1->StartGlyph))
|
|
{
|
|
int index = glyph - GET_BE_WORD(cf1->StartGlyph);
|
|
if (index < GET_BE_WORD(cf1->GlyphCount))
|
|
class = GET_BE_WORD(cf1->ClassValueArray[index]);
|
|
}
|
|
}
|
|
else if (GET_BE_WORD(cf1->ClassFormat) == 2)
|
|
{
|
|
const GDEF_ClassDefFormat2 *cf2 = (GDEF_ClassDefFormat2*)cf1;
|
|
int i, top;
|
|
top = GET_BE_WORD(cf2->ClassRangeCount);
|
|
for (i = 0; i < top; i++)
|
|
{
|
|
if (glyph >= GET_BE_WORD(cf2->ClassRangeRecord[i].Start) &&
|
|
glyph <= GET_BE_WORD(cf2->ClassRangeRecord[i].End))
|
|
{
|
|
class = GET_BE_WORD(cf2->ClassRangeRecord[i].Class);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
ERR("Unknown Class Format %i\n",GET_BE_WORD(cf1->ClassFormat));
|
|
|
|
return class;
|
|
}
|
|
|
|
static VOID *load_gdef_table(HDC hdc)
|
|
{
|
|
VOID* GDEF_Table = NULL;
|
|
int length = GetFontData(hdc, GDEF_TAG , 0, NULL, 0);
|
|
if (length != GDI_ERROR)
|
|
{
|
|
GDEF_Table = HeapAlloc(GetProcessHeap(),0,length);
|
|
GetFontData(hdc, GDEF_TAG , 0, GDEF_Table, length);
|
|
TRACE("Loaded GDEF table of %i bytes\n",length);
|
|
}
|
|
return GDEF_Table;
|
|
}
|
|
|
|
static void GDEF_UpdateGlyphProps(HDC hdc, ScriptCache *psc, const WORD *pwGlyphs, const WORD cGlyphs, WORD* pwLogClust, SCRIPT_GLYPHPROP *pGlyphProp)
|
|
{
|
|
int i;
|
|
|
|
if (!psc->GDEF_Table)
|
|
psc->GDEF_Table = load_gdef_table(hdc);
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
WORD class;
|
|
|
|
class = GDEF_get_glyph_class(psc->GDEF_Table, pwGlyphs[i]);
|
|
|
|
switch (class)
|
|
{
|
|
case 0:
|
|
case BaseGlyph:
|
|
pGlyphProp[i].sva.fClusterStart = 1;
|
|
pGlyphProp[i].sva.fDiacritic = 0;
|
|
pGlyphProp[i].sva.fZeroWidth = 0;
|
|
break;
|
|
case LigatureGlyph:
|
|
pGlyphProp[i].sva.fClusterStart = 1;
|
|
pGlyphProp[i].sva.fDiacritic = 0;
|
|
pGlyphProp[i].sva.fZeroWidth = 0;
|
|
break;
|
|
case MarkGlyph:
|
|
pGlyphProp[i].sva.fClusterStart = 0;
|
|
pGlyphProp[i].sva.fDiacritic = 1;
|
|
pGlyphProp[i].sva.fZeroWidth = 1;
|
|
break;
|
|
case ComponentGlyph:
|
|
pGlyphProp[i].sva.fClusterStart = 0;
|
|
pGlyphProp[i].sva.fDiacritic = 0;
|
|
pGlyphProp[i].sva.fZeroWidth = 0;
|
|
break;
|
|
default:
|
|
ERR("Unknown glyph class %i\n",class);
|
|
pGlyphProp[i].sva.fClusterStart = 1;
|
|
pGlyphProp[i].sva.fDiacritic = 0;
|
|
pGlyphProp[i].sva.fZeroWidth = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void UpdateClustersFromGlyphProp(const int cGlyphs, const int cChars, WORD* pwLogClust, SCRIPT_GLYPHPROP *pGlyphProp)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
if (!pGlyphProp[i].sva.fClusterStart)
|
|
{
|
|
int j;
|
|
for (j = 0; j < cChars; j++)
|
|
{
|
|
if (pwLogClust[j] == i)
|
|
{
|
|
int k = j;
|
|
while (!pGlyphProp[pwLogClust[k]].sva.fClusterStart && k >= 0 && k <cChars)
|
|
k-=1;
|
|
if (pGlyphProp[pwLogClust[k]].sva.fClusterStart)
|
|
pwLogClust[j] = pwLogClust[k];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static void UpdateClusters(int nextIndex, int changeCount, int write_dir, int chars, WORD* pwLogClust )
|
|
{
|
|
if (changeCount == 0)
|
|
return;
|
|
else
|
|
{
|
|
int i;
|
|
int target_glyph = nextIndex - write_dir;
|
|
int seeking_glyph;
|
|
int target_index = -1;
|
|
int replacing_glyph = -1;
|
|
int changed = 0;
|
|
|
|
|
|
if (changeCount > 0)
|
|
target_glyph = nextIndex - ((changeCount+1)*write_dir);
|
|
|
|
seeking_glyph = target_glyph;
|
|
|
|
do {
|
|
if (write_dir > 0)
|
|
for (i = 0; i < chars; i++)
|
|
{
|
|
if (pwLogClust[i] == seeking_glyph)
|
|
{
|
|
target_index = i;
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
for (i = chars - 1; i >= 0; i--)
|
|
{
|
|
if (pwLogClust[i] == seeking_glyph)
|
|
{
|
|
target_index = i;
|
|
break;
|
|
}
|
|
}
|
|
if (target_index == -1)
|
|
seeking_glyph ++;
|
|
}
|
|
while (target_index == -1 && seeking_glyph < chars);
|
|
|
|
if (target_index == -1)
|
|
{
|
|
ERR("Unable to find target glyph\n");
|
|
return;
|
|
}
|
|
|
|
if (changeCount < 0)
|
|
{
|
|
/* merge glyphs */
|
|
for(i = target_index; i < chars && i >= 0; i+=write_dir)
|
|
{
|
|
if (pwLogClust[i] == target_glyph)
|
|
continue;
|
|
if(pwLogClust[i] == replacing_glyph)
|
|
pwLogClust[i] = target_glyph;
|
|
else
|
|
{
|
|
changed--;
|
|
if (changed >= changeCount)
|
|
{
|
|
replacing_glyph = pwLogClust[i];
|
|
pwLogClust[i] = target_glyph;
|
|
}
|
|
else
|
|
break;
|
|
}
|
|
}
|
|
|
|
/* renumber trailing indexes*/
|
|
for(i = target_index; i < chars && i >= 0; i+=write_dir)
|
|
{
|
|
if (pwLogClust[i] != target_glyph)
|
|
pwLogClust[i] += changeCount;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for(i = target_index; i < chars && i >= 0; i+=write_dir)
|
|
pwLogClust[i] += changeCount;
|
|
}
|
|
}
|
|
}
|
|
|
|
static int apply_GSUB_feature(HDC hdc, SCRIPT_ANALYSIS *psa, ScriptCache* psc, WORD *pwOutGlyphs, int write_dir, INT* pcGlyphs, INT cChars, const char* feat, WORD *pwLogClust )
|
|
{
|
|
if (psc->GSUB_Table)
|
|
{
|
|
const GSUB_Feature *feature;
|
|
const GSUB_LookupList *lookup;
|
|
const GSUB_Header *header = psc->GSUB_Table;
|
|
int lookup_index, lookup_count;
|
|
|
|
feature = load_GSUB_feature(hdc, psa, psc, feat);
|
|
if (!feature)
|
|
return GSUB_E_NOFEATURE;
|
|
|
|
TRACE("applying feature %s\n",debugstr_an(feat,4));
|
|
lookup = (const GSUB_LookupList*)((const BYTE*)header + GET_BE_WORD(header->LookupList));
|
|
lookup_count = GET_BE_WORD(feature->LookupCount);
|
|
TRACE("%i lookups\n", lookup_count);
|
|
for (lookup_index = 0; lookup_index < lookup_count; lookup_index++)
|
|
{
|
|
int i;
|
|
|
|
if (write_dir > 0)
|
|
i = 0;
|
|
else
|
|
i = *pcGlyphs-1;
|
|
TRACE("applying lookup (%i/%i)\n",lookup_index,lookup_count);
|
|
while(i < *pcGlyphs && i >= 0)
|
|
{
|
|
INT nextIndex;
|
|
INT prevCount = *pcGlyphs;
|
|
|
|
nextIndex = GSUB_apply_lookup(lookup, GET_BE_WORD(feature->LookupListIndex[lookup_index]), pwOutGlyphs, i, write_dir, pcGlyphs);
|
|
if (*pcGlyphs != prevCount)
|
|
{
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, write_dir, cChars, pwLogClust);
|
|
i = nextIndex;
|
|
}
|
|
else
|
|
i+=write_dir;
|
|
}
|
|
}
|
|
return *pcGlyphs;
|
|
}
|
|
return GSUB_E_NOFEATURE;
|
|
}
|
|
|
|
static inline BOOL get_GSUB_Indic2(SCRIPT_ANALYSIS *psa, ScriptCache *psc)
|
|
{
|
|
return(GSUB_get_script_table(psc->GSUB_Table,ShapingData[psa->eScript].newOtTag)!=NULL);
|
|
}
|
|
|
|
static WCHAR neighbour_char(int i, int delta, const WCHAR* chars, INT cchLen)
|
|
{
|
|
if (i + delta < 0)
|
|
return 0;
|
|
if ( i+ delta >= cchLen)
|
|
return 0;
|
|
|
|
i += delta;
|
|
|
|
return chars[i];
|
|
}
|
|
|
|
static CHAR neighbour_joining_type(int i, int delta, const CHAR* context_type, INT cchLen, SCRIPT_ANALYSIS *psa)
|
|
{
|
|
if (i + delta < 0)
|
|
{
|
|
if (psa->fLinkBefore)
|
|
return jtR;
|
|
else
|
|
return jtU;
|
|
}
|
|
if ( i+ delta >= cchLen)
|
|
{
|
|
if (psa->fLinkAfter)
|
|
return jtL;
|
|
else
|
|
return jtU;
|
|
}
|
|
|
|
i += delta;
|
|
|
|
if (context_type[i] == jtT)
|
|
return neighbour_joining_type(i,delta,context_type,cchLen,psa);
|
|
else
|
|
return context_type[i];
|
|
}
|
|
|
|
static inline BOOL right_join_causing(CHAR joining_type)
|
|
{
|
|
return (joining_type == jtL || joining_type == jtD || joining_type == jtC);
|
|
}
|
|
|
|
static inline BOOL left_join_causing(CHAR joining_type)
|
|
{
|
|
return (joining_type == jtR || joining_type == jtD || joining_type == jtC);
|
|
}
|
|
|
|
static inline BOOL word_break_causing(WCHAR chr)
|
|
{
|
|
/* we are working within a string of characters already guareented to
|
|
be within one script, Syriac, so we do not worry about any character
|
|
other than the space character outside of that range */
|
|
return (chr == 0 || chr == 0x20 );
|
|
}
|
|
|
|
/*
|
|
* ContextualShape_Arabic
|
|
*/
|
|
static void ContextualShape_Arabic(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
CHAR *context_type;
|
|
INT *context_shape;
|
|
INT dirR, dirL;
|
|
int i;
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
if (!psa->fLogicalOrder && psa->fRTL)
|
|
{
|
|
dirR = 1;
|
|
dirL = -1;
|
|
}
|
|
else
|
|
{
|
|
dirR = -1;
|
|
dirL = 1;
|
|
}
|
|
|
|
if (!psc->GSUB_Table)
|
|
psc->GSUB_Table = load_gsub_table(hdc);
|
|
|
|
context_type = HeapAlloc(GetProcessHeap(),0,cChars);
|
|
context_shape = HeapAlloc(GetProcessHeap(),0,sizeof(INT) * cChars);
|
|
|
|
for (i = 0; i < cChars; i++)
|
|
context_type[i] = get_table_entry( wine_shaping_table, pwcChars[i] );
|
|
|
|
for (i = 0; i < cChars; i++)
|
|
{
|
|
if (context_type[i] == jtR && right_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)))
|
|
context_shape[i] = Xr;
|
|
else if (context_type[i] == jtL && left_join_causing(neighbour_joining_type(i,dirL,context_type,cChars,psa)))
|
|
context_shape[i] = Xl;
|
|
else if (context_type[i] == jtD && left_join_causing(neighbour_joining_type(i,dirL,context_type,cChars,psa)) && right_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)))
|
|
context_shape[i] = Xm;
|
|
else if (context_type[i] == jtD && right_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)))
|
|
context_shape[i] = Xr;
|
|
else if (context_type[i] == jtD && left_join_causing(neighbour_joining_type(i,dirL,context_type,cChars,psa)))
|
|
context_shape[i] = Xl;
|
|
else
|
|
context_shape[i] = Xn;
|
|
}
|
|
|
|
/* Contextual Shaping */
|
|
i = 0;
|
|
while(i < *pcGlyphs)
|
|
{
|
|
BOOL shaped = FALSE;
|
|
|
|
if (psc->GSUB_Table)
|
|
{
|
|
INT nextIndex;
|
|
INT prevCount = *pcGlyphs;
|
|
nextIndex = apply_GSUB_feature_to_glyph(hdc, psa, psc, pwOutGlyphs, i, dirL, pcGlyphs, contextual_features[context_shape[i]]);
|
|
if (nextIndex > GSUB_E_NOGLYPH)
|
|
{
|
|
i = nextIndex;
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, dirL, cChars, pwLogClust);
|
|
}
|
|
shaped = (nextIndex > GSUB_E_NOGLYPH);
|
|
}
|
|
|
|
if (!shaped)
|
|
{
|
|
if (context_shape[i] == Xn)
|
|
{
|
|
WORD newGlyph = pwOutGlyphs[i];
|
|
if (pwcChars[i] >= FIRST_ARABIC_CHAR && pwcChars[i] <= LAST_ARABIC_CHAR)
|
|
{
|
|
/* fall back to presentation form B */
|
|
WCHAR context_char = wine_shaping_forms[pwcChars[i] - FIRST_ARABIC_CHAR][context_shape[i]];
|
|
if (context_char != pwcChars[i] && GetGlyphIndicesW(hdc, &context_char, 1, &newGlyph, 0) != GDI_ERROR && newGlyph != 0x0000)
|
|
pwOutGlyphs[i] = newGlyph;
|
|
}
|
|
}
|
|
i++;
|
|
}
|
|
}
|
|
|
|
HeapFree(GetProcessHeap(),0,context_shape);
|
|
HeapFree(GetProcessHeap(),0,context_type);
|
|
}
|
|
|
|
/*
|
|
* ContextualShape_Syriac
|
|
*/
|
|
|
|
#define ALAPH 0x710
|
|
#define DALATH 0x715
|
|
#define RISH 0x72A
|
|
|
|
static void ContextualShape_Syriac(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
CHAR *context_type;
|
|
INT *context_shape;
|
|
INT dirR, dirL;
|
|
int i;
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
if (!psa->fLogicalOrder && psa->fRTL)
|
|
{
|
|
dirR = 1;
|
|
dirL = -1;
|
|
}
|
|
else
|
|
{
|
|
dirR = -1;
|
|
dirL = 1;
|
|
}
|
|
|
|
if (!psc->GSUB_Table)
|
|
psc->GSUB_Table = load_gsub_table(hdc);
|
|
|
|
if (!psc->GSUB_Table)
|
|
return;
|
|
|
|
context_type = HeapAlloc(GetProcessHeap(),0,cChars);
|
|
context_shape = HeapAlloc(GetProcessHeap(),0,sizeof(INT) * cChars);
|
|
|
|
for (i = 0; i < cChars; i++)
|
|
context_type[i] = get_table_entry( wine_shaping_table, pwcChars[i] );
|
|
|
|
for (i = 0; i < cChars; i++)
|
|
{
|
|
if (pwcChars[i] == ALAPH)
|
|
{
|
|
WCHAR rchar = neighbour_char(i,dirR,pwcChars,cChars);
|
|
|
|
if (left_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)) && word_break_causing(neighbour_char(i,dirL,pwcChars,cChars)))
|
|
context_shape[i] = Afj;
|
|
else if ( rchar != DALATH && rchar != RISH &&
|
|
!left_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)) &&
|
|
word_break_causing(neighbour_char(i,dirL,pwcChars,cChars)))
|
|
context_shape[i] = Afn;
|
|
else if ( (rchar == DALATH || rchar == RISH) && word_break_causing(neighbour_char(i,dirL,pwcChars,cChars)))
|
|
context_shape[i] = Afx;
|
|
else
|
|
context_shape[i] = Xn;
|
|
}
|
|
else if (context_type[i] == jtR &&
|
|
right_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)))
|
|
context_shape[i] = Xr;
|
|
else if (context_type[i] == jtL && left_join_causing(neighbour_joining_type(i,dirL,context_type,cChars,psa)))
|
|
context_shape[i] = Xl;
|
|
else if (context_type[i] == jtD && left_join_causing(neighbour_joining_type(i,dirL,context_type,cChars,psa)) && right_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)))
|
|
context_shape[i] = Xm;
|
|
else if (context_type[i] == jtD && right_join_causing(neighbour_joining_type(i,dirR,context_type,cChars,psa)))
|
|
context_shape[i] = Xr;
|
|
else if (context_type[i] == jtD && left_join_causing(neighbour_joining_type(i,dirL,context_type,cChars,psa)))
|
|
context_shape[i] = Xl;
|
|
else
|
|
context_shape[i] = Xn;
|
|
}
|
|
|
|
/* Contextual Shaping */
|
|
i = 0;
|
|
while(i < *pcGlyphs)
|
|
{
|
|
INT nextIndex;
|
|
INT prevCount = *pcGlyphs;
|
|
nextIndex = apply_GSUB_feature_to_glyph(hdc, psa, psc, pwOutGlyphs, i, dirL, pcGlyphs, contextual_features[context_shape[i]]);
|
|
if (nextIndex > GSUB_E_NOGLYPH)
|
|
{
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, dirL, cChars, pwLogClust);
|
|
i = nextIndex;
|
|
}
|
|
else
|
|
i++;
|
|
}
|
|
|
|
HeapFree(GetProcessHeap(),0,context_shape);
|
|
HeapFree(GetProcessHeap(),0,context_type);
|
|
}
|
|
|
|
/*
|
|
* ContextualShape_Phags_pa
|
|
*/
|
|
|
|
#define phags_pa_CANDRABINDU 0xA873
|
|
#define phags_pa_START 0xA840
|
|
#define phags_pa_END 0xA87F
|
|
|
|
static void ContextualShape_Phags_pa(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
INT *context_shape;
|
|
INT dirR, dirL;
|
|
int i;
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
if (!psa->fLogicalOrder && psa->fRTL)
|
|
{
|
|
dirR = 1;
|
|
dirL = -1;
|
|
}
|
|
else
|
|
{
|
|
dirR = -1;
|
|
dirL = 1;
|
|
}
|
|
|
|
if (!psc->GSUB_Table)
|
|
psc->GSUB_Table = load_gsub_table(hdc);
|
|
|
|
if (!psc->GSUB_Table)
|
|
return;
|
|
|
|
context_shape = HeapAlloc(GetProcessHeap(),0,sizeof(INT) * cChars);
|
|
|
|
for (i = 0; i < cChars; i++)
|
|
{
|
|
if (pwcChars[i] >= phags_pa_START && pwcChars[i] <= phags_pa_END)
|
|
{
|
|
WCHAR rchar = neighbour_char(i,dirR,pwcChars,cChars);
|
|
WCHAR lchar = neighbour_char(i,dirL,pwcChars,cChars);
|
|
BOOL jrchar = (rchar != phags_pa_CANDRABINDU && rchar >= phags_pa_START && rchar <= phags_pa_END);
|
|
BOOL jlchar = (lchar != phags_pa_CANDRABINDU && lchar >= phags_pa_START && lchar <= phags_pa_END);
|
|
|
|
if (jrchar && jlchar)
|
|
context_shape[i] = Xm;
|
|
else if (jrchar)
|
|
context_shape[i] = Xr;
|
|
else if (jlchar)
|
|
context_shape[i] = Xl;
|
|
else
|
|
context_shape[i] = Xn;
|
|
}
|
|
else
|
|
context_shape[i] = -1;
|
|
}
|
|
|
|
/* Contextual Shaping */
|
|
i = 0;
|
|
while(i < *pcGlyphs)
|
|
{
|
|
if (context_shape[i] >= 0)
|
|
{
|
|
INT nextIndex;
|
|
INT prevCount = *pcGlyphs;
|
|
nextIndex = apply_GSUB_feature_to_glyph(hdc, psa, psc, pwOutGlyphs, i, dirL, pcGlyphs, contextual_features[context_shape[i]]);
|
|
if (nextIndex > GSUB_E_NOGLYPH)
|
|
{
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, dirL, cChars, pwLogClust);
|
|
i = nextIndex;
|
|
}
|
|
else
|
|
i++;
|
|
}
|
|
else
|
|
i++;
|
|
}
|
|
|
|
HeapFree(GetProcessHeap(),0,context_shape);
|
|
}
|
|
|
|
static void ReplaceInsertChars(HDC hdc, INT cWalk, INT* pcChars, WCHAR *pwOutChars, const WCHAR *replacements)
|
|
{
|
|
int i;
|
|
|
|
/* Replace */
|
|
pwOutChars[cWalk] = replacements[0];
|
|
cWalk=cWalk+1;
|
|
|
|
/* Insert */
|
|
for (i = 1; replacements[i] != 0x0000 && i < 3; i++)
|
|
{
|
|
int j;
|
|
for (j = *pcChars; j > cWalk; j--)
|
|
pwOutChars[j] = pwOutChars[j-1];
|
|
*pcChars= *pcChars+1;
|
|
pwOutChars[cWalk] = replacements[i];
|
|
cWalk = cWalk+1;
|
|
}
|
|
}
|
|
|
|
static void DecomposeVowels(HDC hdc, WCHAR *pwOutChars, INT *pcChars, const VowelComponents vowels[], WORD* pwLogClust)
|
|
{
|
|
int i;
|
|
int cWalk;
|
|
int offset = 0;
|
|
|
|
for (cWalk = 0; cWalk < *pcChars; cWalk++)
|
|
{
|
|
for (i = 0; vowels[i].base != 0x0; i++)
|
|
{
|
|
if (pwOutChars[cWalk] == vowels[i].base)
|
|
{
|
|
int j;
|
|
int o = 1;
|
|
ReplaceInsertChars(hdc, cWalk, pcChars, pwOutChars, vowels[i].parts);
|
|
if (vowels[i].parts[1]) { cWalk++; o++; }
|
|
if (vowels[i].parts[2]) { cWalk++; o++; }
|
|
offset += o;
|
|
for (j = (cWalk - offset) + 1; j < *pcChars - offset; j ++)
|
|
pwLogClust[j]+=o;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static void ComposeConsonants(HDC hdc, WCHAR *pwOutChars, INT *pcChars, const ConsonantComponents consonants[], WORD* pwLogClust)
|
|
{
|
|
int i;
|
|
int offset = 0;
|
|
int cWalk;
|
|
|
|
for (cWalk = 0; cWalk < *pcChars; cWalk++)
|
|
{
|
|
for (i = 0; consonants[i].output!= 0x0; i++)
|
|
{
|
|
int j;
|
|
for (j = 0; j + cWalk < *pcChars && consonants[i].parts[j]!=0x0; j++)
|
|
if (pwOutChars[cWalk+j] != consonants[i].parts[j])
|
|
break;
|
|
|
|
if (consonants[i].parts[j]==0x0) /* matched all */
|
|
{
|
|
int k;
|
|
j--;
|
|
pwOutChars[cWalk] = consonants[i].output;
|
|
for(k = cWalk+1; k < *pcChars - j; k++)
|
|
pwOutChars[k] = pwOutChars[k+j];
|
|
*pcChars = *pcChars - j;
|
|
for (k = j ; k > 0; k--)
|
|
pwLogClust[cWalk + k + offset] = pwLogClust[cWalk + offset];
|
|
offset += j;
|
|
for (k = cWalk + j + offset; k < *pcChars + offset; k++)
|
|
pwLogClust[k]--;
|
|
break;
|
|
}
|
|
}
|
|
cWalk++;
|
|
}
|
|
}
|
|
|
|
static void Reorder_Ra_follows_base(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
if (s->ralf >= 0)
|
|
{
|
|
int j;
|
|
WORD Ra = pwChar[s->start];
|
|
WORD H = pwChar[s->start+1];
|
|
|
|
TRACE("Doing reorder of Ra to %i\n",s->base);
|
|
for (j = s->start; j < s->base-1; j++)
|
|
pwChar[j] = pwChar[j+2];
|
|
pwChar[s->base-1] = Ra;
|
|
pwChar[s->base] = H;
|
|
|
|
s->ralf = s->base-1;
|
|
s->base -= 2;
|
|
}
|
|
}
|
|
|
|
static void Reorder_Ra_follows_matra(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
if (s->ralf >= 0)
|
|
{
|
|
int j,loc;
|
|
int stop = (s->blwf >=0)? s->blwf+1 : s->base;
|
|
WORD Ra = pwChar[s->start];
|
|
WORD H = pwChar[s->start+1];
|
|
for (loc = s->end; loc > stop; loc--)
|
|
if (lexical(pwChar[loc]) == lex_Matra_post || lexical(pwChar[loc]) == lex_Matra_below)
|
|
break;
|
|
|
|
TRACE("Doing reorder of Ra to %i\n",loc);
|
|
for (j = s->start; j < loc-1; j++)
|
|
pwChar[j] = pwChar[j+2];
|
|
pwChar[loc-1] = Ra;
|
|
pwChar[loc] = H;
|
|
|
|
s->ralf = loc-1;
|
|
s->base -= 2;
|
|
if (s->blwf >= 0) s->blwf -= 2;
|
|
if (s->pref >= 0) s->pref -= 2;
|
|
}
|
|
}
|
|
|
|
static void Reorder_Ra_follows_syllable(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
if (s->ralf >= 0)
|
|
{
|
|
int j;
|
|
WORD Ra = pwChar[s->start];
|
|
WORD H = pwChar[s->start+1];
|
|
|
|
TRACE("Doing reorder of Ra to %i\n",s->end-1);
|
|
for (j = s->start; j < s->end-1; j++)
|
|
pwChar[j] = pwChar[j+2];
|
|
pwChar[s->end-1] = Ra;
|
|
pwChar[s->end] = H;
|
|
|
|
s->ralf = s->end-1;
|
|
s->base -= 2;
|
|
if (s->blwf >= 0) s->blwf -= 2;
|
|
if (s->pref >= 0) s->pref -= 2;
|
|
}
|
|
}
|
|
|
|
static void Reorder_Matra_precede_base(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
int i;
|
|
|
|
/* reorder Matras */
|
|
if (s->end > s->base)
|
|
{
|
|
for (i = 1; i <= s->end-s->base; i++)
|
|
{
|
|
if (lexical(pwChar[s->base+i]) == lex_Matra_pre)
|
|
{
|
|
int j;
|
|
WCHAR c = pwChar[s->base+i];
|
|
TRACE("Doing reorder of %x %x\n",c,pwChar[s->base]);
|
|
for (j = s->base+i; j > s->base; j--)
|
|
pwChar[j] = pwChar[j-1];
|
|
pwChar[s->base] = c;
|
|
|
|
if (s->ralf >= s->base) s->ralf++;
|
|
if (s->blwf >= s->base) s->blwf++;
|
|
if (s->pref >= s->base) s->pref++;
|
|
s->base ++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static void Reorder_Matra_precede_syllable(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
int i;
|
|
|
|
/* reorder Matras */
|
|
if (s->end > s->base)
|
|
{
|
|
for (i = 1; i <= s->end-s->base; i++)
|
|
{
|
|
if (lexical(pwChar[s->base+i]) == lex_Matra_pre)
|
|
{
|
|
int j;
|
|
WCHAR c = pwChar[s->base+i];
|
|
TRACE("Doing reorder of %x to %i\n",c,s->start);
|
|
for (j = s->base+i; j > s->start; j--)
|
|
pwChar[j] = pwChar[j-1];
|
|
pwChar[s->start] = c;
|
|
|
|
if (s->ralf >= 0) s->ralf++;
|
|
if (s->blwf >= 0) s->blwf++;
|
|
if (s->pref >= 0) s->pref++;
|
|
s->base ++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static void SecondReorder_Blwf_follows_matra(LPWSTR pwChar, IndicSyllable *s, WORD *glyphs, IndicSyllable *g, lexical_function lexical)
|
|
{
|
|
if (s->blwf >= 0 && g->blwf > g->base)
|
|
{
|
|
int j,loc;
|
|
int g_offset;
|
|
for (loc = s->end; loc > s->blwf; loc--)
|
|
if (lexical(pwChar[loc]) == lex_Matra_below || lexical(pwChar[loc]) == lex_Matra_above || lexical(pwChar[loc]) == lex_Matra_post)
|
|
break;
|
|
|
|
g_offset = (loc - s->blwf) - 1;
|
|
|
|
if (loc != s->blwf)
|
|
{
|
|
WORD blwf = glyphs[g->blwf];
|
|
TRACE("Doing reorder of Below-base to %i (glyph offset %i)\n",loc,g_offset);
|
|
/* do not care about the pwChar array anymore, just the glyphs */
|
|
for (j = 0; j < g_offset; j++)
|
|
glyphs[g->blwf + j] = glyphs[g->blwf + j + 1];
|
|
glyphs[g->blwf + g_offset] = blwf;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void SecondReorder_Matra_precede_base(LPWSTR pwChar, IndicSyllable *s, WORD *glyphs, IndicSyllable *g, lexical_function lexical)
|
|
{
|
|
int i;
|
|
|
|
/* reorder previously moved Matras to correct position*/
|
|
for (i = s->start; i < s->base; i++)
|
|
{
|
|
if (lexical(pwChar[i]) == lex_Matra_pre)
|
|
{
|
|
int j;
|
|
int g_start = g->start + i - s->start;
|
|
if (g_start < g->base -1 )
|
|
{
|
|
WCHAR og = glyphs[g_start];
|
|
TRACE("Doing reorder of matra from %i to %i\n",g_start,g->base);
|
|
for (j = g_start; j < g->base-1; j++)
|
|
glyphs[j] = glyphs[j+1];
|
|
glyphs[g->base-1] = og;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static void SecondReorder_Pref_precede_base(LPWSTR pwChar, IndicSyllable *s, WORD *glyphs, IndicSyllable *g, lexical_function lexical)
|
|
{
|
|
if (s->pref >= 0 && g->pref > g->base)
|
|
{
|
|
int j;
|
|
WCHAR og = glyphs[g->pref];
|
|
TRACE("Doing reorder of pref from %i to %i\n",g->pref,g->base);
|
|
for (j = g->pref; j > g->base; j--)
|
|
glyphs[j] = glyphs[j-1];
|
|
glyphs[g->base] = og;
|
|
}
|
|
}
|
|
|
|
static void Reorder_Like_Sinhala(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
TRACE("Syllable (%i..%i..%i)\n",s->start,s->base,s->end);
|
|
if (s->start == s->base && s->base == s->end) return;
|
|
if (lexical(pwChar[s->base]) == lex_Vowel) return;
|
|
|
|
Reorder_Ra_follows_base(pwChar, s, lexical);
|
|
Reorder_Matra_precede_base(pwChar, s, lexical);
|
|
}
|
|
|
|
static void Reorder_Like_Devanagari(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
TRACE("Syllable (%i..%i..%i)\n",s->start,s->base,s->end);
|
|
if (s->start == s->base && s->base == s->end) return;
|
|
if (lexical(pwChar[s->base]) == lex_Vowel) return;
|
|
|
|
Reorder_Ra_follows_matra(pwChar, s, lexical);
|
|
Reorder_Matra_precede_syllable(pwChar, s, lexical);
|
|
}
|
|
|
|
static void Reorder_Like_Bengali(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
TRACE("Syllable (%i..%i..%i)\n",s->start,s->base,s->end);
|
|
if (s->start == s->base && s->base == s->end) return;
|
|
if (lexical(pwChar[s->base]) == lex_Vowel) return;
|
|
|
|
Reorder_Ra_follows_base(pwChar, s, lexical);
|
|
Reorder_Matra_precede_syllable(pwChar, s, lexical);
|
|
}
|
|
|
|
static void Reorder_Like_Kannada(LPWSTR pwChar, IndicSyllable *s, lexical_function lexical)
|
|
{
|
|
TRACE("Syllable (%i..%i..%i)\n",s->start,s->base,s->end);
|
|
if (s->start == s->base && s->base == s->end) return;
|
|
if (lexical(pwChar[s->base]) == lex_Vowel) return;
|
|
|
|
Reorder_Ra_follows_syllable(pwChar, s, lexical);
|
|
Reorder_Matra_precede_syllable(pwChar, s, lexical);
|
|
}
|
|
|
|
static void SecondReorder_Like_Telugu(LPWSTR pwChar, IndicSyllable *s, WORD* pwGlyphs, IndicSyllable *g, lexical_function lexical)
|
|
{
|
|
TRACE("Syllable (%i..%i..%i)\n",s->start,s->base,s->end);
|
|
TRACE("Glyphs (%i..%i..%i)\n",g->start,g->base,g->end);
|
|
if (s->start == s->base && s->base == s->end) return;
|
|
if (lexical(pwChar[s->base]) == lex_Vowel) return;
|
|
|
|
SecondReorder_Blwf_follows_matra(pwChar, s, pwGlyphs, g, lexical);
|
|
}
|
|
|
|
static void SecondReorder_Like_Tamil(LPWSTR pwChar, IndicSyllable *s, WORD* pwGlyphs, IndicSyllable *g, lexical_function lexical)
|
|
{
|
|
TRACE("Syllable (%i..%i..%i)\n",s->start,s->base,s->end);
|
|
TRACE("Glyphs (%i..%i..%i)\n",g->start,g->base,g->end);
|
|
if (s->start == s->base && s->base == s->end) return;
|
|
if (lexical(pwChar[s->base]) == lex_Vowel) return;
|
|
|
|
SecondReorder_Matra_precede_base(pwChar, s, pwGlyphs, g, lexical);
|
|
SecondReorder_Pref_precede_base(pwChar, s, pwGlyphs, g, lexical);
|
|
}
|
|
|
|
|
|
static inline void shift_syllable_glyph_indexs(IndicSyllable *glyph_index, INT index, INT shift)
|
|
{
|
|
if (shift == 0)
|
|
return;
|
|
|
|
if (glyph_index->start > index)
|
|
glyph_index->start += shift;
|
|
if (glyph_index->base > index)
|
|
glyph_index->base+= shift;
|
|
if (glyph_index->end > index)
|
|
glyph_index->end+= shift;
|
|
if (glyph_index->ralf > index)
|
|
glyph_index->ralf+= shift;
|
|
if (glyph_index->blwf > index)
|
|
glyph_index->blwf+= shift;
|
|
if (glyph_index->pref > index)
|
|
glyph_index->pref+= shift;
|
|
}
|
|
|
|
static void Apply_Indic_BasicForm(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwChars, INT cChars, IndicSyllable *syllable, WORD *pwOutGlyphs, INT* pcGlyphs, WORD *pwLogClust, lexical_function lexical, IndicSyllable *glyph_index, const GSUB_Feature *feature )
|
|
{
|
|
int index = glyph_index->start;
|
|
|
|
if (!feature)
|
|
return;
|
|
|
|
while(index <= glyph_index->end)
|
|
{
|
|
INT nextIndex;
|
|
INT prevCount = *pcGlyphs;
|
|
nextIndex = GSUB_apply_feature_all_lookups(psc->GSUB_Table, feature, pwOutGlyphs, index, 1, pcGlyphs);
|
|
if (nextIndex > GSUB_E_NOGLYPH)
|
|
{
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, 1, cChars, pwLogClust);
|
|
shift_syllable_glyph_indexs(glyph_index,index,*pcGlyphs - prevCount);
|
|
index = nextIndex;
|
|
}
|
|
else
|
|
index++;
|
|
}
|
|
}
|
|
|
|
static inline INT find_consonant_halant(WCHAR* pwChars, INT index, INT end, lexical_function lexical)
|
|
{
|
|
int i = 0;
|
|
while (i + index < end - 1 && !(is_consonant(lexical(pwChars[index+i])) && (lexical(pwChars[index+i+1]) == lex_Halant || (index + i < end - 2 && lexical(pwChars[index+i+1]) == lex_Nukta && lexical(pwChars[index+i+2] == lex_Halant)))))
|
|
i++;
|
|
if (index + i <= end-1)
|
|
return index + i;
|
|
else
|
|
return -1;
|
|
}
|
|
|
|
static void Apply_Indic_PreBase(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwChars, INT cChars, IndicSyllable *syllable, WORD *pwOutGlyphs, INT* pcGlyphs, WORD *pwLogClust, lexical_function lexical, IndicSyllable *glyph_index, const char* feature)
|
|
{
|
|
INT index, nextIndex;
|
|
INT count,g_offset;
|
|
|
|
count = syllable->base - syllable->start;
|
|
|
|
g_offset = 0;
|
|
index = find_consonant_halant(&pwChars[syllable->start], 0, count, lexical);
|
|
while (index >= 0 && index + g_offset < (glyph_index->base - glyph_index->start))
|
|
{
|
|
INT prevCount = *pcGlyphs;
|
|
nextIndex = apply_GSUB_feature_to_glyph(hdc, psa, psc, pwOutGlyphs, index+glyph_index->start+g_offset, 1, pcGlyphs, feature);
|
|
if (nextIndex > GSUB_E_NOGLYPH)
|
|
{
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, 1, cChars, pwLogClust);
|
|
shift_syllable_glyph_indexs(glyph_index, index + glyph_index->start + g_offset, (*pcGlyphs - prevCount));
|
|
g_offset += (*pcGlyphs - prevCount);
|
|
}
|
|
|
|
index+=2;
|
|
index = find_consonant_halant(&pwChars[syllable->start], index, count, lexical);
|
|
}
|
|
}
|
|
|
|
static void Apply_Indic_Rphf(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwChars, INT cChars, IndicSyllable *syllable, WORD *pwOutGlyphs, INT* pcGlyphs, WORD *pwLogClust, lexical_function lexical, IndicSyllable *glyph_index)
|
|
{
|
|
INT nextIndex;
|
|
INT prevCount = *pcGlyphs;
|
|
|
|
if (syllable->ralf >= 0)
|
|
{
|
|
nextIndex = apply_GSUB_feature_to_glyph(hdc, psa, psc, pwOutGlyphs, glyph_index->ralf, 1, pcGlyphs, "rphf");
|
|
if (nextIndex > GSUB_E_NOGLYPH)
|
|
{
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, 1, cChars, pwLogClust);
|
|
shift_syllable_glyph_indexs(glyph_index,glyph_index->ralf,*pcGlyphs - prevCount);
|
|
}
|
|
}
|
|
}
|
|
|
|
static inline INT find_halant_consonant(WCHAR* pwChars, INT index, INT end, lexical_function lexical)
|
|
{
|
|
int i = 0;
|
|
while (index + i < end-1 && !(lexical(pwChars[index+i]) == lex_Halant &&
|
|
((index + i < end-2 && lexical(pwChars[index+i]) == lex_Nukta && is_consonant(lexical(pwChars[index+i+1]))) ||
|
|
is_consonant(lexical(pwChars[index+i+1])))))
|
|
i++;
|
|
if (index + i <= end-1)
|
|
return index+i;
|
|
else
|
|
return -1;
|
|
}
|
|
|
|
static void Apply_Indic_PostBase(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwChars, INT cChars, IndicSyllable *syllable, WORD *pwOutGlyphs, INT* pcGlyphs, WORD *pwLogClust, lexical_function lexical, IndicSyllable *glyph_index, BOOL modern, const char* feat)
|
|
{
|
|
INT index, nextIndex;
|
|
INT count, g_offset=0;
|
|
INT ralf = syllable->ralf;
|
|
|
|
count = syllable->end - syllable->base;
|
|
|
|
index = find_halant_consonant(&pwChars[syllable->base], 0, count, lexical);
|
|
|
|
while (index >= 0)
|
|
{
|
|
INT prevCount = *pcGlyphs;
|
|
if (ralf >=0 && ralf < index)
|
|
{
|
|
g_offset--;
|
|
ralf = -1;
|
|
}
|
|
|
|
if (!modern)
|
|
{
|
|
WORD g = pwOutGlyphs[index+glyph_index->base+g_offset];
|
|
pwOutGlyphs[index+glyph_index->base+g_offset] = pwOutGlyphs[index+glyph_index->base+g_offset+1];
|
|
pwOutGlyphs[index+glyph_index->base+g_offset+1] = g;
|
|
}
|
|
|
|
nextIndex = apply_GSUB_feature_to_glyph(hdc, psa, psc, pwOutGlyphs, index+glyph_index->base+g_offset, 1, pcGlyphs, feat);
|
|
if (nextIndex > GSUB_E_NOGLYPH)
|
|
{
|
|
UpdateClusters(nextIndex, *pcGlyphs - prevCount, 1, cChars, pwLogClust);
|
|
shift_syllable_glyph_indexs(glyph_index,index+glyph_index->start+g_offset, (*pcGlyphs - prevCount));
|
|
g_offset += (*pcGlyphs - prevCount);
|
|
}
|
|
else if (!modern)
|
|
{
|
|
WORD g = pwOutGlyphs[index+glyph_index->base+g_offset];
|
|
pwOutGlyphs[index+glyph_index->base+g_offset] = pwOutGlyphs[index+glyph_index->base+g_offset+1];
|
|
pwOutGlyphs[index+glyph_index->base+g_offset+1] = g;
|
|
}
|
|
|
|
index+=2;
|
|
index = find_halant_consonant(&pwChars[syllable->base], index, count, lexical);
|
|
}
|
|
}
|
|
|
|
static void ShapeIndicSyllables(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwChars, INT cChars, IndicSyllable *syllables, INT syllable_count, WORD *pwOutGlyphs, INT* pcGlyphs, WORD *pwLogClust, lexical_function lexical, second_reorder_function second_reorder, BOOL modern)
|
|
{
|
|
int c;
|
|
int overall_shift = 0;
|
|
const GSUB_Feature *locl = (modern)?load_GSUB_feature(hdc, psa, psc, "locl"):NULL;
|
|
const GSUB_Feature *nukt = load_GSUB_feature(hdc, psa, psc, "nukt");
|
|
const GSUB_Feature *akhn = load_GSUB_feature(hdc, psa, psc, "akhn");
|
|
const GSUB_Feature *rkrf = (modern)?load_GSUB_feature(hdc, psa, psc, "rkrf"):NULL;
|
|
const GSUB_Feature *pstf = load_GSUB_feature(hdc, psa, psc, "pstf");
|
|
const GSUB_Feature *vatu = (!rkrf)?load_GSUB_feature(hdc, psa, psc, "vatu"):NULL;
|
|
const GSUB_Feature *cjct = (modern)?load_GSUB_feature(hdc, psa, psc, "cjct"):NULL;
|
|
BOOL rphf = (load_GSUB_feature(hdc, psa, psc, "rphf") != NULL);
|
|
BOOL pref = (load_GSUB_feature(hdc, psa, psc, "pref") != NULL);
|
|
BOOL blwf = (load_GSUB_feature(hdc, psa, psc, "blwf") != NULL);
|
|
BOOL half = (load_GSUB_feature(hdc, psa, psc, "half") != NULL);
|
|
IndicSyllable glyph_indexs;
|
|
|
|
for (c = 0; c < syllable_count; c++)
|
|
{
|
|
int old_end;
|
|
memcpy(&glyph_indexs, &syllables[c], sizeof(IndicSyllable));
|
|
shift_syllable_glyph_indexs(&glyph_indexs, -1, overall_shift);
|
|
old_end = glyph_indexs.end;
|
|
|
|
if (locl)
|
|
{
|
|
TRACE("applying feature locl\n");
|
|
Apply_Indic_BasicForm(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, locl);
|
|
}
|
|
if (nukt)
|
|
{
|
|
TRACE("applying feature nukt\n");
|
|
Apply_Indic_BasicForm(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, nukt);
|
|
}
|
|
if (akhn)
|
|
{
|
|
TRACE("applying feature akhn\n");
|
|
Apply_Indic_BasicForm(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, akhn);
|
|
}
|
|
|
|
if (rphf)
|
|
Apply_Indic_Rphf(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs);
|
|
if (rkrf)
|
|
{
|
|
TRACE("applying feature rkrf\n");
|
|
Apply_Indic_BasicForm(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, rkrf);
|
|
}
|
|
if (pref)
|
|
Apply_Indic_PostBase(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, modern, "pref");
|
|
if (blwf)
|
|
{
|
|
if (!modern)
|
|
Apply_Indic_PreBase(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, "blwf");
|
|
|
|
Apply_Indic_PostBase(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, modern, "blwf");
|
|
|
|
}
|
|
if (half)
|
|
Apply_Indic_PreBase(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, "half");
|
|
if (pstf)
|
|
{
|
|
TRACE("applying feature pstf\n");
|
|
Apply_Indic_BasicForm(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, pstf);
|
|
}
|
|
if (vatu)
|
|
{
|
|
TRACE("applying feature vatu\n");
|
|
Apply_Indic_BasicForm(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, vatu);
|
|
}
|
|
if (cjct)
|
|
{
|
|
TRACE("applying feature cjct\n");
|
|
Apply_Indic_BasicForm(hdc, psc, psa, pwChars, cChars, &syllables[c], pwOutGlyphs, pcGlyphs, pwLogClust, lexical, &glyph_indexs, cjct);
|
|
}
|
|
|
|
if (second_reorder)
|
|
second_reorder(pwChars, &syllables[c], pwOutGlyphs, &glyph_indexs, lexical);
|
|
|
|
overall_shift += glyph_indexs.end - old_end;
|
|
}
|
|
}
|
|
|
|
static inline int unicode_lex(WCHAR c)
|
|
{
|
|
int type;
|
|
|
|
if (!c) return lex_Generic;
|
|
if (c == 0x200D) return lex_ZWJ;
|
|
if (c == 0x200C) return lex_ZWNJ;
|
|
if (c == 0x00A0) return lex_NBSP;
|
|
|
|
type = get_table_entry( indic_syllabic_table, c );
|
|
|
|
if ((type & 0x00ff) != 0x0007) type = type & 0x00ff;
|
|
|
|
switch( type )
|
|
{
|
|
case 0x0d07: /* Unknown */
|
|
case 0x0e07: /* Unknwon */
|
|
default: return lex_Generic;
|
|
case 0x0001:
|
|
case 0x0002:
|
|
case 0x0011:
|
|
case 0x0012:
|
|
case 0x0013:
|
|
case 0x0014: return lex_Modifier;
|
|
case 0x0003:
|
|
case 0x0009:
|
|
case 0x000a:
|
|
case 0x000b:
|
|
case 0x000d:
|
|
case 0x000e:
|
|
case 0x000f:
|
|
case 0x0010: return lex_Consonant;
|
|
case 0x0004: return lex_Nukta;
|
|
case 0x0005: return lex_Halant;
|
|
case 0x0006:
|
|
case 0x0008: return lex_Vowel;
|
|
case 0x0007:
|
|
case 0x0107: return lex_Matra_post;
|
|
case 0x0207:
|
|
case 0x0307: return lex_Matra_pre;
|
|
case 0x0807:
|
|
case 0x0907:
|
|
case 0x0a07:
|
|
case 0x0b07:
|
|
case 0x0c07:
|
|
case 0x0407: return lex_Composed_Vowel;
|
|
case 0x0507: return lex_Matra_above;
|
|
case 0x0607: return lex_Matra_below;
|
|
case 0x000c: return lex_Ra;
|
|
};
|
|
}
|
|
|
|
static int sinhala_lex(WCHAR c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x0DDA:
|
|
case 0x0DDD:
|
|
case 0x0DDC:
|
|
case 0x0DDE: return lex_Matra_post;
|
|
default:
|
|
return unicode_lex(c);
|
|
}
|
|
}
|
|
|
|
static const VowelComponents Sinhala_vowels[] = {
|
|
{0x0DDA, {0x0DD9,0x0DDA,0x0}},
|
|
{0x0DDC, {0x0DD9,0x0DDC,0x0}},
|
|
{0x0DDD, {0x0DD9,0x0DDD,0x0}},
|
|
{0x0DDE, {0x0DD9,0x0DDE,0x0}},
|
|
{0x0000, {0x0000,0x0000,0x0}}};
|
|
|
|
static void ContextualShape_Sinhala(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
int i;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(),0,sizeof(WCHAR) * (cChars * 3));
|
|
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Decompose multi part vowels */
|
|
DecomposeVowels(hdc, input, &cCount, Sinhala_vowels, pwLogClust);
|
|
|
|
TRACE("New double vowel expanded string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, sinhala_lex, Reorder_Like_Sinhala, TRUE);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
|
|
/* Step 3: Strip dangling joiners */
|
|
for (i = 0; i < cCount; i++)
|
|
{
|
|
if ((input[i] == 0x200D || input[i] == 0x200C) &&
|
|
(i == 0 || input[i-1] == 0x0020 || i == cCount-1 || input[i+1] == 0x0020))
|
|
input[i] = 0x0020;
|
|
}
|
|
|
|
/* Step 4: Base Form application to syllables */
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, sinhala_lex, NULL, TRUE);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int devanagari_lex(WCHAR c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x0930: return lex_Ra;
|
|
default:
|
|
return unicode_lex(c);
|
|
}
|
|
}
|
|
|
|
static const ConsonantComponents Devanagari_consonants[] ={
|
|
{{0x0928, 0x093C, 0x00000}, 0x0929},
|
|
{{0x0930, 0x093C, 0x00000}, 0x0931},
|
|
{{0x0933, 0x093C, 0x00000}, 0x0934},
|
|
{{0x0915, 0x093C, 0x00000}, 0x0958},
|
|
{{0x0916, 0x093C, 0x00000}, 0x0959},
|
|
{{0x0917, 0x093C, 0x00000}, 0x095A},
|
|
{{0x091C, 0x093C, 0x00000}, 0x095B},
|
|
{{0x0921, 0x093C, 0x00000}, 0x095C},
|
|
{{0x0922, 0x093C, 0x00000}, 0x095D},
|
|
{{0x092B, 0x093C, 0x00000}, 0x095E},
|
|
{{0x092F, 0x093C, 0x00000}, 0x095F}};
|
|
|
|
static void ContextualShape_Devanagari(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, cChars * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Compose Consonant and Nukta */
|
|
ComposeConsonants(hdc, input, &cCount, Devanagari_consonants, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, devanagari_lex, Reorder_Like_Devanagari, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, devanagari_lex, NULL, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int bengali_lex(WCHAR c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x09B0: return lex_Ra;
|
|
default:
|
|
return unicode_lex(c);
|
|
}
|
|
}
|
|
|
|
static const VowelComponents Bengali_vowels[] = {
|
|
{0x09CB, {0x09C7,0x09BE,0x0000}},
|
|
{0x09CC, {0x09C7,0x09D7,0x0000}},
|
|
{0x0000, {0x0000,0x0000,0x0000}}};
|
|
|
|
static const ConsonantComponents Bengali_consonants[] = {
|
|
{{0x09A4,0x09CD,0x200D}, 0x09CE},
|
|
{{0x09A1,0x09BC,0x0000}, 0x09DC},
|
|
{{0x09A2,0x09BC,0x0000}, 0x09DD},
|
|
{{0x09AF,0x09BC,0x0000}, 0x09DF},
|
|
{{0x0000,0x0000,0x0000}, 0x0000}};
|
|
|
|
static void ContextualShape_Bengali(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, (cChars * 2) * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Decompose Vowels and Compose Consonents */
|
|
DecomposeVowels(hdc, input, &cCount, Bengali_vowels, pwLogClust);
|
|
ComposeConsonants(hdc, input, &cCount, Bengali_consonants, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, bengali_lex, Reorder_Like_Bengali, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Initial form is only applied to the beginning of words */
|
|
for (cCount = cCount - 1 ; cCount >= 0; cCount --)
|
|
{
|
|
if (cCount == 0 || input[cCount] == 0x0020) /* space */
|
|
{
|
|
int index = cCount;
|
|
int gCount = 1;
|
|
if (index > 0) index++;
|
|
|
|
apply_GSUB_feature_to_glyph(hdc, psa, psc, &pwOutGlyphs[index], 0, 1, &gCount, "init");
|
|
}
|
|
}
|
|
|
|
/* Step 4: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, bengali_lex, NULL, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int gurmukhi_lex(WCHAR c)
|
|
{
|
|
if (c == 0x0A71)
|
|
return lex_Modifier;
|
|
else
|
|
return unicode_lex(c);
|
|
}
|
|
|
|
static const ConsonantComponents Gurmukhi_consonants[] = {
|
|
{{0x0A32,0x0A3C,0x0000}, 0x0A33},
|
|
{{0x0A38,0x0A3C,0x0000}, 0x0A36},
|
|
{{0x0A16,0x0A3C,0x0000}, 0x0A59},
|
|
{{0x0A17,0x0A3C,0x0000}, 0x0A5A},
|
|
{{0x0A1C,0x0A3C,0x0000}, 0x0A5B},
|
|
{{0x0A2B,0x0A3C,0x0000}, 0x0A5E},
|
|
{{0x0000,0x0000,0x0000}, 0x0000}};
|
|
|
|
static void ContextualShape_Gurmukhi(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, cChars * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Compose Consonents */
|
|
ComposeConsonants(hdc, input, &cCount, Gurmukhi_consonants, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, gurmukhi_lex, Reorder_Like_Bengali, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, gurmukhi_lex, NULL, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int gujarati_lex(WCHAR c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x0AB0: return lex_Ra;
|
|
default:
|
|
return unicode_lex(c);
|
|
}
|
|
}
|
|
|
|
static void ContextualShape_Gujarati(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, cChars * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, gujarati_lex, Reorder_Like_Devanagari, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 2: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, gujarati_lex, NULL, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int oriya_lex(WCHAR c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x0B30: return lex_Ra;
|
|
default:
|
|
return unicode_lex(c);
|
|
}
|
|
}
|
|
|
|
static const VowelComponents Oriya_vowels[] = {
|
|
{0x0B48, {0x0B47,0x0B56,0x0000}},
|
|
{0x0B4B, {0x0B47,0x0B3E,0x0000}},
|
|
{0x0B4C, {0x0B47,0x0B57,0x0000}},
|
|
{0x0000, {0x0000,0x0000,0x0000}}};
|
|
|
|
static const ConsonantComponents Oriya_consonants[] = {
|
|
{{0x0B21,0x0B3C,0x0000}, 0x0B5C},
|
|
{{0x0B22,0x0B3C,0x0000}, 0x0B5D},
|
|
{{0x0000,0x0000,0x0000}, 0x0000}};
|
|
|
|
static void ContextualShape_Oriya(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, (cChars*2) * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Decompose Vowels and Compose Consonents */
|
|
DecomposeVowels(hdc, input, &cCount, Oriya_vowels, pwLogClust);
|
|
ComposeConsonants(hdc, input, &cCount, Oriya_consonants, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, oriya_lex, Reorder_Like_Bengali, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, oriya_lex, NULL, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int tamil_lex(WCHAR c)
|
|
{
|
|
return unicode_lex(c);
|
|
}
|
|
|
|
static const VowelComponents Tamil_vowels[] = {
|
|
{0x0BCA, {0x0BC6,0x0BBE,0x0000}},
|
|
{0x0BCB, {0x0BC7,0x0BBE,0x0000}},
|
|
{0x0BCB, {0x0BC6,0x0BD7,0x0000}},
|
|
{0x0000, {0x0000,0x0000,0x0000}}};
|
|
|
|
static const ConsonantComponents Tamil_consonants[] = {
|
|
{{0x0B92,0x0BD7,0x0000}, 0x0B94},
|
|
{{0x0000,0x0000,0x0000}, 0x0000}};
|
|
|
|
static void ContextualShape_Tamil(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, (cChars*2) * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Decompose Vowels and Compose Consonents */
|
|
DecomposeVowels(hdc, input, &cCount, Tamil_vowels, pwLogClust);
|
|
ComposeConsonants(hdc, input, &cCount, Tamil_consonants, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, tamil_lex, Reorder_Like_Bengali, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, tamil_lex, SecondReorder_Like_Tamil, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int telugu_lex(WCHAR c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x0C43:
|
|
case 0x0C44: return lex_Modifier;
|
|
default:
|
|
return unicode_lex(c);
|
|
}
|
|
}
|
|
|
|
static const VowelComponents Telugu_vowels[] = {
|
|
{0x0C48, {0x0C46,0x0C56,0x0000}},
|
|
{0x0000, {0x0000,0x0000,0x0000}}};
|
|
|
|
static void ContextualShape_Telugu(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, (cChars*2) * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Decompose Vowels */
|
|
DecomposeVowels(hdc, input, &cCount, Telugu_vowels, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, telugu_lex, Reorder_Like_Bengali, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, telugu_lex, SecondReorder_Like_Telugu, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int kannada_lex(WCHAR c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x0CB0: return lex_Ra;
|
|
default:
|
|
return unicode_lex(c);
|
|
}
|
|
}
|
|
|
|
static const VowelComponents Kannada_vowels[] = {
|
|
{0x0CC0, {0x0CBF,0x0CD5,0x0000}},
|
|
{0x0CC7, {0x0CC6,0x0CD5,0x0000}},
|
|
{0x0CC8, {0x0CC6,0x0CD6,0x0000}},
|
|
{0x0CCA, {0x0CC6,0x0CC2,0x0000}},
|
|
{0x0CCB, {0x0CC6,0x0CC2,0x0CD5}},
|
|
{0x0000, {0x0000,0x0000,0x0000}}};
|
|
|
|
static void ContextualShape_Kannada(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, (cChars*3) * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Decompose Vowels */
|
|
DecomposeVowels(hdc, input, &cCount, Kannada_vowels, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, kannada_lex, Reorder_Like_Kannada, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, kannada_lex, SecondReorder_Like_Telugu, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static int malayalam_lex(WCHAR c)
|
|
{
|
|
return unicode_lex(c);
|
|
}
|
|
|
|
static const VowelComponents Malayalam_vowels[] = {
|
|
{0x0D4A, {0x0D46,0x0D3E,0x0000}},
|
|
{0x0D4B, {0x0D47,0x0D3E,0x0000}},
|
|
{0x0D4C, {0x0D46,0x0D57,0x0000}},
|
|
{0x0000, {0x0000,0x0000,0x0000}}};
|
|
|
|
static void ContextualShape_Malayalam(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
int cCount = cChars;
|
|
WCHAR *input;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
if (*pcGlyphs != cChars)
|
|
{
|
|
ERR("Number of Glyphs and Chars need to match at the beginning\n");
|
|
return;
|
|
}
|
|
|
|
input = HeapAlloc(GetProcessHeap(), 0, (cChars*2) * sizeof(WCHAR));
|
|
memcpy(input, pwcChars, cChars * sizeof(WCHAR));
|
|
|
|
/* Step 1: Decompose Vowels */
|
|
DecomposeVowels(hdc, input, &cCount, Malayalam_vowels, pwLogClust);
|
|
TRACE("New composed string %s (%i)\n",debugstr_wn(input,cCount),cCount);
|
|
|
|
/* Step 2: Reorder within Syllables */
|
|
Indic_ReorderCharacters( hdc, psa, psc, input, cCount, &syllables, &syllable_count, malayalam_lex, Reorder_Like_Devanagari, modern);
|
|
TRACE("reordered string %s\n",debugstr_wn(input,cCount));
|
|
GetGlyphIndicesW(hdc, input, cCount, pwOutGlyphs, 0);
|
|
*pcGlyphs = cCount;
|
|
|
|
/* Step 3: Base Form application to syllables */
|
|
ShapeIndicSyllables(hdc, psc, psa, input, cChars, syllables, syllable_count, pwOutGlyphs, pcGlyphs, pwLogClust, malayalam_lex, SecondReorder_Like_Tamil, modern);
|
|
|
|
HeapFree(GetProcessHeap(),0,input);
|
|
HeapFree(GetProcessHeap(),0,syllables);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Default( HDC hdc, ScriptCache* psc, SCRIPT_ANALYSIS* psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD* pwLogClust, SCRIPT_CHARPROP* pCharProp, SCRIPT_GLYPHPROP* pGlyphProp)
|
|
{
|
|
int i,k;
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
int char_index[20];
|
|
int char_count = 0;
|
|
|
|
for (k = 0; k < cChars; k++)
|
|
{
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
char_index[char_count] = k;
|
|
char_count++;
|
|
}
|
|
}
|
|
|
|
if (char_count == 0)
|
|
{
|
|
FIXME("No chars in this glyph? Must be an error\n");
|
|
continue;
|
|
}
|
|
|
|
if (char_count ==1 && pwcChars[char_index[0]] == 0x0020) /* space */
|
|
{
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_BLANK;
|
|
pCharProp[char_index[0]].fCanGlyphAlone = 1;
|
|
}
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_CHARACTER;
|
|
}
|
|
|
|
GDEF_UpdateGlyphProps(hdc, psc, pwGlyphs, cGlyphs, pwLogClust, pGlyphProp);
|
|
UpdateClustersFromGlyphProp(cGlyphs, cChars, pwLogClust, pGlyphProp);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Arabic( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
int i,k;
|
|
int initGlyph, finaGlyph;
|
|
INT dirR, dirL;
|
|
BYTE *spaces;
|
|
|
|
spaces = HeapAlloc(GetProcessHeap(),0,cGlyphs);
|
|
memset(spaces,0,cGlyphs);
|
|
|
|
if (!psa->fLogicalOrder && psa->fRTL)
|
|
{
|
|
initGlyph = cGlyphs-1;
|
|
finaGlyph = 0;
|
|
dirR = 1;
|
|
dirL = -1;
|
|
}
|
|
else
|
|
{
|
|
initGlyph = 0;
|
|
finaGlyph = cGlyphs-1;
|
|
dirR = -1;
|
|
dirL = 1;
|
|
}
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
for (k = 0; k < cChars; k++)
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
if (pwcChars[k] == 0x0020)
|
|
spaces[i] = 1;
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
int char_index[20];
|
|
int char_count = 0;
|
|
BOOL isInit, isFinal;
|
|
|
|
for (k = 0; k < cChars; k++)
|
|
{
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
char_index[char_count] = k;
|
|
char_count++;
|
|
}
|
|
}
|
|
|
|
isInit = (i == initGlyph || (i+dirR > 0 && i+dirR < cGlyphs && spaces[i+dirR]));
|
|
isFinal = (i == finaGlyph || (i+dirL > 0 && i+dirL < cGlyphs && spaces[i+dirL]));
|
|
|
|
if (char_count == 0)
|
|
{
|
|
FIXME("No chars in this glyph? Must be an error\n");
|
|
continue;
|
|
}
|
|
|
|
if (char_count == 1)
|
|
{
|
|
if (pwcChars[char_index[0]] == 0x0020) /* space */
|
|
{
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_BLANK;
|
|
pCharProp[char_index[0]].fCanGlyphAlone = 1;
|
|
}
|
|
else if (pwcChars[char_index[0]] == 0x0640) /* kashida */
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_KASHIDA;
|
|
else if (pwcChars[char_index[0]] == 0x0633) /* SEEN */
|
|
{
|
|
if (!isInit && !isFinal)
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_SEEN_M;
|
|
else if (isInit)
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_SEEN;
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
else if (!isInit)
|
|
{
|
|
if (pwcChars[char_index[0]] == 0x0628 ) /* BA */
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_BA;
|
|
else if (pwcChars[char_index[0]] == 0x0631 ) /* RA */
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_RA;
|
|
else if (pwcChars[char_index[0]] == 0x0647 ) /* HA */
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_HA;
|
|
else if ((pwcChars[char_index[0]] == 0x0627 || pwcChars[char_index[0]] == 0x0625 || pwcChars[char_index[0]] == 0x0623 || pwcChars[char_index[0]] == 0x0622) ) /* alef-like */
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_ALEF;
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
else if (!isInit && !isFinal)
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_NORMAL;
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
else if (char_count == 2)
|
|
{
|
|
if ((pwcChars[char_index[0]] == 0x0628 && pwcChars[char_index[1]]== 0x0631) || (pwcChars[char_index[0]] == 0x0631 && pwcChars[char_index[1]]== 0x0628)) /* BA+RA */
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_BARA;
|
|
else if (!isInit)
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_NORMAL;
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
else if (!isInit && !isFinal)
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_ARABIC_NORMAL;
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
|
|
GDEF_UpdateGlyphProps(hdc, psc, pwGlyphs, cGlyphs, pwLogClust, pGlyphProp);
|
|
UpdateClustersFromGlyphProp(cGlyphs, cChars, pwLogClust, pGlyphProp);
|
|
HeapFree(GetProcessHeap(),0,spaces);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Thai( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
int i,k;
|
|
int finaGlyph;
|
|
INT dirL;
|
|
BYTE *spaces;
|
|
|
|
spaces = HeapAlloc(GetProcessHeap(),0,cGlyphs);
|
|
memset(spaces,0,cGlyphs);
|
|
|
|
if (!psa->fLogicalOrder && psa->fRTL)
|
|
{
|
|
finaGlyph = 0;
|
|
dirL = -1;
|
|
}
|
|
else
|
|
{
|
|
finaGlyph = cGlyphs-1;
|
|
dirL = 1;
|
|
}
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
for (k = 0; k < cChars; k++)
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
if (pwcChars[k] == 0x0020)
|
|
spaces[i] = 1;
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
int char_index[20];
|
|
int char_count = 0;
|
|
|
|
for (k = 0; k < cChars; k++)
|
|
{
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
char_index[char_count] = k;
|
|
char_count++;
|
|
}
|
|
}
|
|
|
|
if (char_count == 0)
|
|
{
|
|
FIXME("No chars in this glyph? Must be an error\n");
|
|
continue;
|
|
}
|
|
|
|
if (char_count ==1 && pwcChars[char_index[0]] == 0x0020) /* space */
|
|
{
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_CHARACTER;
|
|
pCharProp[char_index[0]].fCanGlyphAlone = 1;
|
|
}
|
|
else if (i == finaGlyph)
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_CHARACTER;
|
|
}
|
|
|
|
HeapFree(GetProcessHeap(),0,spaces);
|
|
GDEF_UpdateGlyphProps(hdc, psc, pwGlyphs, cGlyphs, pwLogClust, pGlyphProp);
|
|
UpdateClustersFromGlyphProp(cGlyphs, cChars, pwLogClust, pGlyphProp);
|
|
|
|
/* Do not allow justification between marks and their base */
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
if (!pGlyphProp[i].sva.fClusterStart)
|
|
pGlyphProp[i-dirL].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_None( HDC hdc, ScriptCache* psc, SCRIPT_ANALYSIS* psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD* pwLogClust, SCRIPT_CHARPROP* pCharProp, SCRIPT_GLYPHPROP* pGlyphProp)
|
|
{
|
|
int i,k;
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
int char_index[20];
|
|
int char_count = 0;
|
|
|
|
for (k = 0; k < cChars; k++)
|
|
{
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
char_index[char_count] = k;
|
|
char_count++;
|
|
}
|
|
}
|
|
|
|
if (char_count == 0)
|
|
{
|
|
FIXME("No chars in this glyph? Must be an error\n");
|
|
continue;
|
|
}
|
|
|
|
if (char_count ==1 && pwcChars[char_index[0]] == 0x0020) /* space */
|
|
{
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_CHARACTER;
|
|
pCharProp[char_index[0]].fCanGlyphAlone = 1;
|
|
}
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
GDEF_UpdateGlyphProps(hdc, psc, pwGlyphs, cGlyphs, pwLogClust, pGlyphProp);
|
|
UpdateClustersFromGlyphProp(cGlyphs, cChars, pwLogClust, pGlyphProp);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Tibet( HDC hdc, ScriptCache* psc, SCRIPT_ANALYSIS* psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD* pwLogClust, SCRIPT_CHARPROP* pCharProp, SCRIPT_GLYPHPROP* pGlyphProp)
|
|
{
|
|
int i,k;
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
int char_index[20];
|
|
int char_count = 0;
|
|
|
|
for (k = 0; k < cChars; k++)
|
|
{
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
char_index[char_count] = k;
|
|
char_count++;
|
|
}
|
|
}
|
|
|
|
if (char_count == 0)
|
|
{
|
|
FIXME("No chars in this glyph? Must be an error\n");
|
|
continue;
|
|
}
|
|
|
|
if (char_count ==1 && pwcChars[char_index[0]] == 0x0020) /* space */
|
|
{
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_BLANK;
|
|
pCharProp[char_index[0]].fCanGlyphAlone = 1;
|
|
}
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
}
|
|
GDEF_UpdateGlyphProps(hdc, psc, pwGlyphs, cGlyphs, pwLogClust, pGlyphProp);
|
|
UpdateClustersFromGlyphProp(cGlyphs, cChars, pwLogClust, pGlyphProp);
|
|
|
|
/* Tibeten script does not set sva.fDiacritic or sva.fZeroWidth */
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
if (!pGlyphProp[i].sva.fClusterStart)
|
|
{
|
|
pGlyphProp[i].sva.fDiacritic = 0;
|
|
pGlyphProp[i].sva.fZeroWidth = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_BaseIndic( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp, lexical_function lexical)
|
|
{
|
|
int i,k;
|
|
IndicSyllable *syllables = NULL;
|
|
int syllable_count = 0;
|
|
BOOL modern = get_GSUB_Indic2(psa, psc);
|
|
|
|
for (i = 0; i < cGlyphs; i++)
|
|
{
|
|
int char_index[20];
|
|
int char_count = 0;
|
|
|
|
for (k = 0; k < cChars; k++)
|
|
{
|
|
if (pwLogClust[k] == i)
|
|
{
|
|
char_index[char_count] = k;
|
|
char_count++;
|
|
}
|
|
}
|
|
|
|
if (char_count == 0)
|
|
{
|
|
FIXME("No chars in this glyph? Must be an error\n");
|
|
continue;
|
|
}
|
|
|
|
if (char_count ==1 && pwcChars[char_index[0]] == 0x0020) /* space */
|
|
{
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_BLANK;
|
|
pCharProp[char_index[0]].fCanGlyphAlone = 1;
|
|
}
|
|
else
|
|
pGlyphProp[i].sva.uJustification = SCRIPT_JUSTIFY_NONE;
|
|
|
|
pGlyphProp[i].sva.fClusterStart = 0;
|
|
for (k = 0; k < char_count && !pGlyphProp[i].sva.fClusterStart; k++)
|
|
switch (lexical(pwcChars[char_index[k]]))
|
|
{
|
|
case lex_Matra_pre:
|
|
case lex_Matra_post:
|
|
case lex_Matra_above:
|
|
case lex_Matra_below:
|
|
case lex_Modifier:
|
|
break;
|
|
default:
|
|
pGlyphProp[i].sva.fClusterStart = 1;
|
|
break;
|
|
}
|
|
}
|
|
|
|
Indic_ParseSyllables( hdc, psa, psc, pwcChars, cChars, &syllables, &syllable_count, lexical, modern);
|
|
|
|
for (i = 0; i < syllable_count; i++)
|
|
{
|
|
int j;
|
|
WORD g = pwLogClust[syllables[i].start];
|
|
for (j = syllables[i].start+1; j <= syllables[i].end; j++)
|
|
{
|
|
if (pwLogClust[j] != g)
|
|
{
|
|
pGlyphProp[pwLogClust[j]].sva.fClusterStart = 0;
|
|
pwLogClust[j] = g;
|
|
}
|
|
}
|
|
}
|
|
|
|
UpdateClustersFromGlyphProp(cGlyphs, cChars, pwLogClust, pGlyphProp);
|
|
HeapFree(GetProcessHeap(), 0, syllables);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Sinhala( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, sinhala_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Devanagari( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, devanagari_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Bengali( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, bengali_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Gurmukhi( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, gurmukhi_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Gujarati( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, gujarati_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Oriya( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, oriya_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Tamil( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, tamil_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Telugu( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, telugu_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Kannada( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, kannada_lex);
|
|
}
|
|
|
|
static void ShapeCharGlyphProp_Malayalam( HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp )
|
|
{
|
|
ShapeCharGlyphProp_BaseIndic(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp, malayalam_lex);
|
|
}
|
|
|
|
void SHAPE_CharGlyphProp(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, const WCHAR* pwcChars, const INT cChars, const WORD* pwGlyphs, const INT cGlyphs, WORD *pwLogClust, SCRIPT_CHARPROP *pCharProp, SCRIPT_GLYPHPROP *pGlyphProp)
|
|
{
|
|
if (ShapingData[psa->eScript].charGlyphPropProc)
|
|
ShapingData[psa->eScript].charGlyphPropProc(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp);
|
|
else
|
|
ShapeCharGlyphProp_Default(hdc, psc, psa, pwcChars, cChars, pwGlyphs, cGlyphs, pwLogClust, pCharProp, pGlyphProp);
|
|
}
|
|
|
|
void SHAPE_ContextualShaping(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WCHAR* pwcChars, INT cChars, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, WORD *pwLogClust)
|
|
{
|
|
if (ShapingData[psa->eScript].contextProc)
|
|
ShapingData[psa->eScript].contextProc(hdc, psc, psa, pwcChars, cChars, pwOutGlyphs, pcGlyphs, cMaxGlyphs, pwLogClust);
|
|
}
|
|
|
|
static void SHAPE_ApplyOpenTypeFeatures(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, INT cChars, const TEXTRANGE_PROPERTIES *rpRangeProperties, WORD *pwLogClust)
|
|
{
|
|
int i;
|
|
INT dirL;
|
|
|
|
if (!rpRangeProperties)
|
|
return;
|
|
|
|
if (!psc->GSUB_Table)
|
|
psc->GSUB_Table = load_gsub_table(hdc);
|
|
|
|
if (!psc->GSUB_Table)
|
|
return;
|
|
|
|
if (!psa->fLogicalOrder && psa->fRTL)
|
|
dirL = -1;
|
|
else
|
|
dirL = 1;
|
|
|
|
for (i = 0; i < rpRangeProperties->cotfRecords; i++)
|
|
{
|
|
if (rpRangeProperties->potfRecords[i].lParameter > 0)
|
|
apply_GSUB_feature(hdc, psa, psc, pwOutGlyphs, dirL, pcGlyphs, cChars, (const char*)&rpRangeProperties->potfRecords[i].tagFeature, pwLogClust);
|
|
}
|
|
}
|
|
|
|
void SHAPE_ApplyDefaultOpentypeFeatures(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa, WORD* pwOutGlyphs, INT* pcGlyphs, INT cMaxGlyphs, INT cChars, WORD *pwLogClust)
|
|
{
|
|
const TEXTRANGE_PROPERTIES *rpRangeProperties;
|
|
rpRangeProperties = &ShapingData[psa->eScript].defaultTextRange;
|
|
|
|
SHAPE_ApplyOpenTypeFeatures(hdc, psc, psa, pwOutGlyphs, pcGlyphs, cMaxGlyphs, cChars, rpRangeProperties, pwLogClust);
|
|
}
|
|
|
|
HRESULT SHAPE_CheckFontForRequiredFeatures(HDC hdc, ScriptCache *psc, SCRIPT_ANALYSIS *psa)
|
|
{
|
|
const GSUB_Feature *feature;
|
|
int i;
|
|
|
|
if (!ShapingData[psa->eScript].requiredFeatures)
|
|
return S_OK;
|
|
|
|
if (!psc->GSUB_Table)
|
|
psc->GSUB_Table = load_gsub_table(hdc);
|
|
|
|
/* we need to have at least one of the required features */
|
|
i = 0;
|
|
while (ShapingData[psa->eScript].requiredFeatures[i])
|
|
{
|
|
feature = load_GSUB_feature(hdc, psa, psc, ShapingData[psa->eScript].requiredFeatures[i]);
|
|
if (feature)
|
|
return S_OK;
|
|
i++;
|
|
}
|
|
|
|
return USP_E_SCRIPT_NOT_IN_FONT;
|
|
}
|