#!/usr/bin/perl #--------------------------------------------------------------- # File : groupfont4xep.pl # Author : Camille Bégnis # Created On : 2004-11-24 # Copyright : Camille Bégnis , # NeoDoc under the GPL license #--------------------------------------------------------------- # synopsis: groupfont4xep.pl --help # This script searches for AFM and TTF fonts into provided paths. It # then generates a modified xep.xml configuration file. Optionnaly, # the script can also output a sample FO file with all found fonts and # trasform it to PDF. Some details: # - A "font-group" is created for each parsed directory and for each # font format (TTF or AFM); # - By defaults AFM fonts are not embedded; # - if a PFB or PFA file associated to an AFM file is found, then it # is added to the font-data definition, and the font is embedded; # - AFM files are parsed in order to try to determine the font style. # Fonts are then grouped into the font-family element. # - TTF files are assigned a font-family each and are embedded by default. use strict; use Getopt::Long; ######################################################################## # initialize variables: my $app = $0; my $version = "$app 0.1.0 2004-11-24"; my $verbose = 0; my ($conf, $out) = ""; # A list of hashes, one hash for each afm font file my @fonts; # list of family fonts in all dirs to avoid duplicates my $allfontnames; # Fields parsed in AFM files my @fields=( "FontName" ,"FullName", "FamilyName" ); # New conf file to be written my $newconffile="xep-new.xml"; # List of unstyled fonts to be used in sample PDF my @usefonts; # A hash that associate to each style keyword found in AFM files, # the corresponding attribute to be used in conf file my %styles=( "Slanted" => " style=\"oblique\"", # "Unslanted" => " style=\"backslant\"", "Oblique" => " style=\"oblique\"", "Italic" => " style=\"italic\"", "Bold" => " weight=\"bold\"", "Medium" => " weight=\"500\"", # "Light" => " weight=\"light\"", # "Book" => " weight=\"book\"", "Condensed" => " stretch=\"condensed\"", "Extended" => " stretch=\"extended\"", ); # Sample text for PDF output my $sampletext="A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog. 1234(} ! Á ß →"; my $block=< Font origin: %ORIG% Family: %FONT% $sampletext \n END_OF_BLOCK # FO file header and footer my $fo_header =< Font Families Samples Page Font Families Samples This document lists all fonts found and gives a sample text formatted for each of them. END_OF_TEXT my $fo_footer =< END_OF_TEXT ######################################################################## my $usage =< --out ... Options: --help - shows this text. --verbose - self explaining. --version - shows version number and exits. - the full path to XEP configuration file - Name of output sample PDF file (optional) ... - The paths where to search for fonts END_OF_USAGE sub parse_command_line { my ($opt_help, $opt_verbose, $opt_version); my $result = GetOptions( 'help' => \$opt_help, 'conf=s' => \$conf, 'out=s' => \$out, 'version' => \$opt_version, 'verbose!' => \$opt_verbose, ); die "$version\n" if defined $opt_version; die $usage if ( (not $conf) || $opt_help ); die "I can't read configuration file $conf" unless -f $conf; $verbose = $opt_verbose if defined $opt_verbose; } parse_command_line; # Build XML config file my $fontselement=""; print " Searching for fonts...\n"; # parse Font files foreach my $path (@ARGV) { print STDERR "Entering $path\n" if $verbose; my @fontnames; # We will first take care of AFM fils my @filenames=glob "$path/*.afm"; foreach my $file (@filenames) { print STDERR " $file" if $verbose; my %font; open (f, "<$file"); $file=~s,.*/,,; $font{"file"}=$file; while () { foreach my $field (@fields) { if (/^$field /) { chomp; s/$field //; if ( "$field" eq "FontName" ) { s/-.*//; s/\W//g; # print "$field $_\n" if $verbose; unless ( $allfontnames=~/,$_,/ ) { push @fontnames, $_ ; $allfontnames.=",$_,"; } } $font{"$field"}=$_; # print "$file $_\n" if $verbose; } } last if /^StartCharMetrics/; } close f; push @fonts, {%font}; } $fontselement.="\n"; # ugly hack to process al font families together foreach my $font (sort @fontnames) { print STDERR "Processing font $font" if $verbose; my $usefont=0; $fontselement.="\n"; foreach my $fontfields (@fonts) { if ( $fontfields->{FontName} eq $font ) { $fontselement.=" {FullName}; my $hasstyle=0; # setup font attributes foreach my $keyword (keys %styles) { if ( /\b$keyword\b/ ) { $fontselement.=$styles{$keyword}; $hasstyle=1; } # print $hasstyle; } $usefont=1 unless ( $hasstyle ); # test PFB or PFA files to embed font or not (activate subset by default) my $namefile=$fontfields->{file}; $namefile=~s/\.afm$//; my $pfa=( -e "$path/$namefile.pfa" ); my $pfb=( -e "$path/$namefile.pfb" ); $fontselement.=" embed=\"true\" subset=\"true\"" if ( $pfa or $pfb ); $fontselement.=">{file}\""; $fontselement.=" pfa=\"$namefile.pfa\"" if $pfa; $fontselement.=" pfb=\"$namefile.pfb\"" if $pfb; $fontselement.="/>\n"; } } push (@usefonts, "$path/$font") if $usefont; $fontselement.="\n"; } $fontselement.="\n\n"; # let's now process TTF files @filenames=glob "$path/*.ttf"; if ( $#filenames >= 0 ) { $fontselement.="\n"; foreach my $file (@filenames) { $file=~s,.*/,,; my $font=$file; $font=~s/\.ttf$//; push (@usefonts, "$path/$font"); $fontselement.="\n"; $fontselement.=" \n"; $fontselement.="\n"; } $fontselement.="\n\n"; } } # Now let's insert those new(?) fonts in the configuration file print "\n Writing new configuration file in $newconffile ...\n"; my $newconf=""; open (CONF, "<$conf") || die "Read error: \"$conf\" $!\n"; while () { if ( /<\/fonts>/ ) { $newconf.="\n\n\n\n"; $newconf.=$fontselement; $newconf.="\n\n\n\n"; } $newconf.=$_; } close CONF; open (CONF, ">$newconffile") || die "Write error: \"$newconffile\" $!\n"; print CONF $newconf; close CONF; # let's generate sample PDF if requested unless ( $out eq "" ) { print " Generating sample PDF in $out ...\n"; open (OUT, ">$out.fo") || die "Write error: \"$out.fo\" $!\n"; print OUT $fo_header; foreach my $font (@usefonts) { print STDERR "Generating sample for font $font\n" if $verbose; $font=~s,(.*)/+,,; my $path=$1; my $newblock=$block; $newblock=~ s/%FONT%/$font/g; $newblock=~ s/%ORIG%/$path/g; print OUT $newblock; } print OUT $fo_footer; close OUT; my @xepargs=("xep", "-DCONFIG=$newconffile", "-fo","$out.fo", "-pdf","$out", ); system(@xepargs) == 0 or die "XEP call:\n@xepargs\nfailed: $?" }