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

Timestamp:

01/18/08 10:01:05 (10 months ago)

Author:

tokuhirom

Message:

lang/perl/Encode-JP-Mobile: added x-utf8-airh.

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl (modified) (6 diffs)

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

@@ -3 +3 @@
 use YAML;
 use Encode;
-use Encode::JP::Mobile;
+use Encode::JP::Mobile ':props';
 use autobox;
 use autobox::Core;
@@ -15 +15 @@
 
 my $uni_range_for = {
-    docomo   => Encode::JP::Mobile::InDoCoMoPictograms(),
-    kddi     => Encode::JP::Mobile::InKDDIPictograms(),
-    softbank => Encode::JP::Mobile::InSoftBankPictograms(),
+    docomo   => InDoCoMoPictograms(),
+    kddi     => InKDDIPictograms(),
+    softbank => InSoftBankPictograms(),
+    airh     => InDoCoMoPictograms(),
 };
 
@@ -28 +29 @@
 sub main {
     for my $to (qw( docomo kddi softbank )) {
-        my $fh = file('ucm', "x-utf8-$to.ucm")->openw or die $!;
+        generate_ucm($to, sub {
+            my $fh = shift;
 
-        print {$fh} header($to);
+            # convert map
+            for my $from (qw( docomo kddi softbank )) {
+                next if $from eq $to;
 
-        # basic map
-        print {$fh} unicode_ucm($cp932_ucm);
+                print {$fh} "\n\n# pictogram convert map ($from => $to)\n";
+
+                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);
+                }
+            }
+
+            # original
+            if ($to eq 'kddi') {
+                # ura-kddi
+                range_each($to, sub {
+                    my $unicode = shift;
+                    my $unihex = $unicode->chr->omote2ura->uni2int->to_hex;
+                    print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "UraKDDI pictogram";
+                });
+            } else {
+                range_each($to, sub {
+                    my $unicode = shift;
+                    my $unihex = $unicode->to_hex;
+                    print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "$to pictogram";
+                });
+            }
+        });
+    }
+
+    # airh
+    generate_ucm('airh', sub {
+        my $fh = shift;
 
         # convert map
-        for my $from (qw( docomo kddi softbank )) {
-            next if $from eq $to;
-
-            print {$fh} "\n\n# pictogram convert map ($from => $to)\n";
+        # XXX willcom phones can display docomo pictograms
+        for my $from (qw( kddi softbank )) {
+            print {$fh} "\n\n# pictogram convert map ($from => docomo)\n";
 
             for my $srcuni (sort keys %{$map->{$from}}) {
-                my $dstuni = $map->{$from}{$srcuni}{$to} or next;
+                my $dstuni = $map->{$from}->{$srcuni}->{'docomo'} or next;
                 printf {$fh} "<U%s> %s |1 # %s\n", $srcuni, unihex2utf8hex($dstuni), comment_for($from);
             }
@@ -48 +78 @@
 
         # original
-        if ($to eq 'kddi') {
-            # ura-kddi
-            range_each($to, sub {
-                my $unicode = shift;
-                my $unihex = $unicode->chr->omote2ura->uni2int->to_hex;
-                print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "UraKDDI pictogram";
-            });
-        } else {
-            range_each($to, sub {
-                my $unicode = shift;
-                my $unihex = $unicode->to_hex;
-                print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "$to pictogram";
-            });
-        }
+        print $fh "\n\n# airh pictograms\n";
+        range_each('airh', sub {
+            my $unicode = shift;
+            my $unihex = $unicode->to_hex;
+            print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "airh pictogram";
+        });
+    });
+}
 
-        print {$fh} "END CHARMAP\n";
-    }
+sub generate_ucm {
+    my ($to, $generate_pictogram_ucm) = @_;
+    my $fh = file('ucm', "x-utf8-$to.ucm")->openw or die $!;
+    print {$fh} header($to);
+    print {$fh} unicode_ucm($cp932_ucm);
+    $generate_pictogram_ucm->($fh);
+    print {$fh} "END CHARMAP\n";
+    $fh->close;
 }
 
@@ -82 +112 @@
         kddi ezweb
         softbank vodafone
+        airh airedge
     );
 
@@ -126 +157 @@
         my ($min, $max) = map { hex $_ } split /\t/, $range;
         my $i = $min;
-        while ($i <= $max) {
-            $code->( $i );
-            $i++;
+        if ($max) {
+            while ($i <= $max) {
+                $code->( $i );
+                $i++;
+            }
+        } else {
+            $code->($min);
         }
     }