diff options
Diffstat (limited to 'ext/Encode/bin/ucm2table')
| -rw-r--r-- | ext/Encode/bin/ucm2table | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/ext/Encode/bin/ucm2table b/ext/Encode/bin/ucm2table index 04966133c6..ab44573993 100644 --- a/ext/Encode/bin/ucm2table +++ b/ext/Encode/bin/ucm2table @@ -1,20 +1,20 @@ #!/usr/bin/perl -# $Id: ucm2table,v 1.0 2002/03/28 23:26:29 dankogai Exp $ +# $Id: ucm2table,v 1.1 2002/04/22 23:57:10 dankogai Exp $ # use 5.006; use strict; use Getopt::Std; my %Opt; -getopts("eu", \%Opt); -my @Chartab; +getopts("aeu", \%Opt); +my %Chartab; my $Hex = '[0-9A-Fa-f]'; while(<>){ chomp; - my ($uni, $enc, $fb, $comment) = - /^<U($Hex+)>\s+(\S+)\s+\|(\d)\s+#\s+(.*)$/o or next; - # print "$uni $enc $fb $comment\n"; + my ($uni, $enc, $fb) = + /^<U($Hex+)>\s+(\S+)\s+\|(\d)$/o or next; + $fb eq '0' or next; my @byte = (); my $ord = 0; while($enc =~ /\G\\x($Hex+)/iog){ @@ -24,17 +24,19 @@ while(<>){ }; # print join('', @byte), " => $ord \n"; if ($Opt{u}){ - $Chartab[$ord] = pack("U", hex($uni)); + $Chartab{$ord} = pack("U", hex($uni)); }else{ - $Chartab[$ord] = pack("C*", @byte); + $Chartab{$ord} = pack("C*", @byte); } } -for (my $x = 0x20; $x <= 0xffff; $ x+= 32) { +my $start = $Opt{a} ? 0x20 : 0xa0; + +for (my $x = $start; $x <= 0xffff; $ x+= 32) { my $line = ''; for my $i (0..31){ my $num = $x+$i; $num eq 0x7f and next; # skip delete - my $char = $Chartab[$num]; + my $char = $Chartab{$num}; $line .= !$char ? " " : ($num < 0x7f ) ? " $char" : $char ; } |