make &de_er work.

diff --git a/chise2otf/chise2otf b/chise2otf/chise2otf
index 0c15070..524af71 100755 (executable)
--- 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);