This file is indexed.

/usr/bin/mergebdf is in libbogl-dev 0.1.18-9.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 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
#!/usr/bin/perl -w

if ($#ARGV < 0) {
    die "Usage: mergebdf font1.bdf ... > newfont.bdf\n";
}

foreach $font (@ARGV) {
    open(F, "<$font") || die;
    for (;;) {
	while (defined($_ = <F>) && !/^STARTCHAR /) {
	    if (!$donehead) { print; }
	}
	if (!defined($_)) { last; }
	$donehead = 1;
	$c = $_;
	undef $e;
	while (($_ = <F>) !~ /^ENDCHAR/) {
	    if (/^ENCODING (\d+)$/) { $e = $1; }
	    $c .= $_;
	}
	$c .= $_;
	if (!$char{$e}) {
	    $char{$e} = 1;
	    print $c;
	}
    }
    close(F);
}
print "ENDFONT\n";