/[suikacvs]/perl/lib/Encode/Table/tool/tbr2tbl.pl
Suika

Diff of /perl/lib/Encode/Table/tool/tbr2tbl.pl

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

revision 1.3 by wakaba, Sat Oct 5 05:01:24 2002 UTC revision 1.4 by wakaba, Sun Oct 6 03:32:30 2002 UTC
# Line 132  sub array_to_table (@%) { Line 132  sub array_to_table (@%) {
132      } elsif (/^#;/) {   ## Comment      } elsif (/^#;/) {   ## Comment
133      } elsif (/^#/) {    ## Comment or unsupported function      } elsif (/^#/) {    ## Comment or unsupported function
134        push @r, $_;        push @r, $_;
135      } elsif (/^0x($o->{except}  (?!3021)[0-9A-Fa-f]+)\t([^\t]*)\t([^\t]*)\t(.*)/x) {      } elsif (/^0x($o->{except} [0-9A-Fa-f]+)\t([^\t]*)\t([^\t]*)\t(.*)/x) {
136        my ($u, $l, $f, $m) = (hex $1, $2, $3, $4);        my ($u, $l, $f, $m) = (hex $1, $2, $3, $4);
137        $f = $o->{fallback} if $o->{fallback};        $f = $o->{fallback} if $o->{fallback};
138        my $offset = $o->{offset};        my $offset = $o->{offset};

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24