/[pub]/test/oldencodeutils/lib/Encode/ISO2022/SevenBit.pm
Suika

Diff of /test/oldencodeutils/lib/Encode/ISO2022/SevenBit.pm

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

revision 1.1 by wakaba, Sun Sep 15 04:15:11 2002 UTC revision 1.7 by wakaba, Mon Sep 23 10:36:03 2002 UTC
# Line 15  package Encode::ISO2022::SevenBit; Line 15  package Encode::ISO2022::SevenBit;
15  use vars qw($VERSION);  use vars qw($VERSION);
16  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
17  use base qw(Encode::Encoding);  use base qw(Encode::Encoding);
18  __PACKAGE__->Define (qw/iso-2022-7bit jis junet/);  __PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7
19      7bit-jis/);
20  require Encode::ISO2022;  require Encode::ISO2022;
21    
22  sub encode ($$;$) {  sub encode ($$;$) {
# Line 34  sub decode ($$;$) { Line 35  sub decode ($$;$) {
35  =item iso-2022-7bit  =item iso-2022-7bit
36    
37  ISO/IEC 2022 based 7-bit encoding using only G0  ISO/IEC 2022 based 7-bit encoding using only G0
38  (Alias: junet, jis)  (Alias: junet (emacsen), jis, jis7, iso-2022-7 (emacsen), 7bit-jis (perl))
39    
40  =cut  =cut
41    
# Line 47  sub __2022__common ($) { Line 48  sub __2022__common ($) {
48  }  }
49  sub __2022_encode ($) {  sub __2022_encode ($) {
50    my $C = shift->__2022__common;    my $C = shift->__2022__common;
51      $C->{GR} = undef;
52    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
53    $C;    $C;
54  }  }
# Line 59  sub __2022_decode ($) { Line 61  sub __2022_decode ($) {
61  package Encode::ISO2022::SevenBit::JP;  package Encode::ISO2022::SevenBit::JP;
62  use vars qw/@ISA/;  use vars qw/@ISA/;
63  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
64  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit/);  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
65     iso2022jp/);
66    
67  =item iso-2022-jp  =item iso-2022-jp
68    
69  ISO/IEC 2022 based 7-bit encoding for Japanese.  ISO/IEC 2022 based 7-bit encoding for Japanese.
70  Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.  Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.
71  (Alias: junet-code, japanese-iso-7bit (emacsen))  (Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA))
72    
73  =cut  =cut
74    
# Line 88  sub __2022__common ($) { Line 91  sub __2022__common ($) {
91  }  }
92  sub __2022_encode ($) {  sub __2022_encode ($) {
93    my $C = shift->__2022__common;    my $C = shift->__2022__common;
94      $C->{GR} = undef;
95    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
96    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
97    $C;    $C;
# Line 96  sub __2022_encode ($) { Line 100  sub __2022_encode ($) {
100  package Encode::ISO2022::SevenBit::JP1978IRV;  package Encode::ISO2022::SevenBit::JP1978IRV;
101  use vars qw/@ISA/;  use vars qw/@ISA/;
102  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
103  __PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis/);  __PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis
104      x-obsoleted-iso-2022-jp jis78/);
105    
106  =item iso-2022-jp-1978-irv  =item iso-2022-jp-1978-irv
107    
108  ISO/IEC 2022 based 7-bit encoding for Japanese.  ISO/IEC 2022 based 7-bit encoding for Japanese,
109  (Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen))  using JIS X 0208-1978.
110    (Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen),
111    jis78)
112    
113  =cut  =cut
114    
115  sub __2022_encode ($) {  sub __2022_encode ($) {
116    my $C = shift->__2022__common;    my $C = shift->__2022__common;
117      $C->{GR} = undef;
118    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman
119    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983
120    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990
# Line 135  sub __2022__common ($) { Line 143  sub __2022__common ($) {
143  package Encode::ISO2022::SevenBit::JP3;  package Encode::ISO2022::SevenBit::JP3;
144  use vars qw/@ISA/;  use vars qw/@ISA/;
145  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
146  __PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3   iso-2022-jp-3-compatible iso-2022-jp-3-strict/);  __PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3
147     jis0213   iso-2022-jp-3-compatible iso-2022-jp-3-strict/);
148    
149  =item iso-2022-jp-3  =item iso-2022-jp-3
150    
151  ISO/IEC 2022 based 7-bit encoding for Japanese,  ISO/IEC 2022 based 7-bit encoding for Japanese,
152  defined by JIS X 0213:2000 Appendix 2.  defined by JIS X 0213:2000 Appendix 2.
153  (Alias: x-iso-2022-jp-3)  (Alias: x-iso-2022-jp-3, jis0213)
154    
155  =item iso-2022-jp-3-compatible  =item iso-2022-jp-3-compatible
156    
# Line 186  sub __2022__common ($) { Line 195  sub __2022__common ($) {
195  package Encode::ISO2022::SevenBit::SS2;  package Encode::ISO2022::SevenBit::SS2;
196  use vars qw/@ISA/;  use vars qw/@ISA/;
197  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
198  __PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2/);  __PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2 iso-2022-ss2-7
199       jis_encoding csjisencoding/);
200    
201  =item iso-2022-7bit-ss2  =item iso-2022-7bit-ss2
202    
203  ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset  ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset
204  (Alias: x-iso-2022-jp-2)  (Alias: x-iso-2022-jp-2, iso-2022-ss2-7 (emacsen))
205    
206  =cut  =cut
207    
# Line 206  sub __2022__common ($) { Line 216  sub __2022__common ($) {
216  package Encode::ISO2022::SevenBit::JP2;  package Encode::ISO2022::SevenBit::JP2;
217  use vars qw/@ISA/;  use vars qw/@ISA/;
218  push @ISA, 'Encode::ISO2022::SevenBit::SS2';  push @ISA, 'Encode::ISO2022::SevenBit::SS2';
219  __PACKAGE__->Define (qw/iso-2022-jp-2/);  __PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2/);
220    
221  =item iso-2022-jp-2  =item iso-2022-jp-2
222    
223  ISO/IEC 2022 based 7-bit multilingual encoding, defined by  ISO/IEC 2022 based 7-bit multilingual encoding, defined by
224  RFC 1554.  A subset of iso-2022-7bit-ss2.  RFC 1554.  A subset of iso-2022-7bit-ss2.  (Alias: csISO2022JP2 (IANA))
225    
226  =cut  =cut
227    
# Line 237  sub __2022__common ($) { Line 247  sub __2022__common ($) {
247  }  }
248  sub __2022_encode ($) {  sub __2022_encode ($) {
249    my $C = shift->__2022__common;    my $C = shift->__2022__common;
250      $C->{GR} = undef;
251    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
252    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
253    $C;    $C;
# Line 260  sub __2022__common ($) { Line 271  sub __2022__common ($) {
271    $C;    $C;
272  }  }
273    
274    package Encode::ISO2022::SevenBit::INT;
275    use vars qw/@ISA/;
276    push @ISA, 'Encode::ISO2022::SevenBit';
277    __PACKAGE__->Define (qw/iso-2022-int iso-2022-int-*  iso-2022-int-2/);
278    
279    =item iso-2022-int
280    
281    ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for
282    KS X 1001 and 96-charset.  See draft-ohta-text-encoding.
283    (Alias: iso-2022-int-*)
284    
285    =cut
286    
287    sub __2022__common ($) {
288      my $C = shift->SUPER::__2022__common;
289      $C->{option}->{designate_to}->{G96}->{default} = 1;
290      $C->{option}->{designate_to}->{G96n}->{default} = 1;
291      $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001
292      $C;
293    }
294    sub __2022_encode ($) {
295      my $C = shift->__2022__common;
296      $C->{GR} = undef;
297      $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
298      $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
299      $C;
300    }
301    sub __2022_decode ($) {
302      my $C = shift->__2022__common;
303      $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
304      $C;
305    }
306    
307  package Encode::ISO2022::SevenBit::KR;  package Encode::ISO2022::SevenBit::KR;
308  use vars qw/@ISA/;  use vars qw/@ISA/;
309  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
310  __PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit/);  __PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022/);
311    
312  =item iso-2022-kr  =item iso-2022-kr
313    
314  An ISO/IEC 2022 based 7-bit encoding for Korean,  An ISO/IEC 2022 based 7-bit encoding for Korean,
315  defined by RFC 1557 (Alias: korean-iso-7bit (emacsen))  defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),
316    csISO2022KR (IANA), CP50225 (M$), KR2022)
317    
318  =cut  =cut
319    
# Line 286  sub __2022__common ($) { Line 331  sub __2022__common ($) {
331  }  }
332  sub __2022_encode ($) {  sub __2022_encode ($) {
333    my $C = shift->__2022__common;    my $C = shift->__2022__common;
334      $C->{GR} = undef;
335    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
336    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
337    $C;    $C;
# Line 329  sub __2022__common ($) { Line 375  sub __2022__common ($) {
375  }  }
376  sub __2022_encode ($) {  sub __2022_encode ($) {
377    my $C = shift->__2022__common;    my $C = shift->__2022__common;
378      $C->{GR} = undef;
379    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
380    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
381    $C;    $C;
# Line 365  sub __2022__common ($) { Line 412  sub __2022__common ($) {
412    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5
413    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6
414    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7
415      $C->{option}->{designate_to}->{G94n}->{P0_0} = 1;     ## GB 12345
416      $C->{option}->{designate_to}->{G94n}->{P0_1} = 2;     ## GB 7589
417      $C->{option}->{designate_to}->{G94n}->{P0_2} = 2;     ## GB 13131
418      $C->{option}->{designate_to}->{G94n}->{P0_3} = 3;     ## GB 7590
419      $C->{option}->{designate_to}->{G94n}->{P0_4} = 3;     ## GB 13132
420    $C;    $C;
421  }  }
422  sub __2022_decode ($) {  sub __2022_decode ($) {
# Line 376  sub __2022_decode ($) { Line 428  sub __2022_decode ($) {
428  package Encode::ISO2022::SevenBit::CN;  package Encode::ISO2022::SevenBit::CN;
429  use vars qw/@ISA/;  use vars qw/@ISA/;
430  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
431  __PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit/);  __PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit  iso2022cn-cns iso2022cn-gb/);
432    
433  =item iso-2022-cn  =item iso-2022-cn
434    
# Line 401  sub __2022__common ($) { Line 453  sub __2022__common ($) {
453  }  }
454  sub __2022_encode ($) {  sub __2022_encode ($) {
455    my $C = shift->__2022__common;    my $C = shift->__2022__common;
456      $C->{GR} = undef;
457    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
458    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
459    $C;    $C;
# Line 426  sub __2022__common ($) { Line 479  sub __2022__common ($) {
479    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5
480    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6
481    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7
482      $C->{option}->{designate_to}->{G94n}->{P0_0} = 1;     ## GB 12345
483      $C->{option}->{designate_to}->{G94n}->{P0_1} = 2;     ## GB 7589
484      $C->{option}->{designate_to}->{G94n}->{P0_2} = 2;     ## GB 13131
485      $C->{option}->{designate_to}->{G94n}->{P0_3} = 3;     ## GB 7590
486      $C->{option}->{designate_to}->{G94n}->{P0_4} = 3;     ## GB 13132
487      $C->{option}->{designate_to}->{G94n}->{P1_0} = 3;     ## CNS 11643 plane 8
488      $C->{option}->{designate_to}->{G94n}->{P1_1} = 3;     ## CNS 11643 plane 9
489      $C->{option}->{designate_to}->{G94n}->{P1_2} = 3;     ## CNS 11643 plane 10
490      $C->{option}->{designate_to}->{G94n}->{P1_3} = 3;     ## CNS 11643 plane 11
491      $C->{option}->{designate_to}->{G94n}->{P1_4} = 3;     ## CNS 11643 plane 12
492      $C->{option}->{designate_to}->{G94n}->{P1_5} = 3;     ## CNS 11643 plane 13
493      $C->{option}->{designate_to}->{G94n}->{P1_6} = 3;     ## CNS 11643 plane 14
494      $C->{option}->{designate_to}->{G94n}->{P2_0} = 3;     ## CNS 11643 plane 15
495      $C->{option}->{designate_to}->{G94n}->{P2_1} = 3;     ## CNS 11643 plane 16
496    $C;    $C;
497  }  }
498    
# Line 436  __END__ Line 503  __END__
503    
504  =head1 LICENSE  =head1 LICENSE
505    
506  Copyright 2002 wakaba <w@suika.fam.cx>  Copyright 2002 Wakaba <w@suika.fam.cx>
507    
508  This library is free software; you can redistribute it  This library is free software; you can redistribute it
509  and/or modify it under the same terms as Perl itself.  and/or modify it under the same terms as Perl itself.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24