You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
646 B
36 lines
646 B
#!/usr/bin/perl
|
|
#
|
|
# unicodepartition_analyze.pl
|
|
#
|
|
# [email protected]
|
|
# June 16, 1998
|
|
#
|
|
# Takes the output of unicodepartition_extract.pl and checks whether there
|
|
# are redundant or missing entries. In all, there should be 64K entries.
|
|
#
|
|
|
|
$i = 0;
|
|
|
|
while (<>)
|
|
{
|
|
($iT,$name) = /(....) (....)/;
|
|
|
|
$iT = hex($iT);
|
|
|
|
if ($iT != $i)
|
|
{
|
|
if ($iT < $i)
|
|
{
|
|
printf("redundant entry: %04x\n", $iT);
|
|
}
|
|
else
|
|
{
|
|
printf("missing entries: %04x-%04x\n", $i, $iT-1);
|
|
$i = $iT + 1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$i += 1;
|
|
}
|
|
}
|