FLT/COMBINING.flt

   1 ;; COMBINING.flt -- Font Layout Table for combining diacritical marks
   2 ;; Copyright (C) 2003, 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> COMBINING.flt
  25 ;;;
  26 ;;; For combining diacritical marsk (U+0300..U+036F).
  27
  28 (font layouter combining nil)
  29
  30 (category
  31  ;; The contents is build up by the m17n-lib.
  32  )
  33
  34 (generator
  35  (0
  36   (cond
  37    ("(u)([a-t]+)"
  38     (cond
  39      ((font-facility :otf=DFLT+mark) < :otf=DFLT+mark >)
  40      (".*"
  41       <                                 ; combining class
  42       =                                 ; combining class
  43       (cond ("a" Bc.Bc =)               ; < 200
  44             ("b" bl.tc =)               ; 200
  45             ("c" bc.tc =)               ; 202
  46             ("d" br.tc =)               ; 204
  47             ("e" Bl.Br =)               ; 208
  48             ("f" Br.Bl =)               ; 210
  49             ("g" tl.bc =)               ; 212
  50             ("h" tc.bc =)               ; 214
  51             ("i" tr.bc =)               ; 216
  52             ("j" bl.tc =)               ; 218
  53             ("k" bc-tc =)               ; 220
  54             ("l" br-tc =)               ; 222
  55             ("m" Bl.Br =)               ; 224
  56             ("n" Br.Bl =)               ; 226
  57             ("o" tl+bc =)               ; 228
  58             ("p" tc+bc =)               ; 230
  59             ("q" tr+bc =)               ; 232
  60             ("r" br-tr =)               ; 233
  61             ("s" tr+br =)               ; 234
  62             ("t" bc-tc =))              ; 240
  63       * >)))
  64    ("[a-t]" [ = ])
  65    ("." =))
  66   *))