2 * Opentype font interfaces for the Uniscribe Script Processor (usp10.dll)
4 * Copyright 2012 CodeWeavers, Aric Stewart
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
32 #include "usp10_internal.h"
34 #include "wine/debug.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(uniscribe
);
38 #ifdef WORDS_BIGENDIAN
39 #define GET_BE_WORD(x) (x)
40 #define GET_BE_DWORD(x) (x)
42 #define GET_BE_WORD(x) RtlUshortByteSwap(x)
43 #define GET_BE_DWORD(x) RtlUlongByteSwap(x)
46 /* These are all structures needed for the cmap format 12 table */
47 #define CMAP_TAG MS_MAKE_TAG('c', 'm', 'a', 'p')
53 } CMAP_EncodingRecord
;
58 CMAP_EncodingRecord tables
[1];
65 } CMAP_SegmentedCoverage_group
;
73 CMAP_SegmentedCoverage_group groups
[1];
74 } CMAP_SegmentedCoverage
;
76 /* These are all structures needed for the GDEF table */
77 #define GDEF_TAG MS_MAKE_TAG('G', 'D', 'E', 'F')
79 enum {BaseGlyph
=1, LigatureGlyph
, MarkGlyph
, ComponentGlyph
};
86 WORD MarkAttachClassDef
;
93 WORD ClassValueArray
[1];
94 } GDEF_ClassDefFormat1
;
100 } GDEF_ClassRangeRecord
;
104 WORD ClassRangeCount
;
105 GDEF_ClassRangeRecord ClassRangeRecord
[1];
106 } GDEF_ClassDefFormat2
;
108 /* These are all structures needed for the GSUB table */
124 GSUB_ScriptRecord ScriptRecord
[1];
130 } GSUB_LangSysRecord
;
135 GSUB_LangSysRecord LangSysRecord
[1];
139 WORD LookupOrder
; /* Reserved */
140 WORD ReqFeatureIndex
;
142 WORD FeatureIndex
[1];
148 } GSUB_FeatureRecord
;
152 GSUB_FeatureRecord FeatureRecord
[1];
156 WORD FeatureParams
; /* Reserved */
158 WORD LookupListIndex
[1];
177 } GSUB_CoverageFormat1
;
182 WORD StartCoverageIndex
;
188 GSUB_RangeRecord RangeRecord
[1];
189 } GSUB_CoverageFormat2
;
192 WORD SubstFormat
; /* = 1 */
195 } GSUB_SingleSubstFormat1
;
198 WORD SubstFormat
; /* = 2 */
202 }GSUB_SingleSubstFormat2
;
205 WORD SubstFormat
; /* = 1 */
209 }GSUB_MultipleSubstFormat1
;
217 WORD SubstFormat
; /* = 1 */
221 }GSUB_LigatureSubstFormat1
;
236 WORD LookupListIndex
;
238 }GSUB_SubstLookupRecord
;
241 WORD SubstFormat
; /* = 1 */
243 WORD ChainSubRuleSetCount
;
244 WORD ChainSubRuleSet
[1];
245 }GSUB_ChainContextSubstFormat1
;
248 WORD SubstFormat
; /* = 3 */
249 WORD BacktrackGlyphCount
;
251 }GSUB_ChainContextSubstFormat3_1
;
254 WORD InputGlyphCount
;
256 }GSUB_ChainContextSubstFormat3_2
;
259 WORD LookaheadGlyphCount
;
261 }GSUB_ChainContextSubstFormat3_3
;
265 GSUB_SubstLookupRecord SubstLookupRecord
[1];
266 }GSUB_ChainContextSubstFormat3_4
;
269 WORD SubstFormat
; /* = 1 */
271 WORD AlternateSetCount
;
272 WORD AlternateSet
[1];
273 } GSUB_AlternateSubstFormat1
;
284 static VOID
*load_CMAP_format12_table(HDC hdc
, ScriptCache
*psc
)
286 CMAP_Header
*CMAP_Table
= NULL
;
290 if (!psc
->CMAP_Table
)
292 length
= GetFontData(hdc
, CMAP_TAG
, 0, NULL
, 0);
293 if (length
!= GDI_ERROR
)
295 psc
->CMAP_Table
= HeapAlloc(GetProcessHeap(),0,length
);
296 GetFontData(hdc
, CMAP_TAG
, 0, psc
->CMAP_Table
, length
);
297 TRACE("Loaded cmap table of %i bytes\n",length
);
303 CMAP_Table
= psc
->CMAP_Table
;
305 for (i
= 0; i
< GET_BE_WORD(CMAP_Table
->numTables
); i
++)
307 if ( (GET_BE_WORD(CMAP_Table
->tables
[i
].platformID
) == 3) &&
308 (GET_BE_WORD(CMAP_Table
->tables
[i
].encodingID
) == 10) )
310 CMAP_SegmentedCoverage
*format
= (CMAP_SegmentedCoverage
*)(((BYTE
*)CMAP_Table
) + GET_BE_DWORD(CMAP_Table
->tables
[i
].offset
));
311 if (GET_BE_WORD(format
->format
) == 12)
318 static int compare_group(const void *a
, const void* b
)
320 const DWORD
*chr
= a
;
321 const CMAP_SegmentedCoverage_group
*group
= b
;
323 if (*chr
< GET_BE_DWORD(group
->startCharCode
))
325 if (*chr
> GET_BE_DWORD(group
->endCharCode
))
330 DWORD
OpenType_CMAP_GetGlyphIndex(HDC hdc
, ScriptCache
*psc
, DWORD utf32c
, LPWORD pgi
, DWORD flags
)
332 /* BMP: use gdi32 for ease */
333 if (utf32c
< 0x10000)
336 return GetGlyphIndicesW(hdc
,&ch
, 1, pgi
, flags
);
339 if (!psc
->CMAP_format12_Table
)
340 psc
->CMAP_format12_Table
= load_CMAP_format12_table(hdc
, psc
);
342 if (flags
& GGI_MARK_NONEXISTING_GLYPHS
)
347 if (psc
->CMAP_format12_Table
)
349 CMAP_SegmentedCoverage
*format
= NULL
;
350 CMAP_SegmentedCoverage_group
*group
= NULL
;
352 format
= (CMAP_SegmentedCoverage
*)psc
->CMAP_format12_Table
;
354 group
= bsearch(&utf32c
, format
->groups
, GET_BE_DWORD(format
->nGroups
),
355 sizeof(CMAP_SegmentedCoverage_group
), compare_group
);
359 DWORD offset
= utf32c
- GET_BE_DWORD(group
->startCharCode
);
360 *pgi
= GET_BE_DWORD(group
->startGlyphID
) + offset
;
371 static WORD
GDEF_get_glyph_class(const GDEF_Header
*header
, WORD glyph
)
375 const GDEF_ClassDefFormat1
*cf1
;
380 offset
= GET_BE_WORD(header
->GlyphClassDef
);
384 cf1
= (GDEF_ClassDefFormat1
*)(((BYTE
*)header
)+offset
);
385 if (GET_BE_WORD(cf1
->ClassFormat
) == 1)
387 if (glyph
>= GET_BE_WORD(cf1
->StartGlyph
))
389 int index
= glyph
- GET_BE_WORD(cf1
->StartGlyph
);
390 if (index
< GET_BE_WORD(cf1
->GlyphCount
))
391 class = GET_BE_WORD(cf1
->ClassValueArray
[index
]);
394 else if (GET_BE_WORD(cf1
->ClassFormat
) == 2)
396 const GDEF_ClassDefFormat2
*cf2
= (GDEF_ClassDefFormat2
*)cf1
;
398 top
= GET_BE_WORD(cf2
->ClassRangeCount
);
399 for (i
= 0; i
< top
; i
++)
401 if (glyph
>= GET_BE_WORD(cf2
->ClassRangeRecord
[i
].Start
) &&
402 glyph
<= GET_BE_WORD(cf2
->ClassRangeRecord
[i
].End
))
404 class = GET_BE_WORD(cf2
->ClassRangeRecord
[i
].Class
);
410 ERR("Unknown Class Format %i\n",GET_BE_WORD(cf1
->ClassFormat
));
415 static VOID
*load_gdef_table(HDC hdc
)
417 VOID
* GDEF_Table
= NULL
;
418 int length
= GetFontData(hdc
, GDEF_TAG
, 0, NULL
, 0);
419 if (length
!= GDI_ERROR
)
421 GDEF_Table
= HeapAlloc(GetProcessHeap(),0,length
);
422 GetFontData(hdc
, GDEF_TAG
, 0, GDEF_Table
, length
);
423 TRACE("Loaded GDEF table of %i bytes\n",length
);
428 void OpenType_GDEF_UpdateGlyphProps(HDC hdc
, ScriptCache
*psc
, const WORD
*pwGlyphs
, const WORD cGlyphs
, WORD
* pwLogClust
, const WORD cChars
, SCRIPT_GLYPHPROP
*pGlyphProp
)
432 if (!psc
->GDEF_Table
)
433 psc
->GDEF_Table
= load_gdef_table(hdc
);
435 for (i
= 0; i
< cGlyphs
; i
++)
441 for (k
= 0; k
< cChars
; k
++)
442 if (pwLogClust
[k
] == i
)
445 class = GDEF_get_glyph_class(psc
->GDEF_Table
, pwGlyphs
[i
]);
451 pGlyphProp
[i
].sva
.fClusterStart
= 1;
452 pGlyphProp
[i
].sva
.fDiacritic
= 0;
453 pGlyphProp
[i
].sva
.fZeroWidth
= 0;
456 pGlyphProp
[i
].sva
.fClusterStart
= 1;
457 pGlyphProp
[i
].sva
.fDiacritic
= 0;
458 pGlyphProp
[i
].sva
.fZeroWidth
= 0;
461 pGlyphProp
[i
].sva
.fClusterStart
= 0;
462 pGlyphProp
[i
].sva
.fDiacritic
= 1;
463 pGlyphProp
[i
].sva
.fZeroWidth
= 1;
466 pGlyphProp
[i
].sva
.fClusterStart
= 0;
467 pGlyphProp
[i
].sva
.fDiacritic
= 0;
468 pGlyphProp
[i
].sva
.fZeroWidth
= 0;
471 ERR("Unknown glyph class %i\n",class);
472 pGlyphProp
[i
].sva
.fClusterStart
= 1;
473 pGlyphProp
[i
].sva
.fDiacritic
= 0;
474 pGlyphProp
[i
].sva
.fZeroWidth
= 0;
478 pGlyphProp
[i
].sva
.fClusterStart
= 0;
485 static INT
GSUB_apply_lookup(const GSUB_LookupList
* lookup
, INT lookup_index
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
);
487 static INT
GSUB_is_glyph_covered(LPCVOID table
, UINT glyph
)
489 const GSUB_CoverageFormat1
* cf1
;
493 if (GET_BE_WORD(cf1
->CoverageFormat
) == 1)
495 int count
= GET_BE_WORD(cf1
->GlyphCount
);
497 TRACE("Coverage Format 1, %i glyphs\n",count
);
498 for (i
= 0; i
< count
; i
++)
499 if (glyph
== GET_BE_WORD(cf1
->GlyphArray
[i
]))
503 else if (GET_BE_WORD(cf1
->CoverageFormat
) == 2)
505 const GSUB_CoverageFormat2
* cf2
;
508 cf2
= (const GSUB_CoverageFormat2
*)cf1
;
510 count
= GET_BE_WORD(cf2
->RangeCount
);
511 TRACE("Coverage Format 2, %i ranges\n",count
);
512 for (i
= 0; i
< count
; i
++)
514 if (glyph
< GET_BE_WORD(cf2
->RangeRecord
[i
].Start
))
516 if ((glyph
>= GET_BE_WORD(cf2
->RangeRecord
[i
].Start
)) &&
517 (glyph
<= GET_BE_WORD(cf2
->RangeRecord
[i
].End
)))
519 return (GET_BE_WORD(cf2
->RangeRecord
[i
].StartCoverageIndex
) +
520 glyph
- GET_BE_WORD(cf2
->RangeRecord
[i
].Start
));
526 ERR("Unknown CoverageFormat %i\n",GET_BE_WORD(cf1
->CoverageFormat
));
531 static INT
GSUB_apply_SingleSubst(const GSUB_LookupTable
*look
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
)
534 TRACE("Single Substitution Subtable\n");
536 for (j
= 0; j
< GET_BE_WORD(look
->SubTableCount
); j
++)
539 const GSUB_SingleSubstFormat1
*ssf1
;
540 offset
= GET_BE_WORD(look
->SubTable
[j
]);
541 ssf1
= (const GSUB_SingleSubstFormat1
*)((const BYTE
*)look
+offset
);
542 if (GET_BE_WORD(ssf1
->SubstFormat
) == 1)
544 int offset
= GET_BE_WORD(ssf1
->Coverage
);
545 TRACE(" subtype 1, delta %i\n", GET_BE_WORD(ssf1
->DeltaGlyphID
));
546 if (GSUB_is_glyph_covered((const BYTE
*)ssf1
+offset
, glyphs
[glyph_index
]) != -1)
548 TRACE(" Glyph 0x%x ->",glyphs
[glyph_index
]);
549 glyphs
[glyph_index
] = glyphs
[glyph_index
] + GET_BE_WORD(ssf1
->DeltaGlyphID
);
550 TRACE(" 0x%x\n",glyphs
[glyph_index
]);
551 return glyph_index
+ write_dir
;
556 const GSUB_SingleSubstFormat2
*ssf2
;
560 ssf2
= (const GSUB_SingleSubstFormat2
*)ssf1
;
561 offset
= GET_BE_WORD(ssf1
->Coverage
);
562 TRACE(" subtype 2, glyph count %i\n", GET_BE_WORD(ssf2
->GlyphCount
));
563 index
= GSUB_is_glyph_covered((const BYTE
*)ssf2
+offset
, glyphs
[glyph_index
]);
564 TRACE(" Coverage index %i\n",index
);
567 if (glyphs
[glyph_index
] == GET_BE_WORD(ssf2
->Substitute
[index
]))
568 return GSUB_E_NOGLYPH
;
570 TRACE(" Glyph is 0x%x ->",glyphs
[glyph_index
]);
571 glyphs
[glyph_index
] = GET_BE_WORD(ssf2
->Substitute
[index
]);
572 TRACE("0x%x\n",glyphs
[glyph_index
]);
573 return glyph_index
+ write_dir
;
577 return GSUB_E_NOGLYPH
;
580 static INT
GSUB_apply_MultipleSubst(const GSUB_LookupTable
*look
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
)
583 TRACE("Multiple Substitution Subtable\n");
585 for (j
= 0; j
< GET_BE_WORD(look
->SubTableCount
); j
++)
588 const GSUB_MultipleSubstFormat1
*msf1
;
589 offset
= GET_BE_WORD(look
->SubTable
[j
]);
590 msf1
= (const GSUB_MultipleSubstFormat1
*)((const BYTE
*)look
+offset
);
592 offset
= GET_BE_WORD(msf1
->Coverage
);
593 index
= GSUB_is_glyph_covered((const BYTE
*)msf1
+offset
, glyphs
[glyph_index
]);
596 const GSUB_Sequence
*seq
;
599 offset
= GET_BE_WORD(msf1
->Sequence
[index
]);
600 seq
= (const GSUB_Sequence
*)((const BYTE
*)msf1
+offset
);
601 sub_count
= GET_BE_WORD(seq
->GlyphCount
);
602 TRACE(" Glyph 0x%x (+%i)->",glyphs
[glyph_index
],(sub_count
-1));
604 for (j
= (*glyph_count
)+(sub_count
-1); j
> glyph_index
; j
--)
605 glyphs
[j
] =glyphs
[j
-(sub_count
-1)];
607 for (j
= 0; j
< sub_count
; j
++)
609 glyphs
[glyph_index
+ (sub_count
-1) - j
] = GET_BE_WORD(seq
->Substitute
[j
]);
611 glyphs
[glyph_index
+ j
] = GET_BE_WORD(seq
->Substitute
[j
]);
613 *glyph_count
= *glyph_count
+ (sub_count
- 1);
615 if (TRACE_ON(uniscribe
))
617 for (j
= 0; j
< sub_count
; j
++)
618 TRACE(" 0x%x",glyphs
[glyph_index
+j
]);
622 return glyph_index
+ (sub_count
* write_dir
);
625 return GSUB_E_NOGLYPH
;
628 static INT
GSUB_apply_AlternateSubst(const GSUB_LookupTable
*look
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
)
631 TRACE("Alternate Substitution Subtable\n");
633 for (j
= 0; j
< GET_BE_WORD(look
->SubTableCount
); j
++)
636 const GSUB_AlternateSubstFormat1
*asf1
;
639 offset
= GET_BE_WORD(look
->SubTable
[j
]);
640 asf1
= (const GSUB_AlternateSubstFormat1
*)((const BYTE
*)look
+offset
);
641 offset
= GET_BE_WORD(asf1
->Coverage
);
643 index
= GSUB_is_glyph_covered((const BYTE
*)asf1
+offset
, glyphs
[glyph_index
]);
646 const GSUB_AlternateSet
*as
;
647 offset
= GET_BE_WORD(asf1
->AlternateSet
[index
]);
648 as
= (const GSUB_AlternateSet
*)((const BYTE
*)asf1
+offset
);
649 FIXME("%i alternates, picking index 0\n",GET_BE_WORD(as
->GlyphCount
));
650 if (glyphs
[glyph_index
] == GET_BE_WORD(as
->Alternate
[0]))
651 return GSUB_E_NOGLYPH
;
653 TRACE(" Glyph 0x%x ->",glyphs
[glyph_index
]);
654 glyphs
[glyph_index
] = GET_BE_WORD(as
->Alternate
[0]);
655 TRACE(" 0x%x\n",glyphs
[glyph_index
]);
656 return glyph_index
+ write_dir
;
659 return GSUB_E_NOGLYPH
;
662 static INT
GSUB_apply_LigatureSubst(const GSUB_LookupTable
*look
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
)
666 TRACE("Ligature Substitution Subtable\n");
667 for (j
= 0; j
< GET_BE_WORD(look
->SubTableCount
); j
++)
669 const GSUB_LigatureSubstFormat1
*lsf1
;
672 offset
= GET_BE_WORD(look
->SubTable
[j
]);
673 lsf1
= (const GSUB_LigatureSubstFormat1
*)((const BYTE
*)look
+offset
);
674 offset
= GET_BE_WORD(lsf1
->Coverage
);
675 index
= GSUB_is_glyph_covered((const BYTE
*)lsf1
+offset
, glyphs
[glyph_index
]);
676 TRACE(" Coverage index %i\n",index
);
679 const GSUB_LigatureSet
*ls
;
682 offset
= GET_BE_WORD(lsf1
->LigatureSet
[index
]);
683 ls
= (const GSUB_LigatureSet
*)((const BYTE
*)lsf1
+offset
);
684 count
= GET_BE_WORD(ls
->LigatureCount
);
685 TRACE(" LigatureSet has %i members\n",count
);
686 for (k
= 0; k
< count
; k
++)
688 const GSUB_Ligature
*lig
;
689 int CompCount
,l
,CompIndex
;
691 offset
= GET_BE_WORD(ls
->Ligature
[k
]);
692 lig
= (const GSUB_Ligature
*)((const BYTE
*)ls
+offset
);
693 CompCount
= GET_BE_WORD(lig
->CompCount
) - 1;
694 CompIndex
= glyph_index
+write_dir
;
695 for (l
= 0; l
< CompCount
&& CompIndex
>= 0 && CompIndex
< *glyph_count
; l
++)
698 CompGlyph
= GET_BE_WORD(lig
->Component
[l
]);
699 if (CompGlyph
!= glyphs
[CompIndex
])
701 CompIndex
+= write_dir
;
705 int replaceIdx
= glyph_index
;
707 replaceIdx
= glyph_index
- CompCount
;
709 TRACE(" Glyph is 0x%x (+%i) ->",glyphs
[glyph_index
],CompCount
);
710 glyphs
[replaceIdx
] = GET_BE_WORD(lig
->LigGlyph
);
711 TRACE("0x%x\n",glyphs
[replaceIdx
]);
715 for (j
= replaceIdx
+ 1; j
< *glyph_count
; j
++)
716 glyphs
[j
] =glyphs
[j
+CompCount
];
717 *glyph_count
= *glyph_count
- CompCount
;
719 return replaceIdx
+ write_dir
;
724 return GSUB_E_NOGLYPH
;
727 static INT
GSUB_apply_ChainContextSubst(const GSUB_LookupList
* lookup
, const GSUB_LookupTable
*look
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
)
732 TRACE("Chaining Contextual Substitution Subtable\n");
733 for (j
= 0; j
< GET_BE_WORD(look
->SubTableCount
) && !done
; j
++)
735 const GSUB_ChainContextSubstFormat1
*ccsf1
;
737 int dirLookahead
= write_dir
;
738 int dirBacktrack
= -1 * write_dir
;
740 offset
= GET_BE_WORD(look
->SubTable
[j
]);
741 ccsf1
= (const GSUB_ChainContextSubstFormat1
*)((const BYTE
*)look
+offset
);
742 if (GET_BE_WORD(ccsf1
->SubstFormat
) == 1)
744 FIXME(" TODO: subtype 1 (Simple context glyph substitution)\n");
747 else if (GET_BE_WORD(ccsf1
->SubstFormat
) == 2)
749 FIXME(" TODO: subtype 2 (Class-based Chaining Context Glyph Substitution)\n");
752 else if (GET_BE_WORD(ccsf1
->SubstFormat
) == 3)
756 const GSUB_ChainContextSubstFormat3_1
*ccsf3_1
;
757 const GSUB_ChainContextSubstFormat3_2
*ccsf3_2
;
758 const GSUB_ChainContextSubstFormat3_3
*ccsf3_3
;
759 const GSUB_ChainContextSubstFormat3_4
*ccsf3_4
;
760 int newIndex
= glyph_index
;
762 ccsf3_1
= (const GSUB_ChainContextSubstFormat3_1
*)ccsf1
;
764 TRACE(" subtype 3 (Coverage-based Chaining Context Glyph Substitution)\n");
766 for (k
= 0; k
< GET_BE_WORD(ccsf3_1
->BacktrackGlyphCount
); k
++)
768 offset
= GET_BE_WORD(ccsf3_1
->Coverage
[k
]);
769 if (GSUB_is_glyph_covered((const BYTE
*)ccsf3_1
+offset
, glyphs
[glyph_index
+ (dirBacktrack
* (k
+1))]) == -1)
772 if (k
!= GET_BE_WORD(ccsf3_1
->BacktrackGlyphCount
))
774 TRACE("Matched Backtrack\n");
776 ccsf3_2
= (const GSUB_ChainContextSubstFormat3_2
*)(((LPBYTE
)ccsf1
)+sizeof(GSUB_ChainContextSubstFormat3_1
) + (sizeof(WORD
) * (GET_BE_WORD(ccsf3_1
->BacktrackGlyphCount
)-1)));
778 indexGlyphs
= GET_BE_WORD(ccsf3_2
->InputGlyphCount
);
779 for (k
= 0; k
< indexGlyphs
; k
++)
781 offset
= GET_BE_WORD(ccsf3_2
->Coverage
[k
]);
782 if (GSUB_is_glyph_covered((const BYTE
*)ccsf3_1
+offset
, glyphs
[glyph_index
+ (write_dir
* k
)]) == -1)
785 if (k
!= indexGlyphs
)
787 TRACE("Matched IndexGlyphs\n");
789 ccsf3_3
= (const GSUB_ChainContextSubstFormat3_3
*)(((LPBYTE
)ccsf3_2
)+sizeof(GSUB_ChainContextSubstFormat3_2
) + (sizeof(WORD
) * (GET_BE_WORD(ccsf3_2
->InputGlyphCount
)-1)));
791 for (k
= 0; k
< GET_BE_WORD(ccsf3_3
->LookaheadGlyphCount
); k
++)
793 offset
= GET_BE_WORD(ccsf3_3
->Coverage
[k
]);
794 if (GSUB_is_glyph_covered((const BYTE
*)ccsf3_1
+offset
, glyphs
[glyph_index
+ (dirLookahead
* (indexGlyphs
+ k
))]) == -1)
797 if (k
!= GET_BE_WORD(ccsf3_3
->LookaheadGlyphCount
))
799 TRACE("Matched LookAhead\n");
801 ccsf3_4
= (const GSUB_ChainContextSubstFormat3_4
*)(((LPBYTE
)ccsf3_3
)+sizeof(GSUB_ChainContextSubstFormat3_3
) + (sizeof(WORD
) * (GET_BE_WORD(ccsf3_3
->LookaheadGlyphCount
)-1)));
803 if (GET_BE_WORD(ccsf3_4
->SubstCount
))
805 for (k
= 0; k
< GET_BE_WORD(ccsf3_4
->SubstCount
); k
++)
807 int lookupIndex
= GET_BE_WORD(ccsf3_4
->SubstLookupRecord
[k
].LookupListIndex
);
808 int SequenceIndex
= GET_BE_WORD(ccsf3_4
->SubstLookupRecord
[k
].SequenceIndex
) * write_dir
;
810 TRACE("SUBST: %i -> %i %i\n",k
, SequenceIndex
, lookupIndex
);
811 newIndex
= GSUB_apply_lookup(lookup
, lookupIndex
, glyphs
, glyph_index
+ SequenceIndex
, write_dir
, glyph_count
);
814 ERR("Chain failed to generate a glyph\n");
820 else return GSUB_E_NOGLYPH
;
826 static INT
GSUB_apply_lookup(const GSUB_LookupList
* lookup
, INT lookup_index
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
)
829 const GSUB_LookupTable
*look
;
831 offset
= GET_BE_WORD(lookup
->Lookup
[lookup_index
]);
832 look
= (const GSUB_LookupTable
*)((const BYTE
*)lookup
+ offset
);
833 TRACE("type %i, flag %x, subtables %i\n",GET_BE_WORD(look
->LookupType
),GET_BE_WORD(look
->LookupFlag
),GET_BE_WORD(look
->SubTableCount
));
834 switch(GET_BE_WORD(look
->LookupType
))
837 return GSUB_apply_SingleSubst(look
, glyphs
, glyph_index
, write_dir
, glyph_count
);
839 return GSUB_apply_MultipleSubst(look
, glyphs
, glyph_index
, write_dir
, glyph_count
);
841 return GSUB_apply_AlternateSubst(look
, glyphs
, glyph_index
, write_dir
, glyph_count
);
843 return GSUB_apply_LigatureSubst(look
, glyphs
, glyph_index
, write_dir
, glyph_count
);
845 return GSUB_apply_ChainContextSubst(lookup
, look
, glyphs
, glyph_index
, write_dir
, glyph_count
);
847 FIXME("We do not handle SubType %i\n",GET_BE_WORD(look
->LookupType
));
849 return GSUB_E_NOGLYPH
;
852 INT
OpenType_apply_GSUB_lookup(LPCVOID table
, INT lookup_index
, WORD
*glyphs
, INT glyph_index
, INT write_dir
, INT
*glyph_count
)
854 const GSUB_Header
*header
= (const GSUB_Header
*)table
;
855 const GSUB_LookupList
*lookup
= (const GSUB_LookupList
*)((const BYTE
*)header
+ GET_BE_WORD(header
->LookupList
));
857 return GSUB_apply_lookup(lookup
, lookup_index
, glyphs
, glyph_index
, write_dir
, glyph_count
);
860 static void GSUB_initialize_script_cache(ScriptCache
*psc
)
864 if (!psc
->script_count
)
866 const GSUB_ScriptList
*script
;
867 const GSUB_Header
* header
= (const GSUB_Header
*)psc
->GSUB_Table
;
868 script
= (const GSUB_ScriptList
*)((const BYTE
*)header
+ GET_BE_WORD(header
->ScriptList
));
869 psc
->script_count
= GET_BE_WORD(script
->ScriptCount
);
870 TRACE("initializing %i scripts in this font\n",psc
->script_count
);
871 psc
->scripts
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(LoadedScript
) * psc
->script_count
);
872 for (i
= 0; i
< psc
->script_count
; i
++)
874 int offset
= GET_BE_WORD(script
->ScriptRecord
[i
].Script
);
875 psc
->scripts
[i
].tag
= MS_MAKE_TAG(script
->ScriptRecord
[i
].ScriptTag
[0], script
->ScriptRecord
[i
].ScriptTag
[1], script
->ScriptRecord
[i
].ScriptTag
[2], script
->ScriptRecord
[i
].ScriptTag
[3]);
876 psc
->scripts
[i
].table
= ((const BYTE
*)script
+ offset
);
881 HRESULT
OpenType_GSUB_GetFontScriptTags(ScriptCache
*psc
, OPENTYPE_TAG searchingFor
, int cMaxTags
, OPENTYPE_TAG
*pScriptTags
, int *pcTags
, LPCVOID
* script_table
)
886 GSUB_initialize_script_cache(psc
);
887 *pcTags
= psc
->script_count
;
889 if (!searchingFor
&& cMaxTags
< *pcTags
)
891 else if (searchingFor
)
892 rc
= USP_E_SCRIPT_NOT_IN_FONT
;
894 for (i
= 0; i
< psc
->script_count
; i
++)
897 pScriptTags
[i
] = psc
->scripts
[i
].tag
;
901 if (searchingFor
== psc
->scripts
[i
].tag
)
903 pScriptTags
[0] = psc
->scripts
[i
].tag
;
906 *script_table
= psc
->scripts
[i
].table
;
915 static void GSUB_initialize_language_cache(LoadedScript
*script
)
919 if (!script
->language_count
)
921 const GSUB_Script
* table
= script
->table
;
922 script
->language_count
= GET_BE_WORD(table
->LangSysCount
);
923 script
->default_language
.tag
= MS_MAKE_TAG('d','f','l','t');
924 script
->default_language
.table
= (const BYTE
*)table
+ GET_BE_WORD(table
->DefaultLangSys
);
926 TRACE("Deflang %p, LangCount %i\n",script
->default_language
.table
, script
->language_count
);
928 script
->languages
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(LoadedLanguage
) * script
->language_count
);
930 for (i
= 0; i
< script
->language_count
; i
++)
932 int offset
= GET_BE_WORD(table
->LangSysRecord
[i
].LangSys
);
933 script
->languages
[i
].tag
= MS_MAKE_TAG(table
->LangSysRecord
[i
].LangSysTag
[0], table
->LangSysRecord
[i
].LangSysTag
[1], table
->LangSysRecord
[i
].LangSysTag
[2], table
->LangSysRecord
[i
].LangSysTag
[3]);
934 script
->languages
[i
].table
= ((const BYTE
*)table
+ offset
);
939 HRESULT
OpenType_GSUB_GetFontLanguageTags(ScriptCache
*psc
, OPENTYPE_TAG script_tag
, OPENTYPE_TAG searchingFor
, int cMaxTags
, OPENTYPE_TAG
*pLanguageTags
, int *pcTags
, LPCVOID
* language_table
)
943 LoadedScript
*script
= NULL
;
945 GSUB_initialize_script_cache(psc
);
947 for (i
= 0; i
< psc
->script_count
; i
++)
949 if (psc
->scripts
[i
].tag
== script_tag
)
951 script
= &psc
->scripts
[i
];
959 GSUB_initialize_language_cache(script
);
961 if (!searchingFor
&& cMaxTags
< script
->language_count
)
963 else if (searchingFor
)
966 *pcTags
= script
->language_count
;
968 for (i
= 0; i
< script
->language_count
; i
++)
971 pLanguageTags
[i
] = script
->languages
[i
].tag
;
975 if (searchingFor
== script
->languages
[i
].tag
)
977 pLanguageTags
[0] = script
->languages
[i
].tag
;
980 *language_table
= script
->languages
[i
].table
;
987 if (script
->default_language
.table
)
990 pLanguageTags
[i
] = script
->default_language
.tag
;
992 if (searchingFor
&& FAILED(rc
))
994 pLanguageTags
[0] = script
->default_language
.tag
;
996 *language_table
= script
->default_language
.table
;
999 *pcTags
= (*pcTags
) + 1;
1006 static void GSUB_initialize_feature_cache(LPCVOID table
, LoadedLanguage
*language
)
1010 if (!language
->feature_count
)
1012 const GSUB_LangSys
*lang
= language
->table
;
1013 const GSUB_Header
*header
= (const GSUB_Header
*)table
;
1014 const GSUB_FeatureList
*feature_list
;
1016 language
->feature_count
= GET_BE_WORD(lang
->FeatureCount
);
1017 TRACE("%i features\n",language
->feature_count
);
1019 language
->features
= HeapAlloc(GetProcessHeap(),0,sizeof(LoadedFeature
)*language
->feature_count
);
1021 feature_list
= (const GSUB_FeatureList
*)((const BYTE
*)header
+ GET_BE_WORD(header
->FeatureList
));
1023 for (i
= 0; i
< language
->feature_count
; i
++)
1025 const GSUB_Feature
*feature
;
1027 int index
= GET_BE_WORD(lang
->FeatureIndex
[i
]);
1029 language
->features
[i
].tag
= MS_MAKE_TAG(feature_list
->FeatureRecord
[index
].FeatureTag
[0], feature_list
->FeatureRecord
[index
].FeatureTag
[1], feature_list
->FeatureRecord
[index
].FeatureTag
[2], feature_list
->FeatureRecord
[index
].FeatureTag
[3]);
1030 language
->features
[i
].feature
= ((const BYTE
*)feature_list
+ GET_BE_WORD(feature_list
->FeatureRecord
[index
].Feature
));
1031 feature
= (const GSUB_Feature
*)language
->features
[i
].feature
;
1032 language
->features
[i
].lookup_count
= GET_BE_WORD(feature
->LookupCount
);
1033 language
->features
[i
].lookups
= HeapAlloc(GetProcessHeap(),0,sizeof(WORD
) * language
->features
[i
].lookup_count
);
1034 for (j
= 0; j
< language
->features
[i
].lookup_count
; j
++)
1035 language
->features
[i
].lookups
[j
] = GET_BE_WORD(feature
->LookupListIndex
[j
]);
1040 HRESULT
OpenType_GSUB_GetFontFeatureTags(ScriptCache
*psc
, OPENTYPE_TAG script_tag
, OPENTYPE_TAG language_tag
, BOOL filtered
, OPENTYPE_TAG searchingFor
, int cMaxTags
, OPENTYPE_TAG
*pFeatureTags
, int *pcTags
, LoadedFeature
** feature
)
1044 LoadedScript
*script
= NULL
;
1045 LoadedLanguage
*language
= NULL
;
1047 GSUB_initialize_script_cache(psc
);
1049 for (i
= 0; i
< psc
->script_count
; i
++)
1051 if (psc
->scripts
[i
].tag
== script_tag
)
1053 script
= &psc
->scripts
[i
];
1064 return E_INVALIDARG
;
1067 GSUB_initialize_language_cache(script
);
1069 if (script
->default_language
.table
&& script
->default_language
.tag
== language_tag
)
1070 language
= &script
->default_language
;
1073 for (i
= 0; i
< script
->language_count
; i
++)
1075 if (script
->languages
[i
].tag
== language_tag
)
1077 language
= &script
->languages
[i
];
1089 GSUB_initialize_feature_cache(psc
->GSUB_Table
, language
);
1091 *pcTags
= language
->feature_count
;
1093 if (!searchingFor
&& cMaxTags
< *pcTags
)
1095 else if (searchingFor
)
1098 for (i
= 0; i
< language
->feature_count
; i
++)
1101 pFeatureTags
[i
] = language
->features
[i
].tag
;
1105 if (searchingFor
== language
->features
[i
].tag
)
1107 pFeatureTags
[0] = language
->features
[i
].tag
;
1110 *feature
= &language
->features
[i
];