/[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.2 by wakaba, Sun Sep 15 05:08:13 2002 UTC revision 1.4 by wakaba, Mon Sep 16 06:34:35 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 jis7/);  __PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7/);
19  require Encode::ISO2022;  require Encode::ISO2022;
20    
21  sub encode ($$;$) {  sub encode ($$;$) {
# Line 34  sub decode ($$;$) { Line 34  sub decode ($$;$) {
34  =item iso-2022-7bit  =item iso-2022-7bit
35    
36  ISO/IEC 2022 based 7-bit encoding using only G0  ISO/IEC 2022 based 7-bit encoding using only G0
37  (Alias: junet, jis, jis7)  (Alias: junet, jis, jis7, iso-2022-7)
38    
39  =cut  =cut
40    
# Line 47  sub __2022__common ($) { Line 47  sub __2022__common ($) {
47  }  }
48  sub __2022_encode ($) {  sub __2022_encode ($) {
49    my $C = shift->__2022__common;    my $C = shift->__2022__common;
50      $C->{GR} = undef;
51    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
52    $C;    $C;
53  }  }
# Line 90  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 110  ISO/IEC 2022 based 7-bit encoding for Ja Line 112  ISO/IEC 2022 based 7-bit encoding for Ja
112    
113  sub __2022_encode ($) {  sub __2022_encode ($) {
114    my $C = shift->__2022__common;    my $C = shift->__2022__common;
115      $C->{GR} = undef;
116    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman
117    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983
118    $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 189  sub __2022__common ($) { Line 192  sub __2022__common ($) {
192  package Encode::ISO2022::SevenBit::SS2;  package Encode::ISO2022::SevenBit::SS2;
193  use vars qw/@ISA/;  use vars qw/@ISA/;
194  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
195  __PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2  jis_encoding csjisencoding/);  __PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2 iso-2022-ss2-7
196       jis_encoding csjisencoding/);
197    
198  =item iso-2022-7bit-ss2  =item iso-2022-7bit-ss2
199    
200  ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset  ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset
201  (Alias: x-iso-2022-jp-2)  (Alias: x-iso-2022-jp-2, iso-2022-ss2-7 (emacsen))
202    
203  =cut  =cut
204    
# Line 240  sub __2022__common ($) { Line 244  sub __2022__common ($) {
244  }  }
245  sub __2022_encode ($) {  sub __2022_encode ($) {
246    my $C = shift->__2022__common;    my $C = shift->__2022__common;
247      $C->{GR} = undef;
248    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
249    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
250    $C;    $C;
# Line 263  sub __2022__common ($) { Line 268  sub __2022__common ($) {
268    $C;    $C;
269  }  }
270    
271    package Encode::ISO2022::SevenBit::INT;
272    use vars qw/@ISA/;
273    push @ISA, 'Encode::ISO2022::SevenBit';
274    __PACKAGE__->Define (qw/iso-2022-int iso-2022-int-*  iso-2022-int-2/);
275    
276    =item iso-2022-int
277    
278    ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for
279    KS X 1001 and 96-charset.  See draft-ohta-text-encoding.
280    (Alias: iso-2022-int-*)
281    
282    =cut
283    
284    sub __2022__common ($) {
285      my $C = shift->SUPER::__2022__common;
286      $C->{option}->{designate_to}->{G96}->{default} = 1;
287      $C->{option}->{designate_to}->{G96n}->{default} = 1;
288      $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001
289      $C;
290    }
291    sub __2022_encode ($) {
292      my $C = shift->__2022__common;
293      $C->{GR} = undef;
294      $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
295      $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
296      $C;
297    }
298    sub __2022_decode ($) {
299      my $C = shift->__2022__common;
300      $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
301      $C;
302    }
303    
304  package Encode::ISO2022::SevenBit::KR;  package Encode::ISO2022::SevenBit::KR;
305  use vars qw/@ISA/;  use vars qw/@ISA/;
306  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
# Line 290  sub __2022__common ($) { Line 328  sub __2022__common ($) {
328  }  }
329  sub __2022_encode ($) {  sub __2022_encode ($) {
330    my $C = shift->__2022__common;    my $C = shift->__2022__common;
331      $C->{GR} = undef;
332    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
333    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
334    $C;    $C;
# Line 333  sub __2022__common ($) { Line 372  sub __2022__common ($) {
372  }  }
373  sub __2022_encode ($) {  sub __2022_encode ($) {
374    my $C = shift->__2022__common;    my $C = shift->__2022__common;
375      $C->{GR} = undef;
376    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
377    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
378    $C;    $C;
# Line 410  sub __2022__common ($) { Line 450  sub __2022__common ($) {
450  }  }
451  sub __2022_encode ($) {  sub __2022_encode ($) {
452    my $C = shift->__2022__common;    my $C = shift->__2022__common;
453      $C->{GR} = undef;
454    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
455    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
456    $C;    $C;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24