xref: /aosp_15_r20/external/harfbuzz_ng/src/hb-ot-shaper-myanmar-machine.rl (revision 2d1272b857b1f7575e6e246373e1cb218663db8a)
1/*
2 * Copyright © 2011,2012  Google, Inc.
3 *
4 *  This is part of HarfBuzz, a text shaping library.
5 *
6 * Permission is hereby granted, without written agreement and without
7 * license or royalty fees, to use, copy, modify, and distribute this
8 * software and its documentation for any purpose, provided that the
9 * above copyright notice and the following two paragraphs appear in
10 * all copies of this software.
11 *
12 * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR
13 * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
14 * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN
15 * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
16 * DAMAGE.
17 *
18 * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,
19 * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
20 * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
21 * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO
22 * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
23 *
24 * Google Author(s): Behdad Esfahbod
25 */
26
27#ifndef HB_OT_SHAPER_MYANMAR_MACHINE_HH
28#define HB_OT_SHAPER_MYANMAR_MACHINE_HH
29
30#include "hb.hh"
31
32#include "hb-ot-layout.hh"
33#include "hb-ot-shaper-indic.hh"
34
35/* buffer var allocations */
36#define myanmar_category() ot_shaper_var_u8_category() /* myanmar_category_t */
37#define myanmar_position() ot_shaper_var_u8_auxiliary() /* myanmar_position_t */
38
39using myanmar_category_t = unsigned;
40using myanmar_position_t = ot_position_t;
41
42#define M_Cat(Cat) myanmar_syllable_machine_ex_##Cat
43
44enum myanmar_syllable_type_t {
45  myanmar_consonant_syllable,
46  myanmar_broken_cluster,
47  myanmar_non_myanmar_cluster,
48};
49
50%%{
51  machine myanmar_syllable_machine;
52  alphtype unsigned char;
53  write exports;
54  write data;
55}%%
56
57%%{
58
59
60# Spec category D is folded into GB; D0 is not implemented by Uniscribe and as such folded into D
61# Spec category P is folded into GB
62
63export C    = 1;
64export IV   = 2;
65export DB   = 3;	# Dot below	     = OT_N
66export H    = 4;
67export ZWNJ = 5;
68export ZWJ  = 6;
69export SM    = 8;	# Visarga and Shan tones
70export GB   = 10;	# 		     = OT_PLACEHOLDER
71export DOTTEDCIRCLE = 11;
72export A    = 9;
73export Ra   = 15;
74export CS   = 18;
75
76export VAbv = 20;
77export VBlw = 21;
78export VPre = 22;
79export VPst = 23;
80
81# 32+ are for Myanmar-specific values
82export As   = 32;	# Asat
83export MH   = 35;	# Medial Ha
84export MR   = 36;	# Medial Ra
85export MW   = 37;	# Medial Wa, Shan Wa
86export MY   = 38;	# Medial Ya, Mon Na, Mon Ma
87export PT   = 39;	# Pwo and other tones
88export VS   = 40;	# Variation selectors
89export ML   = 41;	# Medial Mon La
90
91
92j = ZWJ|ZWNJ;			# Joiners
93k = (Ra As H);			# Kinzi
94
95c = C|Ra;			# is_consonant
96
97medial_group = MY? As? MR? ((MW MH? ML? | MH ML? | ML) As?)?;
98main_vowel_group = (VPre.VS?)* VAbv* VBlw* A* (DB As?)?;
99post_vowel_group = VPst MH? ML? As* VAbv* A* (DB As?)?;
100pwo_tone_group = PT A* DB? As?;
101
102complex_syllable_tail = As* medial_group main_vowel_group post_vowel_group* pwo_tone_group* SM* j?;
103syllable_tail = (H (c|IV).VS?)* (H | complex_syllable_tail);
104
105consonant_syllable =	(k|CS)? (c|IV|GB|DOTTEDCIRCLE).VS? syllable_tail;
106broken_cluster =	k? VS? syllable_tail;
107other =			any;
108
109main := |*
110	consonant_syllable	=> { found_syllable (myanmar_consonant_syllable); };
111	j			=> { found_syllable (myanmar_non_myanmar_cluster); };
112	broken_cluster		=> { found_syllable (myanmar_broken_cluster); buffer->scratch_flags |= HB_BUFFER_SCRATCH_FLAG_HAS_BROKEN_SYLLABLE; };
113	other			=> { found_syllable (myanmar_non_myanmar_cluster); };
114*|;
115
116
117}%%
118
119#define found_syllable(syllable_type) \
120  HB_STMT_START { \
121    if (0) fprintf (stderr, "syllable %u..%u %s\n", ts, te, #syllable_type); \
122    for (unsigned int i = ts; i < te; i++) \
123      info[i].syllable() = (syllable_serial << 4) | syllable_type; \
124    syllable_serial++; \
125    if (syllable_serial == 16) syllable_serial = 1; \
126  } HB_STMT_END
127
128inline void
129find_syllables_myanmar (hb_buffer_t *buffer)
130{
131  unsigned int p, pe, eof, ts, te, act HB_UNUSED;
132  int cs;
133  hb_glyph_info_t *info = buffer->info;
134  %%{
135    write init;
136    getkey info[p].myanmar_category();
137  }%%
138
139  p = 0;
140  pe = eof = buffer->len;
141
142  unsigned int syllable_serial = 1;
143  %%{
144    write exec;
145  }%%
146}
147
148#undef found_syllable
149
150#endif /* HB_OT_SHAPER_MYANMAR_MACHINE_HH */
151