Show
Ignore:
Timestamp:
11/18/07 07:51:04 (6 years ago)
Author:
xcezx
Message:

ごめんなさいごめんなさいごめんなさいごめんなさい

Location:
lang/perl/Encode-JP-Mobile/tags/0.09
Files:
8 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Encode-JP-Mobile/tags/0.09/MANIFEST

    r1737 r1738  
    88t/kddi-trans.t 
    99t/Mobile.t 
    10 t/softbank-dat.yaml 
    11 t/softbank-regress.t 
    1210t/vodafone-fallback.t 
    1311ucm/x-sjis-imode.ucm 

  • lang/perl/Encode-JP-Mobile/tags/0.09/MANIFEST.SKIP

    r1737 r1738  
    1313\.fnm$ 
    1414\.shipit$ 
     15\.bs$ 
     16\.c$ 
     17\.o$ 
     18\.exh$ 
     19\.h$ 

  • lang/perl/Encode-JP-Mobile/tags/0.09/Makefile.PL

    r1737 r1738  
    1414 
    1515my %tables = ( 
    16              Mobile_t   => [ 'ucm/shift_jis-airedge.ucm','ucm/shift_jis-imode.ucm','ucm/shift_jis-kddi.ucm' ], 
     16             Mobile_t   => [ 'ucm/x-sjis-imode.ucm','ucm/x-sjis-kddi.ucm','ucm/x-sjis-kddi-auto.ucm' ], 
    1717             ); 
    1818 

  • lang/perl/Encode-JP-Mobile/tags/0.09/lib/Encode/JP/Mobile.pm

    r1737 r1738  
    129129=head1 SEE ALSO 
    130130 
    131 L<Encode>, L<HTML::Entities::ImodePictogram>, L<Unicode::Japanese> 
     131L<Encode>, L<HTML::Entities::ImodePictogram> 
    132132 
    133 http://www.nttdocomo.co.jp/service/imode/make/content/pictograph/basic/ 
    134 http://www.nttdocomo.co.jp/service/imode/make/content/pictograph/extention/ 
     133http://www.nttdocomo.co.jp/p_s/imode/make/emoji/ 
    135134http://www.au.kddi.com/ezfactory/tec/spec/3.html 
    136 http://developers.softbankmobile.co.jp/dp/tool_dl/web/picword_top.php 
    137 http://www.willcom-inc.com/ja/service/contents_service/club_air_edge/for_phone/homepage/index.html 
    138 http://www.nttdocomo.co.jp/service/mail/imode_mail/emoji_convert/ 
     135http://developers.vodafone.jp/dp/tool_dl/web/picword_top.php 
     136http://www.willcom-inc.com/p_s/products/airh_phone/homepage.html 
    139137 
    140138=cut 

  • lang/perl/Encode-JP-Mobile/tags/0.09/lib/Encode/JP/Mobile/Vodafone.pm

    r1737 r1738  
    2121sub decode($$;$) { 
    2222    my($self, $char, $check) = @_; 
    23     my $str = Encode::decode("cp932", $char, Encode::FB_PERLQQ); 
     23    my $str = Encode::decode("shift_jis", $char, Encode::FB_PERLQQ); 
    2424    $str =~ s{\x1b\x24([GEFOPQ])([\x20-\x7F]+)\x0f}{ 
    2525        join '', map chr($HighCharToBit{$1} | ord($_) - 32), split //, $2; 
    … …  
    3636        my $m  = $in ? $1 : $2; 
    3737        $res .= $in ? _encode_vodafone($m) 
    38             : Encode::encode("cp932", $m, $check); 
     38            : Encode::encode("shift_jis", $m, $check); 
    3939        '' 
    4040    }egs; 

  • lang/perl/Encode-JP-Mobile/tags/0.09/t/Mobile.t

    r1737 r1738  
    11use strict; 
    2 use Test::More tests => 18; 
     2use Test::More tests => 44; 
    33 
    44use_ok('Encode'); 
    55use_ok('Encode::JP::Mobile'); 
    66 
     7test_rt("x-sjis-imode", "\x82\xb1\xf9\x5d\xf8\xa0\x82\xb1", "\x{3053}\x{e6b9}\x{e63f}\x{3053}"); 
     8test_rt("x-sjis-docomo", "\x82\xb1\xf9\x5d\xf8\xa0\x82\xb1", "\x{3053}\x{e6b9}\x{e63f}\x{3053}"); 
     9test_rt("x-sjis-kddi", "\x82\xb1\xF6\x59", "\x{3053}\x{e481}"); 
     10test_rt("x-sjis-kddi-auto", "\x82\xb1\xF6\x59", "\x{3053}\x{ef59}"); 
     11test_rt("x-sjis-ezweb", "\x82\xb1\xF6\x59", "\x{3053}\x{e481}"); 
     12test_rt("x-sjis-airedge", "\x82\xb1\xF0\x40", "\x{3053}\x{e000}"); 
     13test_rt("x-sjis-airh", "\x82\xb1\xF0\x40", "\x{3053}\x{e000}"); 
     14test_rt("x-sjis-vodafone", "\x82\xb1\x1b\x24\x47\x21\x22\x0f", "\x{3053}\x{e001}\x{e002}"); 
     15test_rt("x-sjis-softbank", "\x82\xb1\x1b\x24\x47\x21\x22\x0f", "\x{3053}\x{e001}\x{e002}"); 
     16 
     17test_rt("x-sjis-vodafone", "\x82\xb1\x1b\x24\x45\x21\x22\x0f", "\x{3053}\x{e101}\x{e102}"); 
     18test_rt("x-sjis-softbank", "\x82\xb1\x1b\x24\x45\x21\x22\x0f", "\x{3053}\x{e101}\x{e102}"); 
     19test_rt("x-sjis-vodafone", "\x82\xb1\x1b\x24\x46\x21\x22\x0f", "\x{3053}\x{e201}\x{e202}"); 
     20test_rt("x-sjis-softbank", "\x82\xb1\x1b\x24\x46\x21\x22\x0f", "\x{3053}\x{e201}\x{e202}"); 
     21test_rt("x-sjis-vodafone", "\x82\xb1\x1b\x24\x4f\x21\x22\x0f", "\x{3053}\x{e301}\x{e302}"); 
     22test_rt("x-sjis-softbank", "\x82\xb1\x1b\x24\x4f\x21\x22\x0f", "\x{3053}\x{e301}\x{e302}"); 
     23test_rt("x-sjis-vodafone", "\x82\xb1\x1b\x24\x50\x21\x22\x0f", "\x{3053}\x{e401}\x{e402}"); 
     24test_rt("x-sjis-softbank", "\x82\xb1\x1b\x24\x50\x21\x22\x0f", "\x{3053}\x{e401}\x{e402}"); 
     25test_rt("x-sjis-vodafone", "\x82\xb1\x1b\x24\x51\x21\x22\x0f", "\x{3053}\x{e501}\x{e502}"); 
     26test_rt("x-sjis-softbank", "\x82\xb1\x1b\x24\x51\x21\x22\x0f", "\x{3053}\x{e501}\x{e502}"); 
     27 
    728test_rt("shift_jis-imode", "\x82\xb1\xf9\x5d\xf8\xa0\x82\xb1", "\x{3053}\x{e6b9}\x{e63f}\x{3053}"); 
    8 test_rt("shift_jis-docomo", "\x82\xb1\xf9\x5d\xf8\xa0\x82\xb1", "\x{3053}\x{e6b9}\x{e63f}\x{3053}"); 
    9 test_rt("shift_jis-kddi", "\x82\xb1\xF6\x59", "\x{3053}\x{e481}"); 
    10 test_rt("shift_jis-ezweb", "\x82\xb1\xF6\x59", "\x{3053}\x{e481}"); 
    11 test_rt("shift_jis-airedge", "\x82\xb1\xF0\x40", "\x{3053}\x{e000}"); 
    12 test_rt("shift_jis-airh", "\x82\xb1\xF0\x40", "\x{3053}\x{e000}"); 
    1329test_rt("shift_jis-vodafone", "\x82\xb1\x1b\x24\x47\x21\x22\x0f", "\x{3053}\x{e001}\x{e002}"); 
    14 test_rt("shift_jis-softbank", "\x82\xb1\x1b\x24\x47\x21\x22\x0f", "\x{3053}\x{e001}\x{e002}"); 
    1530 
    1631sub test_rt { 

  • lang/perl/Encode-JP-Mobile/tags/0.09/t/emoji_convert.t

    r1737 r1738  
    1212 
    1313for my $pict (@map) { 
    14     is encode('shift_jis-ezweb', decode('shift_jis-imode', $pict->{imode})) 
     14    is encode('x-sjis-ezweb', decode('x-sjis-imode', $pict->{imode})) 
    1515        => $pict->{ezweb},  
    1616        "imode => ezweb ($pict->{name})"; 
    17      
    18     is encode('shift_jis-imode', decode('shift_jis-imode', $pict->{imode})) 
     17 
     18    is encode('x-sjis-imode', decode('x-sjis-imode', $pict->{imode})) 
    1919        => $pict->{imode},  
    2020        "imode => imode ($pict->{name})"; 
    21      
    22     is encode('shift_jis-imode', decode('shift_jis-ezweb', $pict->{ezweb})) 
     21 
     22    is encode('x-sjis-imode', decode('x-sjis-ezweb', $pict->{ezweb})) 
    2323        => $pict->{imode},  
    2424        "ezweb => imode ($pict->{name})"; 
    25      
    26     is encode('shift_jis-ezweb', decode('shift_jis-ezweb', $pict->{ezweb})) 
     25 
     26    is encode('x-sjis-ezweb', decode('x-sjis-ezweb', $pict->{ezweb})) 
    2727        => $pict->{ezweb},  
    2828        "ezweb => ezweb ($pict->{name})"; 

  • lang/perl/Encode-JP-Mobile/tags/0.09/t/vodafone-fallback.t

    r1737 r1738  
    77{ 
    88    my $u = "\x{0647}"; 
    9     is encode("shift_jis-vodafone", $u, Encode::FB_HTMLCREF), "&#1607;"; 
     9    is encode("x-sjis-vodafone", $u, Encode::FB_HTMLCREF), "&#1607;"; 
    1010} 
    1111 
    1212{ 
    1313    my $u = "\x{0647}"; 
    14     my $var = encode("shift_jis-vodafone", $u, sub { "x" . $_[0] }); 
     14    my $var = encode("x-sjis-vodafone", $u, sub { "x" . $_[0] }); 
    1515    is $var, "x1607"; 
    1616}