Changeset 5448 for lang/perl/Encode-JP-Mobile/trunk/tools

Timestamp:

01/25/08 00:40:59 (10 months ago)

Author:

tokuhirom

Message:

merge Encode::JP::Mobile::Character branch to trunk.

Location:

lang/perl/Encode-JP-Mobile/trunk/tools

Files:

• make-convert-map.pl (modified) (2 diffs)
• make-utf8-ucm.pl (modified) (1 diff)
• yaml2perl.pl (moved) (moved from lang/perl/Encode-JP-Mobile/trunk/tools/make-charnames-map.pl) (1 diff)

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

@@ -39 +39 @@
         next unless $line =~ /^%/;
         chomp $line;
+        $line = decode 'cp932', $line;
 
         $file eq 'emoji_i2es.txt' && do {
@@ -64 +65 @@
     if ($key =~ /^%/) {
         $key =~ s/(%[^%]+%)/$no2uni->{$1}/ge;
-        return $key;
+        return +{ type => 'pictogram', unicode => $key };
     } else {
-        return;
+        return +{ type => 'name', unicode => $key };
     }
 }

lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl

@@ -36 +36 @@
 
                 for my $srcuni (sort keys %{$map->{$from}}) {
-                    my $dstuni = $map->{$from}{$srcuni}{$to} or next;
-                    printf {$fh} "<U%s> %s |1 # %s\n", $srcuni, unihex2utf8hex($dstuni), comment_for($from);
+                    my $dstuni = $map->{$from}->{$srcuni}->{$to} or next;
+                    next unless $dstuni->{type} eq 'pictogram';
+                    printf {$fh} "<U%s> %s |1 # %s\n", $srcuni, unihex2utf8hex($dstuni->{unicode}), comment_for($from);
                 }
             }

lang/perl/Encode-JP-Mobile/trunk/tools/yaml2perl.pl

@@ -9 +9 @@
 $Data::Dumper::Terse++;
 
-for my $carrier (qw/docomo softbank kddi/) {
-    my $src_fname = catfile($FindBin::Bin, '..', 'dat', "${carrier}-table.yaml");
-    my $dst_fname = catfile($FindBin::Bin, '..', 'dat', "${carrier}-table.pl");
+die "Usage: $0 hoge.yaml hoge.pl" unless @ARGV==2;
+my ($src, $dst) = @ARGV;
 
-    open my $fh, '>', $dst_fname or die $!;
-    print $fh Dumper(YAML::LoadFile($src_fname));
-    close $fh;
-}
+open my $fh, '>', $dst or die $!;
+print $fh Dumper(YAML::LoadFile($src));
+close $fh;