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

Timestamp:

01/18/08 11:30:49 (10 months ago)

Author:

miyagawa

Message:

x-utf8-airh.ucm を削除し、x-utf8-docomo の別名として定義。

AirEDGE用絵文字の独自私用領域は CP932 と同等だが、SoftBank? 用絵文字と重複しているため、利用を推奨しない。また、ウェブ絵文字で送信した場合のコードポイントはDoCoMo と同等であるため、docomo の別名として定義した運用が現実的。ドキュメントも更新。

Files:

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

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

@@ -18 +18 @@
     kddi     => InKDDIPictograms(),
     softbank => InSoftBankPictograms(),
-    airh     => InDoCoMoPictograms(),
 };
 
@@ -61 +60 @@
         });
     }
-
-    # airh
-    generate_ucm('airh', sub {
-        my $fh = shift;
-
-        # convert map
-        # 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}->{'docomo'} or next;
-                printf {$fh} "<U%s> %s |1 # %s\n", $srcuni, unihex2utf8hex($dstuni), comment_for($from);
-            }
-        }
-
-        # original
-        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";
-        });
-    });
 }