From acad006a16203965e7494243ab0ce8a59b08ca70 Mon Sep 17 00:00:00 2001
From: imiyazaki <imiyazaki>
Date: Fri, 10 Oct 2003 12:24:51 +0000
Subject: [PATCH] add '=>ucs' etc. to use unified characters.

---
 chise2otf/chise2otf |   22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

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'){
-- 
1.7.10.4