Commit | Line | Data |
0e567a6c |
1 | # |
cc7dbc11 |
2 | # $Id: CJKConstants.pm,v 1.1 2003/02/06 01:52:11 dankogai Exp $ |
0e567a6c |
3 | # |
4 | |
64ffdd5e |
5 | package Encode::CJKConstants; |
0e567a6c |
6 | |
7 | use strict; |
0e567a6c |
8 | |
cc7dbc11 |
9 | our $RCSID = q$Id: CJKConstants.pm,v 1.1 2003/02/06 01:52:11 dankogai Exp $; |
151b5d36 |
10 | our $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; |
0e567a6c |
11 | |
12 | use Carp; |
13 | |
64ffdd5e |
14 | require Exporter; |
15 | our @ISA = qw(Exporter); |
16 | our @EXPORT = qw(); |
17 | our @EXPORT_OK = qw(%CHARCODE %ESC %RE); |
18 | our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] ); |
0e567a6c |
19 | |
20 | my %_0208 = ( |
21 | 1978 => '\e\$\@', |
22 | 1983 => '\e\$B', |
23 | 1990 => '\e&\@\e\$B', |
24 | ); |
25 | |
64ffdd5e |
26 | our %CHARCODE = ( |
0e567a6c |
27 | UNDEF_EUC => "\xa2\xae", # ¢® in EUC |
28 | UNDEF_SJIS => "\x81\xac", # ¢® in SJIS |
29 | UNDEF_JIS => "\xa2\xf7", # ¢÷ -- used in unicode |
30 | UNDEF_UNICODE => "\x20\x20", # ¢÷ -- used in unicode |
31 | ); |
32 | |
64ffdd5e |
33 | our %ESC = ( |
34 | GB_2312 => "\e\$A", |
0e567a6c |
35 | JIS_0208 => "\e\$B", |
36 | JIS_0212 => "\e\$(D", |
64ffdd5e |
37 | KSC_5601 => "\e\$(C", |
0e567a6c |
38 | ASC => "\e\(B", |
39 | KANA => "\e\(I", |
40 | ); |
41 | |
64ffdd5e |
42 | our %RE = |
0e567a6c |
43 | ( |
44 | ASCII => '[\x00-\x7f]', |
45 | BIN => '[\x00-\x06\x7f\xff]', |
46 | EUC_0212 => '\x8f[\xa1-\xfe][\xa1-\xfe]', |
47 | EUC_C => '[\xa1-\xfe][\xa1-\xfe]', |
48 | EUC_KANA => '\x8e[\xa1-\xdf]', |
49 | JIS_0208 => "$_0208{1978}|$_0208{1983}|$_0208{1990}", |
50 | JIS_0212 => "\e" . '\$\(D', |
64ffdd5e |
51 | ISO_ASC => "\e" . '\([BJ]', |
0e567a6c |
52 | JIS_KANA => "\e" . '\(I', |
67d7b5ef |
53 | '2022_KR' => "\e" . '\$\)C', |
0e567a6c |
54 | SJIS_C => '[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]', |
55 | SJIS_KANA => '[\xa1-\xdf]', |
56 | UTF8 => '[\xc0-\xdf][\x80-\xbf]|[\xe0-\xef][\x80-\xbf][\x80-\xbf]' |
57 | ); |
58 | |
59 | 1; |
60 | |
67d7b5ef |
61 | =head1 NAME |
62 | |
151b5d36 |
63 | Encode::CJKConstants.pm -- Internally used by Encode::??::ISO_2022_* |
67d7b5ef |
64 | |
65 | =cut |