static int
compare(Font *fnt, char *s, char *key)
{
char c;
char *p;
char *temp, *temp1;
int value;
int sfd_begin, postfix_begin;
/*
* We isolate the fontname.
*/
while (isspace(*s))
s++;
p = s;
while (*p && !isspace(*p))
p++;
c = *p;
*p = '\0';
temp = newstring(s);
*p = c;
/*
* We search for a subfont definition file name.
*/
handle_sfd(temp, &sfd_begin, &postfix_begin);
if (sfd_begin == -1)
value = strcmp(temp, key);
else
{
size_t len, len1, len2;
/*
* The sfd file will be only searched if prefix and postfix match.
*/
len = strlen(key);
len1 = strlen(temp);
len2 = strlen(temp + postfix_begin);
if (len1 + len2 >= len)
value = -1;
else if (!strncmp(temp, key, len1) &&
!strcmp(temp + postfix_begin, key + (len - len2)))
{
c = key[len - len2];
key[len - len2] = '\0';
temp1 = newstring(key + len1);
key[len - len2] = c;
if (fnt->sfdname)
free(fnt->sfdname);
fnt->sfdname = newstring(temp + sfd_begin);
/*
* If the sfd file can't be opened the search is continued.
*/
value = !init_sfd(fnt, False);
if (!value)
{
value = -1;
while (get_sfd(fnt))
{
if (!strcmp(fnt->subfont_name, temp1))
{
value = 0; /* success */
have_sfd = True;
break;
}
}
close_sfd();
}
free(temp1);
}
else
value = -1;
}
free(temp);
return value;
}
int
main(int argc, char *argv[])
{
Font font;
ttfinfo *ti;
#ifdef MIKTEX
miktex_initialize();
#endif
init_font_structure(&font);
TeX_search_init(argv[0], "ttf2tfm", "TTF2TFM");
if (argc == 1)
{
fputs("ttf2tfm: Need at least one file argument.\n", stderr);
fputs("Try `ttf2tfm --help' for more information.\n", stderr);
exit(1);
}
if (argc == 2)
{
if (strcmp(argv[1], "--help") == 0)
usage();
else if (strcmp(argv[1], "--version") == 0)
version();
}
handle_options(argc, argv, &font);
if (font.sfdname)
{
while (get_sfd(&font, True))
{
char *temp, *ttemp;
int i, start, end, len;
get_tfm_fullname(&font);
/*
* Extract base name of sfd file.
*/
temp = newstring(font.sfdname);
len = strlen(temp);
start = 0;
for (i = len - 1; i >= 0; i--)
if (temp[i] == '/' || temp[i] == ':' || temp[i] == '\\')
{
start = i + 1;
break;
}
end = len;
for (i = len - 1; i >= 0; i--)
if (temp[i] == '.')
{
end = i;
break;
}
temp[end] = '\0';
ttemp = (char *)mymalloc(strlen(temp + start) + 4 + 1);
sprintf(ttemp, "CJK-%s", temp + start);
font.codingscheme = ttemp;
free(temp);
readttf(&font, quiet, True);
if (font.replacements)
warning("Replacement glyphs will be ignored.");
/* second try to get an xheight value */
if (font.xheight == 0)
{
if (NULL != (ti = findadobe("x", font.charlist)))
font.xheight = ti->ury;
else if (font.pid == 3 && font.eid == 1 &&
NULL != (ti = findadobe(".c0x78", font.charlist)))
font.xheight = ti->ury;
else
font.xheight = 400;
}
if (NULL != (ti = findadobe("space", font.charlist)))
font.fontspace = ti->width;
else if (NULL != (ti = findadobe(".c0x20", font.charlist)))
font.fontspace = ti->width;
else
font.fontspace = transform(500, 0, font.efactor, font.slant);
if (font.ligname)
get_sfd(&font, False); /* read sfd files for ligatures */
if (buildtfm(&font))
{
writetfm(&font);
if (font.write_enc)
writeenc(&font);
if (font.vplout)
add_subfont_list(&font);
}
}
close_sfd();
if (font.vplout)
{
writeovp(&font);
fclose(font.vplout);
release_subfont_list(&font);
}
}
else
{
get_tfm_fullname(&font);
readttf(&font, quiet, False);
replace_glyphs(&font);
/* second try to get an xheight value */
if (font.xheight == 0)
{
if (NULL != (ti = findadobe("x", font.charlist)))
font.xheight = ti->ury;
else if (font.pid == 3 && font.eid == 1 &&
NULL != (ti = findadobe(".c0x78", font.charlist)))
font.xheight = ti->ury;
else
font.xheight = 400;
}
if (NULL != (ti = findadobe("space", font.charlist)))
font.fontspace = ti->width;
else if (NULL != (ti = findadobe(".c0x20", font.charlist)))
font.fontspace = ti->width;
else
font.fontspace = transform(500, 0, font.efactor, font.slant);
handlereencoding(&font);
buildtfm(&font);
writetfm(&font);
}
if (makevpl)
{
assignchars(&font);
if (makevpl > 1)
upmap(&font);
writevpl(&font, makevpl, forceoctal);
fclose(font.vplout);
}
consttfonts(&font);
exit(0); /* for safety reasons */
return 0; /* never reached */
}
