if (@ARGV != 1) {
print "usage: make-encoding.pl encfile\n";
exit(1);
}
$file = shift(@ARGV);
open(FP, $file) || die "couldn't open input file `$file': $!\n";
$found = 0;
while (<FP>) {
if ($_ =~ /^-+$/) {
$found = 1;
last;
}
}
if (!$found) {
die "file `$file' is not a valid encoding file: couldn't find table\n";
}
$file =~ s/\.txt$//g;
$file =~ s/.*\///g;
print <<"EOF";
/*
* AFM $file encoding.
*
* This file is automatically generated from file \`$file.txt\'. If you
* have any corrections to this file, please, edit file \`$file.txt\' instead.
*/
/*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file COPYING. If not, write to
* the Free Software Foundation, 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
EOF
print "#include \"afmint.h\"\n\n";
printf("AFMEncodingTable afm_%s_encoding[] =\n{\n",
$file);
while (<FP>) {
@cols = split;
if ($_ =~ /^\s*$/) {
next;
} elsif ($_ =~ /non-printable/) {
print " {@cols[1], AFM_ENC_NONE},\n";
} elsif (@cols[2] =~ /-/) {
print " {@cols[1], AFM_ENC_NON_EXISTENT},\n";
} else {
$name = @cols[2];
$name =~ s/\///g;
print " {@cols[1], \"$name\"},\n";
}
}
printf(" {-1, NULL},\n};\n");
close(FP);