;; 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
-
-;; 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.
+;; Copyright (C) 2003, 2004, 2007, 2008 AIST (H15PRO112)
+;; See the end for copying conditions.
-;; 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
+ (font (nil nil unicode-bmp :otf=deva=rphf)))
;;; <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)))
-
(category
;; X: generic
;; C: consonant (except for RA)
(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
(0x097B 0x097C ?C) ; LETTER GGA .. JJA
(0x097E 0x097F ?C) ; LETTER DDDA .. BBA
(0x200C ?N) ; ZWNJ
(0x200D ?J) ; ZWJ
)
+;; Stage 0
;; Compose consonant and nukta
(generator
(0
("." =))
*))
-;; Reordering
+;; Stage 1
+;; Syllable identification and eordering.
(generator
(0
(cond
("[CR]n?(HJ?[CR]n?)*(H(N|J)?)?"
< | (0 nomarks) | >)
+ ;; This combination is used in Marathi.
+ ((0x0905 0x0945)
+ < | = = | >)
+
;; A syllable starting with an independent vowel.
;;1 2 3 4 5
("(V)(A)?(a)?(S)?(s)?"
(nomarks
(cond
- ;; Ending with a Halant and ZWJ.
+ ;; Ending with a Halant and a ZWJ.
(".+HJ$"
(0 del-reph) (0 reph))
(0 move-h) (0 reph))))
)
-;; Apply 'nukt' and 'akhn'.
-(generator
- (0
- (cond
- (" ([^ ]+) "
- | (1 otf:deva=nukt,akhn+) |)
- ("." =))
- *))
-
-;; Apply either 'half' or 'blwf' to consonants. If a syllable ends
-;; with a halant and a ZWNJ, render the final halant explicitly.
+;; Stage 2
+;; Apply GSUB features. If a syllable ends with a halant and a ZWNJ,
+;; render the final halant explicitly.
(generator
(0
(cond
;; Allow eyelash RA to appear at the beginning.
- (" (RH)J(.+)(H)N "
+ (" (RH)J([^ ]+)(H)N "
| (1 otf:deva=half+) (2 gsub) (3 =) |)
(" (m)?(RH)J([^ ]*) "
| (1 =) (2 otf:deva=half+) (3 gsub) |)
- ;; Avoid applying 'half' and 'blwf' to the initial RA.
- (" (R)(.*)(H)N "
+ ;; Avoid applying 'blwf' and 'half' to the "RH" at the beginning;
+ (" (R)([^ ]*)(H)N "
| (1 =) (2 gsub) (3 =) |)
(" (m?R)([^ ]*) "
- | (1 = *) (2 gsub) |)
+ | (1 otf:deva=pres+) (2 gsub) |)
- (" (.+)(H)N "
+ (" ([^ ]+)(H)N "
| (1 gsub) (2 =) |)
(" ([^ ]+) "
| (1 gsub) |)
("." =))
*)
- ;; Dispite Rule R5a (p.305), we use the below form to depict the
- ;; sequence "RHJ" at a non-initial position. This is to avoid
- ;; interpreting the sequence "CHRHJ" as "CH" + "RHJ". It should be
- ;; parsed as "CHR" + "HJ".
+ ;; Dispite Rule R5a (The Unicode Standard 5.0, p.305), we use the
+ ;; below form to depict the sequence "RHJ" at non-initial positions.
+ ;; This is to avoid interpreting the sequence "CHRHJ" as "CH" +
+ ;; "RHJ". It should be parsed as "CHR" + "HJ".
(gsub
(cond
- ("(.H)J?(.*)"
- (1 otf:deva=blwf,half+) (2 gsub))
- ("(.)(.*)"
- (1 =) (2 gsub))))
+ ("([^J]*)J(.*)"
+ (1 otf:deva=nukt,akhn,blwf,half,vatu,pres+) (2 gsub))
+ (".*"
+ otf:deva=nukt,akhn,blwf,half,vatu,pres+)))
)
+;; Stage 3
;; Apply other features.
(generator
(0
(cond
(" ([^ ]+) "
- (1 otf:deva=vatu,pres,abvs,blws,psts,haln+abvm,blwm,dist))
+ (1 otf:deva=abvs,blws,psts,haln+abvm,blwm,dist))
("."
[ = ]))
*))
+;; Copyright (C) 2003, 2004, 2007, 2008
+;; 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