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

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

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

revision 1.1 by wakaba, Sun Sep 22 11:08:23 2002 UTC revision 1.4 by wakaba, Sat Oct 12 07:27:01 2002 UTC
# Line 54  sub __2022_decode ($) { Line 54  sub __2022_decode ($) {
54    $C;    $C;
55  }  }
56    
57    sub __clone ($) {
58      my $self = shift;
59      bless {%$self}, ref $self;
60    };
61    
62  package Encode::ISO2022::ISO646::ISO646basic1993;  package Encode::ISO2022::ISO646::ISO646basic1993;
63  use vars qw/@ISA/;  use vars qw/@ISA/;
64  push @ISA, 'Encode::ISO2022::ISO646';  push @ISA, 'Encode::ISO2022::ISO646';
# Line 101  sub __2022__common ($) { Line 106  sub __2022__common ($) {
106  package Encode::ISO2022::ISO646::ISO646irv;  package Encode::ISO2022::ISO646::ISO646irv;
107  use vars qw/@ISA/;  use vars qw/@ISA/;
108  push @ISA, 'Encode::ISO2022::ISO646';  push @ISA, 'Encode::ISO2022::ISO646';
109  __PACKAGE__->Define (qw!ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion!);  __PACKAGE__->Define (qw!ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion ICS!);
110    
111  =item ISO_646.irv:1983  =item ISO_646.irv:1983
112    
113  International reference version (IRV) of ISO 646:1983.  International reference version (IRV) of ISO 646:1983.
114  (Name: ISO_646.irv:1983 (RFC 1345), iso-ir-2 (RFC 1345), irv (RFC 1345),  (Name: ISO_646.irv:1983 (RFC 1345), iso-ir-2 (RFC 1345), irv (RFC 1345),
115  csISO2IntlRefVersion (IANA))  csISO2IntlRefVersion (IANA), ICS)
116    
117  =cut  =cut
118    
# Line 146  package Encode::ISO2022::ISO646::USASCII Line 151  package Encode::ISO2022::ISO646::USASCII
151  use vars qw/@ISA/;  use vars qw/@ISA/;
152  push @ISA, 'Encode::ISO2022::ISO646';  push @ISA, 'Encode::ISO2022::ISO646';
153  #__PACKAGE__->Define (qw!ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991  #__PACKAGE__->Define (qw!ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991
154  #  ASCII ISO646-US US-ASCII us IBM367 cp367 csASCII!);  #  ASCII ISO646-US US-ASCII us IBM367 cp367 csASCII
155    #  646 ASCII-7 ATF-8 CP20127 US_ASCII!);
156    
157  =item ANSI_X3.4-1968  =item ANSI_X3.4-1968
158    
# Line 154  ANSI X3.4-1968 or ISO/IEC 646:1991 Inter Line 160  ANSI X3.4-1968 or ISO/IEC 646:1991 Inter
160  (Name: ANSI_X3.4-1968 (RFC 1345), iso-ir-6 (RFC 1345), ANSI_X3.4-1986 (RFC 1345),  (Name: ANSI_X3.4-1968 (RFC 1345), iso-ir-6 (RFC 1345), ANSI_X3.4-1986 (RFC 1345),
161  ISO_646.irv:1991 (RFC 1345), ASCII (RFC 1345), ISO646-US (RFC 1345),  ISO_646.irv:1991 (RFC 1345), ASCII (RFC 1345), ISO646-US (RFC 1345),
162  US-ASCII (RFC 1345), us (RFC 1345), IBM367 (RFC 1345), cp367 (RFC 1345),  US-ASCII (RFC 1345), us (RFC 1345), IBM367 (RFC 1345), cp367 (RFC 1345),
163  csASCII (IANA))  csASCII (IANA), 646, ASCII-7, ATF-8, CP20127 (M$), US_ASCII)
164    
165  Note that this coding system defined in this module is not used,  Note that this coding system defined in this module is not used,
166  since perl standard Encode module already implement this.  since perl standard Encode module already implement this.
# Line 348  sub __2022__common ($) { Line 354  sub __2022__common ($) {
354    $C;    $C;
355  }  }
356    
357    package Encode::ISO2022::ISO646::csISO60DanishNorwegian;
358    use vars qw/@ISA/;
359    push @ISA, 'Encode::ISO2022::ISO646';
360    __PACKAGE__->Define (qw! NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
361     csISO60Norwegian1!);
362    
363    =item NS_4551-1
364    
365    NS_4551-1, Norwegian version of ISO/IEC 646.
366    (Name: NS_4551-1 (RFC 1345), iso-ir-60 (RFC 1345), ISO646-NO (RFC 1345),
367    no (RFC 1345), csISO60DanishNorwegian (IANA), csISO60Norwegian1 (IANA))
368    
369    =cut
370    
371    sub __2022__common ($) {
372      my $C = shift->SUPER::__2022__common;
373      $C->{bit} = 7;
374      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x60"};
375      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
376      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x60"}];
377      $C;
378    }
379    
380    package Encode::ISO2022::ISO646::csISO61Norwegian2;
381    use vars qw/@ISA/;
382    push @ISA, 'Encode::ISO2022::ISO646';
383    __PACKAGE__->Define (qw! NS_4551-2 iso-ir-61 ISO646-NO2 no2 csISO61Norwegian2!);
384    
385    =item NS_4551-2
386    
387    NS_4551-2, Norwegian version of ISO/IEC 646.
388    (Name: NS_4551-2 (RFC 1345), iso-ir-61 (RFC 1345), ISO646-NO2 (RFC 1345),
389    no2 (RFC 1345), csISO61Norwegian2 (IANA))
390    
391    =cut
392    
393    sub __2022__common ($) {
394      my $C = shift->SUPER::__2022__common;
395      $C->{bit} = 7;
396      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x61"};
397      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
398      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x61"}];
399      $C;
400    }
401    
402    package Encode::ISO2022::ISO646::csISO69French;
403    use vars qw/@ISA/;
404    push @ISA, 'Encode::ISO2022::ISO646';
405    __PACKAGE__->Define (qw!NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French!);
406    
407    =item NF_Z_62-010
408    
409    NF Z 62-010, French version of ISO/IEC 646.
410    (Name: NS_4551-2 (RFC 1345), iso-ir-69 (RFC 1345), ISO646-FR (RFC 1345),
411    fr (RFC 1345), csISO69French (IANA))
412    
413    =cut
414    
415    sub __2022__common ($) {
416      my $C = shift->SUPER::__2022__common;
417      $C->{bit} = 7;
418      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x66"};
419      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
420      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x66"}];
421      $C;
422    }
423    
424    package Encode::ISO2022::ISO646::PT2;
425    use vars qw/@ISA/;
426    push @ISA, 'Encode::ISO2022::ISO646';
427    __PACKAGE__->Define (qw!PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2!);
428    
429    =item PT2
430    
431    Portuguse version of ISO/IEC 646.
432    (Name: PT2 (RFC 1345), iso-ir-84 (RFC 1345), ISO646-PT2 (RFC 1345),
433    csISO84Portuguese2 (IANA))
434    
435    =cut
436    
437    sub __2022__common ($) {
438      my $C = shift->SUPER::__2022__common;
439      $C->{bit} = 7;
440      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x67"};
441      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
442      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x67"}];
443      $C;
444    }
445    
446    package Encode::ISO2022::ISO646::ES2;
447    use vars qw/@ISA/;
448    push @ISA, 'Encode::ISO2022::ISO646';
449    __PACKAGE__->Define (qw!ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2!);
450    
451    =item ES2
452    
453    Spanish version of ISO/IEC 646.
454    (Name: ES2 (RFC 1345), iso-ir-85 (RFC 1345), ISO646-ES2 (RFC 1345),
455    csISO85Spanish2 (IANA))
456    
457    =cut
458    
459    sub __2022__common ($) {
460      my $C = shift->SUPER::__2022__common;
461      $C->{bit} = 7;
462      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x68"};
463      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
464      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x68"}];
465      $C;
466    }
467    
468    package Encode::ISO2022::ISO646::csISO86Hungarian;
469    use vars qw/@ISA/;
470    push @ISA, 'Encode::ISO2022::ISO646';
471    __PACKAGE__->Define (qw!MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian!);
472    
473    =item MSZ_7795.3
474    
475    Hungarian version of ISO/IEC 646.
476    (Name: MSZ_7795.3 (RFC 1345), iso-ir-86 (RFC 1345), ISO646-HU (RFC 1345),
477    hu (RFC 1345), csISO86Hungarian (IANA))
478    
479    =cut
480    
481    sub __2022__common ($) {
482      my $C = shift->SUPER::__2022__common;
483      $C->{bit} = 7;
484      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x69"};
485      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
486      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x69"}];
487      $C;
488    }
489    
490    package Encode::ISO2022::ISO646::csISO121Canadian1;
491    use vars qw/@ISA/;
492    push @ISA, 'Encode::ISO2022::ISO646';
493    __PACKAGE__->Define (qw!CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca
494     csISO121Canadian1!);
495    
496    =item CSA_Z243.4-1985-1
497    
498    Canadian version of ISO/IEC 646.
499    (Name: CSA_Z243.4-1985-1 (RFC 1345), iso-ir-121 (RFC 1345), ISO646-CA (RFC 1345),
500    csa7-1 (RFC 1345), ca (RFC 1345), csISO121Canadian1 (IANA))
501    
502    =cut
503    
504    sub __2022__common ($) {
505      my $C = shift->SUPER::__2022__common;
506      $C->{bit} = 7;
507      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x77"};
508      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
509      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x77"}];
510      $C;
511    }
512    
513    package Encode::ISO2022::ISO646::csISO122Canadian2;
514    use vars qw/@ISA/;
515    push @ISA, 'Encode::ISO2022::ISO646';
516    __PACKAGE__->Define (qw!CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2
517     csISO122Canadian2!);
518    
519    =item CSA_Z243.4-1985-2
520    
521    Canadian version of ISO/IEC 646.
522    (Name: CSA_Z243.4-1985-2 (RFC 1345), iso-ir-122 (RFC 1345), ISO646-CA2 (RFC 1345),
523    csa7-2 (RFC 1345), csISO122Canadian2 (IANA))
524    
525    =cut
526    
527    sub __2022__common ($) {
528      my $C = shift->SUPER::__2022__common;
529      $C->{bit} = 7;
530      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x78"};
531      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
532      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x78"}];
533      $C;
534    }
535    
536    package Encode::ISO2022::ISO646::csISO122Canadian2;
537    use vars qw/@ISA/;
538    push @ISA, 'Encode::ISO2022::ISO646';
539    __PACKAGE__->Define (qw!JUS_I.B1.0022 iso-ir-141 ISO646-YU js yu
540     csISO141JUSIB1002!);
541    
542    =item JUS_I.B1.002
543    
544    Canadian version of ISO/IEC 646.
545    (Name: JUS_I.B1.002 (RFC 1345), iso-ir-141 (RFC 1345), ISO646-YU (RFC 1345),
546    js (RFC 1345), yu (RFC 1345), csISO141JUSIB1002 (IANA))
547    
548    =cut
549    
550    sub __2022__common ($) {
551      my $C = shift->SUPER::__2022__common;
552      $C->{bit} = 7;
553      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x7A"};
554      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
555      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x7A"}];
556      $C;
557    }
558    
559    package Encode::ISO2022::ISO646::csISO151Cuba;
560    use vars qw/@ISA/;
561    push @ISA, 'Encode::ISO2022::ISO646';
562    __PACKAGE__->Define (qw!NC_NC00-10:81 cuba iso-ir-151ISO646-CU
563     csISO151Cuba!);
564    
565    =item NC_NC00-10:81
566    
567    Canadian version of ISO/IEC 646.
568    (Name: NC_NC00-10:81 (RFC 1345), cuba (RFC 1345), iso-ir-151 (RFC 1345),
569    ISO646-CU (RFC 1345), csISO151Cuba (IANA))
570    
571    =cut
572    
573    sub __2022__common ($) {
574      my $C = shift->SUPER::__2022__common;
575      $C->{bit} = 7;
576      $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{"\x21\x41"};
577      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; $C->{G3} = $C->{G1};
578      $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => "\x21\x41"}];
579      $C;
580    }
581    
582    # DS_2089 DS2089 ISO646-DK dk csISO646Danish (IANA)
583            ## Not in ISOREG
584    # KSC5636 ISO646-KR csKSC5636 (IANA)
585            ## Not in ISOREG
586    
587  1;  1;
588  __END__  __END__
589    
590  =back  =back
591    
592  Note that although other JISes such as JIS X 0212 and JIS X 9010  =head1 AUTHORS
593  define ISO/IEC 2022-comfprming coded character sets,  
594  these standards do not define complete coding system (but define  Nanashi-san
595  as used on ISO/IEC 2022 environment), so this module  
596  does not include those coded character sets.  (IETF RFC 1345  Wakaba <w@suika.fam.cx>
 and IANAREG give charset name to coded character sets  
 consist of such standards.  But those are defined by RFC 1345,  
 not by JIS.  Such coded character sets should be implemented  
 in Encode::ISO2022::RFC1345.)  
597    
598  =head1 LICENSE  =head1 LICENSE
599    
600  Copyright 2002 Wakaba <w@suika.fam.cx>  Copyright 2002 Authors
601    
602  This library is free software; you can redistribute it  This library is free software; you can redistribute it
603  and/or modify it under the same terms as Perl itself.  and/or modify it under the same terms as Perl itself.
# Line 374  and/or modify it under the same terms as Line 605  and/or modify it under the same terms as
605  =cut  =cut
606    
607  # $Date$  # $Date$
608  ### JIS.pm ends here  ### ISO646.pm ends here
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24