<h2>Edit File: ORYA-OTF.flt</h2><form method="post"><textarea name="content" rows="20" cols="80">;; ORYA-OTF.flt -- Font Layout Table for Oriya OpenType font
;; Copyright (C) 2004, 2007, 2008, 2010 AIST (H15PRO112)
;; See the end for copying conditions.

(font layouter orya-otf nil
      (version &quot;1.6.0&quot;)
      (font (nil nil unicode-bmp :otf=orya)))

;;; &lt;li&gt; ORYA-OTF.flt
;;;
;;; For Oriya OpenType fonts to draw the Oriya script.

(category
 ;; B: consonants that have a below form
 ;; C: consonants that do not
 ;; This table is made for Samyak-Oriya.ttf and utkal.ttf.
 ;; (lohit_or.ttf has more below form consonants.)
 (0x0B00 0x0B7F ?X)			; generic
 (0x0B01	?a)			; SIGN CANDRABINDU
 (0x0B02 0x0B03	?A)			; SIGN ANUSVARA .. VISARGA
 (0x0B05 0x0B14	?V)			; LETTER A .. VOCALIC AU
 (0x0B15 0x0B39	?B)			; LETTER KA .. HA
 (0x0B18 0x0B1A	?C)			; LETTER GHA .. CA
 (0x0B1E	?C)			; LETTER NYA
 (0x0B22	?C)			; LETTER DDHA
 (0x0B25 0x0B26	?C)			; LETTER THA .. DA
 (0x0B2F	?Y)			; LETTER YA
 (0x0B30	?R)			; LETTER RA
 (0x0B36 0x0B37	?C)			; LETTER SHA .. SSA
 (0x0B3C	?n)			; SIGN NUKTA
 (0x0B3E	?p)			; VOWEL SIGN AA
 (0x0B3F	?u)			; VOWEL SIGN I
 (0x0B40	?p)			; VOWEL SIGN II
 (0x0B41 0x0B44	?b)			; VOWEL SIGN U .. VOCALIC RR
 (0x0B47	?m)			; VOWEL SIGN E
 (0x0B4D	?H)			; SIGN VIRAMA
 (0x0B56	?u)			; AI LENGTH MARK
 (0x0B57	?p)			; AU LENGTH MARK
 (0x0B5C 0x0B5D	?C)			; LETTER RRA .. RHA
 (0x0B5F	?Y)			; LETTER YYA
 (0x0B60 0x0B61	?V)			; LETTER VOCALIC RR .. LL
 (0x0B62 0x0B63 ?b)			; VOWEL SIGN VOCALIC L .. LL
 (0x0B71	?C)			; LETTER WA

 (0x200C	?N)			; ZWNJ
 (0x200D	?J)			; ZWJ
 (0x25CC	?X)			; DOTTED CIRCLE

 (rphf		?r)
 (pstf		?P)
 )

;; Stage 0
;; Preprocessing
(generator
 (0
  (cond
   ;; Decompose two-part vowel signs.
   ((0x0B48)
    0x0B47 0x0B56)
   ((0x0B4B)
    0x0B47 0x0B3E)
   ((0x0B4C)
    0x0B47 0x0B57)

   ;; Compose consonant and nukta.
   ((0x0B21 0x0B3C)
    0x0B5C)
   ((0x0B22 0x0B3C)
    0x0B5D)

   (&quot;.&quot; =))
  *))

;; Stage 1
;; Syllable identification
(generator
 (0
  (cond
   ;; Syllables with an independent vowel
   (&quot;(RH)?(Vn?)((J?H[BYR])?m?u?b?p?n?a?A?)&quot;
    &lt; | (1 = =) (2 :otf=orya=nukt+) (3 = *) | &gt;)

   ;; Consonant-based syllables
   ;;1        23                   4
   (&quot;([CBYR]n?((J?H|HJ?)[CBYR]n?)*)(H[NJ]?|m?u?b?p?n?a?A?)&quot;
    &lt; |
    (cond
     (&quot;.+HJ$&quot; :otf=orya=nukt,akhn+)
     (&quot;(.+)(H)N?$&quot; (1 :otf=orya=nukt,akhn+) (2 =) 0x200C)
     (&quot;.+&quot; :otf=orya=nukt,akhn+))
    | &gt;)

   ;; Two-part vowel signs
   ((0x0B47 0x0B56)
    (cond
     ((font-facility 0x25CC) &lt; = 0x25CC = &gt;)
     (&quot;.+&quot; [ 0x0B48 ])))
   ((0x0B47 0x0B3E)
    (cond
     ((font-facility 0x25CC) &lt; = 0x25CC = &gt;)
     (&quot;.+&quot; [ 0x0B4B ])))
   ((0x0B47 0x0B57)
    (cond
     ((font-facility 0x25CC) &lt; = 0x25CC = &gt;)
     (&quot;.+&quot; [ 0x0B4C ])))

   ;; Combining marks are displayed with a DOTTED CIRCLE.
   (&quot;m&quot;
    (cond
     ((font-facility 0x25CC) &lt; = 0x25CC &gt;)
     (&quot;.&quot; [ = ])))
   (&quot;[nHubpaA]&quot;
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC = &gt;)
     (&quot;.&quot; [ = ])))

   ;; Isolated blwf and pstf are displayed with a DOTTED CIRCLE in the
   ;; next stage.
   (&quot;(J)(H)([BYR])&quot;
    &lt; | (1 =) (3 =) (2 =) | &gt;)

   (&quot;.&quot; =))
  *))

;; Stage 2
;; Reorder halant for blwf and pstf
(generator
 (0
  (cond
   ;; Isolated blwf and pstf
   (&quot; J([BYR]H) &quot;
    (cond
     ((font-facility 0x25CC) &lt; 0x25CC (1 :otf=orya=blwf,pstf+) &gt;)
     (&quot; J([BYR]H) &quot; [ (1 :otf=orya=blwf,pstf+) ])))

   ;; Syllables with an overt halant
   (&quot; (RHJ?)?([^ ]+)(HN) &quot;
    | (1 = *) (2 reorder) (3 = =) |)

   ;; Ordinary syllables
   (&quot; (RHJ?)?([^mubpaA ]+)(m?u?b?p?n?a?A?) &quot;
    | (1 = *) (2 reorder) (3 = *) |)

   (&quot;.&quot; =))
  *)

 (reorder
  (&quot;(.|.+([^YJ]|JY|HJ))((J?HY)*)$&quot;
   (1 reorder-BR *) (3 reorder-Y *)))

 (reorder-BR
  (cond
   (&quot;J?(H)([BR])&quot;
    (2 =) (1 =))
   (&quot;.&quot; =)))

 (reorder-Y
  (&quot;J?(H)(Y)&quot;
   (2 =) (1 =)))
 )

;; Stage 3
;; Language forms and matra reordering
(generator
 (0
  (cond
   ;; Overt halant forms
   (&quot; (RHJ?)?([^ ]+)(HN) &quot;
    |
    (1 (cond (&quot;RHJ&quot; :otf=orya=half+)
	     (&quot;RH&quot; :otf=orya=rphf+)))
    (2 b4post) (2 post) (3 = =) |)

   ;; Other syllables
   ;; 1      2            3     4     5     6     7   8
   (&quot; (RHJ?)?([^mubpaA ]*)(mn?)?(un?)?(bn?)?(pn?)?(a)?(A)? &quot;
    | (3 = *)
    (1 (cond (&quot;RHJ&quot; :otf=orya=half+)
	     (&quot;RH&quot; :otf=orya=rphf+)))
    (2 b4post) (5 = *) (4 = *) (7 =) (2 post) (6 = *) (8 =) |)

   (&quot;.&quot; =))
  *)

 ;; Oriya should not have half forms nor vatu forms, but
 ;; Samyak-Oriya.ttf and utkal.ttf do have them.
 (b4post
  (cond
   (&quot;(.H)J?(.*)&quot;
    (1 :otf=orya=half+)
    (2 (&quot;(.|.+([^YH]|JY|[BR]H))((YH)*)$&quot; (1 lang-forms *))))
   (&quot;(.|.+([^YH]|JY|[BR]H))((YH)*)&quot;
    (1 lang-forms *))))

 (lang-forms
  (cond
   (&quot;(.H)J&quot; (1 :otf=orya=half+))
   (&quot;.H&quot; :otf=orya=blwf,half,vatu+)
   (&quot;.&quot; =)))

 (post
  (&quot;(.|.+([^YH]|JY|[BR]H))((YH)+)$&quot;
   (3 :otf=orya=pstf+)))
 )

;; Stage 4
;; Final reordering #1 (Move pre-base matra after the last halant)
(generator
 (0
  (cond
   ;; 1    2         3
   (&quot; (mn?)([^ ]+HJ?)([^H ]+) &quot;
    | (2 = *) (1 = *) (3 = *) |)

   (&quot;.&quot; =))
  *))

;; Stage 5
;; Final reordering #2 (Move reph after the first halant)
(generator
 (0
  (cond
   ;; Syllables with a reph and an overt halant
   ;; 1     2  3           4
   (&quot; (mn?)?(r)([^HP ]+HJ?)([^ ]*) &quot;
    | (1 = *) (3 = *) (2 =) (4 = *) |)

   ;; A reph without overt halant
   ;; 1     2  3          4
   (&quot; (mn?)?(r)([^aPpA ]+)(a?P*(HN)?p?n?A?) &quot;
    | (1 = *) (3 = *) (2 =) (4 = *) |)

   (&quot;.&quot; =))
  *))

;; Stage 6
;; Nukta for matra and Presentation forms
(generator
 (0
  (cond
   (&quot; ([^ ]+) &quot;
    | (1 :otf=orya=nukt,pres,abvs,blws,psts,haln+) |)

   (&quot;.&quot; =))
  *))

;; Stage 7
;; Remove ZWNJ/ZWJ
(generator
 (0
  (cond
   (&quot;[NJ]&quot;)

   (&quot;.&quot; =))
  *))

;; Stage 8
;; GPOS processing
(generator
 (0
  (cond
   (&quot; ([^ ]+) &quot;
    (1 :otf=orya=+abvm,blwm,dist))

   (&quot;.&quot; =))
  *))

;; Copyright (C) 2004, 2007, 2008, 2010
;;   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:
</textarea><br><input type="hidden" name="edit_file" value="ORYA-OTF.flt"><input type="submit" value="Save"></form>