+ $ucs=&get_char_attribute(&get_chars_matching("=big5-pua",$cdp),"=ucs");
+ if($ucs){
+ return "{\\fontencoding{OT1}\\fontfamily{cdp}\\selectfont\\char"
+ .$ucs.
+ "}";
+ }else{
+ print STDERR "This hould not happen.\n";
+ print STDERR "ucs code point of CDP: $cdp not found.\n";
+ }