#!/sw/bin/perl
eval 'exec /sw/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
##
##  mkgdf_pre -- Pregenerate GdF Files from Fontmap
##  Copyright (c) 1997 Ralf S. Engelschall, <rse@engelschall.com>
##

require 5.003;
use strict;

use vars qw($mkgdf $fontmap $gdfdir $tmpgdfdir);
use vars qw(@FONT, $font);

$mkgdf     = "/sw/pkg/gfont/lib/exec/gfont_mkgdf";
$fontmap   = "/sw/pkg/gfont/lib/etc/Fontmap";
$gdfdir    = "/sw/pkg/gfont/lib/gdf";
$tmpgdfdir = "/sw/var/gfont/";

sub system {
    my ($cmd) = @_;

    printf("$cmd\n");
    system($cmd);
}

@main::FONT = ();
open(FP, "<$fontmap");
while (<FP>) {
    next if (m|^\s*#.+|);
    next if (m|^\s+$|);
    if (m|^(\S+)\s+\S+\s*\n?$|) {
        push(@main::FONT, $1);
    }
}
close(FP);

foreach $font (@main::FONT) {
    &system("$mkgdf $font");
}

##EOF##
