Encode/ISO2022/EUCKR.esr

#?PESRC/1.0
Name:
        ISO2022::EUCKR
ShortDescription:
        An Encode module of EUC (8-bit ISO/IEC 2022
        based coding system) for Korean

{
Name:
        euc-korea
Alias:
        euc-kr euckr cp970 cp51949 ibm-euckr x-euc-kr cseuckr korean-iso-8bit
Cversion:
        C:bit=8
        C:G0=G94:B      ## ASCII
        C:G1=G94n:C     ## KS C 5601 (KS X 1001)-1987
        C:designate:*:default=-1
        C:option:{Ginvoke_to_left}=[1,0,0,0]
        C:option:{Ginvoke_by_single_shift}=[0,0,1,1]
        C:option:{C1invoke_to_right}=1
        C:option:{reset}->{Gdesignation}=0
        C:option:{reset}->{Ginvoke}=0
        C:option:{undef_char}=["\x21\x6B", {type => 'G94n', charset => 'C'}]
Encode:
        =>ucs_to_ascii ksx1001_1992
        ->iso2022:C
Decode:
        <-iso2022:C
        <=ksx1001_1992_to_ucs
Description:
        EUC (ISO/IEC 2022 based 8-bit encoding) for Korean.
}

{
Name:
        euc-kps9566
Cversion:
        C:bit=8
        C:G0=G94:B      ## ASCII
        C:G1=G94n:N     ## KPS 9566-97
        C:designate:*:default=-1
        C:option:{Ginvoke_to_left}=[1,0,0,0]
        C:option:{Ginvoke_by_single_shift}=[0,0,1,1]
        C:option:{C1invoke_to_right}=1
        C:option:{reset}->{Gdesignation}=0
        C:option:{reset}->{Ginvoke}=0
        C:option:{undef_char}=["\x3F", {type => 'G94', charset => 'B'}]
Encode:
        =>ucs_to_ascii ucs_to_kps9566_1997
        ->iso2022:C
Decode:
        <-iso2022:C
        <=kps9566_1997_to_ucs
Description:
        EUC (ISO/IEC 2022 based 8-bit encoding) for Korean
        with KPS 9566-97.
}

POD:SEE ALSO:
        L<Encode::ISO2022>
POD:LICENSE:
        Copyright %%YEAR%% Nanashi-san <nanashi@san.invalid>
        
        %%PerlLicense%%
1	wakaba	1.1	#?PESRC/1.0
2			Name:
3			ISO2022::EUCKR
4			ShortDescription:
5			An Encode module of EUC (8-bit ISO/IEC 2022
6			based coding system) for Korean
7
8			{
9			Name:
10			euc-korea
11			Alias:
12			euc-kr euckr cp970 cp51949 ibm-euckr x-euc-kr cseuckr korean-iso-8bit
13			Cversion:
14			C:bit=8
15			C:G0=G94:B ## ASCII
16			C:G1=G94n:C ## KS C 5601 (KS X 1001)-1987
17			C:designate:*:default=-1
18			C:option:{Ginvoke_to_left}=[1,0,0,0]
19			C:option:{Ginvoke_by_single_shift}=[0,0,1,1]
20			C:option:{C1invoke_to_right}=1
21			C:option:{reset}->{Gdesignation}=0
22			C:option:{reset}->{Ginvoke}=0
23			C:option:{undef_char}=["\x21\x6B", {type => 'G94n', charset => 'C'}]
24			Encode:
25			=>ucs_to_ascii ksx1001_1992
26			->iso2022:C
27			Decode:
28			<-iso2022:C
29			<=ksx1001_1992_to_ucs
30			Description:
31			EUC (ISO/IEC 2022 based 8-bit encoding) for Korean.
32			}
33
34			{
35			Name:
36			euc-kps9566
37			Cversion:
38			C:bit=8
39			C:G0=G94:B ## ASCII
40			C:G1=G94n:N ## KPS 9566-97
41			C:designate:*:default=-1
42			C:option:{Ginvoke_to_left}=[1,0,0,0]
43			C:option:{Ginvoke_by_single_shift}=[0,0,1,1]
44			C:option:{C1invoke_to_right}=1
45			C:option:{reset}->{Gdesignation}=0
46			C:option:{reset}->{Ginvoke}=0
47			C:option:{undef_char}=["\x3F", {type => 'G94', charset => 'B'}]
48			Encode:
49			=>ucs_to_ascii ucs_to_kps9566_1997
50			->iso2022:C
51			Decode:
52			<-iso2022:C
53			<=kps9566_1997_to_ucs
54			Description:
55			EUC (ISO/IEC 2022 based 8-bit encoding) for Korean
56			with KPS 9566-97.
57			}
58
59			POD:SEE ALSO:
60			L<Encode::ISO2022>
61			POD:LICENSE:
62			Copyright %%YEAR%% Nanashi-san <nanashi@san.invalid>
63
64			%%PerlLicense%%