simplify &normalize_ids().

add '=>ucs*'.

diff --git a/inCHISE b/inCHISE
index 59ea158..115809f 100755 (executable)
--- a/inCHISE
+++ b/inCHISE
@@ -398,13 +398,12 @@ sub normalize_ids{
        $char=$1;
        if($char=~/[$idc]/){
            $output_ids.=$char;
-       }elsif($output_char_id=&get_char_attribute($char,"=$out_cs")){
-           $output_ids.=pack("U",$output_char_id);
-       }elsif($output_char_id=&get_char_attribute($char,"=ucs")){
-           $output_ids.=pack("U",$output_char_id);
-       }elsif($output_char_id=&get_char_attribute($char,"=>$out_cs")){
-           $output_ids.=pack("U",$output_char_id);
-       }elsif($output_char_id=&get_char_attribute($char,"=>ucs")){
+       }elsif($output_char_id=&get_char_attribute($char,"=$out_cs")
+          or $output_char_id=&get_char_attribute($char,"=ucs")
+          or $output_char_id=&get_char_attribute($char,"=>$out_cs")
+          or $output_char_id=&get_char_attribute($char,"=>ucs")
+          or $output_char_id=&get_char_attribute($char,"=>ucs*")
+             ){
            $output_ids.=pack("U",$output_char_id);
        }else{
            return $geta;
@@ -427,6 +426,7 @@ sub get_output_char{
               or $out_char_id=&get_char_attribute($char,'=ucs')
               or $out_char_id=&get_char_attribute($char,'=>ucs@jis')
               or $out_char_id=&get_char_attribute($char,'=>ucs')
+              or $out_char_id=&get_char_attribute($char,'=>ucs*')
               ){
                return '{\selectjisfont\char'.$out_char_id.'}';
            }
@@ -436,6 +436,7 @@ sub get_output_char{
               or $out_char_id=&get_char_attribute($char,'=ucs')
               or $out_char_id=&get_char_attribute($char,'=>ucs@gb')
               or $out_char_id=&get_char_attribute($char,'=>ucs')
+              or $out_char_id=&get_char_attribute($char,'=>ucs*')
               ){
                return '{\selectgbsfont\char'.$out_char_id.'}';
            }
@@ -445,6 +446,7 @@ sub get_output_char{
               or $out_char_id=&get_char_attribute($char,'=ucs')
               or $out_char_id=&get_char_attribute($char,'=>ucs@cns')
               or $out_char_id=&get_char_attribute($char,'=>ucs')
+              or $out_char_id=&get_char_attribute($char,'=>ucs*')
               ){
                return '{\selectcnsfont\char'.$out_char_id.'}';
            }
@@ -453,8 +455,8 @@ sub get_output_char{
            if($out_char_id=&get_char_attribute($char,'=ucs@ks')
               or $out_char_id=&get_char_attribute($char,'=ucs')
               or $out_char_id=&get_char_attribute($char,'=>ucs@ks')
-              or $out_char_id=&get_char_attribute($char,'=>ucs*')
               or $out_char_id=&get_char_attribute($char,'=>ucs')
+              or $out_char_id=&get_char_attribute($char,'=>ucs*')
               ){
                return '{\selectksxfont\char'.$out_char_id.'}';
            }