/[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.9 by wakaba, Sat Oct 5 05:01:24 2002 UTC revision 1.10 by wakaba, Sat Oct 12 07:27:01 2002 UTC
# Line 45  sub decode ($$;$) { Line 45  sub decode ($$;$) {
45    $str;    $str;
46  }  }
47    
48    sub __clone ($) {
49      my $self = shift;
50      bless {%$self}, ref $self;
51    };
52    
53  =item iso-2022-7bit  =item iso-2022-7bit
54    
55  ISO/IEC 2022 based 7-bit encoding using only G0  ISO/IEC 2022 based 7-bit encoding using only G0
# Line 146  sub __2022_encode ($) { Line 151  sub __2022_encode ($) {
151    $C;    $C;
152  }  }
153  sub __encode_map ($) {  sub __encode_map ($) {
154    [qw/ucs_to_ascii ucs_to_jisx0208_1978 ucs_to_jisx0208_1983 ucs_to_jisx0208_1990 ucs_to_jisx0201_latin/];    [qw/ucs_to_ascii ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
155  }  }
156  sub __decode_map ($) {  sub __decode_map ($) {
157    [qw/jisx0208_1983_to_ucs jisx0208_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];    [qw/jisx0208_1983_to_ucs jisx0208_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
# Line 387  sub __2022_decode ($) { Line 392  sub __2022_decode ($) {
392  package Encode::ISO2022::SevenBit::KR;  package Encode::ISO2022::SevenBit::KR;
393  use vars qw/@ISA/;  use vars qw/@ISA/;
394  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
395  __PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022/);  __PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022 korean-mail/);
396    
397  =item iso-2022-kr  =item iso-2022-kr
398    
399  An ISO/IEC 2022 based 7-bit encoding for Korean,  An ISO/IEC 2022 based 7-bit encoding for Korean,
400  defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),  defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),
401  csISO2022KR (IANA), CP50225 (M$), KR2022)  csISO2022KR (IANA), CP50225 (M$), KR2022, korean-mail (emacsen))
402    
403  =cut  =cut
404    
# Line 472  sub __2022_decode ($) { Line 477  sub __2022_decode ($) {
477    $C;    $C;
478  }  }
479  sub __encode_map ($) {  sub __encode_map ($) {
480    [qw/ucs_to_ascii ucs_to_isoiec8859_1 ucs_to_jisx0208_1983 ucs_to_jisx0212_1990 ucs_to_gb2312_1980 ucs_to_ksx1001_1992 ucs_to_isoiec8859_7 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];    [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_gb2312_1980 ucs_to_ksx1001_1992 ucs_to_isoiec8859_1 ucs_to_isoiec8859_7 ucs_to_jisx0212_1990 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
481  }  }
482  sub __decode_map ($) {  sub __decode_map ($) {
483    [qw/jisx0208_1983_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs gb2312_1980_to_ucs ksx1001_1992_to_ucs isoiec8859_7_to_ucs/];    [qw/jisx0208_1983_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs gb2312_1980_to_ucs ksx1001_1992_to_ucs isoiec8859_7_to_ucs/];
# Line 550  sub __2022_encode ($) { Line 555  sub __2022_encode ($) {
555    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
556    $C;    $C;
557  }  }
558    sub __encode_map ($) {
559      [qw/ucs_to_ascii ucs_to_gb2312_1980 ucs_to_cns11643_1 ucs_to_cns11643_2/];
560    }
561    sub __decode_map ($) {
562      [qw/gb2312_1980_to_ucs cns11643_1_to_ucs cns11643_2_to_ucs/];
563    }
564    
565  package Encode::ISO2022::SevenBit::CNExt;  package Encode::ISO2022::SevenBit::CNExt;
566  use vars qw/@ISA/;  use vars qw/@ISA/;
# Line 587  sub __2022__common ($) { Line 598  sub __2022__common ($) {
598    $C->{option}->{designate_to}->{G94n}->{P2_1} = 3;     ## CNS 11643 plane 16    $C->{option}->{designate_to}->{G94n}->{P2_1} = 3;     ## CNS 11643 plane 16
599    $C;    $C;
600  }  }
601    sub __encode_map ($) {
602      [qw/ucs_to_ascii ucs_to_gb2312_1980 ucs_to_iso_ir_165 ucs_to_cns11643_1 ucs_to_cns11643_2 ucs_to_cns11643_3 ucs_to_cns11643_4 ucs_to_cns11643_5 ucs_to_cns11643_6 ucs_to_cns11643_7/];
603    }
604    sub __decode_map ($) {
605      [qw/gb2312_1980_to_ucs iso_ir_165_to_ucs cns11643_1_to_ucs cns11643_2_to_ucs cns11643_3_to_ucs cns11643_4_to_ucs cns11643_5_to_ucs cns11643_6_to_ucs cns11643_7_to_ucs/];
606    }
607    
608  1;  1;
609  __END__  __END__
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24