int avl_do_entry(fm_entry * fm, int mode)
{
fm_entry *p;
void *a;
void **aa;
/* handle tfm_name link */
if (strcmp(fm->tfm_name, nontfm)) {
p = (fm_entry *) avl_find(tfm_tree, fm);
if (p != NULL) {
switch (mode) {
case FM_DUPIGNORE:
pdftex_warn
("fontmap entry for `%s' already exists, duplicates ignored",
fm->tfm_name);
goto exit;
break;
case FM_REPLACE:
case FM_DELETE:
if (p->in_use) {
pdftex_warn
("fontmap entry for `%s' has been used, replace/delete not allowed",
fm->tfm_name);
goto exit;
}
a = avl_delete(tfm_tree, p);
assert(a != NULL);
unset_tfmlink(p);
if (!has_pslink(p))
delete_fm_entry(p);
break;
default:
assert(0);
}
}
if (mode != FM_DELETE) {
aa = avl_probe(tfm_tree, fm);
assert(aa != NULL);
set_tfmlink(fm);
}
}
/* handle ps_name link */
if (fm->ps_name != NULL) {
p = (fm_entry *) avl_find(ps_tree, fm);
if (p != NULL) {
switch (mode) {
case FM_DUPIGNORE:
goto exit;
break;
case FM_REPLACE:
case FM_DELETE:
if (p->in_use)
goto exit;
a = avl_delete(ps_tree, p);
assert(a != NULL);
unset_pslink(p);
if (!has_tfmlink(p))
delete_fm_entry(p);
break;
default:
assert(0);
}
}
if (mode != FM_DELETE && is_t1fontfile(fm) && is_included(fm)) {
aa = avl_probe(ps_tree, fm);
assert(aa != NULL);
set_pslink(fm);
}
}
exit:
if (!has_tfmlink(fm) && !has_pslink(fm)) /* e. g. after FM_DELETE */
return 1; /* deallocation of fm_entry structure required */
else
return 0;
}
int check_fm_entry(fm_entry * fm, boolean warn)
{
int a = 0;
assert(fm != NULL);
if (is_fontfile(fm) && !is_included(fm)) {
if (warn)
pdftex_warn
("ambiguous entry for `%s': font file present but not included, "
"will be treated as font file not present", fm->tfm_name);
xfree(fm->ff_name);
/* do not set variable |a| as this entry will be still accepted */
}
/* if both ps_name and font file are missing, drop this entry */
if (fm->ps_name == NULL && !is_fontfile(fm)) {
if (warn)
pdftex_warn
("invalid entry for `%s': both ps_name and font file missing",
fm->tfm_name);
a += 1;
}
/* TrueType fonts cannot be reencoded without subsetting */
if (is_truetype(fm) && is_reencoded(fm) && !is_subsetted(fm)) {
if (warn)
pdftex_warn
("invalid entry for `%s': only subsetted TrueType font can be reencoded",
fm->tfm_name);
a += 2;
}
/* SlantFont and ExtendFont can be used only with Type1 fonts */
if ((fm->slant != 0 || fm->extend != 0)
&& !(is_t1fontfile(fm) && is_included(fm))) {
if (warn)
pdftex_warn
("invalid entry for `%s': SlantFont/ExtendFont can be used only with embedded Type1 fonts",
fm->tfm_name);
a += 4;
}
/* the value of SlantFont and ExtendFont must be reasonable */
if (abs(fm->slant) > 1000) {
if (warn)
pdftex_warn
("invalid entry for `%s': too big value of SlantFont (%g)",
fm->tfm_name, fm->slant / 1000.0);
a += 8;
}
if (abs(fm->extend) > 2000) {
if (warn)
pdftex_warn
("invalid entry for `%s': too big value of ExtendFont (%g)",
fm->tfm_name, fm->extend / 1000.0);
a += 16;
}
/* subfonts must be used with subsetted non-reencoded TrueType fonts */
if (fm->pid != -1 &&
!(is_truetype(fm) && is_subsetted(fm) && !is_reencoded(fm))) {
if (warn)
pdftex_warn
("invalid entry for `%s': PidEid can be used only with subsetted non-reencoded TrueType fonts",
fm->tfm_name);
a += 32;
}
return a;
}
int is_type1(int i)
{
fm_entry *fm = fm_tab + i;
return is_t1fontfile(fm);
}
