216 lines
4.6 KiB
Plaintext
216 lines
4.6 KiB
Plaintext
;; TELU-OTF.flt -- Font Layout Table for Telugu OpenType fonts
|
|
;; Copyright (C) 2004, 2007, 2008, 2010 AIST (H15PRO112)
|
|
;; See the end for copying conditions.
|
|
|
|
(font layouter telu-otf nil
|
|
(version "1.6.0")
|
|
(font (nil nil unicode-bmp :otf=telu)))
|
|
|
|
;;; <li> TELU-OTF.flt
|
|
;;;
|
|
;;; For Telugu OpenType fonts to draw the Telugu script.
|
|
|
|
(category
|
|
(0x0C00 0x0C7F ?X) ; generic
|
|
(0x0C01 0x0C03 ?A) ; SIGN CANDRABINDU .. VISARGA
|
|
(0x0C05 0x0C14 ?V) ; LETTER A .. AU
|
|
(0x0C15 0x0C39 ?C) ; LETTER KA .. HA
|
|
(0x0C3E 0x0C42 ?u) ; VOWEL SIGN AA .. II
|
|
(0x0C43 0x0C44 ?p) ; VOWEL SIGN U .. VOCALIC RR
|
|
(0x0C46 0x0C47 ?u) ; VOWEL SIGN E .. EE
|
|
(0x0C4A 0x0C4C ?u) ; VOWEL SIGN O .. AU
|
|
(0x0C4D ?H) ; SIGN VIRAMA
|
|
(0x0C55 ?u) ; LENGTH MARK
|
|
(0x0C56 ?b) ; AI LENGTH MARK
|
|
(0x0C58 0x0C59 ?C) ; LETTER TSA .. DZA
|
|
(0x0C60 0x0C61 ?V) ; LETTER VOCALIC RR .. VOCALIC LL
|
|
(0x0C62 0x0C63 ?b) ; VOWEL SIGN VOCALIC L .. VOCALIC LL
|
|
|
|
(0x200C ?N) ; ZWNJ
|
|
(0x200D ?J) ; ZWJ
|
|
(0x25CC ?X) ; DOTTED CIRCLE
|
|
|
|
(blwf ?B)
|
|
)
|
|
|
|
;; Stage 0
|
|
;; Preprocessing
|
|
(generator
|
|
(0
|
|
(cond
|
|
;; Decompose two-part vowel signs.
|
|
((0x0C48)
|
|
0x0C46 0x0C56)
|
|
|
|
("." =))
|
|
*))
|
|
|
|
;; Stage 1
|
|
;; Syllable identification
|
|
(generator
|
|
(0
|
|
(cond
|
|
;; Consonant-based syllables
|
|
;;1 23 4
|
|
("(C((J?H|HJ?)C)*)(H[NJ]?|u?b?p?A?)"
|
|
< |
|
|
(cond
|
|
(".+HJ$" :otf=telu=nukt,akhn+)
|
|
("(.+)(H)N?$" (1 :otf=telu=nukt,akhn+) (2 =) 0x200C)
|
|
(".+" :otf=telu=nukt,akhn+))
|
|
| >)
|
|
|
|
;; Syllables with an independent vowel
|
|
;;1 2 3
|
|
("(V)(J?HC)?(u?b?p?A?)"
|
|
< | (1 =) (2 :otf=telu=blwf+) (3 = *) | >)
|
|
|
|
;; Two-part vowel signs
|
|
((0x0C46 0x0C56)
|
|
(cond
|
|
((font-facility 0x25CC) < 0x25CC = = >)
|
|
(".+" [ 0x0C48 ])))
|
|
|
|
;; Combining marks are displayed with a DOTTED CIRCLE.
|
|
("[HubpA]"
|
|
(cond
|
|
((font-facility 0x25CC) < 0x25CC = >)
|
|
("." [ = ])))
|
|
|
|
;; Isolated blwf is displayed with a DOTTED CIRCLE in the
|
|
;; next stage.
|
|
("(J)(H)(C)"
|
|
< | (1 =) (3 =) (2 = ) | >)
|
|
|
|
("." =))
|
|
*))
|
|
|
|
;; Stage 2
|
|
;; Reorder halant for blwf
|
|
(generator
|
|
(0
|
|
(cond
|
|
;; Isolated blwf
|
|
(" J(CH) "
|
|
(cond
|
|
((font-facility 0x25CC) < 0x25CC (1 :otf=telu=blwf+) >)
|
|
(" J(CH) " [ (1 :otf=telu=blwf+) ])))
|
|
|
|
;; Syllables with an overt halant
|
|
(" ([^ ]+)(HN) "
|
|
| (1 reorder *) (2 = =) |)
|
|
|
|
;; Ordinary syllables
|
|
(" ([^ubpA ]+)(u?b?p?A?) "
|
|
| (1 reorder *) (2 = *) |)
|
|
|
|
("." =))
|
|
*)
|
|
|
|
(reorder
|
|
(cond
|
|
("J?(H)(C)"
|
|
(2 =) (1 =))
|
|
("." =)))
|
|
)
|
|
|
|
;; 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
|
|
(" ([^ ]+)(HN) "
|
|
|
|
|
(1 (cond ("(.H)J?(.*)" (1 :otf=telu=half+) (2 lang-forms *))
|
|
(".+" lang-forms *)))
|
|
(2 = =) |)
|
|
|
|
;; Other syllables
|
|
(" ([^ubpA ]*)(u?b?p?A?) "
|
|
|
|
|
(1 (cond ("(.H)J?(.*)" (1 :otf=telu=half+) (2 lang-forms *))
|
|
(".+" lang-forms *)))
|
|
(2 = *) |)
|
|
|
|
("." =))
|
|
*)
|
|
|
|
(lang-forms
|
|
(cond
|
|
("(.H)J" (1 :otf=telu=half+))
|
|
(".H" :otf=telu=blwf,half+)
|
|
("." =)))
|
|
)
|
|
|
|
;; Stage 4
|
|
;; Move subscript glyphs
|
|
(generator
|
|
(0
|
|
(cond
|
|
(" ([^B ]*[^BJ])J?(B*)(ub?|b)([^ ]*) "
|
|
| (1 = *) (3 = *) (2 = *) (4 = *) |)
|
|
|
|
("." =))
|
|
*))
|
|
|
|
;; Stage 5
|
|
;; Presentation forms
|
|
(generator
|
|
(0
|
|
(cond
|
|
(" ([^ ]+) "
|
|
| (1 :otf=telu=pres,abvs,blws,psts,haln+) |)
|
|
|
|
("." =))
|
|
*))
|
|
|
|
;; Stage 6
|
|
;; Remove ZWNJ/ZWJ
|
|
(generator
|
|
(0
|
|
(cond
|
|
("[NJ]")
|
|
|
|
("." =))
|
|
*))
|
|
|
|
;; Stage 7
|
|
;; GPOS processing
|
|
(generator
|
|
(0
|
|
(cond
|
|
(" ([^ ]+) "
|
|
(1 :otf=telu=+abvm,blwm,dist))
|
|
|
|
("." =))
|
|
*))
|
|
|
|
;; Copyright (C) 2004, 2007, 2008, 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:
|