From: imiyazaki <imiyazaki>
Date: Tue, 27 Jan 2004 15:33:07 +0000 (+0000)
Subject: fix space between punctuation and CJK character.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5a5e431819878e0b4e9c46ebe2ff43678d7f3ca3;p=chise%2Fomega.git

fix space between punctuation and CJK character.
---

diff --git a/inCHISE b/inCHISE
index b202d60..7a49830 100755
--- a/inCHISE
+++ b/inCHISE
@@ -196,10 +196,10 @@ while(<>){
 	    if($i>0 and $i<$#chars){
 		if(($chars[$i-1]=~/[$asian]/
 		    and $chars[$i+1]=~/[^$asian]/
-		      and $chars[$i+1]=~/[^$strictly_forbidden_after$slightly_forbidden_after]/)
+		      and $chars[$i+1]=~/[$strictly_forbidden_before$slightly_forbidden_before]/)
 		   or($chars[$i-1]=~/[^$asian]/
 		      and $chars[$i+1]=~/[$asian]/
-		      and $chars[$i-1]=~/[^$strictly_forbidden_before$slightly_forbidden_before]/)
+		      and $chars[$i-1]=~/[$strictly_forbidden_after$slightly_forbidden_after]/)
 		   ){
 		    print '';
 		}elsif(($chars[$i-1]=~/[$asian]/
@@ -327,11 +327,11 @@ sub add_break{
     if($i<($#chars-1)){
 	if(($chars[$i+1]=~m/[$strictly_forbidden_before]/o)
 	   and($chars[$i+2]=~m/[$strictly_forbidden_before]/o)){
-	    return "\\CJKunbreakablekernone ";
+	    return "\\CJKunbreakablekernone{}";
 	}elsif($opt_protrude){
 	    if(($chars[$i+1]=~m/[$strictly_forbidden_before]/o)
 	       and($chars[$i+2]=~m/[^$strictly_forbidden_before]/o)){
-		return "\\CJKunbreakablekernone \\CJKprotrude ";
+		return "\\CJKunbreakablekernone \\CJKprotrude{}";
 	    }
 	}
     }
@@ -342,31 +342,31 @@ sub add_break{
     }
     if(($i<$#chars)
        and($chars[$i+1]=~m/[$strictly_forbidden_before]/o)){
-	return "\\CJKunbreakablekernone ";
+	return "\\CJKunbreakablekernone{}";
     }
     if($chars[$i]=~m/[$strictly_forbidden_after]/o){
-	return "\\CJKunbreakablekernone ";
+	return "\\CJKunbreakablekernone{}";
     }
     if(($i<$#chars)
        and($chars[$i+1]=~m/[$forbidden_before]/o)){
-	return "\\CJKunbreakablekerntwo ";
+	return "\\CJKunbreakablekerntwo{}";
 
     }
     if($chars[$i]=~m/[$forbidden_after]/o){
-	return "\\CJKunbreakablekerntwo ";
+	return "\\CJKunbreakablekerntwo{}";
     }
     if(($i<$#chars)
        and($chars[$i+1]=~m/[$slightly_forbidden_before]/o)){
-	return "\\CJKunbreakablekernthree ";
+	return "\\CJKunbreakablekernthree{}";
     }
     if($chars[$i]=~m/[$slightly_forbidden_after]/o){
-	return "\\CJKunbreakablekernthree ";
+	return "\\CJKunbreakablekernthree{}";
     }
     if($chars[$i]=~m/[$asian]/o){
-	return "\\CJKbreakablekern ";
+	return "\\CJKbreakablekern{}";
     }
     if(($i<$#chars)and($chars[$i+1]=~m/[$asian]/o)){
-	return "\\CJKbreakablekern ";
+	return "\\CJKbreakablekern{}";
     }
 }