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 |