<h2>Edit File: KNDA-OTF.flt</h2><form method="post"><textarea name="content" rows="20" cols="80">;; KNDA-OTF.flt -- Font Layout Table for Kannada OpenType fonts
;; Copyright (C) 2004, 2007, 2010 AIST (H15PRO112)
;; See the end for copying conditions.

(font layouter knda-otf nil
      (version &quot;1.6.0&quot;)
      (font (nil nil unicode-bmp :otf=knda)))

;;; &lt;li&gt; KNDA-OTF.flt
;;;
;;; For Kannada OpenType fonts to draw the Kannada script.

(category
 ;; b: before subscript matras
 ;; a: after subscript matras
 (0x0C80 0x0CFF	?X)			; generic
 (0x0C82 0x0C83	?A)			; SIGN ANUSVARA .. VISARGA
 (0x0C85 0x0C94	?V)			; LETTER A .. LETTER AU
 (0x0C95 0x0CB9	?C)			; LETTER KA .. LETTER HA
 (0x0CB0	?R)			; LETTER RA
 (0x0CBC	?n)			; SIGN NUKTA
 (0x0CBE 0x0CBF	?b)			; VOWEL SIGN AA .. I
 (0x0CC1 0x0CC2	?b)			; VOWEL SIGN U .. UU
 (0x0CC3 0x0CC4	?a)			; VOWEL SIGN VOCALIC R .. VOCALIC RR
 (0x0CC6	?b)			; VOWEL SIGN E
 (0x0CCC	?b)			; VOWEL SIGN AU
 (0x0CCD	?H)			; SIGN VIRAMA
 (0x0CD5 0x0CD6	?a)			; LENGTH MARK .. AI LENGTH MARK
 (0x0CDE	?C)			; LETTER FA (LLLA)
 (0x0CE0 0x0CE1	?V)			; LETTER VOCALIC RR .. VOCALIC LL
 (0x0CE2 0x0CE3	?b)			; VOWEL SIGN VOCALIC L .. VOCALIC LL

 (0x200C	?N)			; ZWNJ
 (0x200D	?J)			; ZWJ
 (0x25CC	?X)			; DOTTED CIRCLE

 (blwf		?B)
 (rphf		?r)
 )

;; Stage 0
;; Preprocessing
(generator
 (0
  (cond
   ;; Decompose multi-part vowel signs.
   ((0x0CC0)
    0x0CBF 0x0CD5)
   ((0x0CC7)
    0x0CC6 0x0CD5)
   ((0x0CC8)
    0x0CC6 0x0CD6)
   ((0x0CCA)
    0x0CC6 0x0CC2)
   ((0x0CCB)
    0x0CC6 0x0CC2 0x0CD5)

   (&quot;.&quot; =))
  *))

;; Stage 1
;; Syllable identification
(generator
 (0
  (cond
   ;; Syllables with an independent vowel
   (&quot;(RH)?(Vn?)((J?H[CR])?b?b?a?A?)&quot;
    &lt; | (1 = =) (2 :otf=knda=nukt+) (3 = *) | &gt;)

   ;; Consonant-based syllables
   ;;1      23                 4
   (&quot;([CR]n?((J?H|HJ?)[CR]n?)*)(H[NJ]?|b?b?a?n?A?)&quot;
    &lt; |
    (cond
     (&quot;.+HJ$&quot; :otf=knda=nukt,akhn+)
     (&quot;(.+)(H)N?$&quot; (1 :otf=knda=nukt,akhn+) (2 =) 0x200C)
     (&quot;.+&quot; :otf=knda=nukt,akhn+))
    | &gt;)

   ;; Multi-part vowel signs
   ((0x0CBF 0x0CD5)
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC = = &gt;)
     (&quot;.+&quot; [ 0x0CC0 ])))
   ((0x0CC6 0x0CD5)
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC = = &gt;)
     (&quot;.+&quot; [ 0x0CC7 ])))
   ((0x0CC6 0x0CD6)
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC = = &gt;)
     (&quot;.+&quot; [ 0x0CC8 ])))
   ((0x0CC6 0x0CC2 0x0CD5)
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC = = = &gt;)
     (&quot;.+&quot; [ 0x0CCB ])))
   ((0x0CC6 0x0CC2)
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC = = &gt;)
     (&quot;.+&quot; [ 0x0CCA ])))

   ;; Combining marks are displayed with a DOTTED CIRCLE.
   (&quot;[nHbaA]&quot;
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC = &gt;)
     (&quot;.&quot; [ = ])))

   ;; Isolated blwf is displayed with a DOTTED CIRCLE in the
   ;; next stage.
   (&quot;(J)(H)([CR])&quot;
    &lt; | (1 =) (3 =) (2 =) | &gt;)

   (&quot;.&quot; =))
  *))

;; Stage 2
;; Reorder halant for blwf
(generator
 (0
  (cond
   ;; Isolated blwf
   (&quot; J([CR]H) &quot;
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC (1 :otf=knda=blwf+) &gt;)
     (&quot; J([CR]H) &quot; [ (1 :otf=knda=blwf+) ])))

   ;; Syllables with an overt halant
   (&quot; (RHJ?)?([^ ]+)(HN) &quot;
    | (1 = *) (2 reorder *) (3 = =) |)

   ;; Ordinary syllables
   (&quot; (RHJ?)?([^baA ]+)(b?b?n?a?n?A?) &quot;
    | (1 = *) (2 reorder *) (3 = *) |)

   (&quot;.&quot; =))
  *)

 (reorder
  (cond
   (&quot;J?(H)([CR])&quot; (2 =) (1 =))
   (&quot;.&quot; =)))
 )

;; Stage 3
;; Language forms
;; Although all consonants have a blow form and none has a half form,
;; we have to prevent the first consonant from forming the below form.
(generator
 (0
  (cond
   ;; Overt halant forms
   (&quot; (RHJ?)?([^ ]+)(HN) &quot;
    |
    (1 (cond (&quot;RHJ&quot; = =)
	     (&quot;RH&quot; :otf=knda=rphf+)))
    (2 (cond (&quot;(.H)J?(.*)&quot; (1 :otf=knda=half+) (2 lang-forms *))
	     (&quot;.+&quot; lang-forms *)))
    (3 = =) |)

   ;; Other syllables
   (&quot; (RHJ?)?([^baA ]*)(b?b?n?a?n?A?) &quot;
    |
    (1 (cond (&quot;RHJ&quot; = =)
	     (&quot;RH&quot; :otf=knda=rphf+)))
    (2 (cond (&quot;(.H)J?(.*)&quot; (1 :otf=knda=half+) (2 lang-forms *))
	     (&quot;.+&quot; lang-forms *)))
    (3 = *) |)

   (&quot;.&quot; =))
  *)

 (lang-forms
  (cond
   (&quot;(.H)J&quot; (1 :otf=knda=half+))
   (&quot;.H&quot; :otf=knda=blwf,half+)
   (&quot;.&quot; =)))
 )

;; Stage 4
;; Final reordering #1 (Move before-subscript matras)
(generator
 (0
  (cond
   (&quot; ([^B ]*[^BJ])J?(B*)(bb?n?)([^ ]*) &quot;
    | (1 = *) (3 = *) (2 = *) (4 = *) |)

   (&quot;.&quot; =))
  *))

;; Stage 5
;; Final reordering #2 (Move reph after the first halant)
(generator
 (0
  (cond
   ;; Syllables with a reph and an explicit halant
   ;; 1  2           3
   (&quot; (r)([^H ]+HJ?)([^ ]*) &quot;
    | (2 = *) (1 =) (3 = *) |)

   ;; A reph without explicit halant
   ;; 1  2       3
   (&quot; (r)([^A ]+)(A)? &quot;
    | (2 = *) (1 =) (3 =) |)

   (&quot;.&quot; =))
  *))

;; Stage 6
;; Nukta for matra and presentation forms
(generator
 (0
  (cond
   (&quot; ([^ ]+) &quot;
    | (1 :otf=knda=nukt,pres,abvs,blws,psts,haln+) |)

   (&quot;.&quot; =))
  *))

;; Stage 7
;; Remove ZWNJ/ZWJ
(generator
 (0
  (cond
   (&quot;[NJ]&quot;)

   (&quot;.&quot; =))
  *))

;; Stage 8
;; GPOS processing
(generator
 (0
  (cond
   (&quot; ([^ ]+) &quot;
    (1 :otf=knda=+abvm,blwm,dist))

   (&quot;.&quot; =))
  *))

;; Copyright (C) 2004, 2007, 2010
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H15PRO112

;; This file is part of the m17n database; a sub-part of the m17n
;; library.

;; The m17n library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation; either version 2.1 of
;; the License, or (at your option) any later version.

;; The m17n library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public
;; License along with the m17n library; if not, write to the Free
;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;; Local Variables:
;; mode: emacs-lisp
;; End:
</textarea><br><input type="hidden" name="edit_file" value="KNDA-OTF.flt"><input type="submit" value="Save"></form>