Actually submit previous change.

[p5sagit/p5-mst-13.2.git] / ext / Encode / bin / ucm2table

diff --git a/ext/Encode/bin/ucm2table b/ext/Encode/bin/ucm2table
index ab44573..66e63fc 100644 (file)
--- a/ext/Encode/bin/ucm2table
+++ b/ext/Encode/bin/ucm2table
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: ucm2table,v 1.1 2002/04/22 23:57:10 dankogai Exp $
+# $Id: ucm2table,v 2.1 2006/05/03 18:24:10 dankogai Exp $
 #
 
 use 5.006;
@@ -11,34 +11,34 @@ my %Chartab;
 
 my $Hex = '[0-9A-Fa-f]';
 while(<>){
-       chomp;
-       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){
-           my $byte = hex($1);
-           push @byte, $byte;
-           $ord <<= 8; $ord += $byte;
-       };
-       # print join('', @byte), " => $ord \n";
-       if ($Opt{u}){
-           $Chartab{$ord} = pack("U", hex($uni));
-       }else{
-           $Chartab{$ord} = pack("C*", @byte);
-       }
+    chomp;
+    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){
+        my $byte = hex($1);
+        push @byte, $byte;
+        $ord <<= 8; $ord += $byte;
+    };
+    # print join('', @byte), " => $ord \n";
+    if ($Opt{u}){
+        $Chartab{$ord} = pack("U", hex($uni));
+    }else{
+        $Chartab{$ord} = pack("C*", @byte);
+    }
 }
 
 my $start = $Opt{a} ? 0x20 : 0xa0;
 
-for (my $x = $start; $x <= 0xffff; $ x+= 32) {
+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};
-       $line .= !$char ? " " : 
-           ($num < 0x7f ) ? " $char" : $char ;
+    my $num = $x+$i; $num eq 0x7f and next; # skip delete
+    my $char = $Chartab{$num};
+    $line .= !$char ? " " : 
+        ($num < 0x7f ) ? " $char" : $char ;
     }
     $line =~ /^\s+$/o and next;
     printf "0x%04x: $line\n", $x;