From: imiyazaki Date: Fri, 10 Oct 2003 12:24:51 +0000 (+0000) Subject: add '=>ucs' etc. to use unified characters. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=acad006a16203965e7494243ab0ce8a59b08ca70;p=chise%2Fomega.git add '=>ucs' etc. to use unified characters. --- diff --git a/chise2otf/chise2otf b/chise2otf/chise2otf index 0b8207d..f0bd571 100755 --- a/chise2otf/chise2otf +++ b/chise2otf/chise2otf @@ -93,7 +93,7 @@ if(defined($opt_order)){ @order=map {$order{$_}} @order; }else{ print STDERR "Invalid option!\n"; - print $usage; + print STDERR $usage; exit 1; } } @@ -298,25 +298,37 @@ sub get_output_char{ if($out_cs eq 'UniJIS' and &get_char_attribute($char,"adobe-unijis-utf16-h")){ if($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') + or $out_char_id=&get_char_attribute($char,'=>ucs@jis') + or $out_char_id=&get_char_attribute($char,'=>ucs') + ){ return "\\UTF{".sprintf("%X",$out_char_id)."}"; } }elsif($out_cs eq 'UniGB' and &get_char_attribute($char,"adobe-unigb-ucs2-h")){ if($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') + or $out_char_id=&get_char_attribute($char,'=>ucs@gb') + or $out_char_id=&get_char_attribute($char,'=>ucs') + ){ return "\\UTFC{".sprintf("%X",$out_char_id)."}"; } }elsif($out_cs eq 'UniCNS' and &get_char_attribute($char,"adobe-unicns-ucs2-h")){ if($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') + or $out_char_id=&get_char_attribute($char,'=>ucs@cns') + or $out_char_id=&get_char_attribute($char,'=>ucs') + ){ return "\\UTFT{".sprintf("%X",$out_char_id)."}"; } }elsif($out_cs eq 'UniKS' and &get_char_attribute($char,"adobe-uniks-ucs2-h")){ 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') + or $out_char_id=&get_char_attribute($char,'=>ucs@ks') + or $out_char_id=&get_char_attribute($char,'=>ucs') + ){ return "\\UTFK{".sprintf("%X",$out_char_id)."}"; } }elsif($out_cs eq 'GT'){