fix handling of TeX metacharacter.

[chise/omega.git] / inCHISE

diff --git a/inCHISE b/inCHISE
index cfdf098..6bd683b 100755 (executable)
--- a/inCHISE
+++ b/inCHISE
@@ -185,8 +185,10 @@ while(<>){
     s/([^$asian$idc])\s*([$asian])/$1 $2/go;
     s/\-\-\-/pack("U",0x2014)/geo;# EM DASH
     s/\-\-/pack("U",0x2013)/geo;# EN DASH
-    s/\`\`/pack("U",0x201f)/geo;# DOUBLE HIGH-REVERSED-9 QUOTATION MARK
-    s/\`/pack("U",0x201b)/geo;# SINGLE HIGH-REVERSED-9 QUOTATION MARK
+#    s/\`\`/pack("U",0x201f)/geo;# DOUBLE HIGH-REVERSED-9 QUOTATION MARK
+    s/\`\`/pack("U",0x201c)/geo;# _TeX compatible_
+#    s/\`/pack("U",0x201b)/geo;# SINGLE HIGH-REVERSED-9 QUOTATION MARK
+    s/\`/pack("U",0x2018)/geo;# _TeX compatible_
     s/\'\'/pack("U",0x201d)/geo;# RIGHT DOUBLE QUOTATION MARK
     s/\'/pack("U",0x2019)/geo;# RIGHT DOUBLE QUOTATION MARK
     @chars=split(//);
@@ -217,9 +219,6 @@ while(<>){
                }
            }
            next CHAR;
-       }elsif($char=~m/($tex_meta_re)/o){
-           print $tex_meta{$1};
-           next CHAR;
        }elsif(($char_id>0x20 and $char_id<=0x021f)
               # Basic Latin
               # Latin-1 Supplement
@@ -382,7 +381,9 @@ sub latin_parse{
     my $out_str="";
     while($i<=$#chars){
        $char_id=unpack("U",$chars[$i]);
-       if(($char_id>0x20 and $char_id<=0x021f)
+       if($chars[$i]=~m/($tex_meta_re)/o){
+           $out_str.=$tex_meta{$chars[$i]};
+       }elsif(($char_id>0x20 and $char_id<=0x021f)
           or($char_id>=0x0250 and $char_id<=0x02af)# IPA Extensions
           or($char_id>=0x0300 and $char_id<=0x033f)# Combining Diacritical Marks
           or($char_id>=0x0360 and $char_id<=0x036f)