add support for Utf8big5.
authorimiyazaki <imiyazaki>
Mon, 5 Jan 2004 13:42:52 +0000 (13:42 +0000)
committerimiyazaki <imiyazaki>
Mon, 5 Jan 2004 13:42:52 +0000 (13:42 +0000)
use ids-aggregated.

inCHISE

diff --git a/inCHISE b/inCHISE
index dd9dc47..09cb0f8 100755 (executable)
--- a/inCHISE
+++ b/inCHISE
@@ -83,7 +83,7 @@ my $tex_meta_re=join('|',map {quotemeta($_)} keys %tex_meta);
 $usage=<<EOF;
 Usage: $0 -i <input coding system> -o <cmap encoding>
     input coding system:
-      Utf8mcs, Utf8cns, Utf8gb, Utf8jis, Utf8ks
+      Utf8mcs, Utf8cns, Utf8gb, Utf8jis, Utf8ks, Utf8big5
     cmap encoding:
       UniCNS, UniGB, UniJIS, UniKS, UniMulti
 EOF
@@ -96,7 +96,7 @@ if($opt_in_cs or $opt_out_cs){
 }
 
 # $in_cs:
-#   Utf8mcs,Utf8cns,Utf8gb,Utf8jis,Utf8ks,
+#   Utf8mcs,Utf8cns,Utf8gb,Utf8jis,Utf8ks,Utf8big5
 # $out_cs:
 #   UniCNS,UniGB,UniJIS,UniKS,UniMulti
 
@@ -496,10 +496,10 @@ sub get_ids{
     # return: ids
     my($char)=@_;
     my $ids="";
-#    $ids=&get_char_attribute($char,"ids-aggregated")
-#      or $ids=&get_char_attribute($char,"ids");
-    $ids=&get_char_attribute($char,"ids-decomposed")
+    $ids=&get_char_attribute($char,"ids-aggregated")
        or $ids=&get_char_attribute($char,"ids");
+#    $ids=&get_char_attribute($char,"ids-decomposed")
+#      or $ids=&get_char_attribute($char,"ids");
 #        or $ids=&get_char_attribute($char,"ideographic-structure");
 #    $ids=~s/[? ()]//g;
     return $ids;