New file

diff --git a/GUR-OTF.flt b/GUR-OTF.flt
new file mode 100644 (file)
index 0000000..a0dff3f
--- /dev/null
+++ b/GUR-OTF.flt
@@ -0,0 +1,139 @@
+;; GUR-OTF.flt -- Font Layout Table for Gurmukhi OpenType fonts
+;; Copyright (C) 2004
+;;   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., 59 Temple Place, Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; <li> GUR-OTF.flt
+;;;
+;;; For Gurmukhi OpenType fonts to draw Punjabi.  
+;;; Designed for saab.otf (version 0.91).
+;;; <http://guca.sourceforge.net/typography/fonts/saab/index.shtml>
+
+(category
+ ;; C: general consonant
+ ;; Y: post-base consonat (YA)
+ ;; R: below-base consonat (RA, VA, HA)
+ ;; n: NUKTA
+ ;; H: HALANT
+ ;; m: MATRA (pre)
+ ;; u: MATRA (above)
+ ;; b: MATRA (below)
+ ;; p: MATRA (post)
+ ;; A: vowel modifier (above)
+ ;; a: vowel modifier (post)
+ ;; V: independent vowel
+ ;; N: ZWNJ (ZERO WIDTH NON-JOINER)
+ ;; J: ZWJ (ZERO WIDTH JOINER)
+ ;; E: ELSE
+ ;;
+ (0x200C       ?N)                     ; ZWNJ
+ (0x200D       ?J)                     ; ZWJ
+ (0x0A00 0x0A7F        ?E)                     ; ELSE
+ (0x0A01       ?A)                     ; SIGN ADAK BINDI (above)
+ (0x0A02       ?A)                     ; SIGN BINDI (above)
+ (0x0A03       ?a)                     ; SIGN VISARGA (post)
+ (0x0A05 0x0A14        ?V)                     ; LETTER A .. LETTER AU
+ (0x0A15 0x0A38 ?C)                    ; LETTER KA .. LETTER SA
+ (0x0A2F       ?Y)                     ; LETTER YA
+ (0x0A30       ?R)                     ; LETTER RA
+ (0x0A35       ?R)                     ; LETTER VA
+ (0x0A39       ?R)                     ; LETTER HA
+ (0x0A3C       ?n)                     ; SIGN NUKTA
+ (0x0A3E       ?p)                     ; VOWEL SIGN AA (post)
+ (0x0A3F       ?m)                     ; VOWEL SIGN I (pre)
+ (0x0A40       ?p)                     ; VOWEL SIGN II (post)
+ (0x0A41       ?b)                     ; VOWEL SIGN U (below)
+ (0x0A42       ?b)                     ; VOWEL SIGN UU (below)
+ (0x0A47       ?u)                     ; VOWEL SIGN EE (above)
+ (0x0A48       ?u)                     ; VOWEL SIGN AI (above)
+ (0x0A4B       ?u)                     ; VOWEL SIGN OO (above)
+ (0x0A4C       ?u)                     ; VOWEL SIGN AU (above)
+ (0x0A4D       ?H)                     ; SIGN VIRAMA (HARANT)
+ (0x0A59 0x0A5E        ?C)                     ; LETTER KHHA .. LETTER FA
+ (0x0A70       ?A)                     ; TIPPI (above)
+ (0x0A7F       ?X)                     ; internal use
+ )
+
+;; Step 1 : Syllable identification and Halant movement.
+(generator
+ (0
+  (cond
+   ;; A syllable ending with a vowel sign and/or a vowel modifier.
+   ("(([CRY]n?H)*[CRY]n?)([mubp][Aa]?|[Aa])"
+    < | (1 move-base-Halant) (3 =) | >)
+
+   ;; A syllable without a vowel sign nor a vowel modifier.
+   ("(([CRY]n?H)*[CRY]n?)(H)?"
+    < | (0 move-base-Halant) | >)
+
+   ;; A syllable starting with an independent vowel.
+   ("V[Aa]?"
+    < | = * | > )
+
+   ("." =))
+  *)
+
+ ;; Move Halant on the base consonant to the tail.
+ ;; 0x0A7F indicates the postion for above- or below Matra.
+ (move-base-Halant
+  (cond
+   ("(([CRY]n?H)*[CRY]n?)(H)(Y)"
+    (1 = *)
+    0x0A7F
+    (4 =)
+    (3 =))
+   ("(([CRY]n?H)*[CRY]n?)(H)(R)"
+    (1 = *)
+    (4 =)
+    (3 =)
+    0x0A7F)
+   ("([CRY]n?H)*[CRY]n?H"
+    = * 0x200C)
+   (".*"
+    = * 0x0A7F))))
+
+;; Step 2 : Move Matra.
+(generator
+ (0
+  (cond
+   ;; 1          2    3   4      5   6
+   (" ([CRYnH]*)X(YH)?(m)?([ub])?(p)?([Aa])? "
+    | (3 =) (1 = *) (4 =) (2 = =) (5 =) (6 =) |)
+   ("." =))
+  *))
+
+;; Step 3 : Drive OTF tables.
+(generator
+ (0
+  (cond
+   (" ([^ ]*HN) "
+    (1 otf:guru=nukt))
+   (" ([^ ]*) "
+    (1 otf:guru=nukt,vatu,pstf,abvs,blws))
+   ((0x0A71)
+    otf:guru)
+   ("."
+    [ otf:guru=+ ] ))
+  *))
+
+;; Local Variables:
+;; mode: emacs-lisp
+;; End: