src/hb-ot-shaper-myanmar-machine.rl

   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
  76 export VAbv = 20;
  77 export VBlw = 21;
  78 export VPre = 22;
  79 export VPst = 23;
  80
  81 # 32+ are for Myanmar-specific values
  82 export As   = 32;       # Asat
  83 export MH   = 35;       # Medial Ha
  84 export MR   = 36;       # Medial Ra
  85 export MW   = 37;       # Medial Wa, Shan Wa
  86 export MY   = 38;       # Medial Ya, Mon Na, Mon Ma
  87 export PT   = 39;       # Pwo and other tones
  88 export VS   = 40;       # Variation selectors
  89 export ML   = 41;       # Medial Mon La
  90
  91
  92 j = ZWJ|ZWNJ;                   # Joiners
  93 k = (Ra As H);                  # Kinzi
  94
  95 c = C|Ra;                       # is_consonant
  96
  97 medial_group = MY? As? MR? ((MW MH? ML? | MH ML? | ML) As?)?;
  98 main_vowel_group = (VPre.VS?)* VAbv* VBlw* A* (DB As?)?;
  99 post_vowel_group = VPst MH? ML? As* VAbv* A* (DB As?)?;
 100 pwo_tone_group = PT A* DB? As?;
 101
 102 complex_syllable_tail = As* medial_group main_vowel_group post_vowel_group* pwo_tone_group* SM* j?;
 103 syllable_tail = (H (c|IV).VS?)* (H | complex_syllable_tail);
 104
 105 consonant_syllable =    (k|CS)? (c|IV|GB|DOTTEDCIRCLE).VS? syllable_tail;
 106 broken_cluster =        k? VS? syllable_tail;
 107 other =                 any;
 108
 109 main := |*
 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
 128 inline void
 129 find_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 */