hb-ot-shaper-myanmar-machine.rl (4363B)
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 39 using myanmar_category_t = unsigned; 40 using myanmar_position_t = ot_position_t; 41 42 #define M_Cat(Cat) myanmar_syllable_machine_ex_##Cat 43 44 enum 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 63 export C = 1; 64 export IV = 2; 65 export DB = 3; # Dot below = OT_N 66 export H = 4; 67 export ZWNJ = 5; 68 export ZWJ = 6; 69 export SM = 8; # Visarga and Shan tones 70 export GB = 10; # = OT_PLACEHOLDER 71 export DOTTEDCIRCLE = 11; 72 export A = 9; 73 export Ra = 15; 74 export CS = 18; 75 export SMPst= 57; 76 77 export VAbv = 20; 78 export VBlw = 21; 79 export VPre = 22; 80 export VPst = 23; 81 82 # 32+ are for Myanmar-specific values 83 export As = 32; # Asat 84 export MH = 35; # Medial Ha 85 export MR = 36; # Medial Ra 86 export MW = 37; # Medial Wa, Shan Wa 87 export MY = 38; # Medial Ya, Mon Na, Mon Ma 88 export PT = 39; # Pwo and other tones 89 export VS = 40; # Variation selectors 90 export ML = 41; # Medial Mon La 91 92 93 j = ZWJ|ZWNJ; # Joiners 94 k = (Ra As H); # Kinzi 95 sm = SM | SMPst; 96 c = C|Ra; # is_consonant 97 98 medial_group = MY? As? MR? ((MW MH? ML? | MH ML? | ML) As?)?; 99 main_vowel_group = (VPre.VS?)* VAbv* VBlw* A* (DB As?)?; 100 post_vowel_group = VPst MH? ML? As* VAbv* A* (DB As?)?; 101 tone_group = sm | PT A* DB? As?; 102 103 complex_syllable_tail = As* medial_group main_vowel_group post_vowel_group* tone_group* j?; 104 syllable_tail = (H (c|IV).VS?)* (H | complex_syllable_tail); 105 106 consonant_syllable = (k|CS)? (c|IV|GB|DOTTEDCIRCLE).VS? syllable_tail; 107 broken_cluster = k? VS? syllable_tail; 108 other = any; 109 110 main := |* 111 consonant_syllable => { found_syllable (myanmar_consonant_syllable); }; 112 j | SMPst => { found_syllable (myanmar_non_myanmar_cluster); }; 113 broken_cluster => { found_syllable (myanmar_broken_cluster); buffer->scratch_flags |= HB_BUFFER_SCRATCH_FLAG_HAS_BROKEN_SYLLABLE; }; 114 other => { found_syllable (myanmar_non_myanmar_cluster); }; 115 *|; 116 117 118 }%% 119 120 #define found_syllable(syllable_type) \ 121 HB_STMT_START { \ 122 if (0) fprintf (stderr, "syllable %u..%u %s\n", ts, te, #syllable_type); \ 123 for (unsigned int i = ts; i < te; i++) \ 124 info[i].syllable() = (syllable_serial << 4) | syllable_type; \ 125 syllable_serial++; \ 126 if (syllable_serial == 16) syllable_serial = 1; \ 127 } HB_STMT_END 128 129 inline void 130 find_syllables_myanmar (hb_buffer_t *buffer) 131 { 132 unsigned int p, pe, eof, ts, te, act HB_UNUSED; 133 int cs; 134 hb_glyph_info_t *info = buffer->info; 135 %%{ 136 write init; 137 getkey info[p].myanmar_category(); 138 }%% 139 140 p = 0; 141 pe = eof = buffer->len; 142 143 unsigned int syllable_serial = 1; 144 %%{ 145 write exec; 146 }%% 147 } 148 149 #undef found_syllable 150 151 #endif /* HB_OT_SHAPER_MYANMAR_MACHINE_HH */