Viewing file:  libhint-cid.pl (3.63 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
sub sethint_cid {
my $font = shift;
my $flag = 0;
my $line;
my $fontname = '';
my $cidregistry = '';
my $cidordering = '';
my $cidsupplement = '';
my $family;
my $generalfamily;
my $weight;
my $width;
my $shape;
my $slant;
my $serif;
my $swidth;
my $text;
my $fontfilename = $font;
$fontfilename =~ s/^(.*)\/(.*)$/$2/;
my $fontdir = $1;
open(F, $font) || exitfunc(1, "$font: Unable to open.");
while (<F>) {
$line = $_;
chomp($line);
if ($line =~ /\/CIDFontName[ \t]/) {
$fontname = $line;
$fontname =~ s/.*\/CIDFontName[ \t]+\/([^ \t]+).*/$1/;
} elsif ($line =~ /\/CIDSystemInfo[ \t]/) {
$flag = 1;
} elsif ($flag == 1 && $line =~ /end[ \t]+def/) {
$flag = 0;
} elsif ($flag == 1 && $line =~ /\/Registry[ \t]/) {
$cidregistry = $line;
$cidregistry =~ s/.*\/Registry[ \t]+\((.*)\).*/$1/;
} elsif ($flag == 1 && $line =~ /\/Ordering[ \t]/) {
$cidordering = $line;
$cidordering =~ s/.*\/Ordering[ \t]+\((.*)\).*/$1/;
} elsif ($flag == 1 && $line =~ /\/Supplement[ \t]/) {
$cidsupplement = $line;
$cidsupplement =~ s/.*\/Supplement[ \t]+(.).*/$1/;
}
if ($fontname ne '' && $cidordering ne '' && $cidregistry ne '' &&
$cidsupplement ne '') {
last;
}
}
close F;
if ($fontname eq '' || $cidordering eq '' || $cidregistry eq '') {
exitfunc(1, "Some information aren't found in $fontfilename.\nAborting..");
}
$family = $fontname;
$family =~ s/([^-]+).*/$1/;
$weight = 'Medium';
$weight = 'Semibold' if ($fontname =~ /Semibold/);
$weight = 'Semibold' if ($fontname =~ /Demi/);
$weight = 'Bold' if ($fontname =~ /Bold/);
$weight = 'Light' if ($fontname =~ /Light/);
$width = 'Variable';
$slant = 'Upright';
$slant = 'Italic' if ($fontname =~ /Italic/);
$slant = 'Oblique' if ($fontname =~ /Oblique/);
$swidth = '';
$swidth = 'Expanded' if ($fontname =~ /Expanded/);
$swidth = 'Condensed' if ($fontname =~ /Condensed/);
$swidth = 'Condensed' if ($fontname =~ /Narrow/);
$serif = '';
$serif = 'Serif';
$family = input_family($fontname, $family);
return if ($result != 0);
$generalfamily = input_generalfamily($fontname, $family);
return if ($result != 0);
$serif = 'NoSerif' if ($generalfamily eq 'SansSerif');
$width = 'Fixed' if ($generalfamily eq 'Typewriter');
$weight = input_weight($fontname, $weight);
return if ($result != 0);
$width = input_width($fontname, $width);
return if ($result != 0);
$shape = input_shape($fontname, "$slant $serif $swidth");
return if ($result != 0);
my $alias = input_alias($fontname, '');
return if ($result != 0);
my $priority = input_priority($fontname, 20);
return if ($result != 0);
my $afm = $font;
$afm =~ s/\.cid$//;
$afm .= ".afm";
unless (-f $afm) {
$afm = input_afm($fontname, $afm);
} else {
$afm = "$SUFFIXPATH" . $afm;
}
my $hints = "--FontName $fontname";
$hints .= " --CIDRegistry $cidregistry";
$hints .= " --CIDOrdering $cidordering";
$hints .= " --CIDSupplement $cidsupplement" if ($cidsupplement =~ /\S/);
$hints .= " --Family $family";
$hints .= " --GeneralFamily $generalfamily" if ($generalfamily =~ /\S/);
$hints .= " --Weight $weight" if ($weight =~ /\S/);
$hints .= " --Width $width" if ($width =~ /\S/);
$hints .= " --Shape $shape" if ($shape =~ /\S/);
$hints .= " --Alias $alias" if ($alias =~ /\S/);
$hints .= " --Priority $priority";
$hints .= " --AFM $afm" if ($afm =~ /\S/);
$hints =~ s/\s+/ /g;
return $hints;
}
1;
|