;; GUJR-OTF.flt -- Font Layout Table for Gujarati OpenType fonts
;; Copyright (C) 2004, 2007 AIST (H15PRO112)
;; See the end for copying conditions.
(font layouter gujr-otf nil
(font (nil nil unicode-bmp :otf=gujr=rphf)))
;;;
GUJR-OTF.flt
;;;
;;; For Gujarati OpenType fonts to draw the Gujarati script.
(category
;; C: consonant (except for RA)
;; R: consonant RA
;; n: NUKTA
;; H: HALANT
;; m: vowel sign (pre)
;; u: vowel sign (above)
;; b: vowel sign (below)
;; p: vowel sign (post)
;; A: vowel modifier (above)
;; a: vowel modifier (post)
;; V: independent vowel
;; N: ZWNJ
;; J: ZWJ
;; X: generic
(0x0A80 0x0AFF ?X) ; generic
(0x0A81 0x0A82 ?A) ; SIGN CANDRABINDU .. ANUSVARA
(0x0A83 ?a) ; SIGN VISARGA
(0x0A85 0x0A94 ?V) ; LETTER AA .. AU
(0x0A95 0x0AB9 ?C) ; LETTER KA .. HA
(0x0AB0 ?R) ; LETTER RA
(0x0ABC ?n) ; SIGN NUKTA
(0x0ABE ?p) ; VOWEL SIGN AA
(0x0ABF ?m) ; VOWEL SIGN I
(0x0AC0 ?p) ; VOWEL SIGN II
(0x0AC1 0x0AC4 ?b) ; VOWEL SIGN U .. VOCALIC RR
(0x0AC5 0x0AC8 ?u) ; VOWEL SIGN CANDRA E .. AI
(0x0AC9 0x0ACC ?p) ; VOWEL SIGN CANDRA O .. AU
(0x0ACD ?H) ; SIGN VIRAMA
(0x0AE0 0x0AE1 ?V) ; LETTER VOCALIC RR .. VOCALIC LL
(0x0AE2 0x0AE3 ?b) ; VOWEL SIGN VOCALIC L .. VOCALIC LL
(0x0964 0x0965 ?X) ; DANDA .. DOUBLE DANDA
(0x200C ?N) ; ZWNJ
(0x200D ?J) ; ZWJ
)
;; Syllable identification and reordering.
(generator
(0
(cond
;; A syllable containing a vowel sign.
;;1 2 34 5 6
("([CR]n?(HJ?[CR]n?)*)((m)|(b|u|p))(A|a)?"
< | (4 =) (1 move-h) (5 =) (1 reph) (6 =) | >)
;; A syllable without vowel signs but with a vowel modifier.
;;1 2 3
("([CR]n?(HJ?[CR]n?)*)(A|a)"
< | (1 move-h) (1 reph) (3 =) | >)
;; No marks at all. Need further anylysis.
("[CR]n?(HJ?[CR]n?)*(H(N|J)?)?"
< | (0 nomarks) | >)
;; A syllable starting with an independent vowel.
("V(A|a)?"
< | = * | >)
("." =))
*)
(move-h
(cond
("RH(.+)(H)(R)$"
(1 = *) (3 =) (2 =))
("RH(.+)"
(1 = *))
("(.+)(H)(R)$"
(1 = *) (3 =) (2 =))
(".+"
= *)))
(reph
(cond
("(RH).*"
(1 otf:gujr=rphf+))))
(del-reph
(cond
("(RH)?(.*)"
(2 = *))))
(nomarks
(cond
;; Ending with a Halant and a ZWJ.
(".+HJ$"
(0 del-reph) (0 reph))
;; Ending with a Halant and an optional ZWNJ. Add ZWNJ explicitly.
("(.+)(H)N?$"
(1 move-h) (1 reph) (2 =) 0x200C)
;; Ending with a consonant.
(".+"
(0 move-h) (0 reph))))
)
;; Apply GSUB features. If a syllable ends with a halant and a ZWNJ,
;; render the final halant explicitly. Do not apply 'blwf' to the
;; initial RA.
(generator
(0
(cond
(" (R)([^ ]*)(H)N "
| (1 =) (2 gsub) (3 =) |)
(" (m?R)([^ ]*) "
| (1 otf:gujr=pres+) (2 gsub) |)
(" ([^ ]+)(H)N "
| (1 gsub) (2 =) |)
(" ([^ ]+) "
| (1 gsub) |)
("." =))
*)
(gsub
(cond
("([^J]*)J(.*)"
(1 otf:gujr=nukt,akhn,blwf,half,vatu,pres+) (2 gsub))
(".*"
otf:gujr=nukt,akhn,blwf,half,vatu,pres+)))
)
;; Apply other features.
(generator
(0
(cond
(" ([^ ]+) "
(1 otf:gujr=abvs,blws,psts,haln+abvm,blwm,dist))
("."
[ = ]))
*))
;; 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.
;; 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: