Changeset 10695 for lang/perl/HTML-ReplacePictogramMobileJp/trunk

Timestamp:

04/29/08 00:11:30 (5 years ago)

Author:

tokuhirom

Message:

hmm... hexcref is SJIS in AirHPhone.

Location:

lang/perl/HTML-ReplacePictogramMobileJp/trunk

Files:

• lib/HTML/ReplacePictogramMobileJp/AirHPhone.pm (modified) (2 diffs)
• t/01_simple.t (modified) (1 diff)

lang/perl/HTML-ReplacePictogramMobileJp/trunk/lib/HTML/ReplacePictogramMobileJp/AirHPhone.pm

@@ -3 +3 @@
 use warnings;
 use HTML::ReplacePictogramMobileJp::Base;
+use Encode;
+use Encode::JP::Mobile;
 
 filter utf8 => 'utf-8', sub {
@@ -10 +12 @@
 filter sjis => 'x-sjis-airh', sub {
     unicode_property 'I';
-    unicode_hex_cref 'I';
+
+    # sjis hex cref
+    s/&#x([0-9A-F]{4});/
+        callback(ord(decode 'x-sjis-docomo', pack 'H*', sprintf '%X', hex $1), 'I');
+    /gei;
 };
 

lang/perl/HTML-ReplacePictogramMobileJp/trunk/t/01_simple.t

@@ -25 +25 @@
 is _x('V', 'utf8', "&#xE537;"), "<U+E537> V", 'softbank-utf8-hex-cref';
 
-is _x('H', 'utf8', "&#xE757;"), "<U+E757> I", 'airh sjis hex cref';
-is _x('H', 'sjis', "&#xE757;"), "<U+E757> I", 'airh sjis hex cref';
+is _x('H', 'utf8', "&#xE757;"), "<U+E757> I", 'airh utf8 hex cref';
+is _x('H', 'sjis', "&#xF8A0;"), "<U+E63F> I", 'airh sjis hex cref';
 is _x('H', 'sjis', "\xf9\xfc"), "<U+E757> I", 'airh sjis binary';