Show
Ignore:
Timestamp:
01/17/08 22:04:16 (10 months ago)
Author:
tomi-ru
Message:

lang/perl/Encode-JP-Mobile: 複数の候補があるものについては最初の方を採用。ucmには未反映。

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Encode-JP-Mobile/trunk/tools/make-convert-map.pl

    r4111 r4807  
    11use strict; 
    22 
    3 # http://labs.unoh.net/2007/02/post_65.html to yaml 
     3# http://labs.unoh.net/2007/02/post_65.html to dat/convert-map-utf8.yaml 
     4# mkdir dat/conv; download emoji_*.txt to dat/conv/emoji_*.txt 
     5# perl tools/make-convert-map.pl > dat/convert-map-utf8.yaml 
    46 
    57use utf8; 
    … …  
    1113my $no2uni = {}; 
    1214for my $file (qw( emoji_e2is.txt emoji_i2es.txt emoji_s2ie.txt )) { 
    13     my @line = slurp "conv/$file"; 
     15    my @line = slurp "dat/conv/$file"; 
    1416    for my $line (@line) { 
    1517        next unless $line =~ /^%/; 
    … …  
    3234my %map; 
    3335for my $file (qw( emoji_e2is.txt emoji_i2es.txt emoji_s2ie.txt )) { 
    34     my @line = slurp "conv/$file"; 
     36    my @line = slurp "dat/conv/$file"; 
    3537     
    3638    for my $line (@line) { 
    … …  
    4042        $file eq 'emoji_i2es.txt' && do { 
    4143            my ($docomo, undef, $kddi, $softbank) = split "\t", $line; 
     44            $kddi = $1 if $kddi =~ /(%.+?%)%/; 
     45            $softbank = $1 if $softbank =~ /(%.+?%)%/; 
    4246            $map{docomo}{ $no2uni->{$docomo} }->{kddi}     = $no2uni->{$kddi}; 
    4347            $map{docomo}{ $no2uni->{$docomo} }->{softbank} = $no2uni->{$softbank}; 
    … …  
    4650        $file eq 'emoji_e2is.txt' && do { 
    4751            my ($kddi, undef, $docomo, $softbank) = split "\t", $line; 
     52            $docomo = $1 if $docomo =~ /(%.+?%)%/; 
     53            $softbank = $1 if $softbank =~ /(%.+?%)%/; 
    4854            $map{kddi}{ $no2uni->{$kddi} }->{docomo}   = $no2uni->{$docomo}; 
    4955            $map{kddi}{ $no2uni->{$kddi} }->{softbank} = $no2uni->{$softbank}; 
    … …  
    5258        $file eq 'emoji_s2ie.txt' && do { 
    5359            my ($softbank, undef, $docomo, $kddi) = split "\t", $line; 
     60            $docomo = $1 if $docomo =~ /(%.+?%)%/; 
     61            $kddi = $1 if $kddi =~ /(%.+?%)%/; 
    5462            $map{softbank}{ $no2uni->{$softbank} }->{docomo} = $no2uni->{$docomo}; 
    5563            $map{softbank}{ $no2uni->{$softbank} }->{kddi}   = $no2uni->{$kddi};