X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=charset%2Fmisc%2Ftable2h;h=92a35d5924efe2db3ad7a69f4f6e9789245b27ca;hb=45201a4c724923aae01ed891be9e125b229ad189;hp=c45acf5336dbecc212d8c29e4ed1df851d46dc68;hpb=6950d8072990d55ab7a3894c4bb2aab43ff2a7f1;p=libucw.git diff --git a/charset/misc/table2h b/charset/misc/table2h index c45acf53..92a35d59 100755 --- a/charset/misc/table2h +++ b/charset/misc/table2h @@ -9,9 +9,13 @@ $type=$ARGV[1]; while () { 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; }