KNDA-OTF.flt

   1 ;; KNDA-OTF.flt -- Font Layout Table for Kannada OpenType fonts
   2 ;; Copyright (C) 2004
   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., 59 Temple Place, Suite 330, Boston, MA
  22 ;; 02111-1307, USA.
  23
  24 ;;; <li> KNDA-OTF.flt
  25 ;;;
  26 ;;; For Kannada OpenType fonts to draw Kannada.
  27 ;;; Designed for Sampige.ttf <http://kannada.sourceforge.net/>
  28
  29 (category
  30  ;; C: general consonant
  31  ;; R: no below-base consonat (RRA, NNNA, LLLA)
  32  ;; r: RA
  33  ;; H: HALANT
  34  ;; u: MATRA (above)
  35  ;; p: MATRA (post)
  36  ;; t: MATRA (two-part)
  37  ;; T: MATRA (three-part)
  38  ;; a: vowel modifier (post)
  39  ;; V: independent vowel
  40  ;; N: ZWNJ (ZERO WIDTH NON-JOINER)
  41  ;; J: ZWJ (ZERO WIDTH JOINER)
  42  ;; E: ELSE
  43  ;;
  44  (0x200C        ?N)                     ; ZWNJ
  45  (0x200D        ?J)                     ; ZWJ
  46  (0x0964        ?E)                     ; DANDA
  47  (0x0965        ?E)                     ; DOUBLE DANDA
  48  (0x0C80 0x0CFF ?E)                     ; ELSE
  49  (0x0C82        ?a)                     ; SIGN ANUSVARA
  50  (0x0C83        ?a)                     ; SIGN VISARGA
  51  (0x0C85 0x0C94 ?V)                     ; LETTER A .. LETTER AU
  52  (0x0C95 0x0CB9 ?C)                     ; LETTER KA .. LETTER HA
  53  (0x0CB0        ?r)                     ; LETTER RA
  54  (0x0CBC        ?n)                     ; SIGN NUKTA
  55  (0x0CBD        ?E)                     ; SIGN AVAGRAHA
  56  (0x0CBE        ?p)                     ; VOWEL SIGN AA (post)
  57  (0x0CBF        ?u)                     ; VOWEL SIGN I (above)
  58  (0x0CC0        ?t)                     ; VOWEL SIGN II (two-part)
  59  (0x0CC1 0x0CC4 ?p)                     ; VOWEL SIGN U, UU, R, RR (post)
  60  (0x0CC6        ?u)                     ; VOWEL SIGN E (above)
  61  (0x0CC7 0x0CCA ?t)                     ; VOWEL SIGN EE, AI, O (two-part)
  62  (0x0CCB        ?T)                     ; VOWEL SIGN OO (three-part)
  63  (0x0CCC        ?u)                     ; VOWEL SIGN AU (above)
  64  (0x0CCD        ?H)                     ; SIGN VIRAMA (HALANT)
  65  (0x0CD5        ?l)                     ; LENGTH MARK (length post)
  66  (0x0CD6        ?l)                     ; AI LENGTH MARK (length post)
  67  (0x0CDE        ?C)                     ; LETTER FA (LLLA)
  68  (0x0CE0 0x0CE1 ?V)                     ; LETTER VOCALIC RR, LL
  69  (0x0CFD        ?Z)                     ; internal use
  70  (0x0CFE        ?Y)                     ; internal use
  71  (0x0CFF        ?X)                     ; internal use
  72  )
  73
  74 ;; Step 1 : Syllable identification and Halant movement.
  75 (generator
  76  (0
  77   (cond
  78    ;; A syllable containing a three-part vowel sign.
  79    ("([CRr](H[Cr])*)(T)(a)?"
  80     < | (1 move-base-Halant) (3 0x0CC6 0x0CC2 0x0CD5) (4 =) | >)
  81
  82    ;; A syllable containing a two-part vowel sign.
  83    ("([CRr](H[Cr])*)(t)(a)?"
  84     < | (1 move-base-Halant) (3 two-part) (4 =) | >)
  85
  86    ;; A syllable ending with vowel signs and/or a vowel modifier.
  87    ("([CRr](H[Cr])*)([upl]+a?|a)"
  88     < | (1 move-base-Halant) (3 = *) | >)
  89
  90    ;; Forced Halant form.
  91    ("((RH)?([Cr]H)*)([Cr]H)N"
  92     < | (1 move-base-Halant) | >
  93     < | (4 move-base-Halant) | >)
  94
  95    ;; Forced Half form.
  96    ("((RH)?([Cr]H)*)([Cr]H)J"
  97     < | (1 move-base-Halant) >
  98     < | (4 otf:knda=blwf) | >)
  99
 100    ;; A syllable without a vowel sign nor a vowel modifier.
 101    ("[CRr](H[Cr])*H?"
 102     < | move-base-Halant | >)
 103
 104    ;; A syllable starting with an independent vowel.
 105    ("Va?"
 106     < | = * | > )
 107
 108    ("." =))
 109   *)
 110
 111  ;; Move Halant on the base consonant to the tail if the syllable ends
 112  ;; with a consonant.
 113  ;; A leading 0x0CFF means Halant movement.
 114  ;; A leading 0x0CFE means a syllable ending with a Halant.
 115  ;; A leading 0x0CFD means Halant & Reph movements.
 116  (move-base-Halant
 117   (cond
 118    (".*H$"
 119     0x0CFE = *)
 120    ("(rH)(.)$"
 121     0x0CFD (2 =) (1 = =))
 122    ("(rH)(.)(H)(.*)"
 123     0x0CFD (2 =) (4 = *) (3 =) (1 = =))
 124    ("(.)(H)(.*)"
 125     0x0CFF (1 =) (3 = *) (2 =))
 126    (".*"
 127     = *)))
 128
 129  ;; Divide a two-part Matra into elements.
 130  (two-part
 131   (cond
 132    ((0x0CC0)    0x0CBF 0x0CD5)
 133    ((0x0CC7)    0x0CC6 0x0CD5)
 134    ((0x0CC8)    0x0CC6 0x0CD6)
 135    ((0x0CCA)    0x0CC6 0x0CC2)))
 136  )
 137
 138 ;; Step 2 : Move Matra if applicable.
 139 ;; The base consonant in a Halant-ending syllable is changed into Halant form.
 140 (generator
 141  (0
 142   (cond
 143    ;;  1  2       3   4   5   6   7
 144    (" Z(.)([CrH]*)(rH)(u)?(p)?(l*)(a)? "
 145     | (1 =) (4 =) (5 =) (2 = *) (6 = *) (3 otf:knda=rphf) (7 =) |)
 146    ;;  1  2       3   4   5   6
 147    (" X(.)([CrH]*)(u)?(p)?(l*)(a)? "
 148     | (1 =) (3 =) (4 =) (2 = *) (5 = *) (6 =) |)
 149    (" Y(..)([^ ]*) "
 150     ;; Sampige.ttf lacks the haln feature, so "otf:knda=haln" does not work.
 151     | (1 otf:knda=~rphf,~blwf,*) (2 = *) |)
 152    ("." =))
 153   *))
 154
 155 ;; Step 3 : Drive OTF tables.
 156 (generator
 157  (0
 158   (cond
 159    (" ([^ ]*) "
 160     (1 otf:knda=~rphf,*))
 161    ("."
 162     [ otf:knda=+ ]))
 163   *))
 164
 165 ;; Local Variables:
 166 ;; mode: emacs-lisp
 167 ;; End: