From: ntakahas <ntakahas>
Date: Fri, 19 Oct 2007 10:55:19 +0000 (+0000)
Subject: Handle ZWJ correctly even if the current font does not contain it.
X-Git-Tag: REL-1-5-0~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6cd766394949d05002dfd1eefc70f1b8beccf4fa;p=m17n%2Fm17n-db.git

Handle ZWJ correctly even if the current font does not contain it.
---

diff --git a/FLT/DEVA-OTF.flt b/FLT/DEVA-OTF.flt
index ab6faa6..1a4996b 100644
--- a/FLT/DEVA-OTF.flt
+++ b/FLT/DEVA-OTF.flt
@@ -200,24 +200,18 @@
   *)
 
  ;; Dispite Rule R5a (The Unicode Standard 5.0, p.305), we use the
- ;; below form to depict the sequence "RHJ" at a non-initial position.
+ ;; below form to depict the sequence "RHJ" at non-initial positions.
  ;; This is to avoid interpreting the sequence "CHRHJ" as "CH" +
  ;; "RHJ".  It should be parsed as "CHR" + "HJ".
  (gsub
-  otf:deva=nukt,akhn,blwf,half,vatu,pres+)
+  (cond
+   ("([^J]*)J(.*)"
+    (1 otf:deva=nukt,akhn,blwf,half,vatu,pres+) (2 gsub))
+   (".*"
+    otf:deva=nukt,akhn,blwf,half,vatu,pres+)))
  )
 
 ;; Stage 3
-;; ZWJ's are used to prevent consonant conjuncts, so they are removed
-;; only after 'vatu' and 'pres' have been applied.
-(generator
- (0
-  (cond
-   ("J")
-   ("." =))
-  *))
-
-;; Stage 4
 ;; Apply other features.
 (generator
  (0