/[suikacvs]/perl/lib/Encode/Table.pm
Suika

Diff of /perl/lib/Encode/Table.pm

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

revision 1.2 by wakaba, Sat Oct 5 01:34:55 2002 UTC revision 1.3 by wakaba, Sat Oct 5 05:01:24 2002 UTC
# Line 17  for (0x00..0x7F) { Line 17  for (0x00..0x7F) {
17    $TABLE{ucs_to_ascii}->{$c} = $c;    $TABLE{ucs_to_ascii}->{$c} = $c;
18  }  }
19  $Encode::Table::ascii::VERSION = $VERSION;  $Encode::Table::ascii::VERSION = $VERSION;
20    for (0xA0..0xFF) {
21      my $c = chr $_;
22      $TABLE{isoiec8859_1_to_ucs}->{$c} = $c;
23      $TABLE{ucs_to_isoiec8859_1}->{$c} = $c;
24    }
25    $Encode::Table::isoiec8859_1::VERSION = $VERSION;
26    
27  my %_Cache;  my %_Cache;
28  sub convert ($@%) {  sub convert ($@%) {
29      return $_[0] unless @{$_[1]} > 0;
30    my @s = split //, shift;    my @s = split //, shift;
31    my $tbl = shift;    my $tbl = shift;
32    my $tbls = join ' ', @$tbl;    my $tbls = join ' ', @$tbl;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24