static char *
strip_equal(char *s, char *os, char *p)
{
while (isspace(*p))
p++;
if (*p != '=')
boops(os, p - s, "Missing `='.");
p++;
while (isspace(*p))
p++;
return p;
}
void
checkligkern(char *s, Font *fnt)
{
char *mlist[5];
char *os;
char *orig_s, *pos;
size_t offset[5];
int n;
os = newstring(s);
orig_s = s;
s++;
while (isspace(*s))
s++;
if (strncmp(s, "LIGKERN", 7) == 0)
{
fnt->sawligkern = True;
s += 7;
while (isspace(*s))
s++;
pos = s;
while (*pos)
{
for (n = 0; n < 5;)
{
if (*pos == '\0')
break;
offset[n] = pos - orig_s;
mlist[n] = paramstring(&pos);
if (strcmp(mlist[n], ";") == 0)
break;
n++;
}
if (n > 4)
boops(os, pos - orig_s, "Too many parameters in lig kern data.");
if (n < 3)
boops(os, pos - orig_s, "Too few parameters in lig kern data.");
if (n == 3 && strcmp(mlist[1], "{}") == 0) /* rmkern command */
rmkern(mlist[0], mlist[2], (ttfinfo *)0, fnt);
else if (n == 3 && strcmp(mlist[1], "<>") == 0) /* addkern */
addkern(mlist[0], mlist[2], fnt);
else if (n == 3 && strcmp(mlist[0], "||") == 0 &&
strcmp(mlist[1], "=") == 0) /* bc command */
{
ttfinfo *ti = findadobe("||", fnt->charlist);
if (fnt->boundarychar != -1)
boops(os, offset[0], "Multiple boundary character commands?");
if (sscanf(mlist[2], "%d", &n) != 1)
boops(os, offset[2],
"Expected number assignment for boundary char.");
if (n < 0 || n > 0xFF)
boops(os, offset[2], "Boundary character number must be 0..0xFF.");
fnt->boundarychar = n;
if (ti == NULL)
oops("Internal error: boundary char.");
ti->outcode = n; /* prime the pump, so to speak, for lig/kerns */
}
else if (n == 4)
{
int op = -1;
ttfinfo *ti;
for (n = 0; encligops[n]; n++)
if (strcmp(mlist[2], encligops[n]) == 0)
{
op = n;
break;
}
if (op < 0)
boops(os, offset[2], "Bad ligature op specified.");
if (NULL != (ti = findadobe(mlist[0], fnt->charlist)))
{
lig *lig;
if (findadobe(mlist[1], fnt->charlist))
/* remove coincident kerns */
rmkern(mlist[0], mlist[1], ti, fnt);
if (strcmp(mlist[3], "||") == 0)
boops(os, offset[3], "You can't lig to the boundary character!");
if (!fnt->fixedpitch) /* fixed pitch fonts get *0* ligs */
{
for (lig = ti->ligs; lig; lig = lig->next)
if (strcmp(lig->succ, mlist[1]) == 0)
break; /* we'll re-use this structure */
if (lig == NULL)
{
lig = newlig();
lig->succ = newstring(mlist[1]);
lig->next = ti->ligs;
ti->ligs = lig;
}
lig->sub = newstring(mlist[3]);
lig->op = op;
if (strcmp(mlist[1], "||") == 0)
{
lig->boundleft = 1;
if (strcmp(mlist[0], "||") == 0)
boops(os, offset[0],
"You can't lig boundarychar boundarychar!");
}
else
lig->boundleft = 0;
}
}
}
else
boops(os, offset[0], "Bad form in LIGKERN command.");
}
}
free(os);
}
int
main(int argc, char** argv)
{
size_t l;
unsigned int i;
long index, code;
FILE *config_file;
char *configline, *oldconfigline, *p, *q;
Font font;
encoding *enc;
long inenc_array[256];
char *fontname;
size_t fontname_len;
char *pk_filename, *tfm_filename, *enc_filename, *cfg_filename;
char *real_ttfname, *real_cfg_filename;
int dpi = 0, ptsize;
Boolean hinting = True;
Boolean quiet = False;
Boolean no_dpi = False;
Boolean testing = False;
TeX_search_init(argv[0], "ttf2pk", "TTF2PK");
if (argc == 1)
oops("Need at least two arguments.\n"
"Try `ttf2pk --help' for more information.");
if (argc == 2)
{
if (strcmp(argv[1], "--help") == 0)
usage();
else if (strcmp(argv[1], "--version") == 0)
version();
}
while (argv[1][0] == '-')
{
if (argv[1][1] == 'q')
quiet = True;
else if (argv[1][1] == 'n')
no_dpi = True;
else if (argv[1][1] == 't')
testing = True;
else
oops("Unknown option `%s'.\n"
"Try `ttf2pk --help' for more information.", argv[1]);
argv++;
argc--;
}
if (testing)
{
if (argc != 2)
oops("Need exactly one parameter for `-t' option.\n"
"Try `ttf2pk --help' for more information.");
}
else if (argc != 3)
oops("Need at most two arguments.\n"
"Try `ttf2pk --help' for more information.");
if (!quiet)
printf("This is %s\n", ident);
if (!testing)
if ((dpi = atoi(argv[2])) <= 50)
oops("dpi value must be larger than 50.");
fontname = argv[1];
fontname_len = strlen(fontname);
enc_filename = NULL;
ptsize = 10;
init_font_structure(&font);
cfg_filename = newstring("ttfonts.map");
real_cfg_filename = TeX_search_config_file(&cfg_filename);
if (!real_cfg_filename)
oops("Cannot find file ttfonts.map.");
config_file = fopen(real_cfg_filename, "rt");
if (config_file == NULL)
oops("Cannot open file ttfonts.map.");
do
{
configline = get_line(config_file);
if (!configline)
oops("Error while reading ttfonts.map.");
if (!*configline)
{
/*
* This is the only error message we suppress if the -q flag
* is set, making it possible to call ttf2pk silently.
*/
if (!quiet)
fprintf(stdout,
"%s: ERROR: Cannot find font %s in ttfonts.map.\n",
progname, fontname);
exit(2);
}
} while (compare(&font, configline, fontname));
fclose(config_file);
if (testing)
{
if (!quiet)
fprintf(stdout, "%s\n", configline);
exit(0);
}
/*
* Parse the line from the config file. We split the config line buffer
* into substrings according to the given options.
*/
l = strlen(configline);
if (configline[l - 1] == '\n')
configline[l - 1] = '\0'; /* strip newline */
oldconfigline = newstring(configline);
p = configline;
while (isspace(*p))
p++;
while (*p && !isspace(*p))
p++;
q = p;
while (*p && isspace(*p))
p++;
if (!*p)
boops(oldconfigline, q - configline, "TTF file missing.");
font.ttfname = p;
while (*p && !isspace(*p))
p++;
if (*p)
*p++ = '\0';
for (; *p; p++)
{
if (isspace(*p))
continue;
if (!strncmp(p, "Slant", 5))
{
p = strip_equal(configline, oldconfigline, p + 5);
if (sscanf(p, "%f", &(font.slant)) == 0)
boops(oldconfigline, p - configline, "Bad `Slant' parameter.");
}
else if (!strncmp(p, "Encoding", 8))
{
if (have_sfd)
boops(oldconfigline, p - configline,
"No `Encoding' parameter allowed for subfonts.");
p = strip_equal(configline, oldconfigline, p + 8);
if (!*p)
boops(oldconfigline, p - configline, "Bad `Encoding' parameter.");
enc_filename = p;
}
else if (!strncmp(p, "Extend", 6))
{
p = strip_equal(configline, oldconfigline, p + 6);
if (sscanf(p, "%f", &(font.efactor)) == 0)
boops(oldconfigline, p - configline, "Bad `Extend' parameter.");
}
else if (!strncmp(p, "Fontindex", 9))
{
p = strip_equal(configline, oldconfigline, p + 9);
if (sscanf(p, "%lu", &(font.fontindex)) < 0)
boops(oldconfigline, p - configline, "Bad `Fontindex' parameter.");
}
else if (!strncmp(p, "Pid", 3))
{
p = strip_equal(configline, oldconfigline, p + 3);
if (sscanf(p, "%hu", &(font.pid)) < 0)
boops(oldconfigline, p - configline, "Bad `Pid' parameter.");
have_pid = True;
}
else if (!strncmp(p, "Eid", 3))
{
p = strip_equal(configline, oldconfigline, p + 3);
if (sscanf(p, "%hu", &(font.eid)) < 0)
boops(oldconfigline, p - configline, "Bad `Eid' parameter.");
have_eid = True;
}
else if (!strncmp(p, "Hinting", 7))
{
p = strip_equal(configline, oldconfigline, p + 7);
if (p[1] == 'N' || p[1] == 'n' ||
p[0] == 'Y' || p[1] == 'y' ||
p[0] == '1')
hinting = True;
else if (p[1] == 'F' || p[1] == 'f' ||
p[0] == 'N' || p[1] == 'n' ||
p[0] == '0')
hinting = False;
else
boops(oldconfigline, p - configline, "Bad `Hinting' parameter.");
}
else if (!strncmp(p, "PS", 2))
{
p = strip_equal(configline, oldconfigline, p + 2);
if (p[1] != '\0' &&
(p[2] == 'l' || p[2] == 'L'))
font.PSnames = Only;
else if (p[1] == 'N' || p[1] == 'n' ||
p[0] == 'Y' || p[0] == 'y' ||
p[0] == '1')
font.PSnames = Yes;
else if (p[1] == 'F' || p[1] == 'f' ||
p[0] == 'N' || p[0] == 'n' ||
p[0] == '0')
font.PSnames = No;
else
boops(oldconfigline, p - configline, "Bad `PS' parameter.");
if (have_sfd)
boops(oldconfigline, p - configline,
"No `PS' parameter allowed for subfonts.");
}
else if (!strncmp(p, "Rotate", 6))
{
p = strip_equal(configline, oldconfigline, p + 6);
if (p[1] == 'N' || p[1] == 'n' ||
p[0] == 'Y' || p[1] == 'y' ||
p[0] == '1')
font.rotate = True;
else if (p[1] == 'F' || p[1] == 'f' ||
p[0] == 'N' || p[1] == 'n' ||
p[0] == '0')
font.rotate = False;
else
boops(oldconfigline, p - configline, "Bad `Rotate' parameter.");
if (!have_sfd)
boops(oldconfigline, p - configline,
"No `Rotate' parameter allowed for non-subfonts.");
}
else if (!strncmp(p, "Y-Offset", 8))
{
p = strip_equal(configline, oldconfigline, p + 8);
if (sscanf(p, "%f", &(font.y_offset)) == 0)
boops(oldconfigline, p - configline, "Bad `Y-Offset' parameter.");
}
else if (!strncmp(p, "Replacement", 11))
{
p = strip_equal(configline, oldconfigline, p + 11);
if (!*p)
boops(oldconfigline, p - configline, "Bad `Replacement' parameter.");
font.replacementname = p;
}
else
{
char *new_name, *old_name;
stringlist *sl;
old_name = p;
while (*p && !isspace(*p) && *p != '=')
p++;
q = p;
p = strip_equal(configline, oldconfigline, p);
*q = '\0';
new_name = p;
while (*p && !isspace(*p))
p++;
if (*p)
*p++ = '\0';
sl = newstringlist();
sl->new_name = new_name;
sl->old_name = old_name;
sl->next = font.replacements;
font.replacements = sl;
p--; /* to make the next while loop work */
}
while (*p && !isspace(*p))
p++;
if (*p)
*p = '\0';
}
if (font.PSnames == Only)
if (have_pid || have_eid)
boops(oldconfigline, 0,
"No `Pid' or `Eid' parameters allowed if `PS=Only' is set.");
font.replacementname = newstring(font.replacementname);
get_replacements(&font);
tfm_filename = newstring(fontname);
TFMopen(&tfm_filename);
pk_filename = mymalloc(fontname_len + 10);
if (no_dpi)
sprintf(pk_filename, "%s.pk", fontname);
else
sprintf(pk_filename, "%s.%dpk", fontname, dpi);
PKopen(pk_filename, fontname, dpi);
font.ttfname = newstring(font.ttfname);
real_ttfname = TeX_search_ttf_file(&(font.ttfname));
if (!real_ttfname)
oops("Cannot find `%s'.", font.ttfname);
TTFopen(real_ttfname, &font, dpi, ptsize, quiet);
enc_filename = newstring(enc_filename);
enc = readencoding(&enc_filename, &font, True);
if (enc)
{
char *name;
restore_glyph(enc, &font);
for (i = 0; i <= 0xFF; i++)
{
name = enc->vec[i];
if (!font.PSnames)
{
code = adobename_to_code(name);
if (code < 0 && strcmp(name, ".notdef") != 0)
warning("Cannot map character `%s'.", name);
inenc_array[i] = code;
}
else
{
/* we search the glyph index */
index = TTFsearch_PS_name(name);
if (index < 0)
warning("Cannot map character `%s'.", name);
inenc_array[i] = index | 0x10000;
}
}
}
else
{
if (font.replacements)
warning("Replacement glyphs will be ignored.");
if (have_sfd)
TTFget_subfont(&font, inenc_array);
else
/* get the table of glyph names too */
enc = TTFget_first_glyphs(&font, inenc_array);
}
for (i = 0; i <= 0xFF; i++)
{
byte *bitmap;
int w, h, hoff, voff;
if ((code = inenc_array[i]) >= 0)
{
if (!quiet)
{
printf("Processing glyph %3ld %s index 0x%04x %s\n",
(long)i, (code >= 0x10000) ? "glyph" : "code",
(unsigned int)(code & 0xFFFF), enc ? enc->vec[i] : "");
fflush(stdout);
}
if (TTFprocess(&font, code,
&bitmap, &w, &h, &hoff, &voff, hinting, quiet))
PKputglyph(i,
-hoff, -voff, w - hoff, h - voff,
w, h, bitmap);
else
warning("Cannot render glyph with %s index 0x%x.",
(code >= 0x10000) ? "glyph" : "code",
(unsigned int)(code & 0xFFFF));
}
}
PKclose();
exit(0); /* for safety reasons */
return 0; /* never reached */
}