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

Timestamp:

01/20/08 22:58:44 (10 months ago)

Author:

tokuhirom

Message:

InKDDIAutoPictograms ができたので、使う。

Files:

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

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

@@ -16 +16 @@
 my $uni_range_for = {
     docomo   => InDoCoMoPictograms(),
-    kddi     => InKDDIPictograms(),
+    kddi     => InKDDIAutoPictograms(),
     softbank => InSoftBankPictograms(),
 };
 
 sub SCALAR::to_hex($) { sprintf '%X', $_[0] }
-sub SCALAR::omote2ura($) { $_[0]->encode('x-sjis-kddi')->decode('x-sjis-kddi-auto') }
-sub SCALAR::uni2int($) { unpack 'U*', $_[0] }
 
 &main;exit;
@@ -44 +42 @@
 
             # 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";
-                });
-            }
+            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";
+            });
         });
     }
@@ -87 +76 @@
         kddi ezweb
         softbank vodafone
-        airh airedge
     );