#! /usr/local/bin/perl -w# vim: tabstop=4# vim: syntax=perlusestrict;useTest;BEGIN {plantests=> 7;}useLocale::Recode;subint2utf8;my$local2ucs= {};my$ucs2local= {};while(<DATA>) {my($code,$ucs,undef) =map{oct$_}split/\s+/,$_;$local2ucs->{$code} =$ucs;$ucs2local->{$ucs} =$codeunless$ucs== 0xfffd;}my$cd_int= Locale::Recode->new (from=>'ISO_5427',to=>'INTERNAL');ok !$cd_int->getError;my$cd_utf8= Locale::Recode->new (from=>'ISO_5427',to=>'UTF-8');ok !$cd_utf8->getError;my$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'ISO_5427');ok !$cd_rev->getError;# Convert into internal representation.my$result_int= 1;while(my($code,$ucs) =each%$local2ucs) {my$outbuf=chr$code;my$result=$cd_int->recode ($outbuf);unless($result&&$outbuf->[0] ==$ucs) {$result_int= 0;last;}}ok$result_int;# Convert to UTF-8.my$result_utf8= 1;while(my($code,$ucs) =each%$local2ucs) {my$outbuf=chr$code;my$result=$cd_utf8->recode ($outbuf);unless($result&&$outbufeq int2utf8$ucs) {$result_utf8= 0;last;}}ok$result_utf8;# Convert from internal representation.my$result_rev= 1;while(my($ucs,$code) =each%$ucs2local) {my$outbuf= [$ucs];my$result=$cd_rev->recode ($outbuf);unless($result&&$code==ord$outbuf) {$result_int= 0;last;}}ok$result_int;# Check handling of unknown characters.my$test_string1= [unpack'c*',' Supergirl '];$test_string1->[0] = 0xad0be;$test_string1->[-1] = 0xad0be;my$test_string2= [unpack'c*','Supergirl'];my$unknown="\x3f";# Unknown character!$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'ISO_5427',)&&$cd_rev->recode ($test_string1)&&$cd_rev->recode ($test_string2)&& ($test_string2=$unknown.$test_string2.$unknown);ok$test_string1eq$test_string2;subint2utf8{my$ucs4=shift;if($ucs4<= 0x7f) {returnchr$ucs4;}elsif($ucs4<= 0x7ff) {returnpack("C2",(0xc0 | (($ucs4>> 6) & 0x1f)),(0x80 | ($ucs4& 0x3f)));}elsif($ucs4<= 0xffff) {returnpack("C3",(0xe0 | (($ucs4>> 12) & 0xf)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}elsif($ucs4<= 0x1fffff) {returnpack("C4",(0xf0 | (($ucs4>> 18) & 0x7)),(0x80 | (($ucs4>> 12) & 0x3f)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}elsif($ucs4<= 0x3ffffff) {returnpack("C5",(0xf0 | (($ucs4>> 24) & 0x3)),(0x80 | (($ucs4>> 18) & 0x3f)),(0x80 | (($ucs4>> 12) & 0x3f)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}else{returnpack("C6",(0xf0 | (($ucs4>> 30) & 0x3)),(0x80 | (($ucs4>> 24) & 0x1)),(0x80 | (($ucs4>> 18) & 0x3f)),(0x80 | (($ucs4>> 12) & 0x3f)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}}#Local Variables:#mode: perl#perl-indent-level: 4#perl-continued-statement-offset: 4#perl-continued-brace-offset: 0#perl-brace-offset: -4#perl-brace-imaginary-offset: 0#perl-label-offset: -4#tab-width: 4#End:__DATA__0x00 0x00000x01 0x00010x02 0x00020x03 0x00030x04 0x00040x05 0x00050x06 0x00060x07 0x00070x08 0x00080x09 0x00090x0a 0x000a0x0b 0x000b0x0c 0x000c0x0d 0x000d0x0e 0x000e0x0f 0x000f0x10 0x00100x11 0x00110x12 0x00120x13 0x00130x14 0x00140x15 0x00150x16 0x00160x17 0x00170x18 0x00180x19 0x00190x1a 0x001a0x1b 0x001b0x1c 0x001c0x1d 0x001d0x1e 0x001e0x1f 0x001f0x20 0x00200x21 0x00210x22 0x00220x23 0x00230x24 0x00a40x25 0x00250x26 0x00260x27 0x00270x28 0x00280x29 0x00290x2a 0x002a0x2b 0x002b0x2c 0x002c0x2d 0x002d0x2e 0x002e0x2f 0x002f0x30 0x00300x31 0x00310x32 0x00320x33 0x00330x34 0x00340x35 0x00350x36 0x00360x37 0x00370x38 0x00380x39 0x00390x3a 0x003a0x3b 0x003b0x3c 0x003c0x3d 0x003d0x3e 0x003e0x3f 0x003f0x40 0x044e0x41 0x04300x42 0x04310x43 0x04460x44 0x04340x45 0x04350x46 0x04440x47 0x04330x48 0x04450x49 0x04380x4a 0x04390x4b 0x043a0x4c 0x043b0x4d 0x043c0x4e 0x043d0x4f 0x043e0x50 0x043f0x51 0x044f0x52 0x04400x53 0x04410x54 0x04420x55 0x04430x56 0x04360x57 0x04320x58 0x044c0x59 0x044b0x5a 0x04370x5b 0x04480x5c 0x044d0x5d 0x04490x5e 0x04470x5f 0x044a0x60 0x042e0x61 0x04100x62 0x04110x63 0x04260x64 0x04140x65 0x04150x66 0x04240x67 0x04130x68 0x04250x69 0x04180x6a 0x04190x6b 0x041a0x6c 0x041b0x6d 0x041c0x6e 0x041d0x6f 0x041e0x70 0x041f0x71 0x042f0x72 0x04200x73 0x04210x74 0x04220x75 0x04230x76 0x04160x77 0x04120x78 0x042c0x79 0x042b0x7a 0x04170x7b 0x04280x7c 0x042d0x7d 0x04290x7e 0x04270x7f 0x007f0x80 0xfffd0x81 0xfffd0x82 0xfffd0x83 0xfffd0x84 0xfffd0x85 0xfffd0x86 0xfffd0x87 0xfffd0x88 0xfffd0x89 0xfffd0x8a 0xfffd0x8b 0xfffd0x8c 0xfffd0x8d 0xfffd0x8e 0xfffd0x8f 0xfffd0x90 0xfffd0x91 0xfffd0x92 0xfffd0x93 0xfffd0x94 0xfffd0x95 0xfffd0x96 0xfffd0x97 0xfffd0x98 0xfffd0x99 0xfffd0x9a 0xfffd0x9b 0xfffd0x9c 0xfffd0x9d 0xfffd0x9e 0xfffd0x9f 0xfffd0xa0 0xfffd0xa1 0xfffd0xa2 0xfffd0xa3 0xfffd0xa4 0xfffd0xa5 0xfffd0xa6 0xfffd0xa7 0xfffd0xa8 0xfffd0xa9 0xfffd0xaa 0xfffd0xab 0xfffd0xac 0xfffd0xad 0xfffd0xae 0xfffd0xaf 0xfffd0xb0 0xfffd0xb1 0xfffd0xb2 0xfffd0xb3 0xfffd0xb4 0xfffd0xb5 0xfffd0xb6 0xfffd0xb7 0xfffd0xb8 0xfffd0xb9 0xfffd0xba 0xfffd0xbb 0xfffd0xbc 0xfffd0xbd 0xfffd0xbe 0xfffd0xbf 0xfffd0xc0 0xfffd0xc1 0xfffd0xc2 0xfffd0xc3 0xfffd0xc4 0xfffd0xc5 0xfffd0xc6 0xfffd0xc7 0xfffd0xc8 0xfffd0xc9 0xfffd0xca 0xfffd0xcb 0xfffd0xcc 0xfffd0xcd 0xfffd0xce 0xfffd0xcf 0xfffd0xd0 0xfffd0xd1 0xfffd0xd2 0xfffd0xd3 0xfffd0xd4 0xfffd0xd5 0xfffd0xd6 0xfffd0xd7 0xfffd0xd8 0xfffd0xd9 0xfffd0xda 0xfffd0xdb 0xfffd0xdc 0xfffd0xdd 0xfffd0xde 0xfffd0xdf 0xfffd0xe0 0xfffd0xe1 0xfffd0xe2 0xfffd0xe3 0xfffd0xe4 0xfffd0xe5 0xfffd0xe6 0xfffd0xe7 0xfffd0xe8 0xfffd0xe9 0xfffd0xea 0xfffd0xeb 0xfffd0xec 0xfffd0xed 0xfffd0xee 0xfffd0xef 0xfffd0xf0 0xfffd0xf1 0xfffd0xf2 0xfffd0xf3 0xfffd0xf4 0xfffd0xf5 0xfffd0xf6 0xfffd0xf7 0xfffd0xf8 0xfffd0xf9 0xfffd0xfa 0xfffd0xfb 0xfffd0xfc 0xfffd0xfd 0xfffd0xfe 0xfffd0xff 0xfffd