File: list_gryph_width

package info (click to toggle)
xfonts-mona 2.90-9
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 7,888 kB
  • sloc: perl: 11,238; makefile: 442; lisp: 68
file content (18 lines) | stat: -rwxr-xr-x 367 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/env perl
# $Id: list_gryph_width,v 1.1 2003/08/05 16:26:37 s42335 Exp $
#
# usage: disp EBLC_EBDT | list_gryph_width 
#
# lists the widths of each glyph.. (obvious in purpose)

$glyph = 0;
while(<>) {
    chop;
    if (/^COMMENT GLYPH +(\d+)/) {
	$glyph = $1;
    } elsif (/^DWIDTH +(\d+) +(\d+)/) {
	if ($glyph) {
	    print "$glyph: $1 $2\n";
	}
    }
}