Encode/ISO2022/JISCompatible.esr

#?PESRC/1.0
Name:
        ISO2022::JISCompatible
ShortDescription:
        An Encode module of ISO/IEC 2022
        based compatible coding systems for Japanese
POD:DESCRIPTION:
        Due to the historical reason, some of current
        implementions of JIS coded character sets support
        pairs of same characters dupplicately, with
        halfwidth/fullwidth property.
        
        Even this situation is undesirable, we can't ignore
        such historical implementions and latest JIS coded
        character set standards admire such dupulicate
        encoding to and only to "keep compatibility with
        current practice."
        
        This module provides encoder and decoder for such
        coding systems that comform to JIS and that based
        on ISO/IEC 2022 structure.
        
        Those coding systems SHOULD not be used for new
        implemention or new data.  They may not comform
        to future version of JIS or other standards.

{
Name:
        iso-2022-jp-3-fullwidth
Encode:
        use:Encode::ISO2022::SevenBit
        =>ucs_to_ascii ucs_to_jisx0213_2000_1_irv ucs_to_jisx0213_2000_2
        ->iso-2022-jp-3
Decode:
        use:Encode::ISO2022::SevenBit
        <-iso-2022-jp-3
        <=jisx0213_2000_1_irv_to_ucs jisx0213_2000_2_to_ucs jisx0208_1997_irv_to_ucs
Description:
        ISO/IEC 2022 based 7-bit encoding for Japanese,
        ISO/IEC 646 IRV + JIS X 0213:2000.  Some characters
        defined in JIS X 0213 are mapped to FULLWIDTH or
        HALFWIDTH area of UCS as specified in JIS X 0213:2000.
        
        This encoding is a "compatible" version of
        C<iso-2022-jp-3> defined in Encode::ISO2022::SevenBit.
}

{
Name:
        euc-jp-1997-fullwidth
Alias:
        euc-japan-1997-fullwidth euc-jp-1990-fullwidth euc-japan-1990-fullwidth
Encode:
        =>ucs_to_ascii ucs_to_jisx0208_1997_irv ucs_to_jisx0212_1990_irv ucs_to_jisx0201_katakana_hw
        ->euc-jp-1997
Decode:
        <-euc-jp-1997
        <=jisx0208_1997_irv_to_ucs jisx0212_1990_irv_to_ucs jisx0201_katakana_hw_to_ucs
Description:
        EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese,
        ISO/IEC 646 IRV + JIS X 0208:1997 + JIS X 0212-1990
        + JIS X 0201:1997 Katakana.  Some characters defined
        in JIS X 0208 and all characters defined in JIS X 0201
        are mapped to FULLWIDTH or HALFWIDTH characters of UCS
        as specified by JIS X 0221-1995 and JIS X 0208:1997.
        
        This encoding is a "compatible" version of
        C<euc-jp-1997> defined in Encode::ISO2022::EightBit.
}

{
Name:
        euc-jisx0213-fullwidth
Alias:
        euc-japan-2000-fullwidth euc-jp-2000-fullwidth
Encode:
        use:Encode::ISO2022::EightBit
        =>ucs_to_ascii ucs_to_jisx0213_2000_1_irv ucs_to_jisx0213_2000_2 ucs_to_jisx0201_katakana_hw
        ->euc-jisx0213
Decode:
        use:Encode::ISO2022::EightBit
        <-euc-jisx0213
        <=jisx0213_2000_1_irv_to_ucs jisx0213_2000_2_to_ucs jisx0201_katakana_hw_to_ucs
Description:
        EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese,
        ISO/IEC 646 IRV + JIS X 0213:2000 + JIS X 0201:1997
        Katakana.  Some characters defined in JIS X 0213 and
        all characters defined in JIS X 0201 are mapped to
        FULLWIDTH or HALFWIDTH characters of UCS as specified
        by JIS X 0213:2000.
        
        This encoding is a "compatible" version of
        C<euc-jisx0213> defined in Encode::ISO2022::EightBit.
}

POD:EXAMPLE:
          use %%MYSELF%%;
          while (<>) {
            print "FW->  : ". Encode::encode ('euc-jp-1997', Encode::decode ('euc-jp-1997-fullwidth', $_));
            print "FW->FW: ". Encode::encode ('euc-jp-1997-fullwidth', Encode::decode ('euc-jp-1997-fullwidth', $_));
            print "  ->FW: ". Encode::encode ('euc-jp-1997-fullwidth', Encode::decode ('euc-jp-1997', $_));
            print "  ->  : ". Encode::encode ('euc-jp-1997', Encode::decode ('euc-jp-1997', $_));
          }
}

POD:SEE ALSO:
        JIS X 0221-1995, "Universal multi-octet coded character
        set (UCS)", Japan Industrial Standards Committee
        <http://www.jisc.go.jp/>, 1995.  IDT with ISO/IEC 10646-1:1993
        but three additional appendixes.
        
        JIS X 0208:1997, "7-bit and 8-bit double byte coded
        Kanji set for information interchange", Japan
        Industrial Standards Committee <http://www.jisc.go.jp/>,
        1997.
        
        JIS X 0213:2000, "7-bit and 8-bit double byte extended
        coded Kanji set for information interchange", Japan
        Industrial Standards Committee <http://www.jisc.go.jp/>,
        2000.
        
        L<Encode::ISO2022::EightBit>

POD:TO DO:
        Support of C<iso-2022-jp-fullwidth>

POD:LICENSE:
        Copyright %%YEAR%% Wakaba <w@suika.fam.cx>
        
        %%PerlLicense%%
1	wakaba	1.1	#?PESRC/1.0
2			Name:
3			ISO2022::JISCompatible
4			ShortDescription:
5			An Encode module of ISO/IEC 2022
6			based compatible coding systems for Japanese
7			POD:DESCRIPTION:
8			Due to the historical reason, some of current
9			implementions of JIS coded character sets support
10			pairs of same characters dupplicately, with
11			halfwidth/fullwidth property.
12
13			Even this situation is undesirable, we can't ignore
14			such historical implementions and latest JIS coded
15			character set standards admire such dupulicate
16			encoding to and only to "keep compatibility with
17			current practice."
18
19			This module provides encoder and decoder for such
20			coding systems that comform to JIS and that based
21			on ISO/IEC 2022 structure.
22
23			Those coding systems SHOULD not be used for new
24			implemention or new data. They may not comform
25			to future version of JIS or other standards.
26
27			{
28			Name:
29			iso-2022-jp-3-fullwidth
30			Encode:
31			use:Encode::ISO2022::SevenBit
32			=>ucs_to_ascii ucs_to_jisx0213_2000_1_irv ucs_to_jisx0213_2000_2
33			->iso-2022-jp-3
34			Decode:
35			use:Encode::ISO2022::SevenBit
36			<-iso-2022-jp-3
37			<=jisx0213_2000_1_irv_to_ucs jisx0213_2000_2_to_ucs jisx0208_1997_irv_to_ucs
38			Description:
39			ISO/IEC 2022 based 7-bit encoding for Japanese,
40			ISO/IEC 646 IRV + JIS X 0213:2000. Some characters
41			defined in JIS X 0213 are mapped to FULLWIDTH or
42			HALFWIDTH area of UCS as specified in JIS X 0213:2000.
43
44			This encoding is a "compatible" version of
45			C<iso-2022-jp-3> defined in Encode::ISO2022::SevenBit.
46			}
47
48			{
49			Name:
50			euc-jp-1997-fullwidth
51			Alias:
52			euc-japan-1997-fullwidth euc-jp-1990-fullwidth euc-japan-1990-fullwidth
53			Encode:
54			=>ucs_to_ascii ucs_to_jisx0208_1997_irv ucs_to_jisx0212_1990_irv ucs_to_jisx0201_katakana_hw
55			->euc-jp-1997
56			Decode:
57			<-euc-jp-1997
58			<=jisx0208_1997_irv_to_ucs jisx0212_1990_irv_to_ucs jisx0201_katakana_hw_to_ucs
59			Description:
60			EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese,
61			ISO/IEC 646 IRV + JIS X 0208:1997 + JIS X 0212-1990
62			+ JIS X 0201:1997 Katakana. Some characters defined
63			in JIS X 0208 and all characters defined in JIS X 0201
64			are mapped to FULLWIDTH or HALFWIDTH characters of UCS
65			as specified by JIS X 0221-1995 and JIS X 0208:1997.
66
67			This encoding is a "compatible" version of
68			C<euc-jp-1997> defined in Encode::ISO2022::EightBit.
69			}
70
71			{
72			Name:
73			euc-jisx0213-fullwidth
74			Alias:
75			euc-japan-2000-fullwidth euc-jp-2000-fullwidth
76			Encode:
77			use:Encode::ISO2022::EightBit
78			=>ucs_to_ascii ucs_to_jisx0213_2000_1_irv ucs_to_jisx0213_2000_2 ucs_to_jisx0201_katakana_hw
79			->euc-jisx0213
80			Decode:
81			use:Encode::ISO2022::EightBit
82			<-euc-jisx0213
83			<=jisx0213_2000_1_irv_to_ucs jisx0213_2000_2_to_ucs jisx0201_katakana_hw_to_ucs
84			Description:
85			EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese,
86			ISO/IEC 646 IRV + JIS X 0213:2000 + JIS X 0201:1997
87			Katakana. Some characters defined in JIS X 0213 and
88			all characters defined in JIS X 0201 are mapped to
89			FULLWIDTH or HALFWIDTH characters of UCS as specified
90			by JIS X 0213:2000.
91
92			This encoding is a "compatible" version of
93			C<euc-jisx0213> defined in Encode::ISO2022::EightBit.
94			}
95
96			POD:EXAMPLE:
97			use %%MYSELF%%;
98			while (<>) {
99			print "FW-> : ". Encode::encode ('euc-jp-1997', Encode::decode ('euc-jp-1997-fullwidth', $_));
100			print "FW->FW: ". Encode::encode ('euc-jp-1997-fullwidth', Encode::decode ('euc-jp-1997-fullwidth', $_));
101			print " ->FW: ". Encode::encode ('euc-jp-1997-fullwidth', Encode::decode ('euc-jp-1997', $_));
102			print " -> : ". Encode::encode ('euc-jp-1997', Encode::decode ('euc-jp-1997', $_));
103			}
104			}
105
106			POD:SEE ALSO:
107			JIS X 0221-1995, "Universal multi-octet coded character
108			set (UCS)", Japan Industrial Standards Committee
109			<http://www.jisc.go.jp/>, 1995. IDT with ISO/IEC 10646-1:1993
110			but three additional appendixes.
111
112			JIS X 0208:1997, "7-bit and 8-bit double byte coded
113			Kanji set for information interchange", Japan
114			Industrial Standards Committee <http://www.jisc.go.jp/>,
115			1997.
116
117			JIS X 0213:2000, "7-bit and 8-bit double byte extended
118			coded Kanji set for information interchange", Japan
119			Industrial Standards Committee <http://www.jisc.go.jp/>,
120			2000.
121
122			L<Encode::ISO2022::EightBit>
123
124			POD:TO DO:
125			Support of C<iso-2022-jp-fullwidth>
126
127			POD:LICENSE:
128			Copyright %%YEAR%% Wakaba <w@suika.fam.cx>
129
130			%%PerlLicense%%