summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/gnu-freefont/tools/test/MES-Conformance/mes-list-expand.pl
blob: 16b3736947942b92a72481b59495f3618908b9eb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#!/usr/bin/perl
# $Id: mes-list-expand.pl,v 1.1 2009-12-27 16:25:15 Stevan_White Exp $
#
# Expand MES ranges, as available in CEN documents, into simple list
# of character codes.

# Unicode table
$tblfile = "/usr/local/share/unicode/UnicodeData-Latest.txt";
# Array size
$#table = 65535;

# Read in complete Unicode table for the named entities
open(TABLE, "<$tblfile") || die "Cannot find $tblfile\n";
while (<TABLE>) {
    ($code,$name) = split(/[;\n]/, $_, 9999);
    $table[hex($code)] = $name;
}
close(TABLE);

if ($#ARGV >= 0) {
    open(RANGE, $ARGV[0]);
} else {
    open(RANGE, "<stdin");
}
while (<RANGE>) {
    if (/^\#.*/) {
        next;
    } else {
	($page,$codes) = split(/[\t]/, $_, 9999);
	chomp $codes;
	@range = split(/ /, $codes, 9999);
	for ($i = 0; $i <= $#range; $i++) {
	    if (length($range[$i]) == 2) {
		$code = 256*hex($page) + hex($range[$i]);
		printf("%04X:%s\n", $code, $table[$code]);
	    } else {
		($lower,$upper) = split(/-/, $range[$i], 9999);
		for ($j = hex($lower); $j <= hex($upper); $j++) {
		    $code = 256*hex($page) + $j;
		    printf("%04X:%s\n", $code, $table[$code]);
		}
	    }
	}
    }
}