/[pub]/test/oldencodeutils/lib/Encode/Charset.pm
Suika

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (hide annotations) (download)
Sat Sep 21 01:34:08 2002 UTC (23 years, 10 months ago) by wakaba
Branch: MAIN
Changes since 1.1: +68 -2 lines 
2002-09-21  Wakaba <w@suika.fam.cx>

	* ISO2022.pm:
	- More DOCS support.
	- (new_object): Redefined as alias of Encode::Charset's.
	- (pod:ENCODINGS): New section.
	- Regists 'iso/iec2022' as encoding name.
	* Charset.pm:
	- (new_object): Moved from Encode::ISO2022.
	- (make_initial_coding_system): Define 'Csjis' coding system.
1 wakaba 1.1
2     =head1 NAME
3    
4     Encode::Charset --- Coded Character Sets objects,
5     used by Encode::ISO2022, Encode::SJIS, and other modules.
6    
7     =cut
8    
9     package Encode::Charset;
10     use strict;
11     use vars qw(%CHARSET %CODING_SYSTEM $VERSION);
12 wakaba 1.2 $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
13 wakaba 1.1
14     ## --- Make initial charset definitions
15     &_make_initial_charsets;
16     sub _make_initial_charsets () {
17     for my $f (0x30..0x7E) {
18     my $F = pack 'C', $f;
19     for ('', '!', '"', '#') {
20     $CHARSET{G94}->{ $_.$F }->{dimension} = 1;
21     $CHARSET{G94}->{ $_.$F }->{chars} = 94;