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