hb-ot-shape-complex-indic.cc revision 9e4f94a72cea6d65a6a7ba5a47db92e00dbfbb91
1b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod/*
227aba594c90b4444c35273a38f5fedc8e09d9a88Behdad Esfahbod * Copyright © 2011,2012  Google, Inc.
3b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod *
4b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod *  This is part of HarfBuzz, a text shaping library.
5b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod *
6b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * Permission is hereby granted, without written agreement and without
7b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * license or royalty fees, to use, copy, modify, and distribute this
8b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * software and its documentation for any purpose, provided that the
9b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * above copyright notice and the following two paragraphs appear in
10b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * all copies of this software.
11b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod *
12b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR
13b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
14b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN
15b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
16b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * DAMAGE.
17b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod *
18b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,
19b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
20b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
21b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO
22b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
23b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod *
24b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod * Google Author(s): Behdad Esfahbod
25b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod */
26b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
273ed4634ec349fa9e943ad23718c04be4dd4bba62Behdad Esfahbod#include "hb-ot-shape-complex-indic-private.hh"
28a913b024d84973556094fd64ce5f0b7106fcc3b5Behdad Esfahbod#include "hb-ot-shape-private.hh"
29352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod
30a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod#define OLD_INDIC_TAG(script) (((hb_tag_t) script) | 0x20000000)
31a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod#define IS_OLD_INDIC_TAG(tag) ( \
32a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_BENGALI) || \
33a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_DEVANAGARI) || \
34a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_GUJARATI) || \
35a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_GURMUKHI) || \
36a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_KANNADA) || \
37a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_MALAYALAM) || \
38a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_ORIYA) || \
39a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_TAMIL) || \
40a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod				(tag) == OLD_INDIC_TAG (HB_SCRIPT_TELUGU) \
41a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod			      )
42a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbodstruct indic_options_t
43ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod{
44a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  int initialized : 1;
45a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  int uniscribe_bug_compatible : 1;
46a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod};
47a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod
48a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbodunion indic_options_union_t {
49a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  int i;
50a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  indic_options_t opts;
51a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod};
52a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad EsfahbodASSERT_STATIC (sizeof (int) == sizeof (indic_options_union_t));
53a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod
54a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbodstatic indic_options_union_t
55a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbodindic_options_init (void)
56a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod{
57a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  indic_options_union_t u;
58a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  u.i = 0;
59a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  u.opts.initialized = 1;
60a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod
61a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  char *c = getenv ("HB_OT_INDIC_OPTIONS");
62a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  u.opts.uniscribe_bug_compatible = c && strstr (c, "uniscribe-bug-compatible");
63a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod
64a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  return u;
65a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod}
66a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod
67a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbodinline indic_options_t
68a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbodindic_options (void)
69a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod{
70a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  static indic_options_union_t options;
71a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod
72a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  if (unlikely (!options.i)) {
73a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod    /* This is idempotent and threadsafe. */
74a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod    options = indic_options_init ();
75ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod  }
76ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod
77a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  return options.opts;
78a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod}
79a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod
80ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod
81743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic int
82743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodcompare_codepoint (const void *pa, const void *pb)
83743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
84743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  hb_codepoint_t a = * (hb_codepoint_t *) pa;
85743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  hb_codepoint_t b = * (hb_codepoint_t *) pb;
86743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
87743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  return a < b ? -1 : a == b ? 0 : +1;
88743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
89743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
90f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbodstatic bool
91f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbodwould_substitute (hb_codepoint_t *glyphs, unsigned int glyphs_count,
92f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod		  hb_tag_t feature_tag, hb_ot_map_t *map, hb_face_t *face)
93743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
94f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  unsigned int lookup_indices[32];
95f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  unsigned int offset, len;
96f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod
97f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  offset = 0;
98f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  do {
99f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod    len = ARRAY_LENGTH (lookup_indices);
100f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod    hb_ot_layout_feature_get_lookup_indexes (face, HB_OT_TAG_GSUB,
101f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod					     map->get_feature_index (0/*GSUB*/, feature_tag),
102f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod					     offset,
103f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod					     &len,
104f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod					     lookup_indices);
105f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod
106f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod    for (unsigned int i = 0; i < len; i++)
107f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod      if (hb_ot_layout_would_substitute_lookup (face, glyphs, glyphs_count, lookup_indices[i]))
108f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod	return true;
109f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod
110f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod    offset += len;
111f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  } while (len == ARRAY_LENGTH (lookup_indices));
112f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod
113f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  return false;
114f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod}
115743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
116f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbodstatic indic_position_t
117f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbodconsonant_position (hb_codepoint_t u, hb_ot_map_t *map, hb_font_t *font)
118f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod{
1195249f3aee108b0f41770d137e63a625f594418e7Behdad Esfahbod  if ((u & ~0x007F) == 0x1780)
1205249f3aee108b0f41770d137e63a625f594418e7Behdad Esfahbod    return POS_BELOW_C; /* In Khmer coeng model, all are subjoining. */
1215249f3aee108b0f41770d137e63a625f594418e7Behdad Esfahbod
122f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  hb_codepoint_t virama = (u & ~0x007F) | 0x004D;
123f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  if ((u & ~0x007F) == 0x0D80) virama = 0x0DCA; /* Sinahla */
124f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  hb_codepoint_t glyphs[2];
125f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod
12651e764de441072e7c9f67de23e8ed717b9b8957dBehdad Esfahbod  unsigned int virama_pos = IS_OLD_INDIC_TAG (map->get_chosen_script (0)) ? 1 : 0;
12751e764de441072e7c9f67de23e8ed717b9b8957dBehdad Esfahbod  hb_font_get_glyph (font, virama, 0, &glyphs[virama_pos]);
12851e764de441072e7c9f67de23e8ed717b9b8957dBehdad Esfahbod  hb_font_get_glyph (font, u,      0, &glyphs[1-virama_pos]);
129f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod
130f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  hb_face_t *face = hb_font_get_face (font);
131f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  if (would_substitute (glyphs, ARRAY_LENGTH (glyphs), HB_TAG('p','r','e','f'), map, face)) return POS_BELOW_C;
132f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  if (would_substitute (glyphs, ARRAY_LENGTH (glyphs), HB_TAG('b','l','w','f'), map, face)) return POS_BELOW_C;
133f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  if (would_substitute (glyphs, ARRAY_LENGTH (glyphs), HB_TAG('p','s','t','f'), map, face)) return POS_POST_C;
134f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod  return POS_BASE_C;
135743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
136743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
1378bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod#define MATRA_POS_LEFT(u)	POS_PRE_M
1388c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod#define MATRA_POS_RIGHT(u)	( \
1398c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_DEVA(u) ? POS_AFTER_SUB   : \
1408c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_BENG(u) ? POS_AFTER_POST  : \
1418c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_GURM(u) ? POS_AFTER_POST  : \
1428c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_GUJA(u) ? POS_AFTER_POST  : \
1438c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_ORYA(u) ? POS_AFTER_POST  : \
1448c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_TAML(u) ? POS_AFTER_POST  : \
145fa247ebe524f92fa95d344ba912f704262879c13Behdad Esfahbod				  IS_TELU(u) ? (u <= 0x0C42 ? POS_BEFORE_SUB : POS_AFTER_SUB) : \
14687cd63266e73af316b250573ef57388a0bcc9133Behdad Esfahbod				  IS_KNDA(u) ? (u < 0x0CC3 || u > 0xCD6 ? POS_BEFORE_SUB : POS_AFTER_SUB) : \
1478c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_MLYM(u) ? POS_AFTER_POST  : \
1488c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_SINH(u) ? POS_AFTER_SUB   : \
1498c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  /*default*/  POS_AFTER_SUB     \
1508c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				)
1518c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod#define MATRA_POS_TOP(u)	( /* BENG and MLYM don't have top matras. */ \
1528c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_DEVA(u) ? POS_AFTER_SUB  : \
1538c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_GURM(u) ? POS_AFTER_SUB  : \
1548c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_GUJA(u) ? POS_AFTER_SUB  : \
1558c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_ORYA(u) ? POS_AFTER_MAIN : \
1568c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_TAML(u) ? POS_AFTER_SUB  : \
1578c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_TELU(u) ? POS_BEFORE_SUB : \
1588c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_KNDA(u) ? POS_BEFORE_SUB : \
1598c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_SINH(u) ? POS_AFTER_SUB  : \
1608c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  /*default*/  POS_AFTER_SUB    \
1618c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				)
1628c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod#define MATRA_POS_BOTTOM(u)	( \
1638c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_DEVA(u) ? POS_AFTER_SUB  : \
1648c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_BENG(u) ? POS_AFTER_SUB  : \
1658c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_GURM(u) ? POS_AFTER_POST : \
1668c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_GUJA(u) ? POS_AFTER_POST : \
1678c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_ORYA(u) ? POS_AFTER_SUB  : \
1688c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_TAML(u) ? POS_AFTER_POST : \
1698c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_TELU(u) ? POS_BEFORE_SUB : \
1708c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_KNDA(u) ? POS_BEFORE_SUB : \
1718c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_MLYM(u) ? POS_AFTER_POST : \
1728c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  IS_SINH(u) ? POS_AFTER_SUB  : \
1738c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				  /*default*/  POS_AFTER_SUB    \
1748c973ebf0f59abb5ee920edd5d64e23d8e47ad75Behdad Esfahbod				)
1758bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
1768bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
1778bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbodstatic indic_position_t
1788bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbodmatra_position (hb_codepoint_t u, indic_position_t side)
1798bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod{
1808bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  switch ((int) side)
1818bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  {
1828bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod    case POS_PRE_C:	return MATRA_POS_LEFT (u);
1838bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod    case POS_POST_C:	return MATRA_POS_RIGHT (u);
1848bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod    case POS_ABOVE_C:	return MATRA_POS_TOP (u);
1858bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod    case POS_BELOW_C:	return MATRA_POS_BOTTOM (u);
1868bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  };
1878bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  abort ();
1888bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod}
1898bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
190352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbodstatic bool
191352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbodis_ra (hb_codepoint_t u)
192352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod{
193352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod  return !!bsearch (&u, ra_chars,
194352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod		    ARRAY_LENGTH (ra_chars),
195352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod		    sizeof (ra_chars[0]),
196352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod		    compare_codepoint);
197352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod}
198352372ae5ea0998e40cf9fe43c22b6b610a5764eBehdad Esfahbod
1999ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod#define JOINER_FLAGS (FLAG (OT_ZWJ) | FLAG (OT_ZWNJ))
2009ee27a928a989c71923cef82a9e9828f8e9ca051Behdad Esfahbodstatic bool
2019da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbodis_joiner (const hb_glyph_info_t &info)
2029ee27a928a989c71923cef82a9e9828f8e9ca051Behdad Esfahbod{
2039ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  return !!(FLAG (info.indic_category()) & JOINER_FLAGS);
2049da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod}
2059da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod
2069ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod#define CONSONANT_FLAGS (FLAG (OT_C) | FLAG (OT_Ra) | FLAG (OT_V) | FLAG (OT_NBSP) | FLAG (OT_DOTTEDCIRCLE))
2079da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbodstatic bool
2089da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbodis_consonant (const hb_glyph_info_t &info)
2099da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod{
2101a1fa8c655a082fc1439608457ba717306cc83caBehdad Esfahbod  /* Note:
2111a1fa8c655a082fc1439608457ba717306cc83caBehdad Esfahbod   *
21218c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod   * We treat Vowels and placeholders as if they were consonants.  This is safe because Vowels
213c5306b6861cfaa50af40e8ceb058791fa06d7981Behdad Esfahbod   * cannot happen in a consonant syllable.  The plus side however is, we can call the
214c5306b6861cfaa50af40e8ceb058791fa06d7981Behdad Esfahbod   * consonant syllable logic from the vowel syllable function and get it all right! */
2159ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  return !!(FLAG (info.indic_category()) & CONSONANT_FLAGS);
2169ee27a928a989c71923cef82a9e9828f8e9ca051Behdad Esfahbod}
217c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod
2189ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod#define HALANT_OR_COENG_FLAGS (FLAG (OT_H) | FLAG (OT_Coeng))
219deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbodstatic bool
220deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbodis_halant_or_coeng (const hb_glyph_info_t &info)
221deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod{
2229ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  return !!(FLAG (info.indic_category()) & HALANT_OR_COENG_FLAGS);
223deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod}
224deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod
2259ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbodstatic inline void
226f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbodset_indic_properties (hb_glyph_info_t &info, hb_ot_map_t *map, hb_font_t *font)
2279ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod{
2289ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  hb_codepoint_t u = info.codepoint;
2299ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  unsigned int type = get_indic_categories (u);
2308bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2318bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2328bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  /*
2338bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod   * Assign category
2348bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod   */
2358bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2368bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  indic_category_t cat = (indic_category_t) (type & 0x0F);
2379ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
2389ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  /* The spec says U+0952 is OT_A.  However, testing shows that Uniscribe
2399ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod   * treats U+0951..U+0952 all as OT_VD.
2409ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod   * TESTS:
2419ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod   * U+092E,U+0947,U+0952
2429ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod   * U+092E,U+0952,U+0947
2439ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod   * U+092E,U+0947,U+0951
2449ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod   * U+092E,U+0951,U+0947
2459ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod   * */
2469ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  if (unlikely (hb_in_range<hb_codepoint_t> (u, 0x0951, 0x0954)))
2479ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod    cat = OT_VD;
2489ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
2499ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  if (cat == OT_X &&
2509ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod      unlikely (hb_in_range<hb_codepoint_t> (u, 0x17CB, 0x17D2))) /* Khmer Various signs */
2519ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod    cat = OT_N;
2529ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
2538bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  if (unlikely (u == 0x17D2)) cat = OT_Coeng; /* Khmer coeng */
2548bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  else if (unlikely (u == 0x200C)) cat = OT_ZWNJ;
2558bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  else if (unlikely (u == 0x200D)) cat = OT_ZWJ;
2568bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  else if (unlikely (u == 0x25CC)) cat = OT_DOTTEDCIRCLE;
2573604d64ced909ade91998d294a7b4b2ee14d47aaBehdad Esfahbod  else if (unlikely (u == 0x0A71)) cat = OT_SM; /* GURMUKHI ADDAK.  More like consonant medial. like 0A75. */
2589ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
2599ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  if (cat == OT_Repha) {
2609ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod    /* There are two kinds of characters marked as Repha:
2619ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod     * - The ones that are GenCat=Mn are already positioned visually, ie. after base. (eg. Khmer)
2629ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod     * - The ones that are GenCat=Lo is encoded logically, ie. beginning of syllable. (eg. Malayalam)
2639ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod     *
2649ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod     * We recategorize the first kind to look like a Nukta and attached to the base directly.
2659ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod     */
2669ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod    if (_hb_glyph_info_get_general_category (&info) == HB_UNICODE_GENERAL_CATEGORY_NON_SPACING_MARK)
2679ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod      cat = OT_N;
2689ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  }
2699ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
2709ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
2718bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2728bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2738bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  /*
2748bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod   * Assign position.
2758bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod   */
2768bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2778bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  indic_position_t pos = (indic_position_t) (type >> 4);
2788bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2798bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  if ((FLAG (cat) & CONSONANT_FLAGS))
2808bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  {
281f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod    pos = consonant_position (u, map, font);
2829ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod    if (is_ra (u))
2839ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod      cat = OT_Ra;
2848bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  }
2858bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  else if (cat == OT_M)
2868bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  {
2878bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod    pos = matra_position (u, pos);
2888bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  }
2898bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  else if (cat == OT_SM || cat == OT_VD)
2908bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  {
2919ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod    pos = POS_SMVD;
2928bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod  }
2938bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2948bb32458f95f13f66688e0811cc91f1bfffb867dBehdad Esfahbod
2959ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
2969ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  info.indic_category() = cat;
2979ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod  info.indic_position() = pos;
2989ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod}
2999ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
3009ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
3019ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
3029ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
3039ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
3049ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
3059ccc6382ba43760167c134c18c1c4ada4b8c3f22Behdad Esfahbod
306eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbodstruct feature_list_t {
307c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  hb_tag_t tag;
308c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  hb_bool_t is_global;
309eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod};
310eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod
311d5c4edcdd6df32f2f23aca44f14838b4baab4d7aBehdad Esfahbod/* These features are applied one at a time, given the order in this table. */
312eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbodstatic const feature_list_t
313eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbodindic_basic_features[] =
314b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod{
315c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  {HB_TAG('n','u','k','t'), true},
316e0475345d5d7db8dbc8b554beedfa2435c5d7fd1Behdad Esfahbod  {HB_TAG('a','k','h','n'), true},
317c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  {HB_TAG('r','p','h','f'), false},
3181ac075b227090a9ad930dcc1670236c176b27067Behdad Esfahbod  {HB_TAG('r','k','r','f'), true},
319c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  {HB_TAG('p','r','e','f'), false},
320c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  {HB_TAG('b','l','w','f'), false},
321c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  {HB_TAG('h','a','l','f'), false},
32229f106d7fba25e1464debd3a4831a7380d75c4c9Behdad Esfahbod  {HB_TAG('a','b','v','f'), false},
323c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  {HB_TAG('p','s','t','f'), false},
3240201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod  {HB_TAG('c','f','a','r'), false},
32520b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod  {HB_TAG('c','j','c','t'), true},
3261d6846db9ebf84561bb30a4e48c6c43184914099Behdad Esfahbod  {HB_TAG('v','a','t','u'), true},
327c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod};
328c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod
329c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod/* Same order as the indic_basic_features array */
330c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbodenum {
331c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  _NUKT,
332e0475345d5d7db8dbc8b554beedfa2435c5d7fd1Behdad Esfahbod  _AKHN,
333c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  RPHF,
334df6d45c693c417bf311e6fa49f18a8558542e525Behdad Esfahbod  _RKRF,
335c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  PREF,
336c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  BLWF,
337c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  HALF,
33829f106d7fba25e1464debd3a4831a7380d75c4c9Behdad Esfahbod  ABVF,
339c7fe56a1d5d3e969b6ec51cd9ecd471706a19568Behdad Esfahbod  PSTF,
3400201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod  CFAR,
34120b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod  _CJCT,
3421d6846db9ebf84561bb30a4e48c6c43184914099Behdad Esfahbod  VATU
343b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod};
344b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
345d5c4edcdd6df32f2f23aca44f14838b4baab4d7aBehdad Esfahbod/* These features are applied all at once. */
346eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbodstatic const feature_list_t
347eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbodindic_other_features[] =
348b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod{
349eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('i','n','i','t'), false},
350eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('p','r','e','s'), true},
351eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('a','b','v','s'), true},
352eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('b','l','w','s'), true},
353eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('p','s','t','s'), true},
354eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('h','a','l','n'), true},
355eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod
356eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('d','i','s','t'), true},
357eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('a','b','v','m'), true},
358eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod  {HB_TAG('b','l','w','m'), true},
359eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod};
360eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod
361743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
362743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic void
363743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodinitial_reordering (const hb_ot_map_t *map,
364743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod		    hb_face_t *face,
365743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod		    hb_buffer_t *buffer,
366743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod		    void *user_data HB_UNUSED);
367f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbodstatic void
368f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbodfinal_reordering (const hb_ot_map_t *map,
369f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod		  hb_face_t *face,
370f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod		  hb_buffer_t *buffer,
371743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod		  void *user_data HB_UNUSED);
372b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
373b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbodvoid
3749f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbod_hb_ot_shape_complex_collect_features_indic (hb_ot_map_builder_t *map,
3759f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbod					     const hb_segment_properties_t *props HB_UNUSED)
376b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod{
377f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod  map->add_bool_feature (HB_TAG('l','o','c','l'));
378a54a5505a35eef5315a8e2e7a79502901e3eff5fBehdad Esfahbod  /* The Indic specs do not require ccmp, but we apply it here since if
379a54a5505a35eef5315a8e2e7a79502901e3eff5fBehdad Esfahbod   * there is a use of it, it's typically at the beginning. */
380f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod  map->add_bool_feature (HB_TAG('c','c','m','p'));
381f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod
382743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  map->add_gsub_pause (initial_reordering, NULL);
383f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod
384412b91889d9a1ae477e8b6907d0b9a76e78a6c91Behdad Esfahbod  for (unsigned int i = 0; i < ARRAY_LENGTH (indic_basic_features); i++) {
38576f76812ac7cca8ac6935952a2360d5e151480faBehdad Esfahbod    map->add_bool_feature (indic_basic_features[i].tag, indic_basic_features[i].is_global);
386412b91889d9a1ae477e8b6907d0b9a76e78a6c91Behdad Esfahbod    map->add_gsub_pause (NULL, NULL);
387412b91889d9a1ae477e8b6907d0b9a76e78a6c91Behdad Esfahbod  }
388b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
389f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod  map->add_gsub_pause (final_reordering, NULL);
390f6fd3780e12b23ff7ed3743497c8996e71dcb064Behdad Esfahbod
391d5c4edcdd6df32f2f23aca44f14838b4baab4d7aBehdad Esfahbod  for (unsigned int i = 0; i < ARRAY_LENGTH (indic_other_features); i++)
392eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod    map->add_bool_feature (indic_other_features[i].tag, indic_other_features[i].is_global);
393b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod}
394b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
395d96838ef951ce6170eb2dc576ebcba2262cf7008Behdad Esfahbodvoid
396d96838ef951ce6170eb2dc576ebcba2262cf7008Behdad Esfahbod_hb_ot_shape_complex_override_features_indic (hb_ot_map_builder_t *map,
397d96838ef951ce6170eb2dc576ebcba2262cf7008Behdad Esfahbod					      const hb_segment_properties_t *props HB_UNUSED)
398d96838ef951ce6170eb2dc576ebcba2262cf7008Behdad Esfahbod{
399af92b4cc90e4184d5bdd8037c551ed482700114fBehdad Esfahbod  /* Uniscribe does not apply 'kern'. */
400af92b4cc90e4184d5bdd8037c551ed482700114fBehdad Esfahbod  if (indic_options ().uniscribe_bug_compatible)
401af92b4cc90e4184d5bdd8037c551ed482700114fBehdad Esfahbod    map->add_feature (HB_TAG('k','e','r','n'), 0, true);
402d96838ef951ce6170eb2dc576ebcba2262cf7008Behdad Esfahbod}
403d96838ef951ce6170eb2dc576ebcba2262cf7008Behdad Esfahbod
404867361c3ad39629a8d5b7dc48d558a1c19e37d43Behdad Esfahbod
40511138ccff71f442da1fcf64faa0e1d22e083e775Behdad Esfahbodhb_ot_shape_normalization_mode_t
40611138ccff71f442da1fcf64faa0e1d22e083e775Behdad Esfahbod_hb_ot_shape_complex_normalization_preference_indic (void)
40702cdf743c2ec345a44d4fcf865594b6ac13fccd0Behdad Esfahbod{
40802cdf743c2ec345a44d4fcf865594b6ac13fccd0Behdad Esfahbod  /* We want split matras decomposed by the common shaping logic. */
40911138ccff71f442da1fcf64faa0e1d22e083e775Behdad Esfahbod  return HB_OT_SHAPE_NORMALIZATION_MODE_DECOMPOSED;
41002cdf743c2ec345a44d4fcf865594b6ac13fccd0Behdad Esfahbod}
41102cdf743c2ec345a44d4fcf865594b6ac13fccd0Behdad Esfahbod
412867361c3ad39629a8d5b7dc48d558a1c19e37d43Behdad Esfahbod
413b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbodvoid
414f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod_hb_ot_shape_complex_setup_masks_indic (hb_ot_map_t *map,
4159f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbod					hb_buffer_t *buffer,
416f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod					hb_font_t *font)
417b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod{
4189f9bcceca6321d5a5812f878de1de39901349a78Behdad Esfahbod  HB_BUFFER_ALLOCATE_VAR (buffer, indic_category);
4199f9bcceca6321d5a5812f878de1de39901349a78Behdad Esfahbod  HB_BUFFER_ALLOCATE_VAR (buffer, indic_position);
4209f9bcceca6321d5a5812f878de1de39901349a78Behdad Esfahbod
421743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  /* We cannot setup masks here.  We save information about characters
422743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * and setup masks later on in a pause-callback. */
423743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
424743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  unsigned int count = buffer->len;
425b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod  for (unsigned int i = 0; i < count; i++)
426f055442716ec7543ed156d4789955b19c11a5255Behdad Esfahbod    set_indic_properties (buffer->info[i], map, font);
427743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
428b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
42945d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbodstatic int
43045d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbodcompare_indic_order (const hb_glyph_info_t *pa, const hb_glyph_info_t *pb)
43145d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod{
43245d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod  int a = pa->indic_position();
43345d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod  int b = pb->indic_position();
43445d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod
43545d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod  return a < b ? -1 : a == b ? 0 : +1;
43645d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod}
437867361c3ad39629a8d5b7dc48d558a1c19e37d43Behdad Esfahbod
4387ea58db311bfb0d8f804d1e9f4a1f004bd45075aBehdad Esfahbod/* Rules from:
4397ea58db311bfb0d8f804d1e9f4a1f004bd45075aBehdad Esfahbod * https://www.microsoft.com/typography/otfntdev/devanot/shaping.aspx */
4407ea58db311bfb0d8f804d1e9f4a1f004bd45075aBehdad Esfahbod
441743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic void
44270fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbodinitial_reordering_consonant_syllable (const hb_ot_map_t *map, hb_buffer_t *buffer, hb_mask_t *basic_mask_array,
443ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod				       unsigned int start, unsigned int end)
444743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
445ee58f3bc75d2d071a71b94063bf12205a5871acbBehdad Esfahbod  hb_glyph_info_t *info = buffer->info;
446743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
447617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod
448743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  /* 1. Find base consonant:
449743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
450743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * The shaping engine finds the base consonant of the syllable, using the
451743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * following algorithm: starting from the end of the syllable, move backwards
452743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * until a consonant is found that does not have a below-base or post-base
453743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * form (post-base forms have to follow below-base forms), or that is not a
454743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * pre-base reordering Ra, or arrive at the first consonant. The consonant
455743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * stopped at will be the base.
456743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
457743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *   o If the syllable starts with Ra + Halant (in a script that has Reph)
458743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *     and has more than one consonant, Ra is excluded from candidates for
459743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *     base consonants.
460743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   */
461743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
4625e72071062c015237b79fbd0521341a63166a204Behdad Esfahbod  unsigned int base = end;
46376b3409de6887c1cdd5c679939497b1b56f4554bBehdad Esfahbod  bool has_reph = false;
464743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
46576b3409de6887c1cdd5c679939497b1b56f4554bBehdad Esfahbod  {
466617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod    /* -> If the syllable starts with Ra + Halant (in a script that has Reph)
467617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod     *    and has more than one consonant, Ra is excluded from candidates for
468617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod     *    base consonants. */
469617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod    unsigned int limit = start;
47070fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod    if (basic_mask_array[RPHF] &&
471617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod	start + 3 <= end &&
472617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod	info[start].indic_category() == OT_Ra &&
473617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod	info[start + 1].indic_category() == OT_H &&
4743285e107c9a83aeb552e67f9460680ff6d167d88Behdad Esfahbod	(unlikely (buffer->props.script == HB_SCRIPT_SINHALA) ?
4753285e107c9a83aeb552e67f9460680ff6d167d88Behdad Esfahbod	 info[start + 2].indic_category() == OT_ZWJ /* In Sinhala, form Reph only if ZWJ is present */:
4763285e107c9a83aeb552e67f9460680ff6d167d88Behdad Esfahbod	 !is_joiner (info[start + 2] /* In other scripts, any joiner blocks Reph formation */ )
4773285e107c9a83aeb552e67f9460680ff6d167d88Behdad Esfahbod	))
478617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod    {
479617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod      limit += 2;
4803285e107c9a83aeb552e67f9460680ff6d167d88Behdad Esfahbod      while (limit < end && is_joiner (info[limit]))
4813285e107c9a83aeb552e67f9460680ff6d167d88Behdad Esfahbod        limit++;
482617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod      base = start;
483617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod      has_reph = true;
484617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod    };
48576b3409de6887c1cdd5c679939497b1b56f4554bBehdad Esfahbod
48614dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod     enum base_position_t {
48714dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod       BASE_FIRST,
48814dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod       BASE_LAST
48914dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod     } base_pos;
49014dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod
49114dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod    switch ((hb_tag_t) buffer->props.script)
49214dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod    {
49314dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod      case HB_SCRIPT_KHMER:
49414dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod	base_pos = BASE_FIRST;
49514dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod	break;
49614dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod
49714dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod      default:
49814dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod	base_pos = BASE_LAST;
49914dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod	break;
50014dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod    }
50114dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod
50214dbdd9e39d3a869fd1521000c889c347433d22bBehdad Esfahbod    if (base_pos == BASE_LAST)
5035d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod    {
5045d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod      /* -> starting from the end of the syllable, move backwards */
5055d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod      unsigned int i = end;
5065d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod      do {
5075d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	i--;
5085d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	/* -> until a consonant is found */
5095d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	if (is_consonant (info[i]))
5103c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod	{
5115d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	  /* -> that does not have a below-base or post-base form
5125d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	   * (post-base forms have to follow below-base forms), */
5135d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	  if (info[i].indic_position() != POS_BELOW_C &&
5145d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	      info[i].indic_position() != POS_POST_C)
5155d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	  {
5165d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	    base = i;
5175d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	    break;
5185d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	  }
5195d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod
5205d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	  /* -> or that is not a pre-base reordering Ra,
5215d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	   *
52225e302da9a712e6f1d63b0d243a8df0d326ddba3Behdad Esfahbod	   * IMPLEMENTATION NOTES:
52325e302da9a712e6f1d63b0d243a8df0d326ddba3Behdad Esfahbod	   *
52425e302da9a712e6f1d63b0d243a8df0d326ddba3Behdad Esfahbod	   * Our pre-base reordering Ra's are marked POS_BELOW, so will be skipped
52525e302da9a712e6f1d63b0d243a8df0d326ddba3Behdad Esfahbod	   * by the logic above already.
5265d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	   */
5275d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod
5285d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	  /* -> or arrive at the first consonant. The consonant stopped at will
5295d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	   * be the base. */
5303c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod	  base = i;
5313c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod	}
5325d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	else
533a9e45c32e4a0d6da33c52f8427aa694e57f52eb9Behdad Esfahbod	{
5349e4f94a72cea6d65a6a7ba5a47db92e00dbfbb91Behdad Esfahbod	  /* A ZWJ stops the base search, and requests an explicit half form. */
5359e4f94a72cea6d65a6a7ba5a47db92e00dbfbb91Behdad Esfahbod	  if (info[i].indic_category() == OT_ZWJ)
5365d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	    break;
537a9e45c32e4a0d6da33c52f8427aa694e57f52eb9Behdad Esfahbod	}
5385d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod      } while (i > limit);
5395d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod    }
5405d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod    else
5415d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod    {
5425d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod      /* In scripts without half forms (eg. Khmer), the first consonant is always the base. */
5435d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod
5445d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod      if (!has_reph)
5455d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod	base = limit;
5465d32690a3428fa86eb26fe5fcec943a10aa95881Behdad Esfahbod    }
547743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
5483c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod    if (base < start)
5493c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod      base = start; /* Just in case... */
550743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
551617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod
552617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod    /* -> If the syllable starts with Ra + Halant (in a script that has Reph)
553617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod     *    and has more than one consonant, Ra is excluded from candidates for
554617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod     *    base consonants. */
555617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod    if (has_reph && base == start) {
556617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod      /* Have no other consonant, so Reph is not formed and Ra becomes base. */
557617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod      has_reph = false;
558617f4ac46f1084859d2034c08760e31e52d3bec3Behdad Esfahbod    }
5595e4e21fce4b548b0b8a5951bc8f35a9f27428192Behdad Esfahbod  }
5603d25079f8d6be81b9b4b91d3a97016b8a572f571Behdad Esfahbod
5613d25079f8d6be81b9b4b91d3a97016b8a572f571Behdad Esfahbod
562743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  /* 2. Decompose and reorder Matras:
563743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
564743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * Each matra and any syllable modifier sign in the cluster are moved to the
565743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * appropriate position relative to the consonant(s) in the cluster. The
566743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * shaping engine decomposes two- or three-part matras into their constituent
567743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * parts before any repositioning. Matra characters are classified by which
568743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * consonant in a conjunct they have affinity for and are reordered to the
569743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * following positions:
570743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
571743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *   o Before first half form in the syllable
572743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *   o After subjoined consonants
573743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *   o After post-form consonant
574743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *   o After main consonant (for above marks)
575743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
576743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * IMPLEMENTATION NOTES:
577743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
578743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * The normalize() routine has already decomposed matras for us, so we don't
579743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * need to worry about that.
580743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   */
581743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
582743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
583743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  /* 3.  Reorder marks to canonical order:
584743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
585743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * Adjacent nukta and halant or nukta and vedic sign are always repositioned
586743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * if necessary, so that the nukta is first.
587743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
588743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * IMPLEMENTATION NOTES:
589743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   *
590743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * We don't need to do this: the normalize() routine already did this for us.
591743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   */
592743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
593743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
59445d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod  /* Reorder characters */
59545d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod
5963c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod  for (unsigned int i = start; i < base; i++)
597900cf3d449bf36d4f8b1474590cae925fef48fc8Behdad Esfahbod    info[i].indic_position() = MIN (POS_PRE_C, (indic_position_t) info[i].indic_position());
59855f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod
599075d671f1093d2e3c58f7f45568696030f1b3efdBehdad Esfahbod  if (base < end)
600075d671f1093d2e3c58f7f45568696030f1b3efdBehdad Esfahbod    info[base].indic_position() = POS_BASE_C;
60145d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod
60255f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod  /* Mark final consonants.  A final consonant is one appearing after a matra,
60355f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod   * like in Khmer. */
60455f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod  for (unsigned int i = base + 1; i < end; i++)
60555f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod    if (info[i].indic_category() == OT_M) {
60655f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod      for (unsigned int j = i + 1; j < end; j++)
60755f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod        if (is_consonant (info[j])) {
60855f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod	  info[j].indic_position() = POS_FINAL_C;
60955f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod	  break;
61055f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod	}
61155f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod      break;
61255f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod    }
61355f70ebfb95083f515d9b0044a2a65ab11484bb5Behdad Esfahbod
614fd06bf56110e73826b3d5c73ac964e2609450d46Behdad Esfahbod  /* Handle beginning Ra */
6155e4e21fce4b548b0b8a5951bc8f35a9f27428192Behdad Esfahbod  if (has_reph)
616dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod    info[start].indic_position() = POS_RA_TO_BECOME_REPH;
617fd06bf56110e73826b3d5c73ac964e2609450d46Behdad Esfahbod
618f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod  /* For old-style Indic script tags, move the first post-base Halant after
619f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod   * last consonant. */
620a3e04bee2c2fa648759a87e460db6b4f1b685586Behdad Esfahbod  if (IS_OLD_INDIC_TAG (map->get_chosen_script (0))) {
6213c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod    for (unsigned int i = base + 1; i < end; i++)
622f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod      if (info[i].indic_category() == OT_H) {
623f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod        unsigned int j;
624f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod        for (j = end - 1; j > i; j--)
625190eb31a16178269aecaf5d2ecc9012f956749f4Behdad Esfahbod	  if (is_consonant (info[j]))
626f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod	    break;
627f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod	if (j > i) {
628f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod	  /* Move Halant to after last consonant. */
629f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod	  hb_glyph_info_t t = info[i];
630f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod	  memmove (&info[i], &info[i + 1], (j - i) * sizeof (info[0]));
631f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod	  info[j] = t;
632f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod	}
633f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod        break;
634f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod      }
635f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod  }
636f5bc2725cb892264ba223e0a49f7fd2c622a0730Behdad Esfahbod
63745d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod  /* Attach ZWJ, ZWNJ, nukta, and halant to previous char to move with them. */
638a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  if (!indic_options ().uniscribe_bug_compatible)
639ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod  {
640ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod    /* Please update the Uniscribe branch when touching this! */
641ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod    for (unsigned int i = start + 1; i < end; i++)
64225bc489498ef7d0beb8fe9ab663e3f0b2f52c9c2Behdad Esfahbod      if ((FLAG (info[i].indic_category()) & (FLAG (OT_ZWNJ) | FLAG (OT_ZWJ) | FLAG (OT_N) | FLAG (OT_RS) | FLAG (OT_H))))
643ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod	info[i].indic_position() = info[i - 1].indic_position();
644ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod  } else {
64567ea29af49bb08ee679914076808327992cf6676Behdad Esfahbod    /*
64667ea29af49bb08ee679914076808327992cf6676Behdad Esfahbod     * Uniscribe doesn't move the Halant with Left Matra.
64767ea29af49bb08ee679914076808327992cf6676Behdad Esfahbod     * TEST: U+092B,U+093F,U+094DE
64867ea29af49bb08ee679914076808327992cf6676Behdad Esfahbod     */
649ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod    /* Please update the non-Uniscribe branch when touching this! */
650ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod    for (unsigned int i = start + 1; i < end; i++)
65125bc489498ef7d0beb8fe9ab663e3f0b2f52c9c2Behdad Esfahbod      if ((FLAG (info[i].indic_category()) & (FLAG (OT_ZWNJ) | FLAG (OT_ZWJ) | FLAG (OT_N) | FLAG (OT_RS) | FLAG (OT_H)))) {
652ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod	info[i].indic_position() = info[i - 1].indic_position();
6536a091df9b403b147ef78f3974610dedf4ce1e08aBehdad Esfahbod	if (info[i].indic_category() == OT_H && info[i].indic_position() == POS_PRE_M)
654ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod	  for (unsigned int j = i; j > start; j--)
6556a091df9b403b147ef78f3974610dedf4ce1e08aBehdad Esfahbod	    if (info[j - 1].indic_position() != POS_PRE_M) {
656ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod	      info[i].indic_position() = info[j - 1].indic_position();
657ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod	      break;
658ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod	    }
659ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod      }
660ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod  }
66174ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod  /* Re-attach ZWJ, ZWNJ, and halant to next char, for after-base consonants. */
66274ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod  {
66374ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod    unsigned int last_halant = end;
66474ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod    for (unsigned int i = base + 1; i < end; i++)
665deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod      if (is_halant_or_coeng (info[i]))
66674ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod        last_halant = i;
66774ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod      else if (is_consonant (info[i])) {
66874ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod	for (unsigned int j = last_halant; j < i; j++)
66974ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod	  info[j].indic_position() = info[i].indic_position();
67074ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod      }
67174ccc6a1322f8c48c5f2a05f04821783c4b87a14Behdad Esfahbod  }
67245d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod
67345d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod  /* We do bubble-sort, skip malicious clusters attempts */
674b99d63ae114fb58f129562b293a8a66543d499adBehdad Esfahbod  if (end - start < 64)
675a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod  {
676a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod    /* Sit tight, rock 'n roll! */
677d3637edb248162970e202e9d0671540274192844Behdad Esfahbod    hb_bubble_sort (info + start, end - start, compare_indic_order);
678a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod    /* Find base again */
679a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod    base = end;
6803c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod    for (unsigned int i = start; i < end; i++)
681a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod      if (info[i].indic_position() == POS_BASE_C) {
682a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod        base = i;
683a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod	break;
684a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod      }
685a391ff50b9a7b6ac3e58d199ea726b20ee6839bbBehdad Esfahbod  }
68645d6f29f15f1d2323bcaa2498aed23ff0c8a1567Behdad Esfahbod
687743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  /* Setup masks now */
688743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
689281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod  {
690281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod    hb_mask_t mask;
691281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod
692dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod    /* Reph */
693668c6046c1b3af3bd316bda0cc8636f2a5e8df42Behdad Esfahbod    for (unsigned int i = start; i < end && info[i].indic_position() == POS_RA_TO_BECOME_REPH; i++)
69470fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod      info[i].mask |= basic_mask_array[RPHF];
695dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod
696281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod    /* Pre-base */
69720b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod    mask = basic_mask_array[HALF];
6983c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod    for (unsigned int i = start; i < base; i++)
699281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod      info[i].mask  |= mask;
700281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod    /* Base */
70120b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod    mask = 0;
702075d671f1093d2e3c58f7f45568696030f1b3efdBehdad Esfahbod    if (base < end)
703075d671f1093d2e3c58f7f45568696030f1b3efdBehdad Esfahbod      info[base].mask |= mask;
704281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod    /* Post-base */
70520b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod    mask = basic_mask_array[BLWF] | basic_mask_array[ABVF] | basic_mask_array[PSTF];
7063c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod    for (unsigned int i = base + 1; i < end; i++)
707281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod      info[i].mask  |= mask;
708281683995a46ed37aeeb84061249758c59822457Behdad Esfahbod  }
7099da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod
71017d7de91d76406d3e92db37d9eef2fc615f06e68Behdad Esfahbod  /* XXX This will not match for old-Indic spec since the Halant-Ra order is reversed already. */
7118e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod  if (basic_mask_array[PREF] && base + 3 <= end)
71217d7de91d76406d3e92db37d9eef2fc615f06e68Behdad Esfahbod  {
7138e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod    /* Find a Halant,Ra sequence and mark it fore pre-base reordering processing. */
7148e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod    for (unsigned int i = base + 1; i + 1 < end; i++)
715deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod      if (is_halant_or_coeng (info[i]) &&
7168e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	  info[i + 1].indic_category() == OT_Ra)
7178e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod      {
7180201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	info[i++].mask |= basic_mask_array[PREF];
7190201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	info[i++].mask |= basic_mask_array[PREF];
7200201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod
7210201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	/* Mark the subsequent stuff with 'cfar'.  Used in Khmer.
7220201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	 * Read the feature spec.
7230201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	 * This allows distinguishing the following cases with MS Khmer fonts:
7240201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	 * U+1784,U+17D2,U+179A,U+17D2,U+1782
7250201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	 * U+1784,U+17D2,U+1782,U+17D2,U+179A
7260201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	 */
7270201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	for (; i < end; i++)
7280201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod	  info[i].mask |= basic_mask_array[CFAR];
7290201e0a4649ad5b607e50bcb9605e7a5b7143812Behdad Esfahbod
7308e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	break;
7318e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod      }
73217d7de91d76406d3e92db37d9eef2fc615f06e68Behdad Esfahbod  }
73317d7de91d76406d3e92db37d9eef2fc615f06e68Behdad Esfahbod
7349da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod  /* Apply ZWJ/ZWNJ effects */
7353c2ea9481b1028e927e615a5434ebf8edcb5f891Behdad Esfahbod  for (unsigned int i = start + 1; i < end; i++)
7369da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod    if (is_joiner (info[i])) {
7379da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod      bool non_joiner = info[i].indic_category() == OT_ZWNJ;
7386b37bc80843e38ca7b62500f95fd70c08af68d62Behdad Esfahbod      unsigned int j = i;
7399da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod
7409da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod      do {
7419da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod	j--;
7426b37bc80843e38ca7b62500f95fd70c08af68d62Behdad Esfahbod
74320b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod	/* A ZWJ disables CJCT, however, it's mere presence is enough
74420b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod	 * to disable ligation.  No explicit action needed. */
74520b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod
74620b68e699f73e6ce046c0ec143d40b3d6d48e06bBehdad Esfahbod	/* A ZWNJ disables HALF. */
7476b37bc80843e38ca7b62500f95fd70c08af68d62Behdad Esfahbod	if (non_joiner)
74870fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod	  info[j].mask &= ~basic_mask_array[HALF];
7496b37bc80843e38ca7b62500f95fd70c08af68d62Behdad Esfahbod
7509da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod      } while (j > start && !is_consonant (info[j]));
7519da0487cd452d780673e24329ce03e174a4ef83bBehdad Esfahbod    }
752743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
753743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
754743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
755743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic void
7569f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbodinitial_reordering_vowel_syllable (const hb_ot_map_t *map,
7579f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbod				   hb_buffer_t *buffer,
75870fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod				   hb_mask_t *basic_mask_array,
759ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod				   unsigned int start, unsigned int end)
760743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
761c5306b6861cfaa50af40e8ceb058791fa06d7981Behdad Esfahbod  /* We made the vowels look like consonants.  So let's call the consonant logic! */
76270fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod  initial_reordering_consonant_syllable (map, buffer, basic_mask_array, start, end);
763743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
764743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
765743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic void
7669f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbodinitial_reordering_standalone_cluster (const hb_ot_map_t *map,
7679f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbod				       hb_buffer_t *buffer,
76870fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod				       hb_mask_t *basic_mask_array,
769ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod				       unsigned int start, unsigned int end)
770743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
77118c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod  /* We treat NBSP/dotted-circle as if they are consonants, so we should just chain.
77218c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod   * Only if not in compatibility mode that is... */
77318c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod
774a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  if (indic_options ().uniscribe_bug_compatible)
77518c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod  {
77618c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod    /* For dotted-circle, this is what Uniscribe does:
77718c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod     * If dotted-circle is the last glyph, it just does nothing.
77818c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod     * Ie. It doesn't form Reph. */
77918c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod    if (buffer->info[end - 1].indic_category() == OT_DOTTEDCIRCLE)
78018c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod      return;
78118c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod  }
78218c06e189bd078affbb84c3bb5bb80687a227c5eBehdad Esfahbod
78370fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod  initial_reordering_consonant_syllable (map, buffer, basic_mask_array, start, end);
784743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
785743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
786743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic void
7879f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbodinitial_reordering_non_indic (const hb_ot_map_t *map HB_UNUSED,
7889f377ed3210fe7d9f15e0c4f82020556f9a8f6f0Behdad Esfahbod			      hb_buffer_t *buffer HB_UNUSED,
78970fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod			      hb_mask_t *basic_mask_array HB_UNUSED,
7903f18236a03880c0960f5990dc90685f6146951a6Behdad Esfahbod			      unsigned int start HB_UNUSED, unsigned int end HB_UNUSED)
791743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
792743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  /* Nothing to do right now.  If we ever switch to using the output
793743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod   * buffer in the reordering process, we'd need to next_glyph() here. */
794743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
795743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
796743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod#include "hb-ot-shape-complex-indic-machine.hh"
797743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
798743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic void
799743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodinitial_reordering (const hb_ot_map_t *map,
8003f18236a03880c0960f5990dc90685f6146951a6Behdad Esfahbod		    hb_face_t *face HB_UNUSED,
801743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod		    hb_buffer_t *buffer,
802743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod		    void *user_data HB_UNUSED)
803743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
80470fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod  hb_mask_t basic_mask_array[ARRAY_LENGTH (indic_basic_features)] = {0};
805b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod  unsigned int num_masks = ARRAY_LENGTH (indic_basic_features);
806b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod  for (unsigned int i = 0; i < num_masks; i++)
80770fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod    basic_mask_array[i] = map->get_1_mask (indic_basic_features[i].tag);
808743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
80970fe77bb9a25922bd34f206826d8731d901fb451Behdad Esfahbod  find_syllables (map, buffer, basic_mask_array);
810b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod}
811b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
812743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbodstatic void
81346e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbodfinal_reordering_syllable (hb_buffer_t *buffer,
81446e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod			   hb_mask_t init_mask, hb_mask_t pref_mask,
815ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod			   unsigned int start, unsigned int end)
816743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod{
8174ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod  hb_glyph_info_t *info = buffer->info;
8184ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod
819e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod  /* 4. Final reordering:
820e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *
821e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   * After the localized forms and basic shaping forms GSUB features have been
822e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   * applied (see below), the shaping engine performs some final glyph
823e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   * reordering before applying all the remaining font features to the entire
824e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   * cluster.
8254ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod   */
8264ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod
8274ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod  /* Find base again */
8284ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod  unsigned int base = end;
82910cdc94eee2225f14c198c015256a5a0063eecadBehdad Esfahbod  while (start < base && info[base - 1].indic_position() >= POS_BASE_C)
83010cdc94eee2225f14c198c015256a5a0063eecadBehdad Esfahbod    base--;
8314ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod
8324705a7026900e51f6430f03a73c87f2df035df92Behdad Esfahbod  unsigned int start_of_last_cluster = base;
8334705a7026900e51f6430f03a73c87f2df035df92Behdad Esfahbod
8344ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod  /*   o Reorder matras:
835e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *
836e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     If a pre-base matra character had been reordered before applying basic
837e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     features, the glyph can be moved closer to the main consonant based on
838e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     whether half-forms had been formed. Actual position for the matra is
839e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     defined as “after last standalone halant glyph, after initial matra
840e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     position and before the main consonant”. If ZWJ or ZWNJ follow this
841e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     halant, position is moved after it.
8424ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod   */
8434ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod
844362d3db8d3527d0fef260a17d2466e92a4a25425Behdad Esfahbod  if (start < base) /* Otherwise there can't be any pre-base matra characters. */
8459d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod  {
846921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod    unsigned int new_pos = base - 1;
847921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod    while (new_pos > start &&
848deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod	   !(FLAG (info[new_pos].indic_category()) & (FLAG (OT_M) | FLAG (OT_H) | FLAG (OT_Coeng))))
849921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod      new_pos--;
8509d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod    /* If we found no Halant we are done.  Otherwise only proceed if the Halant does
8519d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod     * not belong to the Matra itself! */
852deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod    if (is_halant_or_coeng (info[new_pos]) &&
853921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod	info[new_pos].indic_position() != POS_PRE_M) {
8549d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod      /* -> If ZWJ or ZWNJ follow this halant, position is moved after it. */
855921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod      if (new_pos + 1 < end && is_joiner (info[new_pos + 1]))
856921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod	new_pos++;
8579d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod
8589d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod      /* Now go see if there's actually any matras... */
859921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod      for (unsigned int i = new_pos; i > start; i--)
8606a091df9b403b147ef78f3974610dedf4ce1e08aBehdad Esfahbod	if (info[i - 1].indic_position () == POS_PRE_M)
8619d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod	{
8621a1dbe9a2787f226f3e43063da8eb6633438b0a0Behdad Esfahbod	  unsigned int old_pos = i - 1;
8631a1dbe9a2787f226f3e43063da8eb6633438b0a0Behdad Esfahbod	  hb_glyph_info_t tmp = info[old_pos];
8641a1dbe9a2787f226f3e43063da8eb6633438b0a0Behdad Esfahbod	  memmove (&info[old_pos], &info[old_pos + 1], (new_pos - old_pos) * sizeof (info[0]));
8651a1dbe9a2787f226f3e43063da8eb6633438b0a0Behdad Esfahbod	  info[new_pos] = tmp;
866921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod	  start_of_last_cluster = MIN (new_pos, start_of_last_cluster);
867921ce5b17daf06af8e17989a3e335b9f5df20483Behdad Esfahbod	  new_pos--;
8689d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod	}
8699d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod    }
8704ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod  }
8714ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod
8724ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod
8734ac9e98d9d2ea973dd612dc4063cf78496c643a0Behdad Esfahbod  /*   o Reorder reph:
874e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *
875e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     Reph’s original position is always at the beginning of the syllable,
876e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     (i.e. it is not reordered at the character reordering stage). However,
877e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     it will be reordered according to the basic-forms shaping results.
878e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     Possible positions for reph, depending on the script, are; after main,
879e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     before post-base consonant forms, and after post-base consonant forms.
880dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod   */
881dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod
882dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod  /* If there's anything after the Ra that has the REPH pos, it ought to be halant.
883dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod   * Which means that the font has failed to ligate the Reph.  In which case, we
884dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod   * shouldn't move. */
885dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod  if (start + 1 < end &&
886dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod      info[start].indic_position() == POS_RA_TO_BECOME_REPH &&
887dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod      info[start + 1].indic_position() != POS_RA_TO_BECOME_REPH)
888dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod  {
88902b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      unsigned int new_reph_pos;
89002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
89102b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod     enum reph_position_t {
892f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       REPH_AFTER_MAIN,
893f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       REPH_BEFORE_SUBSCRIPT,
894f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       REPH_AFTER_SUBSCRIPT,
895f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       REPH_BEFORE_POSTSCRIPT,
8969fc7a11469113d31d8095757c4fc038c3427d44aBehdad Esfahbod       REPH_AFTER_POSTSCRIPT
897f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod     } reph_pos;
898f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod
899f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod     /* XXX Figure out old behavior too */
9007f852b644b8143492a02edfc853114aaa23446bdBehdad Esfahbod     switch ((hb_tag_t) buffer->props.script)
901f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod     {
902f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_MALAYALAM:
903f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_ORIYA:
904f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 reph_pos = REPH_AFTER_MAIN;
905f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 break;
906f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod
907f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_GURMUKHI:
908f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 reph_pos = REPH_BEFORE_SUBSCRIPT;
909f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 break;
910f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod
911f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_BENGALI:
912f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 reph_pos = REPH_AFTER_SUBSCRIPT;
913f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 break;
914f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod
915f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       default:
916f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_DEVANAGARI:
917f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_GUJARATI:
9189c4d24a3a677a58ec59c7fb0f8b70b8aad30a032Behdad Esfahbod       case HB_SCRIPT_SINHALA:
919f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 reph_pos = REPH_BEFORE_POSTSCRIPT;
920f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 break;
921f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod
922f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_KANNADA:
923f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_TAMIL:
924f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod       case HB_SCRIPT_TELUGU:
925f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 reph_pos = REPH_AFTER_POSTSCRIPT;
926f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod	 break;
927f89367251109af235f4f0446c13c261a5a4a6f72Behdad Esfahbod     }
92802b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
929dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod    /*       1. If reph should be positioned after post-base consonant forms,
930dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          proceed to step 5.
93102b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod     */
9329d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod    if (reph_pos == REPH_AFTER_POSTSCRIPT)
93302b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    {
9349d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod      goto reph_step_5;
93502b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    }
93602b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
93702b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    /*       2. If the reph repositioning class is not after post-base: target
938dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          position is after the first explicit halant glyph between the
939dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          first post-reph consonant and last main consonant. If ZWJ or ZWNJ
940dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          are following this halant, position is moved after it. If such
941dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          position is found, this is the target position. Otherwise,
942dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          proceed to the next step.
943dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *
944dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          Note: in old-implementation fonts, where classifications were
945dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          fixed in shaping engine, there was no case where reph position
946dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          will be found on this step.
94702b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod     */
94802b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    {
94902b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      new_reph_pos = start + 1;
950deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod      while (new_reph_pos < base && !is_halant_or_coeng (info[new_reph_pos]))
95102b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	new_reph_pos++;
95202b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
953deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod      if (new_reph_pos < base && is_halant_or_coeng (info[new_reph_pos])) {
95402b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	/* ->If ZWJ or ZWNJ are following this halant, position is moved after it. */
95502b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	if (new_reph_pos + 1 < base && is_joiner (info[new_reph_pos + 1]))
95602b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	  new_reph_pos++;
95702b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	goto reph_move;
95802b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      }
95902b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    }
96002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
96102b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    /*       3. If reph should be repositioned after the main consonant: find the
962dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          first consonant not ligated with main, or find the first
963dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          consonant that is not a potential pre-base reordering Ra.
96402b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod     */
9659d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod    if (reph_pos == REPH_AFTER_MAIN)
96602b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    {
967b504e060f008e95b1ba36c06600c9fea4f5d4808Behdad Esfahbod      new_reph_pos = base;
968b504e060f008e95b1ba36c06600c9fea4f5d4808Behdad Esfahbod      /* XXX Skip potential pre-base reordering Ra. */
969b504e060f008e95b1ba36c06600c9fea4f5d4808Behdad Esfahbod      while (new_reph_pos < end &&
970be8b9f5f715f6fb36b98bd33c3303f79cc068f8aBehdad Esfahbod	     !( FLAG (info[new_reph_pos + 1].indic_position()) & (FLAG (POS_BELOW_C) | FLAG (POS_POST_C) | FLAG (POS_AFTER_POST) | FLAG (POS_SMVD))))
971b504e060f008e95b1ba36c06600c9fea4f5d4808Behdad Esfahbod	new_reph_pos++;
972b504e060f008e95b1ba36c06600c9fea4f5d4808Behdad Esfahbod      if (new_reph_pos < end)
973b504e060f008e95b1ba36c06600c9fea4f5d4808Behdad Esfahbod        goto reph_move;
97402b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    }
97502b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
97602b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    /*       4. If reph should be positioned before post-base consonant, find
977dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          first post-base classified consonant not ligated with main. If no
978dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          consonant is found, the target position should be before the
979dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          first matra, syllable modifier sign or vedic sign.
98002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod     */
9819d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod    /* This is our take on what step 4 is trying to say (and failing, BADLY). */
9829d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod    if (reph_pos == REPH_AFTER_SUBSCRIPT)
98302b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    {
9849d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod      new_reph_pos = base;
9859d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod      while (new_reph_pos < end &&
986be8b9f5f715f6fb36b98bd33c3303f79cc068f8aBehdad Esfahbod	     !( FLAG (info[new_reph_pos + 1].indic_position()) & (FLAG (POS_POST_C) | FLAG (POS_AFTER_POST) | FLAG (POS_SMVD))))
9879d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod	new_reph_pos++;
9889d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod      if (new_reph_pos < end)
9899d0d319a4a7e85d922e58fade0f40caae1c9f109Behdad Esfahbod        goto reph_move;
99002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    }
99102b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
99202b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    /*       5. If no consonant is found in steps 3 or 4, move reph to a position
993dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          immediately before the first post-base matra, syllable modifier
994dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          sign or vedic sign that has a reordering class after the intended
995dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          reph position. For example, if the reordering position for reph
996dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          is post-main, it will skip above-base matras that also have a
997dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     *          post-main position.
998dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod     */
99902b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    reph_step_5:
100002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    {
1001d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod      /* Copied from step 2. */
1002d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod      new_reph_pos = start + 1;
1003d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod      while (new_reph_pos < base && !is_halant_or_coeng (info[new_reph_pos]))
1004d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod	new_reph_pos++;
1005d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod
1006d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod      if (new_reph_pos < base && is_halant_or_coeng (info[new_reph_pos])) {
1007d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod	/* ->If ZWJ or ZWNJ are following this halant, position is moved after it. */
1008d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod	if (new_reph_pos + 1 < base && is_joiner (info[new_reph_pos + 1]))
1009d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod	  new_reph_pos++;
1010d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod	goto reph_move;
1011d0e68dbd0b9fc9a42c4280d01c8ffd9c5015d550Behdad Esfahbod      }
101202b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    }
1013dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod
101402b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    /*       6. Otherwise, reorder reph to the end of the syllable.
101502b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod     */
101602b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    {
101702b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      new_reph_pos = end - 1;
101802b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      while (new_reph_pos > start && info[new_reph_pos].indic_position() == POS_SMVD)
101902b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	new_reph_pos--;
102002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod
1021892eb7878238d810a2a70f9dadbf958207bfeaa1Behdad Esfahbod      /*
1022892eb7878238d810a2a70f9dadbf958207bfeaa1Behdad Esfahbod       * If the Reph is to be ending up after a Matra,Halant sequence,
1023892eb7878238d810a2a70f9dadbf958207bfeaa1Behdad Esfahbod       * position it before that Halant so it can interact with the Matra.
1024892eb7878238d810a2a70f9dadbf958207bfeaa1Behdad Esfahbod       * However, if it's a plain Consonant,Halant we shouldn't do that.
1025892eb7878238d810a2a70f9dadbf958207bfeaa1Behdad Esfahbod       * Uniscribe doesn't do this.
1026892eb7878238d810a2a70f9dadbf958207bfeaa1Behdad Esfahbod       * TEST: U+0930,U+094D,U+0915,U+094B,U+094D
1027892eb7878238d810a2a70f9dadbf958207bfeaa1Behdad Esfahbod       */
1028a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod      if (!indic_options ().uniscribe_bug_compatible &&
1029deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod	  unlikely (is_halant_or_coeng (info[new_reph_pos]))) {
103002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	for (unsigned int i = base + 1; i < new_reph_pos; i++)
103102b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	  if (info[i].indic_category() == OT_M) {
103202b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	    /* Ok, got it. */
103302b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	    new_reph_pos--;
103402b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod	  }
103502b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      }
103602b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      goto reph_move;
10378df5636968389ac7bf8620ccd091fd4872b0bbeeBehdad Esfahbod    }
10388df5636968389ac7bf8620ccd091fd4872b0bbeeBehdad Esfahbod
103902b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    reph_move:
104002b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    {
104102b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      /* Move */
104202b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      hb_glyph_info_t reph = info[start];
104302b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      memmove (&info[start], &info[start + 1], (new_reph_pos - start) * sizeof (info[0]));
104402b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      info[new_reph_pos] = reph;
104502b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod      start_of_last_cluster = start; /* Yay, one big cluster! */
104602b2922fbf098c8282eb23dc2c54d5829cf67024Behdad Esfahbod    }
1047dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod  }
1048dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod
1049dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod
1050dbb105883c6e9b83e78dc8b10766cd56b98cd7e1Behdad Esfahbod  /*   o Reorder pre-base reordering consonants:
1051e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *
1052e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     If a pre-base reordering consonant is found, reorder it according to
1053e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   *     the following rules:
1054e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod   */
1055e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod
105646e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod  if (pref_mask && base + 1 < end) /* Otherwise there can't be any pre-base reordering Ra. */
105746e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod  {
10588e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod    for (unsigned int i = base + 1; i < end; i++)
10598e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod      if ((info[i].mask & pref_mask) != 0)
106078818124b17691ec2c647142fdb9ae743aa03deeBehdad Esfahbod      {
10618e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	/*       1. Only reorder a glyph produced by substitution during application
10628e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	 *          of the <pref> feature. (Note that a font may shape a Ra consonant with
10638e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	 *          the feature generally but block it in certain contexts.)
10648e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	 */
10658e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	if (i + 1 == end || (info[i + 1].mask & pref_mask) == 0)
10668e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	{
10678e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	  /*
10688e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	   *       2. Try to find a target position the same way as for pre-base matra.
10698e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	   *          If it is found, reorder pre-base consonant glyph.
10708e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	   *
10718e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	   *       3. If position is not found, reorder immediately before main
10728e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	   *          consonant.
10738e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	   */
10748e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod
10758e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	  unsigned int new_pos = base;
10768e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	  while (new_pos > start + 1 &&
1077deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod		 !(FLAG (info[new_pos - 1].indic_category()) & (FLAG (OT_M) | FLAG (OT_H) | FLAG (OT_Coeng))))
10788e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    new_pos--;
10798e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod
1080deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod	  if (new_pos > start && is_halant_or_coeng (info[new_pos - 1]))
10818e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    /* -> If ZWJ or ZWNJ follow this halant, position is moved after it. */
10828e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    if (new_pos < end && is_joiner (info[new_pos]))
10838e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	      new_pos++;
10848e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod
10858e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	  {
10868e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    unsigned int old_pos = i;
10878e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    hb_glyph_info_t tmp = info[old_pos];
10888e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    memmove (&info[new_pos + 1], &info[new_pos], (old_pos - new_pos) * sizeof (info[0]));
10898e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    info[new_pos] = tmp;
10908e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	    start_of_last_cluster = MIN (new_pos, start_of_last_cluster);
10918e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	  }
10928e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod	}
10938e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod
10948e7b5882fb4c1921c9d030d354a9b998115cdb8cBehdad Esfahbod        break;
109578818124b17691ec2c647142fdb9ae743aa03deeBehdad Esfahbod      }
109646e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod  }
1097eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod
1098eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod
1099a913b024d84973556094fd64ce5f0b7106fcc3b5Behdad Esfahbod  /* Apply 'init' to the Left Matra if it's a word start. */
11006a091df9b403b147ef78f3974610dedf4ce1e08aBehdad Esfahbod  if (info[start].indic_position () == POS_PRE_M &&
1101a913b024d84973556094fd64ce5f0b7106fcc3b5Behdad Esfahbod      (!start ||
1102eace47b173807d94b29a6490d0bc3c9f8f6168d1Behdad Esfahbod       !(FLAG (_hb_glyph_info_get_general_category (&info[start - 1])) &
11032c372b80f6befad69e216e3f218b38640b8cc044Behdad Esfahbod	 FLAG_RANGE (HB_UNICODE_GENERAL_CATEGORY_FORMAT, HB_UNICODE_GENERAL_CATEGORY_NON_SPACING_MARK))))
110446e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod    info[start].mask |= init_mask;
1105a913b024d84973556094fd64ce5f0b7106fcc3b5Behdad Esfahbod
1106eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod
11078ed248de77e5d2ed978e55c0ce1a11727bc9e34cBehdad Esfahbod  /*
11088ed248de77e5d2ed978e55c0ce1a11727bc9e34cBehdad Esfahbod   * Finish off the clusters and go home!
11098ed248de77e5d2ed978e55c0ce1a11727bc9e34cBehdad Esfahbod   */
111021d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod
1111a2b471df821b32625d127f83b2f90e6d6a967e7eBehdad Esfahbod  if (!indic_options ().uniscribe_bug_compatible)
1112ebe29733d44fe0fa9fb30f946ab0dd7a40336a24Behdad Esfahbod  {
111321d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod    /* This is what Uniscribe does.  Ie. add cluster boundaries after Halant,ZWNJ.
111421d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod     * This means, half forms are submerged into the main consonants cluster.
111521d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod     * This is unnecessary, and makes cursor positioning harder, but that's what
111621d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod     * Uniscribe does. */
111721d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod    unsigned int cluster_start = start;
111821d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod    for (unsigned int i = start + 1; i < start_of_last_cluster; i++)
1119deb521dee4fdca8c2124cfb39a205e6269d4a70dBehdad Esfahbod      if (is_halant_or_coeng (info[i - 1]) && info[i].indic_category() == OT_ZWNJ) {
112021d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod        i++;
112121d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod	buffer->merge_clusters (cluster_start, i);
112221d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod	cluster_start = i;
112321d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod      }
112421d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod    start_of_last_cluster = cluster_start;
112521d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod  }
112621d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod
112721d2803133c2c424ed37a9f3d17c7fc4963e5a60Behdad Esfahbod  buffer->merge_clusters (start_of_last_cluster, end);
1128ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod}
1129e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod
1130e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod
1131ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbodstatic void
1132ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbodfinal_reordering (const hb_ot_map_t *map,
11333f18236a03880c0960f5990dc90685f6146951a6Behdad Esfahbod		  hb_face_t *face HB_UNUSED,
1134ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod		  hb_buffer_t *buffer,
1135ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod		  void *user_data HB_UNUSED)
1136ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod{
1137ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod  unsigned int count = buffer->len;
1138ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod  if (!count) return;
1139ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod
114046e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod  hb_mask_t init_mask = map->get_1_mask (HB_TAG('i','n','i','t'));
114146e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod  hb_mask_t pref_mask = map->get_1_mask (HB_TAG('p','r','e','f'));
1142eed903b1644e087178438959664a6a57bebc398bBehdad Esfahbod
1143ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod  hb_glyph_info_t *info = buffer->info;
1144ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod  unsigned int last = 0;
1145cee7187447b76b22e1bb6136d137b35ac49c3a5dBehdad Esfahbod  unsigned int last_syllable = info[0].syllable();
1146ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod  for (unsigned int i = 1; i < count; i++)
1147cee7187447b76b22e1bb6136d137b35ac49c3a5dBehdad Esfahbod    if (last_syllable != info[i].syllable()) {
114846e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod      final_reordering_syllable (buffer, init_mask, pref_mask, last, i);
1149ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod      last = i;
1150cee7187447b76b22e1bb6136d137b35ac49c3a5dBehdad Esfahbod      last_syllable = info[last].syllable();
1151ef24cc8c8e2478a6352c340f4611a617646de4ccBehdad Esfahbod    }
115246e645ec4b59f0a278347be11f40c7df700d5bb6Behdad Esfahbod  final_reordering_syllable (buffer, init_mask, pref_mask, last, count);
1153e7be05702447ae270d797398132c1930cd3a9b86Behdad Esfahbod
1154743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  HB_BUFFER_DEALLOCATE_VAR (buffer, indic_category);
1155743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod  HB_BUFFER_DEALLOCATE_VAR (buffer, indic_position);
1156743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod}
1157743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
1158743807a3ce1b2229e5307a8aea074a7544623d8dBehdad Esfahbod
1159b9ddbd55930228422e82b34a141ad1b6093f5376Behdad Esfahbod
1160