#! /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=>'IBM290',to=>'INTERNAL');ok !$cd_int->getError;my$cd_utf8= Locale::Recode->new (from=>'IBM290',to=>'UTF-8');ok !$cd_utf8->getError;my$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'IBM290');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="\x6f";# Unknown character!$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'IBM290',)&&$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 0x009c0x05 0x00090x06 0x00860x07 0x007f0x08 0x00970x09 0x008d0x0a 0x008e0x0b 0x000b0x0c 0x000c0x0d 0x000d0x0e 0x000e0x0f 0x000f0x10 0x00100x11 0x00110x12 0x00120x13 0x00130x14 0x009d0x15 0x00850x16 0x00080x17 0x00870x18 0x00180x19 0x00190x1a 0x00920x1b 0x008f0x1c 0x001c0x1d 0x001d0x1e 0x001e0x1f 0x001f0x20 0x00800x21 0x00810x22 0x00820x23 0x00830x24 0x00840x25 0x000a0x26 0x00170x27 0x001b0x28 0x00880x29 0x00890x2a 0x008a0x2b 0x008b0x2c 0x008c0x2d 0x00050x2e 0x00060x2f 0x00070x30 0x00900x31 0x00910x32 0x00160x33 0x00930x34 0x00940x35 0x00950x36 0x00960x37 0x00040x38 0x00980x39 0x00990x3a 0x009a0x3b 0x009b0x3c 0x00140x3d 0x00150x3e 0x009e0x3f 0x001a0x40 0x00200x41 0x30020x42 0x300c0x43 0x300d0x44 0x30010x45 0x30fb0x46 0x30f20x47 0x30a10x48 0x30a30x49 0x30a50x4a 0x00a30x4b 0x002e0x4c 0x003c0x4d 0x00280x4e 0x002b0x4f 0x007c0x50 0x00260x51 0x30a70x52 0x30a90x53 0x30e30x54 0x30e50x55 0x30e70x56 0x30c30x58 0xfffd0x58 0x30fc0x5a 0xfffd0x5a 0x00210x5b 0x00a50x5c 0x002a0x5d 0x00290x5e 0x003b0x5f 0x00ac0x60 0x002d0x61 0x002f0x6a 0xfffd0x6a 0xfffd0x6a 0xfffd0x6a 0xfffd0x6a 0xfffd0x6a 0xfffd0x6a 0xfffd0x6a 0xfffd0x6a 0x00a60x6b 0x002c0x6c 0x00250x6d 0x005f0x6e 0x003e0x6f 0x003f0x79 0xfffd0x79 0xfffd0x79 0xfffd0x79 0xfffd0x79 0xfffd0x79 0xfffd0x79 0xfffd0x79 0xfffd0x79 0xfffd0x79 0x00600x7a 0x003a0x7b 0x00230x7c 0x00400x7d 0x00270x7e 0x003d0x7f 0x00220x81 0xfffd0x81 0x30a20x82 0x30a40x83 0x30a60x84 0x30a80x85 0x30aa0x86 0x30ab0x87 0x30ad0x88 0x30af0x89 0x30b10x8a 0x30b30x8c 0xfffd0x8c 0x30b50x8d 0x30b70x8e 0x30b90x8f 0x30bb0x90 0x30bd0x91 0x30bf0x92 0x30c10x93 0x30c40x94 0x30c60x95 0x30c80x96 0x30ca0x97 0x30cb0x98 0x30cc0x99 0x30cd0x9a 0x30ce0x9d 0xfffd0x9d 0xfffd0x9d 0x30cf0x9e 0x30d20x9f 0x30d50xa1 0xfffd0xa1 0x203e0xa2 0x30d80xa3 0x30db0xa4 0x30de0xa5 0x30df0xa6 0x30e00xa7 0x30e10xa8 0x30e20xa9 0x30e40xaa 0x30e60xac 0xfffd0xac 0x30e80xad 0x30e90xae 0x30ea0xaf 0x30eb0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0xfffd0xba 0x30ec0xbb 0x30ed0xbc 0x30ef0xbd 0x30f30xbe 0x309b0xbf 0x309c0xc1 0xfffd0xc1 0x00410xc2 0x00420xc3 0x00430xc4 0x00440xc5 0x00450xc6 0x00460xc7 0x00470xc8 0x00480xc9 0x00490xd1 0xfffd0xd1 0xfffd0xd1 0xfffd0xd1 0xfffd0xd1 0xfffd0xd1 0xfffd0xd1 0xfffd0xd1 0x004a0xd2 0x004b0xd3 0x004c0xd4 0x004d0xd5 0x004e0xd6 0x004f0xd7 0x00500xd8 0x00510xd9 0x00520xe0 0xfffd0xe0 0xfffd0xe0 0xfffd0xe0 0xfffd0xe0 0xfffd0xe0 0xfffd0xe0 0x00240xe2 0xfffd0xe2 0x00530xe3 0x00540xe4 0x00550xe5 0x00560xe6 0x00570xe7 0x00580xe8 0x00590xe9 0x005a0xf0 0xfffd0xf0 0xfffd0xf0 0xfffd0xf0 0xfffd0xf0 0xfffd0xf0 0xfffd0xf0 0x00300xf1 0x00310xf2 0x00320xf3 0x00330xf4 0x00340xf5 0x00350xf6 0x00360xf7 0x00370xf8 0x00380xf9 0x00390xff 0xfffd0xff 0xfffd0xff 0xfffd0xff 0xfffd0xff 0xfffd0xff 0x009f