From: imiyazaki <imiyazaki>
Date: Sat, 18 Oct 2003 12:51:51 +0000 (+0000)
Subject: make &de_er work.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8d43bd594ffe9e035e5fd329aa3d807813ab0b00;p=chise%2Fomega.git

make &de_er work.
---

diff --git a/chise2otf/chise2otf b/chise2otf/chise2otf
index 0c15070..524af71 100755
--- a/chise2otf/chise2otf
+++ b/chise2otf/chise2otf
@@ -141,10 +141,10 @@ $ids="";
 @CDP=("=big5-cdp");
 
 while(<>){
-    s/&(.*?);/&de_er($1)/ge;
     if($in_cs ne 'ucs@mcs'){
 	s/(.)/pack("U",&get_char_id(unpack("U",$1),$in_cs))/ge;
     }
+    s/&(.*?);/&de_er($1)/ge;
     @chars=split(//);
     for($i=0;$i<=$#chars;$i++){
 	$char=$chars[$i];
@@ -286,7 +286,7 @@ sub normalize_ids{
     # return: ids or GETA character if ids is invalid for KAGE.
     my($ids,$out_cs)=@_;
     $ids = decode('utf8', $ids) if $perl58;
-    $out_cs=~s/Uni(.+)/"ucs\@".lc($1)/e;
+    $out_cs=~s/Uni(.+)/'ucs@'.lc($1)/e;
 
     my $output_ids="";
     my($char,$char_id,$output_char_id);
@@ -378,7 +378,7 @@ sub get_ids{
 }
 
 sub get_char_id_for_ids{
-    # argument: <character>
+    # argument: <ideographic description sequence>
     # return: char-id
     my($ids)=@_;
     my($output_char);