summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/fontools
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-01-04 23:43:17 +0000
committerKarl Berry <karl@freefriends.org>2014-01-04 23:43:17 +0000
commit8022124f48acd9f4ed4ed26360a387430d106bae (patch)
treee6782af8db073e4d44555ada6e43c743771c998b /Master/texmf-dist/scripts/fontools
parent8c5c1f73c2baa1475314d9ac23b6361e1a70e5e9 (diff)
fontools (4jan14)
git-svn-id: svn://tug.org/texlive/trunk@32573 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/fontools')
-rwxr-xr-xMaster/texmf-dist/scripts/fontools/autoinst404
1 files changed, 271 insertions, 133 deletions
diff --git a/Master/texmf-dist/scripts/fontools/autoinst b/Master/texmf-dist/scripts/fontools/autoinst
index 521fcbc41cf..99d44f96a67 100755
--- a/Master/texmf-dist/scripts/fontools/autoinst
+++ b/Master/texmf-dist/scripts/fontools/autoinst
@@ -4,7 +4,7 @@
----------------------------------------------------------------------------
- Copyright (C) 2005-2013 Marc Penninga.
+ Copyright (C) 2005-2014 Marc Penninga.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
@@ -368,19 +368,25 @@ sub main {
push @{$fddata{$family}{$encoding}{$style}{$series}{$shape}},
[ $minsize, $maxsize, $item->{fontname} ];
}
+
+ if ($ARGV{verbose}) {
+ create_logfile(@worklist);
+ }
- # Create the LaTeX support files
- while (my ($fam, $famdata) = each %fddata) {
- LaTeX::write_stylefile($fam, $famdata);
- while (my ($enc, $encdata) = each %$famdata) {
- while (my ($sty, $stydata) = each %$encdata) {
- LaTeX::write_fdfile($fam, $enc, $sty, $stydata);
+ if (!$ARGV{dryrun}) {
+ # Create the LaTeX support files
+ while (my ($fam, $famdata) = each %fddata) {
+ LaTeX::write_stylefile($fam, $famdata);
+ while (my ($enc, $encdata) = each %$famdata) {
+ while (my ($sty, $stydata) = each %$encdata) {
+ LaTeX::write_fdfile($fam, $enc, $sty, $stydata);
+ }
}
}
- }
- # Create (and execute) commands for otftotfm
- make_commands(@worklist);
+ # Create (and execute) commands for otftotfm
+ make_commands(@worklist);
+ }
return;
}
@@ -494,18 +500,134 @@ sub cleanup {
# add finishing touches to name and NFSS code of encoding
$item->{encoding}[0] =~ s/\A (ot1|t1|ly1) \z/fontools_$1/xms;
$item->{encoding}[1] = uc $item->{encoding}[1];
+
+ $item->{cmdline} = make_cmdline($item);
}
return @worklist;
}
#-----------------------------------------------------------------------
+# Dump all relevant info to the logfile
+#-----------------------------------------------------------------------
+sub create_logfile {
+ my @worklist
+ = sort { $a->{font}{filename} cmp $b->{font}{filename}
+ || $a->{encoding}[1] cmp $b->{encoding}[1]
+ || $a->{style} cmp $b->{style}
+ } @_;
+
+ open my $LOG, '>', $ARGV{logfile}
+ or die "$0: cannot create $ARGV{logfile}: $!";
+
+ print {$LOG} <<"END_ARGUMENTS";
+
+$ARGV{cmdline}
+
+
+****************************************************************************
+
+
+I'm using the following options:
+
+ encoding(s): @{[ join ', ', @{$ARGV{encoding}} ]}
+ NFSS: $ARGV{nfss} @{[ $ARGV{nfss} eq 'rm' ? '(serif)'
+ : $ARGV{nfss} eq 'sf' ? '(sanserif)'
+ : $ARGV{nfss} eq 'tt' ? '(typewriter)'
+ : '(unknown)'
+ ]}
+
+ lining: @{[ $ARGV{lining} ? 'yes' : 'no' ]}
+ oldstyle: @{[ $ARGV{oldstyle} ? 'yes' : 'no' ]}
+ proportional: @{[ $ARGV{proportional} ? 'yes' : 'no' ]}
+ tabular: @{[ $ARGV{tabular} ? 'yes' : 'no' ]}
+ ts1: @{[ $SHAPE{textcomp} ? 'yes' : 'no' ]}
+ smallcaps: @{[ $ARGV{smallcaps} ? 'yes' : 'no' ]}
+ swash: @{[ $ARGV{swash} ? 'yes' : 'no' ]}
+ titling: @{[ $ARGV{titling} ? 'yes' : 'no' ]}
+ superiors: @{[ $ARGV{superiors} ? 'yes' : 'no' ]}
+ inferiors: @{[ $ARGV{inferiors} ? 'yes' : 'no' ]}
+ ornaments: @{[ $ARGV{ornaments} ? 'yes' : 'no' ]}
+ fractions: @{[ $ARGV{fractions} ? 'yes' : 'no' ]}
+
+ verbosity level: $ARGV{verbose}
+
+ dryrun: @{[ $ARGV{dryrun} ? 'true' : 'false' ]}
+ auto/manual: @{[ $ARGV{manual} ? 'manual' : 'auto' ]}
+ target: $ARGV{target}
+ extra: @{[ $ARGV{extra} || '<empty>' ]}
+
+ figurekern: @{[ $ARGV{figurekern} ? 'keep' : 'discard' ]}
+
+
+ font files:
+ @{[ join "\n ", @ARGV ]}
+
+END_ARGUMENTS
+
+ my ($prevfn, $prevsty, $prevenc) = ('') x 3;
+ my @cmds;
+ for my $item (@worklist) {
+ if ($prevfn ne $item->{font}{filename}) {
+ push @cmds, "\n" . '*' x 76 . "\n";
+ print {$LOG} <<"END_FONTINFO";
+
+
+****************************************************************************
+
+
+$item->{font}{filename}
+ Name: $item->{font}{name}
+ Family: $item->{font}{family}
+ Subfamily: $item->{font}{subfamily}
+ Width: $item->{font}{width}
+ Weight: $item->{font}{weight}
+ Shape: $item->{font}{shape}
+ Size: $item->{font}{minsize}-$item->{font}{maxsize}
+ Features: @{[ join ', ', sort keys %{$item->{font}{feature}} ]}
+
+
+Generating these encodings, figure styles and shapes:
+
+ ENC STYLE SHAPE FEATURES USED
+ --------------------------------------------------------------------
+END_FONTINFO
+ }
+ if ($prevenc ne $item->{encoding}[1]
+ || $prevsty ne $item->{style}) {
+ print {$LOG} "\n";
+ }
+ printf {$LOG} " %-3s %-4s %-4s %s\n",
+ $item->{encoding}[1],
+ $item->{style},
+ $item->{fdshape},
+ join(', ', @{$item->{features}}),
+ ;
+ $prevfn = $item->{font}{filename};
+ $prevsty = $item->{style};
+ $prevenc = $item->{encoding}[1];
+
+ push @cmds, $item->{cmdline};
+ }
+
+ if ($ARGV{verbose} >= 2) {
+ print {$LOG} <<"END_COMMANDS";
+
+ @{[ join "\n\n ", @cmds ]}
+
+END_COMMANDS
+ }
+
+ close $LOG;
+}
+
+#-----------------------------------------------------------------------
# Generate all otftotfm commands, and either save or execute them
#-----------------------------------------------------------------------
sub make_commands {
my @worklist = @_;
- my @commands = map { make_cmdline($_) } @worklist;
+ my @commands = map { $_->{cmdline} } @worklist;
# make sure the last command *does* call updmap
$commands[-1] =~ s/--no-updmap//xms if $ARGV{updmap};
@@ -517,11 +639,7 @@ sub make_commands {
close $BAT;
}
else {
- if (grep { print "\n$_\n\n" if $ARGV{verbose};
- system $_;
- }
- @commands)
- {
+ if (grep { system $_ } @commands) {
warn "[WARNING] 'otftotfm' returned non-zero; something's wrong!";
}
}
@@ -591,7 +709,7 @@ sub set_targetdirs {
$ARGV{target}, 'fonts', $_, 'dvips', $ARGV{typeface} || $family)
for qw(enc map);
- File::Path::make_path(values %dir);
+ File::Path::make_path(values %dir) unless $ARGV{dryrun};
my $result = join ' ', map { "--${_}-directory=$dir{$_}" } @FILETYPES;
$result .= " --encoding-directory=$dir{enc} --map-file="
@@ -616,6 +734,10 @@ Usage: autoinst [options] font[s]
Possible options:
-encoding=ENC[,ENC]* Specify text encoding(s) (default: OT1,T1,LY1)
+ -(no)lining Toggle creation of lining digits
+ -(no)oldstyle Toggle creation of oldstyle digits
+ -(no)proportional Toggle creation of proportional digits
+ -(no)tabular Toggle creation of tabular digits
-(no)ts1 Toggle creation of TS1 fonts
-(no)smallcaps Toggle creation of smallcaps shape
-(no)swash Toggle creation of swash shape
@@ -628,8 +750,10 @@ Possible options:
-sanserif Install font as sanserif font
-typewriter Install font as typewriter font
- -lining/-oldstyle Specify which figure style should be
- -tabular/-proportional considered 'default' for this font (see docs)
+ -defaultlining
+ -defaultoldstyle Specify which figure style should be
+ -defaulttabular considered 'default' for this font; see docs
+ -defaultproportional
-extra="TEXT" Add TEXT to the command for 'otftotfm'
-target="DIRECTORY" Install files into specified TEXMF tree
@@ -642,7 +766,11 @@ Possible options:
-help Print this text and exit
-doc Print the complete documentation and exit
- -verbose Show detailed info about progress
+ -verbose Show info about which fonts are generated
+ (repeat for even more detailed info)
+ -logfile="LOGFILE" Print info to LOGFILE (default: autoinst.log)
+ -dryrun Don't generate fonts, only log what would be done
+ (implies -verbose)
font[s] The fonts (.otf or .ttf format) to install.
@@ -651,60 +779,72 @@ END_USAGE
# Default values for the command-line arguments
%ARGV = (
- encoding => 'OT1,T1,LY1',
- textcomp => '2', # 0 = no, 1 = yes, 2 = (enc eq 'T1' ? yes : no)
- smallcaps => '1', # 0 = no, 1 = yes
- swash => '1', # 0 = no, 1 = yes
- titling => '1', # 0 = no, 1 = yes
- superiors => '1', # 0 = no, 1 = yes
- inferiors => '0', # 0 = no, 1 = yes
- ornaments => '1', # 0 = no, 1 = yes
- fractions => '0', # 0 = no, 1 = yes
- nfss => 'rm',
- fig_height => 'lnum',
- fig_width => 'tnum',
- extra => '',
- target => '',
- vendor => 'lcdftools',
- typeface => '',
- updmap => '1', # 0 = no, 1 = yes
- manual => '0', # 0 = no, 1 = yes
- verbose => '0', # 0 = no, 1 = yes
- figurekern => '1', # 0 = no, 1 = yes
+ encoding => 'OT1,T1,LY1',
+ textcomp => '2', # 0 = no, 1 = yes, 2 = (enc eq 'T1' ? yes : no)
+ lining => '1', # 0 = no, 1 = yes
+ oldstyle => '1', # 0 = no, 1 = yes
+ proportional => '1', # 0 = no, 1 = yes
+ tabular => '1', # 0 = no, 1 = yes
+ smallcaps => '1', # 0 = no, 1 = yes
+ swash => '1', # 0 = no, 1 = yes
+ titling => '1', # 0 = no, 1 = yes
+ superiors => '1', # 0 = no, 1 = yes
+ inferiors => '0', # 0 = no, 1 = yes
+ ornaments => '1', # 0 = no, 1 = yes
+ fractions => '0', # 0 = no, 1 = yes
+ nfss => 'rm',
+ fig_height => 'lnum',
+ fig_width => 'tnum',
+ extra => '',
+ target => '',
+ vendor => 'lcdftools',
+ typeface => '',
+ updmap => '1', # 0 = no, 1 = yes
+ manual => '0', # 0 = no, 1 = yes
+ dryrun => '0', # 0 = no, 1 = yes
+ verbose => '0', # 0 = no, 1 = yes
+ logfile => 'autoinst.log',
+ figurekern => '1', # 0 = no, 1 = yes
);
#-----------------------------------------------------------------------
# Process command-line arguments
#-----------------------------------------------------------------------
sub parse_options {
- my $cmdline = "$0 " . join ' ', @ARGV;
+ $ARGV{cmdline} = "$0 " . join ' ', @ARGV;
Getopt::Long::GetOptions(
- 'help|?' => sub { print $USAGE; exit; },
- 'doc' => sub { Pod::Usage::pod2usage(-verbose => 2); },
- 'encoding=s' => \$ARGV{encoding},
- 'ts1!' => \$ARGV{textcomp},
- 'smallcaps!' => \$ARGV{smallcaps},
- 'swash!' => \$ARGV{swash},
- 'titling!' => \$ARGV{titling},
- 'superiors!' => \$ARGV{superiors},
- 'inferiors!' => \$ARGV{inferiors},
- 'ornaments!' => \$ARGV{ornaments},
- 'fractions!' => \$ARGV{fractions},
- 'sanserif' => sub { $ARGV{nfss} = 'sf' },
- 'typewriter' => sub { $ARGV{nfss} = 'tt' },
- 'lining' => sub { $ARGV{fig_height} = 'lnum' },
- 'oldstyle' => sub { $ARGV{fig_height} = 'onum' },
- 'tabular' => sub { $ARGV{fig_width} = 'tnum' },
- 'proportional' => sub { $ARGV{fig_width} = 'pnum' },
- 'extra=s' => \$ARGV{extra},
- 'target=s' => \$ARGV{target},
- 'vendor=s' => \$ARGV{vendor},
- 'typeface=s' => \$ARGV{typeface},
- 'updmap!' => \$ARGV{updmap},
- 'manual' => \$ARGV{manual},
- 'figurekern!' => \$ARGV{figurekern},
- 'verbose' => \$ARGV{verbose},
+ 'help|?' => sub { print $USAGE; exit; },
+ 'doc' => sub { Pod::Usage::pod2usage(-verbose => 2); },
+ 'encoding=s' => \$ARGV{encoding},
+ 'ts1!' => \$ARGV{textcomp},
+ 'lining!' => \$ARGV{lining},
+ 'oldstyle!' => \$ARGV{oldstyle},
+ 'proportional!' => \$ARGV{proportional},
+ 'tabular!' => \$ARGV{tabular},
+ 'smallcaps!' => \$ARGV{smallcaps},
+ 'swash!' => \$ARGV{swash},
+ 'titling!' => \$ARGV{titling},
+ 'superiors!' => \$ARGV{superiors},
+ 'inferiors!' => \$ARGV{inferiors},
+ 'ornaments!' => \$ARGV{ornaments},
+ 'fractions!' => \$ARGV{fractions},
+ 'sanserif' => sub { $ARGV{nfss} = 'sf' },
+ 'typewriter' => sub { $ARGV{nfss} = 'tt' },
+ 'defaultlining' => sub { $ARGV{fig_height} = 'lnum' },
+ 'defaultoldstyle' => sub { $ARGV{fig_height} = 'onum' },
+ 'defaulttabular' => sub { $ARGV{fig_width} = 'tnum' },
+ 'defaultproportional' => sub { $ARGV{fig_width} = 'pnum' },
+ 'extra=s' => \$ARGV{extra},
+ 'target=s' => \$ARGV{target},
+ 'vendor=s' => \$ARGV{vendor},
+ 'typeface=s' => \$ARGV{typeface},
+ 'updmap!' => \$ARGV{updmap},
+ 'dryrun' => \$ARGV{dryrun},
+ 'manual' => \$ARGV{manual},
+ 'figurekern!' => \$ARGV{figurekern},
+ 'verbose+' => \$ARGV{verbose},
+ 'logfile=s' => \$ARGV{logfile},
)
or die "$USAGE";
@@ -738,6 +878,11 @@ sub parse_options {
$STYLE_DEFAULTS{$ARGV{fig_height}}();
$STYLE_DEFAULTS{$ARGV{fig_width}}();
+ delete @STYLE{qw(LF TLF)} unless $ARGV{lining};
+ delete @STYLE{qw(OsF TOsF)} unless $ARGV{oldstyle};
+ delete @STYLE{qw(LF OsF)} unless $ARGV{proportional};
+ delete @STYLE{qw(TLF TOsF)} unless $ARGV{tabular};
+
if ($ARGV{manual}) {
warn "[WARNING] option '--target' overridden by '--manual'!"
if $ARGV{target};
@@ -762,43 +907,9 @@ sub parse_options {
$STYLE{TLF}{extra} = $tkern;
$STYLE{TOsF}{extra} = $tkern;
}
-
- if ($ARGV{verbose}) {
- print <<"END_ARGUMENTS";
-
-$cmdline
-
-
-I'm using the following options:
-
- encoding(s): @{[ join ', ', @{$ARGV{encoding}} ]}
- NFSS: $ARGV{nfss} @{[ $ARGV{nfss} eq 'rm' ? '(serif)'
- : $ARGV{nfss} eq 'sf' ? '(sanserif)'
- : $ARGV{nfss} eq 'tt' ? '(typewriter)'
- : '(unknown)'
- ]}
-
- (no)ts1: @{[ $SHAPE{textcomp} ? 'ts1' : 'nots1' ]}
- (no)smallcaps: @{[ $ARGV{smallcaps} ? 'smallcaps' : 'nosmallcaps' ]}
- (no)swash: @{[ $ARGV{swash} ? 'swash' : 'noswash' ]}
- (no)titling: @{[ $ARGV{titling} ? 'titling' : 'notitling' ]}
- (no)superiors: @{[ $ARGV{superiors} ? 'superiors' : 'nosuperiors' ]}
- (no)inferiors: @{[ $ARGV{inferiors} ? 'inferiors' : 'noinferiors' ]}
- (no)ornaments: @{[ $ARGV{ornaments} ? 'ornaments' : 'noornaments' ]}
- (no)fractions: @{[ $ARGV{fractions} ? 'fractions' : 'nofractions' ]}
-
- verbosity: @{[ $ARGV{verbose} ? 'verbose' : 'quiet' ]}
- lining/oldstyle: @{[ $ARGV{fig_height} == 'lnum' ? 'lining' : 'oldstyle' ]}
- tabular/prop.: @{[ $ARGV{fig_width} == 'tnum' ? 'tabular' : 'proportional' ]}
-
- target: $ARGV{target}
- auto/manual: @{[ $ARGV{manual} ? 'manual' : 'automatic' ]}
- extra: @{[ $ARGV{extra} || 'empty' ]}
-
- figurekern: @{[ $ARGV{figurekern} ? 'keep' : 'discard' ]}
-
-END_ARGUMENTS
+ if ($ARGV{dryrun} && $ARGV{verbose} == 0) {
+ $ARGV{verbose} = 1;
}
}
@@ -827,21 +938,6 @@ sub parse_fontinfo {
parse_sizeinfo($info);
parse_features($info);
- if ($ARGV{verbose}) {
- print <<"END_FONTINFO";
-$info->{filename}
- Name: $info->{name}
- Family: $info->{family}
- Subfamily: $info->{subfamily}
- Width: $info->{width}
- Weight: $info->{weight}
- Shape: $info->{shape}
- Size: $info->{minsize}-$info->{maxsize}
- Features: @{[ join ', ', sort keys %{$info->{feature}} ]}
-
-END_FONTINFO
- }
-
return $info;
}
@@ -892,9 +988,9 @@ sub parse_basicinfo {
}
}
- $data{subfamily} =~ s/$info->{width}//xmsi;
- $data{subfamily} =~ s/$info->{weight}//xmsi;
- $data{subfamily} =~ s/$info->{shape}//xmsi;
+# $data{subfamily} =~ s/$info->{width}//xmsi;
+# $data{subfamily} =~ s/$info->{weight}//xmsi;
+# $data{subfamily} =~ s/$info->{shape}//xmsi;
$info->{name} = $data{postscriptname};
$info->{family} = $data{family};
@@ -1772,7 +1868,7 @@ If you use such a TeX distribution, you should either move these files
to their correct destinations by hand, or use the I<-target> option
(see L</"COMMAND-LINE OPTIONS"> below) to specify a TEXMF tree.
-Also, some OpenType fonts lead to F<pl> and F<vpl> files that
+Also, some OpenType fonts may lead to F<pl> and F<vpl> files that
are too big for MiKTeX's F<pltotf> and F<vptovf>;
the versions that come with W32TeX (F<http://www.w32tex.org>)
and TeXLive (F<http://tug.org/texlive>) don't have this problem.
@@ -1791,6 +1887,13 @@ but B<-e> is ambiguous (B<-encoding>, B<-extra>).
=over 4
+=item B<-dryrun>
+
+Don't actually generate any fonts and files, only create a logfile
+showing which fonts would be generated.
+By default, this information is written to F<autoinst.log>;
+use the B<-logfile> option to specify a different filename.
+
=item B<-encoding>=I<encoding[,encoding]>
Generate the specified encoding(s) for the text fonts. The default is "OT1,T1,LY1".
@@ -1823,6 +1926,26 @@ C<\texttt>.
The generated style file redefines C<\familydefault>,
so including it will still make this font the default text font.
+=item B<-lining> / B<-nolining>
+
+Control the creation of fonts with lining figures. The default is
+B<-lining>.
+
+=item B<-oldstyle> / B<-nooldstyle>
+
+Control the creation of fonts with oldstyle figures. The default is
+B<-oldstyle>.
+
+=item B<-proportional> / B<-noproportional>
+
+Control the creation of fonts with proportional figures. The default is
+B<-proportional>.
+
+=item B<-tabular> / B<-notabular>
+
+Control the creation of fonts with tabular figures. The default is
+B<-tabular>.
+
=item B<-smallcaps> / B<-nosmallcaps>
Control the creation of small caps fonts. The default is
@@ -1857,11 +1980,18 @@ Control the creation of ornament fonts. The default is B<-ornaments>.
=item B<-verbose>
-Verbose mode; print detailed info about what B<autoinst> thinks it's doing.
+Verbose mode; print detailed information about which fonts B<autoinst>
+is generating. By default, this information is written to F<autoinst.log>;
+a different filename can be specified using the B<-logfile> option.
+Repeat this option for even more detailed information.
+
+=item B<-logfile>=I<LOGFILE>
+
+Write the logging information to F<LOGFILE> instead of F<autoinst.log>.
-=item B<-lining> / B<-oldstyle>
+=item B<-defaultlining> / B<-defaultoldstyle>
-=item B<-tabular> / B<-proportional>
+=item B<-defaulttabular> / B<-defaultproportional>
Tell B<autoinst> which figure style is the current font family's default
(i.e., which figures you get when you don't specify any OpenType features).
@@ -1869,7 +1999,8 @@ Tell B<autoinst> which figure style is the current font family's default
I<< Don't use these options unless you are certain you need them!
They are only needed for fonts that don't provide OpenType features
for their default figure style; and even in that case,
-the default values (B<-lining> and B<-tabular>) are usually correct. >>
+the default values (B<-defaultlining> and B<-defaulttabular>)
+are usually correct. >>
=item B<-figurekern> / B<-nofigurekern>
@@ -1974,7 +2105,7 @@ Please include all (if any) error messages as well.
=head1 COPYRIGHT
-Copyright (C) 2005-2013 Marc Penninga.
+Copyright (C) 2005-2014 Marc Penninga.
=head1 LICENSE
@@ -2002,6 +2133,13 @@ GNU General Public License for more details.
=over 12
+=item I<2014-01-03>
+
+Added the I<-dryrun> and I<-logfile> options; changed which info is logged.
+Added the I<-lining>, I<-oldstyle>, I<-tabular> and I<-proportional>
+options; the old options with those names have been renamed to
+I<-defaultlining>, I<-defaultoldstyle> etc.
+
=item I<2013-10-31>
The previous change required Perl v5.14 or newer;
@@ -2028,6 +2166,13 @@ the "vendor" instead of the "typeface".
Added extra "ssub" rules to the F<fd> files that substitute "b" for "bx".
Verbose mode now also prints all generated commands before they're executed.
+=back
+
+
+=begin Really_old_history
+
+=over 12
+
=item I<2012-10-25>
Added extra "ssub" rules to the F<fd> files that substitute italic
@@ -2065,13 +2210,6 @@ Generate OT1, T1 and LY1 encoded text fonts by default.
Made I<-titling> a default option (instead of I<-notitling>).
Updated the documentation.
-=back
-
-
-=begin Really_old_history
-
-=over 12
-
=item I<2011-06-15>
Fixed the font info parsing code for some fonts that are