"=gt-pj-11"
#,"=gt-pj-k1","=gt-pj-k2"
);
-@HZK=("=hanziku-1","=hanziku-10","=hanziku-11","=hanziku-12",
- "=hanziku-2","=hanziku-3","=hanziku-4","=hanziku-5",
- "=hanziku-6","=hanziku-7","=hanziku-8","=hanziku-9");
+@HZK=("=hanziku-1","=hanziku-2","=hanziku-3","=hanziku-4",
+ "=hanziku-5","=hanziku-6","=hanziku-7","=hanziku-8",
+ "=hanziku-9","=hanziku-10","=hanziku-11","=hanziku-12");
@CDP=("=big5-cdp");
while(<>){
# Ideographic Description Characters
print &ids_parse();
next;
- }elsif($char_id >= 0x20000 && $char_id <=0x2a6df){
- # CJK Unified Ideographs Extension B
- if(not defined($ids{$char}) and $ids{$char}[1]>=0){
- $ids{$char}[0]=$font_start;
- $ids{$char}[1]=$ids_start;
- $ids_start++;
- if($ids_start>255){
- $ids_start=0;
- $font_start++;
- }
- }
- print "{\\fontencoding{OT1}\\fontfamily{" .
- sprintf("chise%03d",$ids{$char}[0]) .
- "}\\selectfont\\char$ids{$char}[1]}";
- next;
}else{
if(($out_char=&get_output_char($char_id))){
print $out_char;
+ }elsif($char_id >= 0x20000 && $char_id <=0x2a6df){
+ # CJK Unified Ideographs Extension B
+ if(not defined($ids{$char}) and $ids{$char}[1]>=0){
+ $ids{$char}[0]=$font_start;
+ $ids{$char}[1]=$ids_start;
+ $ids_start++;
+ if($ids_start>255){
+ $ids_start=0;
+ $font_start++;
+ }
+ }
+ print "{\\fontencoding{OT1}\\fontfamily{" .
+ sprintf("chise%03d",$ids{$char}[0]) .
+ "}\\selectfont\\char$ids{$char}[1]}";
+ next;
}else{
print &get_macro_for_ids(&get_ids($char));
}
}else{
foreach $out_cs (@order){
if($out_cs eq 'UniJIS'
- and &get_char_attribute($char,"adobe-unijis-utf16-h")){
+ and &get_char_attribute($char,"vnd-adobe-cid-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@jis')
return "\\UTF{".sprintf("%X",$out_char_id)."}";
}
}elsif($out_cs eq 'UniGB'
- and &get_char_attribute($char,"adobe-unigb-ucs2-h")){
+ and &get_char_attribute($char,"vnd-adobe-cid-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@gb')
return "\\UTFC{".sprintf("%X",$out_char_id)."}";
}
}elsif($out_cs eq 'UniCNS'
- and &get_char_attribute($char,"adobe-unicns-ucs2-h")){
+ and &get_char_attribute($char,"vnd-adobe-cid-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@cns')
return "\\UTFT{".sprintf("%X",$out_char_id)."}";
}
}elsif($out_cs eq 'UniKS'
- and &get_char_attribute($char,"adobe-uniks-ucs2-h")){
+ and &get_char_attribute($char,"vnd-adobe-cid-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@ks')