/[suikacvs]/test/oldencodeutils/lib/Encode/HZ.pm
Suika

Contents of /test/oldencodeutils/lib/Encode/HZ.pm

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.3 - (hide annotations) (download)
Mon Sep 16 06:35:16 2002 UTC (23 years, 10 months ago) by wakaba
Branch: MAIN
Changes since 1.2: +46 -9 lines 
2002-09-16  Wakaba <w@suika.fam.cx>

	* ISO2022.pm:
	- (iso2022_to_internal): Invoke G1,G2,G3 by locking
	shifts of ESC Fs style.
	- (make_initial_charset): Create charset definition
	of 94^2 DRCSes.
	- (undef_char): New option.
	- (pod:TODO): New section.
	* HZ.pm:
	- (__hz_encoding_name): New function.
	- (Encode::HZ): Added new alias names.
	- (Encode::HZ::HZ165): New package.
	- (pod:ENCODINGS): New section.
1 wakaba 1.1 package Encode::HZ;
2     use strict;
3    
4     use vars qw($VERSION);
5 wakaba 1.3 $VERSION = do {my @r =(q$Revision: 1.2 $ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r};
6 wakaba 1.1
7     use Encode ();
8     require Encode::CN;
9     use base qw(Encode::Encoding);
10 wakaba 1.3 __PACKAGE__->Define(qw/hz chinese-hz hz-gb-2312 cp52936/);
11 wakaba 1.1
12     sub needs_lines { 1 }
13    
14     sub perlio_ok {
15     return 0; # for the time being
16     }
17    
18     sub decode
19     {
20     my ($obj,$str,$chk) = @_;
21 wakaba