#! /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-8',to=>'INTERNAL');ok !$cd_int->getError;my$cd_utf8= Locale::Recode->new (from=>'INIS-8',to=>'UTF-8');ok !$cd_utf8->getError;my$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'INIS-8');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-8',)&&$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 0x00200x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0xfffd0x3a 0x03b10x3b 0x03b20x3c 0x03b30x3d 0x03b40x3e 0x039e0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0xfffd0x5e 0x21920x5f 0x222b0x60 0x20700x61 0x00b90x62 0x00b20x63 0x00b30x64 0x20740x65 0x20750x66 0x20760x67 0x20770x68 0x20780x69 0x20790x6a 0x207a0x6b 0x207b0x6c 0x30eb0x6d 0x03940x6e 0x039b0x6f 0x03a90x70 0x20800x71 0x20810x72 0x20820x73 0x20830x74 0x20840x75 0x20850x76 0x20860x77 0x20870x78 0x20880x79 0x20890x7a 0x03a30x7b 0x03bc0x7c 0x03bd0x7d 0x03c90x7e 0x03c00x7f 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