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

Timestamp:

01/17/08 01:30:08 (10 months ago)

Author:

tokuhirom

Message:

lang/perl/Encode-JP-Mobile: x-utf8-* Round trip safe

Files:

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

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

@@ -48 +48 @@
     }
 
+    # original
     if ($to eq 'kddi') {
         # ura-kddi
@@ -54 +55 @@
             my $sjiscode = hex unpack "H*", encode('x-sjis-kddi', chr $unicode);
             my $unihex = sprintf '%X', $sjiscode - 0x0700;
-            print {$fh} sprintf "<U%s> %s |1 # %s\n", $unihex, unihex2utf8hex($unihex), "UraKDDI pictogram";
+            print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "UraKDDI pictogram";
         });
     } else {
@@ -60 +61 @@
             my $unicode = shift;
             my $unihex = sprintf '%X', $unicode;
-            print {$fh} sprintf "<U%s> %s |1 # %s\n", $unihex, unihex2utf8hex($unihex), "$to pictogram";
+            print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "$to pictogram";
         });
     }
@@ -95 +96 @@
             next if $comment eq 'PRIVATE USE AREA';
 
-            $res .= sprintf "<U%s> %s |1 # %s\n", $unihex, unihex2utf8hex($unihex), $comment;
+            $res .= sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), $comment;
         }
     }