scribble-math/mathjax-dev/fonts/AFM/STIX/makeData
2010-08-02 17:46:41 +00:00

38 lines
916 B
Perl
Executable File

#! /usr/bin/perl
# Creates the fontdata.js file from the individual font data files
#
# Usage: ./makeData
@files = (
"STIXGeneral-Regular",
"STIXGeneral-Bold",
"STIXGeneral-Italic",
"STIXIntegralsD-Regular",
"STIXNonUnicode-Regular",
"STIXNonUnicode-Bold",
"STIXNonUnicode-Italic",
"STIXSizeOneSym-Regular",
"STIXSizeTwoSym-Regular",
"STIXSizeThreeSym-Regular",
"STIXSizeFourSym-Regular",
"STIXSizeFiveSym-Regular",
"STIXVariants-Regular",
);
open(DATA,">fontdata.js");
foreach $file (@files) {
$file =~ s/STIX//;
$file .= "-Regular" unless $file =~ m/-/;
$file = "fonts/STIX/$file"; $file =~ s!-!/!g;
$file .= (-e "$file/Main.js" ? "/Main.js" : "/All.js");
open(FONT,$file) || print "Can't open $file\n";
$lines = " ".join(" ",<FONT>);
close(FONT);
$lines =~ s/.*FONTDATA/ HTMLCSS.FONTDATA/s;
$lines =~ s/};.*/};\n/s;
print DATA $lines,"\n";
}
close(DATA);