fonts/sorttxtfont.pl


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

#!/usr/bin/perl -w

# sort a font in psftools .txt format, by unicode codepoint.
# only the *first* codepoint per glyph is used as the key.

undef $/;
$_ = <>;
@glyphs = split "%";
shift @glyphs;
$header = "%" . (shift @glyphs);

# 0 is a special case because fonts intended to become PSFs will
# be padded with extra characters with encoding 0. only the first
# one seen is the real one.
$zeroseen = 0;

for(@glyphs) {
	my($cp, $dcp);
	($cp) = (/Unicode: \[([0-9a-fA-F]+)/);
	$dcp = eval "0x$cp";
	if($dcp == 0) {
		next if $zeroseen++;
	}
	if(defined $sortme{$dcp}) {
		warn "duplicate codepoint 0x$cp\n";
	}
	$sortme{$dcp} = $_;
}

for(sort { $a <=> $b } keys %sortme) {
	push @sorted, $sortme{$_};
}
print join("%", $header, @sorted);