Commit | Line | Data |
0e567a6c |
1 | package Encode::JP; |
0f3b375a |
2 | BEGIN { |
3 | if (ord("A") == 193) { |
4 | die "Encode::JP not supported on EBCDIC\n"; |
5 | } |
6 | } |
0e567a6c |
7 | use Encode; |
ee981de6 |
8 | our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; |
9 | |
0e567a6c |
10 | use XSLoader; |
11 | XSLoader::load('Encode::JP',$VERSION); |
12 | |
13 | use Encode::JP::JIS; |
14 | use Encode::JP::ISO_2022_JP; |
15 | |
16 | 1; |
17 | __END__ |
557e5ea9 |
18 | =head1 NAME |
19 | |
20 | Encode::JP - Japanese Encodings |
21 | |
22 | =head1 SYNOPSIS |
23 | |
2b217bf7 |
24 | use Encode 'encode'; |
25 | $euc_jp = encode("euc-jp", $utf8); # loads Encode::JP implicitly |
ee981de6 |
26 | $utf8 = decode("euc-jp", $euc_jp); # ditto |
557e5ea9 |
27 | |
28 | =head1 ABSTRACT |
29 | |
30 | This module implements Japanese charset encodings. Encodings |
31 | supported are as follows. |
32 | |
33 | euc-jp EUC (Extended Unix Character) |
34 | shiftjis Shift JIS (aka MS Kanji) |
35 | 7bit-jis 7bit JIS |
36 | iso-2022-jp ISO-2022-JP (7bit JIS with all X201 converted to X208) |
37 | macjapan Mac Japan (Shift JIS + Apple vendor mappings) |
38 | cp932 Code Page 932 (Shift JIS + Microsoft vendor mappings) |
39 | |
40 | =head1 DESCRIPTION |
41 | |
42 | To find how to use this module in detail, see L<Encode>. |
43 | |
44 | =head1 BUGS |
45 | |
ee981de6 |
46 | JISX0212-1990 -> utf8 conversion does not work |
47 | (the reverse does, however. encengine|compile bug?) |
557e5ea9 |
48 | |
49 | ASCII part (0x00-0x7f) is preserved for all encodings, even though it |
50 | conflicts with mappings by the Unicode Consortium. See |
51 | |
52 | F<http://www.debian.or.jp/~kubota/unicode-symbols.html.en> |
53 | |
54 | to find why it is implemented that way. |
55 | |
56 | =head1 SEE ALSO |
57 | |
58 | L<Encode> |
59 | |
60 | =cut |