| 3 |
|
|
| 4 |
use vars qw($VERSION); |
use vars qw($VERSION); |
| 5 |
$VERSION = do {my @r =(q$Revision$ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r}; |
$VERSION = do {my @r =(q$Revision$ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r}; |
|
|
|
|
use Encode (); |
|
|
require Encode::CN; |
|
| 6 |
use base qw(Encode::Encoding); |
use base qw(Encode::Encoding); |
| 7 |
__PACKAGE__->Define(qw/hz chinese-hz hz-gb-2312 cp52936/); |
__PACKAGE__->Define(qw/hz chinese-hz hz-gb-2312 hz-gb2312 cp52936/); |
| 8 |
|
|
| 9 |
sub needs_lines { 1 } |
sub needs_lines { 1 } |
| 10 |
|
|
| 87 |
|
|
| 88 |
package Encode::HZ::HZ165; |
package Encode::HZ::HZ165; |
| 89 |
use base qw(Encode::HZ); |
use base qw(Encode::HZ); |
| 90 |
__PACKAGE__->Define(qw/hz-isoir165 x-iso-ir-165-hz/); |
__PACKAGE__->Define(qw/hz-iso-ir-165 hz-isoir165 x-iso-ir-165-hz/); |
| 91 |
|
|
| 92 |
sub __hz_encoding_name { 'cn-gb-isoir165' } |
sub __hz_encoding_name { 'cn-gb-isoir165' } |
| 93 |
|
|
| 116 |
|
|
| 117 |
HZ 7-bit encoding for Chinese with GB 2312-80, |
HZ 7-bit encoding for Chinese with GB 2312-80, |
| 118 |
defined by RFC 1842 and RFC 1843. |
defined by RFC 1842 and RFC 1843. |
| 119 |
(Alias: hz, chinese-hz (emacsen), CP52936 (M$)) |
(Alias: hz, chinese-hz (emacsen), CP52936 (M$), |
| 120 |
|
hz-gb2312) |
| 121 |
|
|
| 122 |
|
Note that hz8 is also decodable with this encoding. |
| 123 |
|
|
| 124 |
=item hz8 |
=item hz8 |
| 125 |
|
|
| 126 |
HZ 8-bit encoding for Chinese with GB 2312-80. |
HZ 8-bit encoding for Chinese with GB 2312-80. |
| 127 |
(Alias: x-hz8) |
(Alias: x-hz8) |
| 128 |
|
|
| 129 |
=item hz-isoir165 |
Note that hz-gb-2312 is also decodable with this encoding. |
| 130 |
|
|
| 131 |
|
=item hz-iso-ir-165 |
| 132 |
|
|
| 133 |
HZ 7-bit encoding for Chinese with ISO-IR 165 |
HZ 7-bit encoding for Chinese with ISO-IR 165 |
| 134 |
(syntax is same as hz-gb-2312, but coded character |
(syntax is same as hz-gb-2312, but coded character |
| 135 |
set is differ) (Alias: x-iso-ir-165-hz) |
set is differ) (Alias: hz-isoir165, x-iso-ir-165-hz) |
| 136 |
|
|
| 137 |
Note that you need load Encode module that support |
Note that you need load Encode module that support |
| 138 |
'cn-gb-isoir165' encoding (defined by RFC 1922), |
'cn-gb-isoir165' encoding (defined by RFC 1922), |
| 139 |
such as Encode::ISO2022::EightBit. |
such as Encode::ISO2022::EightBit. |
| 140 |
|
|
| 141 |
|
Also note that since ISO-IR 165 is nealy superset of GB 2312-80, |
| 142 |
|
hz-iso-ir-165 is also considerable as a superset of |
| 143 |
|
hz-gb-2312. |
| 144 |
|
|
| 145 |
=back |
=back |
| 146 |
|
|
| 147 |
=head1 TODO |
=head1 TODO |