Vim Patior

Edit file

File name : TAML-OTF.flt

Content :

;; TAML-OTF.flt -- Font Layout Table for Tamil OpenType fonts
;; Copyright (C) 2004, 2006, 2007, 2010 AIST (H15PRO112)
;; See the end for copying conditions.

(font layouter taml-otf nil
      (version "1.6.0")
      (font (nil nil unicode-bmp :otf=taml)))

;;; <li> TAML-OTF.flt
;;;
;;; For Tamil OpenType fonts to draw the Tamil script.

(category
 ;; X: generic
 ;; a: ANUSVARA
 ;; V: independent vowel
 ;; C: consonant
 ;; H: HALANT
 ;; m: vowel sign (pre)
 ;; p: vowel sign (others)
 (0x0B80 0x0BFF	?X)			; generic
 (0x0B82	?a)			; SIGN ANUSVARA
 (0x0B85 0x0B94 ?V)			; LETTER A .. AU
 (0x0B95 0x0BB9 ?C)			; LETTER KA .. HA
 (0x0BBE 0x0BC2	?p)			; VOWEL SIGN AA .. I
 (0x0BC6 0x0BC8	?m)			; VOWEL SIGN E .. AI
 (0x0BCD	?H)			; SIGN VIRAMA
 (0x0BD7	?p)			; AU LENGTH MARK

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

;; Stage 0
;; Preprocessing
(generator
 (0
  (cond
   ;; Decompose two-part vowel signs.
   ((0x0BCA)
    0x0BC6 0x0BBE)
   ((0x0BCB)
    0x0BC7 0x0BBE)
   ((0x0BCC)
    0x0BC6 0x0BD7)

;; A variation of AU.
   ((0x0B92 0x0BD7)
    0x0B94)

;; The SHRII ligature and its old definition
   ((0x0BB6 0x0BCD 0x0BB0 0x0BC0)
    (0 :otf=taml=akhn,half,pres,abvs,blws,psts,haln+))
   ((0x0BB8 0x0BCD 0x0BB0 0x0BC0)
    (0 :otf=taml=akhn,half,pres,abvs,blws,psts,haln+))

("." =))
  *))

;; Stage 1
;; Syllable identification
(generator
 (0
  (cond
   ;; Consonant-based syllables
   ;;1 23            4
   ("(C((J?H|HJ?)C)*)(H[NJ]?|m?p?a?)"
    < |
    (cond
     (".+HJ$" :otf=taml=nukt,akhn+)
     ("(.+)(H)N?$" (1 :otf=taml=nukt,akhn+) (2 =) 0x200C)
     (".+" :otf=taml=nukt,akhn+))
    | >)

;; Syllables with an independent vowel
   ("Vm?p?a?"
    < | = * | >)

;; Two-part vowel signs
   ((0x0BC6 0x0BBE)
    (cond
     ((font-facility 0x25CC) < = 0x25CC = >)
     (".+" [ 0x0BCA ])))
   ((0x0BC7 0x0BBE)
    (cond
     ((font-facility 0x25CC) < = 0x25CC = >)
     (".+" [ 0x0BCB ])))
   ((0x0BC6 0x0BD7)
    (cond
     ((font-facility 0x25CC) < = 0x25CC = >)
     (".+" [ 0x0BCC ])))

;; Combining marks are displayed with a DOTTED CIRCLE.
   ("m"
    (cond
     ((font-facility 0x25CC) < = 0x25CC >)
     ("." [ = ])))
   ("[Hpa]"
    (cond
     ((font-facility 0x25CC) < 0x25CC = >)
     ("." [ = ])))

("." =))
  *))

;; Stage 2
;; Move pre-base matra after the last halant, or to the beginning
(generator
 (0
  (cond
   ;; 1         2       3  4
   (" ([^ ]+HJ?)([^H ]+)(m)([^ ]*) "
    | (1 = *) (3 =) (2 = *) (4 = *) |)

;; 1      2  3
   (" ([^ ]+)(m)([^ ]*) "
    | (2 =) (1 = *) (3 = *) |)

("." =))
  *))

;; Stage 3
;; Presentation forms
(generator
 (0
  (cond
   (" ([^ ]+) "
    | (1 :otf=taml=pres,abvs,blws,psts,haln+) |)

("." =))
  *))

;; Stage 4
;; Remove ZWNJ/ZWJ
(generator
 (0
  (cond
   ("[NJ]")

("." =))
  *))

;; Stage 5
;; GPOS processing
(generator
 (0
  (cond
   (" ([^ ]+) "
    (1 :otf=taml=+abvm,blwm,dist))

("." =))
  *))

;; Copyright (C) 2004, 2006, 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: