/[suikacvs]/perl/lib/Encode/ISO2022/EightBit.pm
Suika

Diff of /perl/lib/Encode/ISO2022/EightBit.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Fri Sep 20 14:01:45 2002 UTC revision 1.4 by wakaba, Fri Oct 4 23:58:04 2002 UTC
# Line 81  sub __2022__common ($) { Line 81  sub __2022__common ($) {
81  package Encode::ISO2022::EightBit::EUCJapan;  package Encode::ISO2022::EightBit::EUCJapan;
82  use vars qw/@ISA/;  use vars qw/@ISA/;
83  push @ISA, 'Encode::ISO2022::EightBit';  push @ISA, 'Encode::ISO2022::EightBit';
84  __PACKAGE__->Define (qw/euc-japan euc-japan-1990 euc-jp eucjp euc_jp x-euc-jp  __PACKAGE__->Define (qw/euc-japan euc-japan-1990 euc-jp euc-j eucjp euc_jp x-euc-jp
85    Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese    x-eucjp eucjis euc-jis eucj Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
86    japanese-iso-8bit cp51932 japanese_euc    japanese-iso-8bit cp51932 japanese_euc
87        ajec eucjp-open  ibm-eucjp cp33722 33722  sdeckanji/);        ajec eucjp-open  ibm-eucjp cp33722 33722  sdeckanji/);
88    
# Line 90  __PACKAGE__->Define (qw/euc-japan euc-ja Line 90  __PACKAGE__->Define (qw/euc-japan euc-ja
90    
91  EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese.  EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese.
92  (Alias: euc-japan-1990 (emacsen), euc-jp (IANA),  (Alias: euc-japan-1990 (emacsen), euc-jp (IANA),
93  eucjp (locale), euc_jp, x-euc-jp,  euc-j, eucjp (X), euc_jp, eucj, x-eucjp, x-euc-jp, eucjis, euc-jis,
94  extended_unix_code_packed_format_for_japanese (IANA),  extended_unix_code_packed_format_for_japanese (IANA),
95  cseucpkdfmtjapanese (IANA), japanese-iso-8bit (emacsen),  cseucpkdfmtjapanese (IANA), japanese-iso-8bit (emacsen),
96  cp51932 (M$), japanese_euc)  cp51932 (M$), japanese_euc)
# Line 108  sub __2022__common ($) { Line 108  sub __2022__common ($) {
108  package Encode::ISO2022::EightBit::EUCJISX0213;  package Encode::ISO2022::EightBit::EUCJISX0213;
109  use vars qw/@ISA/;  use vars qw/@ISA/;
110  push @ISA, 'Encode::ISO2022::EightBit';  push @ISA, 'Encode::ISO2022::EightBit';
111  __PACKAGE__->Define (qw/euc-jisx0213 x-euc-jisx0213  __PACKAGE__->Define (qw/euc-jisx0213 x-euc-jisx0213 euc_jisx0213 eucjp0213
112        x-euc-jisx0213-packed  deckanji2000/);   euc-jp-3     x-euc-jisx0213-packed  deckanji2000/);
113    
114  =item euc-jisx0213  =item euc-jisx0213
115    
116  EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese  EUC (ISO/IEC 2022 based 8-bit encoding) for Japanese
117  with JIS X 0213:2000, defined by JIS X 0213:2000.  with JIS X 0213:2000, defined by JIS X 0213:2000.
118  (Alias: x-euc-jisx0213)  (Alias: x-euc-jisx0213, euc_jisx0213, eucjp0213, euc-jp-3)
119    
120  =cut  =cut
121    
# Line 148  sub __2022__common ($) { Line 148  sub __2022__common ($) {
148  package Encode::ISO2022::EightBit::EUCCHINA;  package Encode::ISO2022::EightBit::EUCCHINA;
149  use vars qw/@ISA/;  use vars qw/@ISA/;
150  push @ISA, 'Encode::ISO2022::EightBit';  push @ISA, 'Encode::ISO2022::EightBit';
151  __PACKAGE__->Define (qw/euc-china euc-cn cn-gb cn-gb-2312 chinese-iso-8bit  __PACKAGE__->Define (qw/euc-china euc-cn euccn euc-gb
152     cn-gb cn-gb-2312 chinese-iso-8bit ugb
153   gb2312 csgb2312 x-euc-cn cp51936   ibm-euccn CP1383 1383/);   gb2312 csgb2312 x-euc-cn cp51936   ibm-euccn CP1383 1383/);
154    
155  =item euc-china  =item euc-china
156    
157  EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese.  EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese.
158  (Alias: euc-cn (emacsen), cn-gb (RFC 1922), cn-gb-2312 (RFC 1922),  (Alias: euc-cn (emacsen), euccn, euc-gb, cn-gb (RFC 1922), cn-gb-2312 (RFC 1922),
159  chinese-iso-8bit (emacsen), gb2312 (IANA), csgb2312 (IANA),  chinese-iso-8bit (emacsen), ugb, gb2312 (IANA), csgb2312 (IANA),
160  x-euc-cn, CP51936 (M$))  x-euc-cn, CP51936 (M$))
161    
162  =cut  =cut
# Line 169  sub __2022__common ($) { Line 170  sub __2022__common ($) {
170  package Encode::ISO2022::EightBit::EUCCHINA165;  package Encode::ISO2022::EightBit::EUCCHINA165;
171  use vars qw/@ISA/;  use vars qw/@ISA/;
172  push @ISA, 'Encode::ISO2022::EightBit';  push @ISA, 'Encode::ISO2022::EightBit';
173  __PACKAGE__->Define (qw/cn-gb-isoir165/);  __PACKAGE__->Define (qw/cn-gb-isoir165 iso-ir-165/);
174    
175  =item euc-china  =item cn-gb-isoir165
176    
177  EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese  EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese
178  with ISO-IR 165. (Alias: cn-gb-isoir165 (RFC 1922))  with ISO-IR 165. (Alias: cn-gb-isoir165 (RFC 1922),
179    ISO-IR-165)
180    
181  =cut  =cut
182    
# Line 184  sub __2022__common ($) { Line 186  sub __2022__common ($) {
186    $C;    $C;
187  }  }
188    
189    package Encode::ISO2022::EightBit::EUCcwnn;
190    use vars qw/@ISA/;
191    push @ISA, 'Encode::ISO2022::EightBit';
192    __PACKAGE__->Define (qw/euc-cwnn cwnn-iso-8bit/);
193    
194    =item euc-cwnn
195    
196    EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese
197    with GB 2312, used by cwnn input system (Alias: cwnn-iso-8bit)
198    
199    =cut
200    
201    # See <http://www.tomo.gr.jp/users/wnn/9912ml/msg00088.html>
202    
203    sub __2022__common ($) {
204      my $C = shift->SUPER::__2022__common;
205      $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{A};      ## GB 2312
206      $C->{G2} = $Encode::ISO2022::CHARSET{G94}->{'0'};     # omron_udc_zh (sisheng)
207            ## TODO: Implement by private set support
208      $C;
209    }
210    
211    ## cn-gb-12345, gb12345, euc-gb12345
212    
213  package Encode::ISO2022::EightBit::EUCKorea;  package Encode::ISO2022::EightBit::EUCKorea;
214  use vars qw/@ISA/;  use vars qw/@ISA/;
215  push @ISA, 'Encode::ISO2022::EightBit';  push @ISA, 'Encode::ISO2022::EightBit';
216  __PACKAGE__->Define (qw/euc-korea euc-kr cp970 cp51949 ibm-euckr x-euc-kr  __PACKAGE__->Define (qw/euc-korea euc-kr euckr cp970 cp51949 ibm-euckr x-euc-kr
217   cseuckr korean-iso-8bit/);   cseuckr korean-iso-8bit/);
218    
219  =item euc-korea  =item euc-korea
220    
221  EUC (ISO/IEC 2022 based 8-bit encoding) for Korean  EUC (ISO/IEC 2022 based 8-bit encoding) for Korean
222  (Alias: euc-kr (IANA), cp970, cp51949 (M$), ibm-euckr,  (Alias: euc-kr (IANA), euckr, cp970, cp51949 (M$), ibm-euckr,
223  x-euc-kr, cseuckr (IANA), korean-iso-8bit (emacsen))  x-euc-kr, cseuckr (IANA), korean-iso-8bit (emacsen))
224    
225  =cut  =cut
# Line 207  sub __2022__common ($) { Line 233  sub __2022__common ($) {
233  package Encode::ISO2022::EightBit::EUCTaiwan;  package Encode::ISO2022::EightBit::EUCTaiwan;
234  use vars qw/@ISA/;  use vars qw/@ISA/;
235  push @ISA, 'Encode::ISO2022::EightBit';  push @ISA, 'Encode::ISO2022::EightBit';
236  __PACKAGE__->Define (qw/euc-taiwan euc-tw x-euc-tw cns11643  ibm-euctw cp964/);  __PACKAGE__->Define (qw/euc-taiwan euc-tw euctw x-euc-tw cns11643 cseuctw
237        ibm-euctw cp964/);
238    
239  =item euc-taiwan  =item euc-taiwan
240    
241  EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese  EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese
242  with CNS 11643.  (Alias: euc-tw, x-euc-tw, cns11643)  with CNS 11643.  (Alias: euc-tw, euctw, x-euc-tw, cseuctw, cns11643)
243    
244    =cut
245    
246    sub __2022__common ($) {
247      my $C = shift->SUPER::__2022__common;
248      $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{G};      ## plane 1
249      #$C->{G2} =   ## BUG: does not support plane 2-16 yet
250      $C->{G2} = $Encode::ISO2022::CHARSET{G94n}->{' `'};   # 3byte DRCS (temporary)
251      $C;
252    }
253    
254    package Encode::ISO2022::EightBit::EUCtwnn;
255    use vars qw/@ISA/;
256    push @ISA, 'Encode::ISO2022::EightBit';
257    __PACKAGE__->Define (qw/euc-twnn twnn-iso-8bit/);
258    
259    =item euc-twnn
260    
261    EUC (ISO/IEC 2022 based 8-bit encoding) for Chinese
262    with CNS 11643, used by twnn input system (Alias: twnn-iso-8bit)
263    
264  =cut  =cut
265    
266    # See <http://www.tomo.gr.jp/users/wnn/9912ml/msg00088.html>
267    
268  sub __2022__common ($) {  sub __2022__common ($) {
269    my $C = shift->SUPER::__2022__common;    my $C = shift->SUPER::__2022__common;
270    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{G};      ## plane 1    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{G};      ## plane 1
271    $C->{G2} = $Encode::ISO2022::CHARSET{G94n}->{H};      ## plane 2    $C->{G2} = $Encode::ISO2022::CHARSET{G94}->{'0'};     # omron_udc_zh (sisheng)
272    #$C->{G3} =   ## BUG: does not support plane 3-16 yet          ## TODO: Implement by private set support
273    $C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{' `'};   # 3byte DRCS (temporary)    $C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{H};      ## plane 2
274    $C;    $C;
275  }  }
276    
# Line 268  sub __2022__common ($) { Line 317  sub __2022__common ($) {
317  package Encode::ISO2022::EightBit::CompoundText;  package Encode::ISO2022::EightBit::CompoundText;
318  use vars qw/@ISA/;  use vars qw/@ISA/;
319  push @ISA, 'Encode::ISO2022::EightBit';  push @ISA, 'Encode::ISO2022::EightBit';
320  __PACKAGE__->Define (qw/compound-text ctext x-ctext/);  __PACKAGE__->Define (qw/compound-text compound_text
321     x-compound-text ctext x-ctext/);
322    
323  =item compound-text  =item compound-text
324    
325  ISO/IEC 2022 based 8-bit encoding used in inter-client  ISO/IEC 2022 based 8-bit encoding used in inter-client
326  communication of X Window System (Alias: ctext (emacsen), x-ctext (emacsen))  communication of X Window System (Alias: ctext (emacsen), x-ctext (emacsen),
327    compound_text, x-compound-text)
328    
329  Strictly, x-ctext, extended compound text (X Compound Text  Strictly, x-ctext, extended compound text (X Compound Text
330  based encoding for unknown ISO/IEC 2022 based encoding) is a  based encoding for unknown ISO/IEC 2022 based encoding) is a
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24