- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
while (<>)
{
chomp;
s/\r$//;
next unless $_;
my ($tag, $value) = split / /, $_, 2;
die "Font is not fixed width\n"
if $tag eq 'SPACING' and not $value =~ /[CM]/i;
$currentchar = $value if $tag eq 'ENCODING';
$minchar = $currentchar if not defined $minchar
or ($currentchar < $minchar && $currentchar >= 0);
$maxchar = $currentchar if not defined $maxchar
or ($currentchar > $maxchar && $currentchar >= 0);