kc3-lang/harfbuzz/src/hb-ot-shape-complex-use-machine.rl

• Show log

  Commit

• Hash : 75114e01
  Author :
  Date : 2018-10-03T12:29:56
  

  [use] Add Halant_Or_Vowel_Modifier category
  
  Fixes https://github.com/harfbuzz/harfbuzz/issues/1102
  

Download

• src/hb-ot-shape-complex-use-machine.rl

• /*
   * Copyright © 2015  Mozilla Foundation.
   * Copyright © 2015  Google, Inc.
   *
   *  This is part of HarfBuzz, a text shaping library.
   *
   * Permission is hereby granted, without written agreement and without
   * license or royalty fees, to use, copy, modify, and distribute this
   * software and its documentation for any purpose, provided that the
   * above copyright notice and the following two paragraphs appear in
   * all copies of this software.
   *
   * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR
   * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
   * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN
   * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
   * DAMAGE.
   *
   * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,
   * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
   * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
   * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO
   * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
   *
   * Mozilla Author(s): Jonathan Kew
   * Google Author(s): Behdad Esfahbod
   */
  
  #ifndef HB_OT_SHAPE_COMPLEX_USE_MACHINE_HH
  #define HB_OT_SHAPE_COMPLEX_USE_MACHINE_HH
  
  #include "hb.hh"
  
  %%{
    machine use_syllable_machine;
    alphtype unsigned char;
    write data;
  }%%
  
  %%{
  
  # Same order as enum use_category_t.  Not sure how to avoid duplication.
  
  O	= 0; # OTHER
  
  B	= 1; # BASE
  IND	= 3; # BASE_IND
  N	= 4; # BASE_NUM
  GB	= 5; # BASE_OTHER
  CGJ	= 6; # CGJ
  #F	= 7; # CONS_FINAL
  FM	= 8; # CONS_FINAL_MOD
  #M	= 9; # CONS_MED
  #CM	= 10; # CONS_MOD
  SUB	= 11; # CONS_SUB
  H	= 12; # HALANT
  
  HN	= 13; # HALANT_NUM
  ZWNJ	= 14; # Zero width non-joiner
  ZWJ	= 15; # Zero width joiner
  WJ	= 16; # Word joiner
  Rsv	= 17; # Reserved characters
  R	= 18; # REPHA
  S	= 19; # SYM
  #SM	= 20; # SYM_MOD
  VS	= 21; # VARIATION_SELECTOR
  #V	= 36; # VOWEL
  #VM	= 40; # VOWEL_MOD
  
  FAbv	= 24; # CONS_FINAL_ABOVE
  FBlw	= 25; # CONS_FINAL_BELOW
  FPst	= 26; # CONS_FINAL_POST
  MAbv	= 27; # CONS_MED_ABOVE
  MBlw	= 28; # CONS_MED_BELOW
  MPst	= 29; # CONS_MED_POST
  MPre	= 30; # CONS_MED_PRE
  CMAbv	= 31; # CONS_MOD_ABOVE
  CMBlw	= 32; # CONS_MOD_BELOW
  VAbv	= 33; # VOWEL_ABOVE / VOWEL_ABOVE_BELOW / VOWEL_ABOVE_BELOW_POST / VOWEL_ABOVE_POST
  VBlw	= 34; # VOWEL_BELOW / VOWEL_BELOW_POST
  VPst	= 35; # VOWEL_POST	UIPC = Right
  VPre	= 22; # VOWEL_PRE / VOWEL_PRE_ABOVE / VOWEL_PRE_ABOVE_POST / VOWEL_PRE_POST
  VMAbv	= 37; # VOWEL_MOD_ABOVE
  VMBlw	= 38; # VOWEL_MOD_BELOW
  VMPst	= 39; # VOWEL_MOD_POST
  VMPre	= 23; # VOWEL_MOD_PRE
  SMAbv	= 41; # SYM_MOD_ABOVE
  SMBlw	= 42; # SYM_MOD_BELOW
  CS	= 43; # CONS_WITH_STACKER
  
  HVM	= 44; # HALANT_OR_VOWEL_MODIFIER
  
  h = H | HVM; # https://github.com/harfbuzz/harfbuzz/issues/1102
  
  # Override: Adhoc ZWJ placement. https://github.com/harfbuzz/harfbuzz/issues/542#issuecomment-353169729
  consonant_modifiers = CMAbv* CMBlw* ((ZWJ?.h.ZWJ? B | SUB) VS? CMAbv? CMBlw*)*;
  # Override: Allow two MBlw. https://github.com/harfbuzz/harfbuzz/issues/376
  medial_consonants = MPre? MAbv? MBlw?.MBlw? MPst?;
  dependent_vowels = VPre* VAbv* VBlw* VPst*;
  vowel_modifiers = HVM? VMPre* VMAbv* VMBlw* VMPst*;
  final_consonants = FAbv* FBlw* FPst* FM?;
  
  complex_syllable_tail =
  	consonant_modifiers
  	medial_consonants
  	dependent_vowels
  	vowel_modifiers
  	final_consonants
  ;
  
  virama_terminated_cluster =
  	(R|CS)? (B | GB) VS?
  	consonant_modifiers
  	ZWJ?.h.ZWJ?
  ;
  standard_cluster =
  	(R|CS)? (B | GB) VS?
  	complex_syllable_tail
  ;
  broken_cluster =
  	R?
  	complex_syllable_tail
  ;
  
  number_joiner_terminated_cluster = N VS? (HN N VS?)* HN;
  numeral_cluster = N VS? (HN N VS?)*;
  symbol_cluster = S VS? SMAbv* SMBlw*;
  independent_cluster = (IND | O | Rsv | WJ) VS?;
  other = any;
  
  main := |*
  	independent_cluster			=> { found_syllable (independent_cluster); };
  	virama_terminated_cluster		=> { found_syllable (virama_terminated_cluster); };
  	standard_cluster			=> { found_syllable (standard_cluster); };
  	number_joiner_terminated_cluster	=> { found_syllable (number_joiner_terminated_cluster); };
  	numeral_cluster				=> { found_syllable (numeral_cluster); };
  	symbol_cluster				=> { found_syllable (symbol_cluster); };
  	broken_cluster				=> { found_syllable (broken_cluster); };
  	other					=> { found_syllable (non_cluster); };
  *|;
  
  
  }%%
  
  #define found_syllable(syllable_type) \
    HB_STMT_START { \
      if (0) fprintf (stderr, "syllable %d..%d %s\n", ts, te, #syllable_type); \
      for (unsigned int i = ts; i < te; i++) \
        info[i].syllable() = (syllable_serial << 4) | syllable_type; \
      syllable_serial++; \
      if (unlikely (syllable_serial == 16)) syllable_serial = 1; \
    } HB_STMT_END
  
  static void
  find_syllables (hb_buffer_t *buffer)
  {
    unsigned int p, pe, eof, ts, te, act;
    int cs;
    hb_glyph_info_t *info = buffer->info;
    %%{
      write init;
      getkey info[p].use_category();
    }%%
  
    p = 0;
    pe = eof = buffer->len;
  
    unsigned int syllable_serial = 1;
    %%{
      write exec;
    }%%
  }
  
  #undef found_syllable
  
  #endif /* HB_OT_SHAPE_COMPLEX_USE_MACHINE_HH */
  

Download