Parent Directory
| 
Revision Log
2002-10-05 Nanashi-san * Table.pm: New module. (Commited by Wakaba <w@suika.fam.cx>.)
| 1 | wakaba | 1.1 | |
| 2 | =head1 NAME | ||
| 3 | |||
| 4 | Encode::Table --- Inter-coding-space table convertion | ||
| 5 | |||
| 6 | =cut | ||
| 7 | |||
| 8 | package Encode::Table; | ||
| 9 | use strict; | ||
| 10 | use vars qw(%TABLE $VERSION); | ||
| 11 | wakaba | 1.2 | $VERSION = do {my @r =(q$Revision: 1.1 $ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r}; |
| 12 | wakaba | 1.1 | |
| 13 | ## Builtin tables | ||
| 14 | for (0x00..0x7F) { | ||
| 15 | my $c = chr $_; | ||
| 16 | $TABLE{ascii_to_ucs}->{$c} = $c; | ||
| 17 | $TABLE{ucs_to_ascii}->{$c} = $c; | ||
| 18 | } | ||
| 19 | wakaba | 1.2 | $Encode::Table::ascii::VERSION = $VERSION; |
| 20 | wakaba | 1.1 | |
| 21 | my %_Cache; | ||
| 22 | wakaba | 1.2 | sub convert ($@%) { |
| 23 | wakaba | 1.1 | my @s = split //, shift; |
| 24 | my $tbl = shift; | ||
| 25 | my $tbls = join ' ', @$tbl; | ||
| 26 | wakaba | 1.2 | my %option = @_; |
| 27 | load_table (@$tbl) if $option{-autoload}; | ||
| 28 | wakaba | 1.1 | for my $c (@s) { |
| 29 | unless (defined $_Cache{$tbls}->{$c}) { | ||
| 30 | for (@$tbl) { | ||
| 31 | if (defined $TABLE{$_}->{$c}) { | ||
| 32 | $_Cache{$tbls}->{$c} = $TABLE{$_}->{$c}; last; | ||
| 33 | } | ||
| 34 | } | ||
| 35 | $_Cache{$tbls}->{$c} = $c unless defined $_Cache{$tbls}->{$c}; ## Not found | ||
| 36 | } | ||
| 37 | $c = $_Cache{$tbls}->{$c}; | ||
| 38 | } | ||
| 39 | join '', @s; | ||
| 40 | } | ||
| 41 | |||
| 42 | wakaba | 1.2 | sub load_table (@) { |
| 43 | no strict 'refs'; | ||
| 44 | for (@_) { | ||
| 45 | my $name = $_; | ||
| 46 | if ($name =~ /^ucs_to_(.+)$/) { $name = $1 } | ||
| 47 | elsif ($name =~ /^(.+)_to_ucs$/) { $name = $1 } | ||
| 48 | unless (${ 'Encode::Table::' . $name . '::VERSION' }) { | ||
| 49 | eval qq{require Encode::Table::$name; Encode::Table::$name->import} or warn $@; | ||
| 50 | } | ||
| 51 | } | ||
| 52 | } | ||
| 53 | |||
| 54 | wakaba | 1.1 | 1; |
| 55 | __END__ | ||
| 56 | |||
| 57 | =head1 AUTHORS | ||
| 58 |