FLT/ORYA-OTF.flt

   1 ;; ORYA-OTF.flt -- Font Layout Table for Oriya OpenType font
   2 ;; Copyright (C) 2004, 2007
   3 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   4 ;;   Registration Number H15PRO112
   5
   6 ;; This file is part of the m17n database; a sub-part of the m17n
   7 ;; library.
   8
   9 ;; The m17n library is free software; you can redistribute it and/or
  10 ;; modify it under the terms of the GNU Lesser General Public License
  11 ;; as published by the Free Software Foundation; either version 2.1 of
  12 ;; the License, or (at your option) any later version.
  13
  14 ;; The m17n library is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 ;; Lesser General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU Lesser General Public
  20 ;; License along with the m17n library; if not, write to the Free
  21 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  22 ;; Boston, MA 02110-1301, USA.
  23
  24 ;;; <li> ORYA-OTF.flt
  25 ;;;
  26 ;;; For Oriya OpenType fonts to draw the Oriya script.  Tested with
  27 ;;; utkalm.ttf <http://oriya.sarovar.org/download/utkalm.ttf.gz>
  28
  29 (font layouter orya-otf nil
  30       (font (nil nil unicode-bmp :otf=orya=rphf)))
  31
  32 (category
  33  ;; C: consonant (except for R, B and Y)
  34  ;; R: consonant RA
  35  ;; B: consonant (below)
  36  ;; Y: consonant (post)
  37  ;; n: NUKTA
  38  ;; H: HALANT
  39  ;; m: vowel sign (pre)
  40  ;; u: vowel sign (above)
  41  ;; b: vowel sign (below)
  42  ;; p: vowel sign (post)
  43  ;; t: vowel sign (two-part)
  44  ;; A: vowel modifier (above)
  45  ;; a: vowel modifier (post)
  46  ;; V: independent vowel
  47  ;; N: ZWNJ (ZERO WIDTH NON-JOINER)
  48  ;; J: ZWJ (ZERO WIDTH JOINER)
  49  ;; X: generic
  50  ;; Z: internal use
  51  (0x0B00 0x0B7F ?X)                     ; generic
  52  (0x0B00        ?Z)                     ; internal use
  53  (0x0B01 0x0B03 ?a)                     ; SIGN CANDRABINDU .. VISARGA
  54  (0x0B05 0x0B14 ?V)                     ; LETTER A .. VOCALIC AU
  55  (0x0B15 0x0B39 ?C)                     ; LETTER KA .. HA
  56  (0x0B24        ?B)                     ; LETTER TA
  57  (0x0B28        ?B)                     ; LETTER NA
  58  (0x0B2C 0x0B2E ?B)                     ; LETTER BA .. MA
  59  (0x0B2F        ?Y)                     ; LETTER YA
  60  (0x0B30        ?R)                     ; LETTER RA
  61  (0x0B32 0x0B33 ?B)                     ; LETTER LA
  62  (0x0B33        ?B)                     ; LETTER LLA
  63  (0x0B3C        ?n)                     ; SIGN NUKTA
  64  (0x0B3E        ?p)                     ; VOWEL SIGN AA
  65  (0x0B3F        ?u)                     ; VOWEL SIGN I
  66  (0x0B40        ?p)                     ; VOWEL SIGN II
  67  (0x0B41 0x0B43 ?b)                     ; VOWEL SIGN U .. VOCALIC R
  68  (0x0B47        ?m)                     ; VOWEL SIGN E
  69  (0x0B48 0x0B4C ?t)                     ; VOWEL SIGN AI .. AU
  70  (0x0B4D        ?H)                     ; SIGN VIRAMA
  71  (0x0B56        ?u)                     ; AI LENGTH MARK
  72  (0x0B57        ?p)                     ; AU LENGTH MARK
  73  (0x0B5C 0x0B5D ?C)                     ; LETTER RRA .. RHA
  74  (0x0B5F        ?Y)                     ; LETTER YYA
  75  (0x0B60 0x0B61 ?V)                     ; LETTER VOCALIC RR .. LL
  76  (0x0B71        ?C)                     ; LETTER WA
  77  (0x0B64 0x0B65 ?X)                     ; DANDA .. DOUBLE DANDA
  78  (0x200C        ?N)                     ; ZWNJ
  79  (0x200D        ?J)                     ; ZWJ
  80  )
  81
  82 (generator
  83  (0
  84   (cond
  85    ;; Decompose two-part vowel signs.
  86    ((0x0B48)
  87     0x0B47 0x0B56)
  88    ((0x0B4B)
  89     0x0B47 0x0B3E)
  90    ((0x0B4C)
  91     0x0B47 0x0B57)
  92    ;; Compose consonant and nukta.
  93    ((0x0B21 0x0B3C)
  94     0x0B5C)
  95    ((0x0B22 0x0B3C)
  96     0x0B5D)
  97    ;; Move ZWJ before the consonant.
  98    ("(Cn?)(J)"
  99     (2 =) (1 = *))
 100    ("." =))
 101   *))
 102
 103 ;; Syllable identification and reordering.
 104 ;; Do not apply 'rphf' if a syllable begins with a ZWJ.
 105 (generator
 106  (0
 107   (cond
 108    ;; A syllable with a ZWJ and a pre-base vowel sign.
 109    ;;1  23                    4  5   6   7
 110    ("(J)(([CRBY]n?H)*[CRBY]n?)(m)(u)?(p)?(a)?"
 111     < | (1 =) (4 =) (2 pre-below) (5 =) (2 post) (6 =) (7 =) | >)
 112
 113    ;; A syllable with a ZWJ and a non-pre-base vowel sign.
 114    ;;1  23                    45      6   7
 115    ("(J)(([CRBY]n?H)*[CRBY]n?)(([bu])|(p))(a)?"
 116     < | (1 =) (2 pre-below) (5 =) (2 post) (6 =) (7 =) | >)
 117
 118    ;; A syllable with a ZWJ and a vowel modifier, but without vowel signs.
 119    ;;1  23                    4
 120    ("(J)(([CRBY]n?H)*[CRBY]n?)(a)"
 121     < | (1 =) (2 pre-below) (2 post) (4 =) | >)
 122
 123    ;; Add a ZWNJ explicitly when a syllable ends with a halant.
 124    ;;1  23                    4   5
 125    ("(J)(([CRBY]n?H)*[CRBY]n?)(H)?(N)?"
 126     < | (1 =) (2 pre-below) (4 = 0x200C) (2 post) | >)
 127
 128    ;; With a pre-base vowel sign, without a ZWJ.
 129    ;;1    23                    4  5   6   7
 130    ("(RH)?(([CRBY]n?H)*[CRBY]n?)(m)(u)?(p)?(a)?"
 131     < |
 132     (4 =) (2 pre-below) (5 =) (1 otf:orya=rphf) (2 post) (6 =) (7 =)
 133     | >)
 134
 135    ;; With a non-pre-base vowel sign, without a ZWJ.
 136    ;; 1   23                    45      6   7
 137    ("(RH)?(([CRBY]n?H)*[CRBY]n?)(([bu])|(p))(a)?"
 138     < | (2 pre-below) (5 =) (1 otf:orya=rphf) (2 post) (6 =) (7 =) | >)
 139
 140    ;; With a vowel modifier, without vowel signs and a ZWJ.
 141    ;;1    23                    4
 142    ("(RH)?(([CRBY]n?H)*[CRBY]n?)(a)"
 143     < | (2 pre-below) (1 otf:orya=rphf) (2 post) (4 =) | >)
 144
 145    ;; Add a ZWNJ explicitly when a syllable ends with a halant.
 146    ;;1    23                    4   5
 147    ("(RH)?(([CRBY]n?H)*[CRBY]n?)(H)?(N)?"
 148     < | (2 pre-below) (1 otf:orya=rphf) (4 = 0x200C) (2 post) | >)
 149
 150    ;; A syllable starting with an independent vowel.
 151    ("Va?"
 152     < | = * | >)
 153
 154    ("." =))
 155   *)
 156
 157  ;; Move a halant after the base consonant to the end.
 158  ;; Fill the resulting gap with a special mark.
 159  ;; Remove post-base parts.
 160  (pre-below
 161   (cond
 162    ("([CRBYnH]*[CYn])H([RBH]+)[YH]+$"
 163     (1 = *) 0x0B00 (2 = *))
 164    ("([CRBYnH]*[CYn])(H)([RBH]+)$"
 165     (1 = *) 0x0B00 (3 = *) (2 =))
 166    ("([CRBYnH]*[Cn])[YH]*$"
 167     (1 = *) 0x0B00)
 168    ("([RB]n?)H([RBH]*)[YH]+$"
 169     (1 = *) 0x0B00 (2 = *))
 170    ("([RB]n?)(H)([RBH]*)$"
 171     (1 = *) 0x0B00 (3 = *) (2 =))
 172    ("([RBY]n?)[YH]*$"
 173     (1 = *) 0x0B00)))
 174
 175  ;; Extract post-base parts and add a halant at the end.
 176  ;; Produce nothing if there are no post-base parts.
 177  (post
 178   (cond
 179    ("[CRBYnH]*[CRBn]H([YH]+)$"
 180     (1 = *) 0x0B4D)
 181    ("Yn?H([YH]+)$"
 182     (1 = *) 0x0B4D)
 183    (".+"
 184     )))
 185  )
 186
 187 ;; Apply language forms to concerning segments.
 188 (generator
 189  (0
 190   (cond
 191    ;; If a syllable contains a ZWNJ, render the final halant explicitly.
 192    (" ([^Z]+)(Z)([^N]*)(HN)([^ ]*) "
 193     | (1 otf:orya=nukt,akhn,half,pres+) (2 =) (3 otf:orya=blwf+) (4 = =)
 194     (5 otf:orya=pstf+) |)
 195
 196    (" (J?m?)([^Z]+)(Z)([^ ]*) "
 197     | (1 = *) (2 otf:orya=nukt,akhn,half,pres+) (3 =) (4 otf:orya=blwf,pstf+) |)
 198
 199    ("." =))
 200   *))
 201
 202 ;; When the number of glyphs between a pre-base vowel sign and the
 203 ;; post-base mark is more than one, move the pre-base vowel sign
 204 ;; before the final glyph.
 205 (generator
 206  (0
 207   (cond
 208    (" (J)?(m)([^Z]+)([^Z])Z([^N ]*)N?([^ ]*) "
 209     | (1 =) (3 = *) (2 =) (4 =) (5 = *) (6 = *)|)
 210    (" ([^Z]+)Z([^N ]*)N?([^ ]*) "
 211     | (1 = *) (2 = *) (3 = *) |)
 212    ("." =))
 213   *))
 214
 215 ;; Apply other features.
 216 ;; Do not apply 'vatu' and 'blws' if there is a ZWJ.
 217 ;; The 'pres' feature is applied again for pre-base vowel sign.
 218 (generator
 219  (0
 220   (cond
 221    (" J([^ ]+) "
 222     (1 otf:orya=pres,abvs,pstp,haln))
 223    (" ([^ ]+) "
 224     (1 otf:orya=vatu,pres,abvs,blws,pstp,haln))
 225    ("."
 226     [ otf:orya=+ ]))
 227   *))
 228
 229 ;; Local Variables:
 230 ;; mode: emacs-lisp
 231 ;; End: