#! /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=>'ASMO_449',to=>'INTERNAL');ok !$cd_int->getError;my$cd_utf8= Locale::Recode->new (from=>'ASMO_449',to=>'UTF-8');ok !$cd_utf8->getError;my$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'ASMO_449');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=>'ASMO_449',)&&$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 0x060c0x2d 0x002d0x2e 0x002e0x2f 0x002f0x30 0x00300x31 0x00310x32 0x00320x33 0x00330x34 0x00340x35 0x00350x36 0x00360x37 0x00370x38 0x00380x39 0x00390x3a 0x003a0x3b 0x061b0x3c 0x003c0x3d 0x003d0x3e 0x003e0x3f 0x061f0x40 0x00400x41 0x06210x42 0x06220x43 0x06230x44 0x06240x45 0x06250x46 0x06260x47 0x06270x48 0x06280x49 0x06290x4a 0x062a0x4b 0x062b0x4c 0x062c0x4d 0x062d0x4e 0x062e0x4f 0x062f0x50 0x06300x51 0x06310x52 0x06320x53 0x06330x54 0x06340x55 0x06350x56 0x06360x57 0x06370x58 0x06380x59 0x06390x5a 0x063a0x5b 0x005b0x5c 0x005c0x5d 0x005d0x5e 0x005e0x5f 0x005f0x60 0x06400x61 0x06410x62 0x06420x63 0x06430x64 0x06440x65 0x06450x66 0x06460x67 0x06470x68 0x06480x69 0x06490x6a 0x064a0x6b 0x064b0x6c 0x064c0x6d 0x064d0x6e 0x064e0x6f 0x064f0x70 0x06500x71 0x06510x72 0x06520x7b 0xfffd0x7b 0xfffd0x7b 0xfffd0x7b 0xfffd0x7b 0xfffd0x7b 0xfffd0x7b 0xfffd0x7b 0xfffd0x7b 0x007b0x7c 0x007c0x7d 0x007d0x7e 0x203e0x7f 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