/[suikacvs]/test/oldencodeutils/lib/Encode/Unicode/UTF1.pm
Suika

Diff of /test/oldencodeutils/lib/Encode/Unicode/UTF1.pm

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

revision 1.3 by wakaba, Fri Aug 16 12:09:21 2002 UTC revision 1.5 by wakaba, Mon Sep 23 08:28:39 2002 UTC
# Line 22  sub decode ($$;$) { Line 22  sub decode ($$;$) {
22    $str =~ s{([\xA0-\xF5].|[\xF6-\xFB]..|[\xFC-\xFF]....)}{    $str =~ s{([\xA0-\xF5].|[\xF6-\xFB]..|[\xFC-\xFF]....)}{
23      chr (_utf1toucs4 (unpack 'C*', $1))      chr (_utf1toucs4 (unpack 'C*', $1))
24    }gex;    }gex;
   Encode::_utf8_on ($str);  
25    $_[1] = '' if $chk;    $_[1] = '' if $chk;
26    return $str;    return $str;
27  }  }
# Line 92  Encode::Unicode::UTF1 --- Encode/decode Line 91  Encode::Unicode::UTF1 --- Encode/decode
91    
92  =head1 LICENSE  =head1 LICENSE
93    
94  Copyright 2002 wakaba E<lt>[email protected]<gt>.  Copyright 2002 Wakaba E<lt>[email protected]<gt>.
95    
96  This program is free software; you can redistribute it and/or modify  This program is free software; you can redistribute it and/or modify
97  it under the terms of the GNU General Public License as published by  it under the terms of the GNU General Public License as published by
# Line 109  along with this program; see the file CO Line 108  along with this program; see the file CO
108  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
109  Boston, MA 02111-1307, USA.  Boston, MA 02111-1307, USA.
110    
 =head1 CHANGE  
   
 See F<ChangeLog>.  
 $Date$  
   
111  =cut  =cut
112    
113    # $Date$
114    ### UTF1.pm ends here
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24