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	#?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%%