Implemented a new growing array module

[libucw.git] / charset / misc / table2h

diff --git a/charset/misc/table2h b/charset/misc/table2h
index c45acf5336dbecc212d8c29e4ed1df851d46dc68..92a35d5924efe2db3ad7a69f4f6e9789245b27ca 100755 (executable)
--- a/charset/misc/table2h
+++ b/charset/misc/table2h
@@ -9,9 +9,13 @@ $type=$ARGV[1];
 
 while (<STDIN>) {
        chomp;
+       /^#/ && next;
+       /^\s*$/ && next;
+       s/^0x//;
        ($i,$j) = split/\s+/;
        ($i =~ /^(..)(..)$/) || die "Syntax error at $i";
        $table{$1} = "$name" . "_$1";
+       die if defined $val{$i};
        $val{$i} = $j;
 }