-;; DEVA-OTF.flt -- Font Layout Table for Devanagari OpenType font
-;; Copyright (C) 2003, 2004, 2007
-;; National Institute of Advanced Industrial Science and Technology (AIST)
-;; Registration Number H15PRO112
+;; DEVA-OTF.flt -- Font Layout Table for Devanagari OpenType fonts
+;; Copyright (C) 2003, 2004, 2007, 2008, 2010 AIST (H15PRO112)
+;; See the end for copying conditions.
-;; 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.
+(font layouter deva-otf nil
+ (version "1.6.0")
+ (font (nil nil unicode-bmp :otf=deva)))
;;; <li> DEVA-OTF.flt
;;;
;;; For Devanagari OpenType fonts to draw the Devanagari script.
-(font layouter deva-otf nil
- (font (nil nil unicode-bmp :otf=deva=rphf)))
+;; Accepted modifier sequence:
+;; 1. matra (pre, below, above, post)
+;; 2. candrabindu (0901) or anusvara (0902)
+;; 3. udatta (0951) or anudatta (0952)
+;; 4. grave (0953) or acute (0954)
+;; 5. visarga (0903)
+
+;; Rendering glyph order:
+;; 1. below matra
+;; 2. anudatta (0952)
+;; 3. above- or post matra
+;; 4. reph
+;; 5. candrabindu (0901) or anusvara (0902)
+;; 6. udatta (0951)
+;; 7. visarga (0903)
(category
- ;; C: consonant (except for R)
+ ;; X: generic
+ ;; V: independent vowel
+ ;; C: consonant (except for RA)
;; R: consonant RA
;; n: NUKTA
;; H: HALANT
- ;; m: MATRA (pre)
- ;; u: MATRA (above)
- ;; b: MATRA (below)
- ;; p: MATRA (post)
- ;; A: vowel modifier (above)
- ;; a: vowel modifier (post)
- ;; S: stress sign (above)
- ;; s: stress sign (below)
- ;; V: independent vowel
- ;; N: ZWNJ (ZERO WIDTH NON-JOINER)
- ;; J: ZWJ (ZERO WIDTH JOINER)
- ;; E: ELSE
- ;;
- (#x0900 #x097F ?E) ; ELSE
- (#x0901 ?A) ; SIGN CANDRABINDU (above)
- (#x0902 ?A) ; SIGN ANUSVARA (above)
- (#x0903 ?a) ; SIGN VISARGA (post)
- (#x0905 #x0914 ?V) ; LETTER A .. LETTER AU
- (#x0915 #x0939 ?C) ; LETTER KA .. LETTER HA
- (#x0930 ?R) ; LETTER RA
- (#x093C ?n) ; SIGN NUKTA
- (#x093D ?E) ; SIGN AVAGRAHA
- (#x093E #x094C ?p) ; VOWEL SIGN (post)
- (#x093F ?m) ; VOWEL SIGN I (pre)
- (#x0941 #x0944 ?b) ; VOWEL SIGN (below)
- (#x0945 #x0948 ?u) ; VOWEL SIGN (above)
- (#x094D ?H) ; SIGN VIRAMA (HALANT)
- (#x0950 ?E) ; OM
- (#x0951 #x0954 ?S) ; STRESS SIGN or TONE MARK (above)
- (#x0952 ?s) ; STRESS SIGN or TONE MARK (below)
- (#x0958 #x095E ?C) ; LETTER QA .. LETTER YYA
- (#x0960 ?V) ; LETTER VOCALIC RR
- (#x0961 ?V) ; LETTER VOCALIC LL
- (#x0962 #x0963 ?b) ; VOWEL SIGN (below)
- (#x0964 #x0970 ?E) ; DANDA .. ABBREVIATION SIGN
- (#x200C ?N) ; ZWNJ
- (#x200D ?J) ; ZWJ
- (#x097D ?x) ; internally used tag to indicate Reph
- (#x097E ?y) ; internally used tag to indicate Mpost
- (#x097F ?z) ; internally used tag to indicate Cbase
+ ;; m: vowel sign (pre)
+ ;; u: vowel sign (above)
+ ;; b: vowel sign (below)
+ ;; p: vowel sign (post)
+ ;; a: vowel modifier (above)
+ ;; A: vowel modifier (post)
+ ;; s: stress sign / accent (above)
+ ;; S: stress sign (below)
+ ;; Z: internal use
+ ;; N: ZWNJ
+ ;; J: ZWJ
+ (0x0900 0x097F ?X) ; generic
+ (0x0900 0x0902 ?a) ; SIGN INVERTED CANDRABINDU .. ANUSVARA
+ (0x0903 ?A) ; SIGN VISARGA
+ (0x0904 0x0914 ?V) ; LETTER SHORT A .. AU
+ (0x0915 0x0939 ?C) ; LETTER KA .. HA
+ (0x0930 ?R) ; LETTER RA
+ (0x093C ?n) ; SIGN NUKTA
+ (0x093E ?p) ; VOWEL SIGN AA
+ (0x093F ?m) ; VOWEL SIGN I
+ (0x0940 ?p) ; VOWEL SIGN II
+ (0x0941 0x0944 ?b) ; VOWEL SIGN UU .. VOCALIC RR
+ (0x0945 0x0948 ?u) ; VOWEL SIGN CANDRA E .. AI
+ (0x0949 0x094C ?p) ; VOWEL SIGN CANDRA O .. AU
+ (0x094D ?H) ; SIGN VIRAMA
+ (0x094E ?m) ; VOWEL SIGN PRISHTHAMATRA E
+ (0x0951 ?s) ; STRESS SIGN UDATTA
+ (0x0952 ?S) ; STRESS SIGN ANUDATTA
+ (0x0953 0x0954 ?t) ; GRAVE ACCENT .. ACUTE ACCENT
+ (0x0955 ?u) ; VOWEL SIGN CHANDRA LONG E
+ (0x0958 0x095F ?C) ; LETTER QA .. YYA
+ (0x0960 0x0961 ?V) ; LETTER VOCALIC RR .. VOCALIC LL
+ (0x0962 0x0963 ?b) ; VOWEL SIGN VOCALIC L .. VOCALIC LL
+ (0x0972 ?V) ; LETTER CANDRA A
+ (0x0979 0x097F ?C) ; LETTER ZHA .. BBA
+
+ (0x200C ?N) ; ZWNJ
+ (0x200D ?J) ; ZWJ
+ (0x25CC ?X) ; DOTTED CIRCLE
+
+ (rphf ?r)
+ )
+
+;; Stage 0
+;; Preprocessing
+(generator
+ (0
+ (cond
+ ;; Compose a consonant and a nukta
+ ((0x0928 0x093C) 0x0929)
+ ((0x0930 0x093C) 0x0931)
+ ((0x0933 0x093C) 0x0934)
+ ((0x0915 0x093C) 0x0958)
+ ((0x0916 0x093C) 0x0959)
+ ((0x0917 0x093C) 0x095A)
+ ((0x091C 0x093C) 0x095B)
+ ((0x0921 0x093C) 0x095C)
+ ((0x0922 0x093C) 0x095D)
+ ((0x092B 0x093C) 0x095E)
+ ((0x092F 0x093C) 0x095F)
+
+ ("." =))
+ *))
+
+;; Stage 1
+;; Syllable identification
+(generator
+ (0
+ (cond
+ ;; Syllables with an independent vowel
+ ;;
+ ("(RH)?(Vn?)((J?HR)?m?u?b?p?n?a?[sS]?t?A?)"
+ < | (1 = =) (2 :otf=deva=nukt+) (3 = *) | >)
+
+ ;; Consonant-based syllables
+ ;;1 23 4
+ ("([CR]n?((J?H|HJ?)[CR]n?)*)(H[NJ]?|m?u?b?p?n?a?[sS]?t?A?)"
+ < |
+ (cond
+ (".+HJ$" :otf=deva=nukt,akhn+)
+ ("(.+)(H)N?$" (1 :otf=deva=nukt,akhn+) (2 =) 0x200C)
+ (".+" :otf=deva=nukt,akhn+))
+ | >)
+
+ ;; Combining marks are displayed with a DOTTED CIRCLE.
+ ("m"
+ (cond
+ ((font-facility 0x25CC) < = 0x25CC >)
+ ("." [ = ])))
+ ("[nHubpaSsA]"
+ (cond
+ ((font-facility 0x25CC) < 0x25CC = >)
+ ("." [ = ])))
+
+ ;; Isolated blwf is displayed with a DOTTED CIRCLE in the next stage.
+ ("(J)(H)(R)"
+ < | (1 =) (3 =) (2 =) | >)
+
+ ("." =))
+ *))
+
+;; Stage 2
+;; Reorder halant for blwf
+(generator
+ (0
+ (cond
+ ;; Isolated blwf
+ (" J(RH) "
+ (cond
+ ((font-facility 0x25CC) < 0x25CC :otf=deva=blwf+ >)
+ (" J(RH) " [ (1 :otf=deva=blwf+) ])))
+
+ ;; Syllables with an overt halant
+ (" (RHJ?)?([^ ]+)(HN) "
+ | (1 = *) (2 reorder) (3 = =) |)
+
+ ;; Ordinary syllables
+ (" (RHJ?)?([^mubpasStA ]+)(m?u?b?p?n?a?[sS]?t?A?) "
+ | (1 = *) (2 reorder) (3 = *) |)
+
+ ("." =))
+ *)
+
+ ;; In Devanagari and Gujarati, vattu has a half form. Thus we handle
+ ;; the sequence CHRHC as (CH)half + (RH)blwf + C instead of
+ ;; reordering and interpreting it as C + (RH)blwf + H + C.
+ (reorder
+ (cond
+ ("(.+)(H)(R)$" (1 = *) (3 =) (2 =))
+ (".+" = *)))
)
-;; The first stage is to extract a syllable and re-order characters in
-;; it.
+;; Stage 3
+;; Language forms and matra reordering
(generator
(0
(cond
- ;; If [CR]H is followed by ZWNJ/ZWJ, move ZWNJ/ZWJ to the head so
- ;; that the later stages find it quickly.
- ("([CR]n?H)([NJ])"
- < | (2 =) (1 = *) | > )
-
- ;; A syllable starting with RH (Reph) and ending with a vowel
- ;; and/or a vowel modifier.
- ("(RH)(([CR]n?H)*[CR]n?)([mubp][Aa]?[Ss]?|[Aa][Ss]?|[Ss])"
- < | (1 #x097D = =) (2 move-base-Halant) (4 reorder-post-base) | >)
-
- ;; A syllable starting with RH (Reph) and ending without a vowel
- ;; nor a vowel modifier.
- ("(RH)(([CR]n?H)*[CR]n?)(H)?"
- < | (1 #x097D = =) (2 move-base-Halant) (4 =) | >)
-
- ;; A syllable starting with the other consonant and ending with a
- ;; vowel and/or a vowel modifier.
- ("(([CR]n?H)*[CR]n?)([mubp][Aa]?[Ss]?|[Aa][Ss]?|[Ss])"
- < | (1 move-base-Halant) (3 reorder-post-base) | >)
-
- ;; A syllable starting with the other consonant and ending without
- ;; a vowel nor a vowel modifier.
- ("(([CR]n?H)*[CR]n?)(H)?"
- < | (1 move-base-Halant) (3 =) | >)
-
- ;; A syllable starting with an independent vowel.
- ("V[Aa]?[Ss]?"
- < | = * | > )
+ ;; Overt halant forms
+ (" (RHJ?)?([^ ]+)(HN) "
+ |
+ (1 (cond ("RHJ" :otf=deva=half+)
+ ("RH" :otf=deva=rphf+)))
+ (2 (cond ("(.H)J?(.*)" (1 :otf=deva=half+) (2 lang-forms *))
+ (".+" lang-forms *)))
+ (3 = =) |)
+
+ ;; Other syllables
+ ;; 1 2 3 4 5 6 7 8
+ (" (RHJ?)?([^mubpasStA ]*)(mn?)?(un?)?(bn?)?(p?n?a?)(S)?(s?t?A?) "
+ | (3 = *)
+ (1 (cond ("RHJ" :otf=deva=half+)
+ ("RH" :otf=deva=rphf+)))
+ (2 (cond ("(.H)J?(.*)" (1 :otf=deva=half+) (2 lang-forms *))
+ (".+" lang-forms *)))
+ (5 = *) (7 =) (4 = *) (6 = *) (8 = *) |)
("." =))
*)
- ;; Move Halant on a base consonant to the tail.
- (move-base-Halant
+ (lang-forms
(cond
- ("(([CR]n?H)*[CR]n?)(H)(R)"
- (1 = *)
- (4 =)
- (3 =))
- (".*"
- = *)))
-
- ;; Re-order post modifiers.
- (reorder-post-base
- ;; 12 3 4 5 67 8 9 10
- ("((m)|(u)|(b)|(p))?((A)|(a))?((S)|(s))?$"
- (2 =) (4 =) (10 =) (3 =) (5 =)
- #x097E
- (7 =) (9 =) (8))))
-
-;; The second stage is to reorder Reph and Mpre.
+ ("(.H)J" (1 :otf=deva=half+))
+ (".H" :otf=deva=blwf,half+)
+ ("." =)))
+ )
+
+;; Stage 4
+;; Final reordering #1 (Move pre-base matra after the last halant)
(generator
(0
(cond
- (" [NJ]([^ ]*) "
- = *)
- (" (x(..))([CRnH]*) "
- | (3 = *) (2 otf:deva=rphf) |)
- (" (x(..))([CRnH]*)(m?)([^y]*)y([^ ]*) "
- | (4 =) (3 = *) (5 = *) (2 otf:deva=rphf) (6 = *) |)
- (" ([CRnH][CRnH]*) "
- = *)
- (" ([CRnH][CRnH]*)(m?)([^y]*)y([^ ]*) "
- | (2 =) (1 = *) (3 = *) (4 = *) |)
+ ;; 1 2 3
+ (" (mn?)([^ ]+HJ?)([^H ]+) "
+ | (2 = *) (1 = *) (3 = *) |)
+
("." =))
*))
-;; The third stage is to drive OTF tables. For the moment, we use
-;; the default LangSys, and try all GSUB/GPOS features except for the
-;; sequence followed by ZWNJ in which case try "nukt" and "haln"
-;; features only.
+;; Stage 5
+;; Final reordering #2 (Move reph after the first halant)
(generator
(0
(cond
- (" N([^ ]*) "
- (1 otf:deva=nukt,haln))
+ ;; Syllables with a reph and an explicit halant
+ ;; 1 2 3 4
+ (" (mn?)?(r)([^H ]+HJ?)([^ ]*) "
+ | (1 = *) (3 = *) (2 =) (4 = *) |)
+
+ ;; A reph without explicit halant
+ ;; 1 2 3 4
+ (" (mn?)?(r)([^astA ]+)(a?s?t?A?) "
+ | (1 = *) (3 = *) (2 =) (4 = *) |)
- (" J([^ ]*) "
- (1 otf:deva))
+ ("." =))
+ *))
- (" ([^ ]*)(CH) "
- (1 otf:deva=~rphf,*) (2 otf:deva=haln))
+;; Stage 6
+;; Nukta for matra, vattu and presentation forms
+(generator
+ (0
+ (cond
+ (" ([^ ]+) "
+ | (1 :otf=deva=nukt,vatu,pres,abvs,blws,psts,haln+) |)
+
+ ("." =))
+ *))
+
+;; Stage 7
+;; Remove ZWNJ/ZWJ
+(generator
+ (0
+ (cond
+ ("[NJ]")
+
+ ("." =))
+ *))
- (" ([^ ]*) "
- (1 otf:deva=~rphf,*))
+;; Stage 8
+;; GPOS processing
+(generator
+ (0
+ (cond
+ (" ([^ ]+) "
+ (1 :otf=deva=+abvm,blwm,dist))
- ("."
- \[ otf:deva=+ \] ))
+ ("." =))
*))
+;; Copyright (C) 2003, 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: