ext/Encode/ucm2table

   1 #!/usr/bin/perl
   2
   3 use 5.006;
   4 use strict;
   5 use Getopt::Std;
   6 my %Opt;
   7 getopts("eu", \%Opt);
   8 my @Chartab;
   9
  10 my $Hex = '[0-9A-Fa-f]';
  11 while(<>){
  12         chomp;
  13         my ($uni, $enc, $fb, $comment) =
  14             /^<U($Hex+)>\s+(\S+)\s+\|(\d)\s+#\s+(.*)$/o or next;
  15         $comment =~ /<control>/io and next;
  16         $comment =~ /^DELETE/o and next;
  17         # print "$uni $enc $fb $comment\n";
  18         my @byte = ();
  19         my $ord = 0;
  20         while($enc =~ /\G\\x($Hex+)/iog){
  21             my $byte = hex($1);
  22             push @byte, $byte;
  23             $ord <<= 8; $ord += $byte;
  24         };
  25         # print join('', @byte), " => $ord \n";
  26         if ($Opt{u}){
  27             $Chartab[$ord] = pack("U", hex($uni));
  28         }else{
  29             $Chartab[$ord] = pack("C*", @byte);
  30         }
  31 }
  32
  33 for (my $x = 0x20; $x <= 0xffff; $ x+= 32) {
  34     my $line =  '';
  35     for my $i (0..31){
  36         my $char = $Chartab[$x+$i];
  37         $line .= !$char ? " " :
  38             ($x+$i < 0x7f ) ? " $char" : $char ;
  39     }
  40     $line =~ /^\s+$/o and next;
  41     printf "0x%04x: $line\n", $x;
  42 }