#! /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=>'INIS',to=>'INTERNAL');ok !$cd_int->getError;my$cd_utf8= Locale::Recode->new (from=>'INIS',to=>'UTF-8');ok !$cd_utf8->getError;my$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'INIS');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=>'INIS',)&&$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 0x00200x24 0xfffd0x24 0xfffd0x24 0xfffd0x24 0x00240x25 0x00250x27 0xfffd0x27 0x00270x28 0x00280x29 0x00290x2a 0x002a0x2b 0x002b0x2c 0x002c0x2d 0x002d0x2e 0x002e0x2f 0x002f0x30 0x00300x31 0x00310x32 0x00320x33 0x00330x34 0x00340x35 0x00350x36 0x00360x37 0x00370x38 0x00380x39 0x00390x3a 0x003a0x3b 0x003b0x3c 0x003c0x3d 0x003d0x3e 0x003e0x41 0xfffd0x41 0xfffd0x41 0x00410x42 0x00420x43 0x00430x44 0x00440x45 0x00450x46 0x00460x47 0x00470x48 0x00480x49 0x00490x4a 0x004a0x4b 0x004b0x4c 0x004c0x4d 0x004d0x4e 0x004e0x4f 0x004f0x50 0x00500x51 0x00510x52 0x00520x53 0x00530x54 0x00540x55 0x00550x56 0x00560x57 0x00570x58 0x00580x59 0x00590x5a 0x005a0x5b 0x005b0x5d 0xfffd0x5d 0x005d0x61 0xfffd0x61 0xfffd0x61 0xfffd0x61 0x00610x62 0x00620x63 0x00630x64 0x00640x65 0x00650x66 0x00660x67 0x00670x68 0x00680x69 0x00690x6a 0x006a0x6b 0x006b0x6c 0x006c0x6d 0x006d0x6e 0x006e0x6f 0x006f0x70 0x00700x71 0x00710x72 0x00720x73 0x00730x74 0x00740x75 0x00750x76 0x00760x77 0x00770x78 0x00780x79 0x00790x7a 0x007a0x7c 0xfffd0x7c 0x007c0x7f 0xfffd0x7f 0xfffd0x7f 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