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

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

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

revision 1.1 by wakaba, Fri Aug 16 09:19:18 2002 UTC revision 1.3 by wakaba, Fri Sep 20 14:01:45 2002 UTC
# Line 1  Line 1 
1  require 5.8.0;  require 5.7.3;
2  package Encode::ISO2022::CP932;  package Encode::ISO2022::CP932;
3  use strict;  use strict;
4  use vars qw(%DEFAULT $VERSION);  use vars qw(%DEFAULT $VERSION);
5  $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};
6  use base qw(Encode::Encoding);  use base qw(Encode::Encoding);
7  __PACKAGE__->Define (qw/x-iso2022jp-cp932/);  __PACKAGE__->Define (qw/x-iso2022jp-cp932 CP50220/);
8    
9  sub encode ($$;$) {  sub encode ($$;$) {
10    my ($obj, $str, $chk) = @_;    my ($obj, $str, $chk) = @_;
# Line 76  or 7bit ISO/IEC 2022 CES. Line 76  or 7bit ISO/IEC 2022 CES.
76  This module supports two such charsets.  One is  This module supports two such charsets.  One is
77  C<x-iso2022jp-cp932>,  C<x-iso2022jp-cp932>,
78    
79    =head1 ENCODINGS
80    
81    =over 4
82    
83    =item x-iso2022jp-cp932
84    
85    Microsoft Windows CodePage 50220: A transformation format of
86    Microsoft Windows CodePage 932 that looks like C<ISO-2022-JP>
87    (Alias: C<CP50220> (M$))
88    
89    Note that this coding system does NOT comform to RFC 1468,
90    JIS standards nor ISO/IEC 2022.  This coding system
91    SHOULD be used when and ONLY when converting data received
92    from Microsoft Windows platforms.
93    
94    =back
95    
96  =head1 LICENSE  =head1 LICENSE
97    
98  Copyright 2002 wakaba <w@suika.fam.cx>  Copyright 2002 Wakaba <w@suika.fam.cx>
99    
100  This library is free software; you can redistribute it  This library is free software; you can redistribute it
101  and/or modify it under the same terms as Perl itself.  and/or modify it under the same terms as Perl itself.
102    
 =head1 CHANGE  
   
 See F<ChangeLog>.  
 $Date$  
   
103  =cut  =cut
104    
105    # $Date$
106    ### CP932.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