;; TELU-OTF.flt -- Font Layout Table for Telugu OpenType fonts
-;; Copyright (C) 2004, 2007
-;; 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.
+;; Copyright (C) 2004, 2007, 2008, 2010 AIST (H15PRO112)
+;; See the end for copying conditions.
-;; 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.
+(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 Telugu.
-;;; Designed for Pothana2000.ttf <http://www.kavya-nandanam.com/>
-
-(font layouter telu-otf nil
- (font (nil nil unicode-bmp :otf=telu=haln)))
+;;; For Telugu OpenType fonts to draw the Telugu script.
(category
- ;; C: general consonant
- ;; H: HALANT
- ;; u: MATRA (above)
- ;; b: MATRA (below)
- ;; p: MATRA (post)
- ;; t: MATRA (two-part)
- ;; a: vowel modifier (post)
- ;; V: independent vowel
- ;; N: ZWNJ (ZERO WIDTH NON-JOINER)
- ;; J: ZWJ (ZERO WIDTH JOINER)
- ;; E: ELSE
- ;;
+ (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
- (0x0964 ?E) ; DANDA
- (0x0965 ?E) ; DOUBLE DANDA
- (0x0C00 0x0C7F ?E) ; ELSE
- (0x0C01 0x0C03 ?a) ; post signs
- (0x0C05 0x0C14 ?V) ; LETTER A .. LETTER AU
- (0x0C15 0x0C39 ?C) ; LETTER KA .. LETTER HA
- (0x0C3E 0x0C40 ?u) ; VOWEL SIGN AA, I, II (above)
- (0x0C41 0x0C44 ?p) ; VOWEL SIGN U, UU, R, RR (post)
- (0x0C46 0x0C47 ?u) ; VOWEL SIGN E, EE (above)
- (0x0C48 ?t) ; VOWEL SIGN AI (two-part)
- (0x0C4A 0x0C4C ?u) ; VOWEL SIGN O, OO, AU (above)
- (0x0C4D ?H) ; SIGN VIRAMA (HALANT)
- (0x0C55 ?u) ; LENGTH MARK (above)
- (0x0C56 ?b) ; AI LENGTH MARK (below)
- (0x0C60 0x0C61 ?V) ; LETTER VOCALIC RR, LL
- (0x0C7E ?Y) ; internal use
- (0x0C7F ?X) ; internal use
+ (0x25CC ?X) ; DOTTED CIRCLE
+
+ (blwf ?B)
)
-;; Step 1 : Syllable identification and Halant movement.
+;; Stage 0
+;; Preprocessing
(generator
(0
(cond
- ;; A syllable containing a two-part vowel sign.
- ("(C(HC)*)(t)(a)?"
- < | (1 move-base-Halant) (3 0x0C46 0x0C56) (4 =) | >)
+ ;; Decompose two-part vowel signs.
+ ((0x0C48)
+ 0x0C46 0x0C56)
- ;; A syllable ending with vowel signs and/or a vowel modifier.
- ("(C(HC)*)([ubp]+a?|a)"
- < | (1 move-base-Halant) (3 = *) | >)
+ ("." =))
+ *))
- ;; Forced Halant form
- ("(CH)N"
- < | (1 move-base-Halant) | >)
+;; 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 = ) | >)
- ;; A syllable without a vowel sign nor a vowel modifier.
- ("C(HC)*H?"
- < | move-base-Halant | >)
+ ("." =))
+ *))
+
+;; 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 =))
+ ("." =)))
+ )
- ;; A syllable starting with an independent vowel.
- ("Va?"
- < | = * | > )
+;; 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 = *) |)
("." =))
*)
- ;; Move Halant on the base consonant to the tail if the syllable ends
- ;; with a consonant.
- ;; A leading 0x0C7F means Halant movement.
- ;; A leading 0x0C7E means a syllable ending with a Halant.
- (move-base-Halant
+ (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
- (".*H$"
- 0x0C7E = *)
- ("(.)(H)(.*)"
- 0x0C7F (1 =) (3 = *) (2 =))
- (".*"
- = *))))
-
-;; Step 2 : Move Matra if applicable.
-;; The base consonant in a Halant-ending syllable is changed into Halant form.
+ (" ([^ ]+) "
+ | (1 :otf=telu=pres,abvs,blws,psts,haln+) |)
+
+ ("." =))
+ *))
+
+;; Stage 6
+;; Remove ZWNJ/ZWJ
(generator
(0
(cond
- ;; 1 2 3 4 5 6
- (" X(.)([CH]*)(u)?(b)?(p)?(a)? "
- | (1 =) (3 =) (4 =) (5 =) (2 = *) (6 =) |)
- (" Y(..)([^ ]*) "
- | (1 otf:telu=haln) (2 = *) |)
+ ("[NJ]")
+
("." =))
*))
-;; Step 3 : Drive OTF tables.
+;; Stage 7
+;; GPOS processing
(generator
(0
(cond
- (" ([^ ]*) "
- (1 otf:telu))
- ("."
- [ otf:telu=+ ]))
+ (" ([^ ]+) "
+ (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:
projects / m17n / m17n-db.git / blobdiff