/[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.4 by wakaba, Sat Oct 12 07:27:01 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;
# Line 46  sub load_table (@) { Line 53  sub load_table (@) {
53      if ($name =~ /^ucs_to_(.+)$/) { $name = $1 }      if ($name =~ /^ucs_to_(.+)$/) { $name = $1 }
54      elsif ($name =~ /^(.+)_to_ucs$/) { $name = $1 }      elsif ($name =~ /^(.+)_to_ucs$/) { $name = $1 }
55      unless (${ 'Encode::Table::' . $name . '::VERSION' }) {      unless (${ 'Encode::Table::' . $name . '::VERSION' }) {
56        eval qq{require Encode::Table::$name; Encode::Table::$name->import} or warn $@;        eval qq{require Encode::Table::$name; Encode::Table::$name->import; 1} or warn $@;
57      }      }
58    }    }
59  }  }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24