FLT/SYRC-OTF.flt

   1 ;; SYRC-OTF.flt -- Font Layout Table for Syriac OpenType font
   2 ;; Copyright (C) 2004, 2007
   3 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   4 ;;   Registration Number H15PRO112
   5
   6 ;; This file is part of the m17n database; a sub-part of the m17n
   7 ;; library.
   8
   9 ;; The m17n library is free software; you can redistribute it and/or
  10 ;; modify it under the terms of the GNU Lesser General Public License
  11 ;; as published by the Free Software Foundation; either version 2.1 of
  12 ;; the License, or (at your option) any later version.
  13
  14 ;; The m17n library is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 ;; Lesser General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU Lesser General Public
  20 ;; License along with the m17n library; if not, write to the Free
  21 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  22 ;; Boston, MA 02110-1301, USA.
  23
  24 ;;; <li> SYRC-OTF.flt
  25 ;;;
  26 ;;; For Syriac OpenType fonts to draw the Syriac script.
  27
  28 (font layouter syrc-otf nil
  29       (font (nil nil unicode-bmp :otf=syrc)))
  30
  31 ;; Step 1: Initial, medial, or final.
  32
  33 (category
  34  ;; D: Dual-joining
  35  ;; R: Right-joining
  36  ;; U: Non-joining
  37  ;; T: Transparent
  38  ;; A: ALAPH
  39  ;; r: DALATH, RISH, DOTLESS DALATH RISH
  40
  41  (0x0700 0x071F ?U)
  42  (0x0710        ?A)
  43  (0x0711        ?T)
  44  (0x0712 0x072E ?D)
  45  (0x0715 0x0716 ?r)
  46  (0x0717 0x0719 ?R)
  47  (0x071E        ?R)
  48  (0x0728        ?R)
  49  (0x072A        ?r)
  50  (0x072C        ?R)
  51  (0x072F        ?R)
  52  (0x0730 0x074A ?T)
  53  (0x074D        ?R)
  54  (0x074E 0x074F ?D)
  55
  56  (0x0303        ?T)
  57  (0x0330        ?T)
  58  (0x0304        ?T)
  59  (0x0331        ?T)
  60  (0x0307        ?T)
  61  (0x0323        ?T)
  62  (0x0308        ?T)
  63  (0x030A        ?T)
  64  (0x0325        ?T)
  65  (0x0324        ?T)
  66  (0x032D        ?T)
  67  (0x032E        ?T)
  68
  69  (0x064B 0x0655 ?T)
  70  (0x0670        ?T)
  71
  72  (0x200C        ?U)
  73  (0x200D        ?D)
  74  )
  75
  76 (generator
  77  (0
  78   (cond
  79    ("(r)(T*)(.*)"
  80     (1 otf:syrc=isol)
  81     (2 = *)
  82     (3 dalath-rish))
  83
  84    ("(D)(T*)([DRAr].*)"
  85     (1 otf:syrc=init)
  86     (2 = *)
  87     (3 join))
  88
  89    ("(T+)(.*)"
  90     (1 = *)
  91     (2 disjoin))
  92
  93    ("(.)(T*)(.*)"
  94     (1 otf:syrc=isol)
  95     (2 = *)
  96     (3 disjoin))))
  97
  98  (join
  99   (cond
 100    ("(r)(T*)(.*)"
 101     (1 otf:syrc=fina)
 102     (2 = *)
 103     (3 dalath-rish))
 104
 105    ("(D)(T*)([DRrA].*)"
 106     (1 otf:syrc=medi)
 107     (2 = *)
 108     (3 join))
 109
 110    ("(.)(T*)(.*)"
 111     (1 otf:syrc=fina)
 112     (2 = *)
 113     (3 disjoin))))
 114
 115  (disjoin
 116   (cond
 117    ("(D)(T*)([DRAr].*)"
 118     (1 otf:syrc=init)
 119     (2 = *)
 120     (3 join))
 121
 122    ("(r)(T*)(.*)"
 123     (1 otf:syrc=isol)
 124     (2 = *)
 125     (3 dalath-rish))
 126
 127    ("(A)(T*)([DRAr].*)"
 128     (1 otf:syrc=med2)
 129     (2 = *)
 130     (3 disjoin))
 131
 132    ("(A)(T*)(.*)"
 133     (1 otf:syrc=fin2)
 134     (2 = *)
 135     (3 disjoin))
 136
 137    ("(.)(T*)(.*)"
 138     (1 otf:syrc=isol)
 139     (2 = *)
 140     (3 disjoin))))
 141
 142  (dalath-rish
 143   (cond
 144    ("(D)(T*)([DRAr].*)"
 145     (1 otf:syrc=init)
 146     (2 = *)
 147     (3 join))
 148
 149    ("(r)(T*)(.*)"
 150     (1 otf:syrc=isol)
 151     (2 = *)
 152     (3 dalath-rish))
 153
 154    ("(A)(T*)([DRAr].*)"
 155     (1 otf:syrc=med2)
 156     (2 = *)
 157     (3 disjoin))
 158
 159    ("(A)(T*)(.*)"
 160     (1 otf:syrc=fin3)
 161     (2 = *)
 162     (3 disjoin))
 163
 164    ("(.)(T*)(.*)"
 165     (1 otf:syrc=isol)
 166     (2 = *)
 167     (3 disjoin)))))
 168
 169 ;; Step 2: Other GSUB features (ligatures, etc.)
 170
 171 (generator
 172  (0
 173   otf:syrc=rlig,calt,liga,dlig))
 174
 175 ;; Step 3: GPOS features.
 176
 177 (generator
 178  (0
 179   otf:syrc=))
 180
 181 ;; Local Variables:
 182 ;; mode: lisp
 183 ;; End: