pdc_bool
pdf_get_metrics_afm(
PDF *p,
pdf_font *font,
const char *fontname,
pdc_encoding enc,
const char *filename,
pdc_bool requested)
{
static const char fn[] = "pdf_get_metrics_afm";
char fullname[PDC_FILENAMELEN];
pdc_file *afmfile;
/* open AFM file */
afmfile = pdc_fsearch_fopen(p->pdc, filename, fullname, "AFM ",
PDC_FILE_TEXT);
if (afmfile == NULL)
return pdc_check_fopen_errmsg(p->pdc, requested);
pdc_logg_cond(p->pdc, 1, trc_font,
"\tLoading AFM metric fontfile \"%s\":\n", fullname);
/* parse AFM file */
if (pdf_parse_afm(p, afmfile, font, fontname, fullname) == pdc_false)
return pdc_false;
/* members not fount */
if (font->ft.m.type == fnt_unknownType)
font->ft.m.type = fnt_Type1;
if (font->ft.name == NULL)
{
font->ft.name = pdc_strdup(p->pdc, fontname);
font->ft.m.name = pdc_strdup(p->pdc, fontname);
}
/* save full filename */
font->metricfilename = pdc_strdup_ext(p->pdc, fullname, 0, fn);
/* process metric data */
font->ft.enc = enc;
if (pdf_process_metrics_data(p, font, fontname) == pdc_false)
return pdc_false;
if (!pdf_make_fontflag(p, font))
return pdc_false;
return pdc_true;
}
pdc_bool
pdf_get_metrics_pfm(
PDF *p,
pdf_font *font,
const char *fontname,
pdc_encoding enc,
const char *filename,
pdc_bool requested)
{
static const char fn[] = "pdf_get_metrics_pfm";
char fullname[PDC_FILENAMELEN];
pdc_file *pfmfile;
(void) fontname;
/* open PFM file */
pfmfile = pdc_fsearch_fopen(p->pdc, filename, fullname, "PFM ",
PDC_FILE_BINARY);
if (pfmfile == NULL)
return pdc_check_fopen_errmsg(p->pdc, requested);
pdc_logg_cond(p->pdc, 1, trc_font,
"\tLoading PFM metric fontfile \"%s\":\n", fullname);
/* Read PFM metrics */
if (!pdf_parse_pfm(p, pfmfile, font))
{
pdc_set_errmsg(p->pdc, PDF_E_FONT_CORRUPT, "PFM", fullname, 0, 0);
return pdc_false;
}
/* save full filename */
font->metricfilename = pdc_strdup_ext(p->pdc, fullname, 0, fn);
/* Check encoding */
if (!pdf_check_pfm_encoding(p, font, enc))
return pdc_false;
if (!pdf_make_fontflag(p, font))
return pdc_false;
return pdc_true;
}
pdc_bool
pdf_t1open_fontfile(PDF *p, pdf_font *font, const char *filename,
PDF_data_source *t1src, pdc_bool requested)
{
static const char *fn = "pdf_t1open_fontfile";
t1_private_data *t1 = NULL;
pdc_file *fp = NULL;
const char *stemp = NULL;
pdc_byte magic[PFA_TESTBYTE];
char fullname[PDC_FILENAMELEN];
int fflags = PDC_FILE_BINARY;
pdc_bool ispfb = pdc_true;
if (filename)
{
pdc_bool retval = pdc_true;
pdc_bool fnamegiven = (strcmp(filename, FNT_MISSING_FILENAME) == 0) ?
pdc_false : pdc_true;
(void) retval;
if (fnamegiven)
{
fp = pdc_fsearch_fopen(p->pdc, filename, fullname,
"PostScript Type1 ", fflags);
if (fp == NULL)
{
if (t1src)
PDC_RETHROW(p->pdc);
return pdc_check_fopen_errmsg(p->pdc, requested);
}
pdc_logg_cond(p->pdc, 1, trc_font,
"\tLoading PostScript Type1 fontfile \"%s\":\n", fullname);
}
}
if (fp)
{
pdc_fread(magic, 1, PFA_TESTBYTE, fp);
stemp = filename;
}
else if (font->ft.img)
{
strncpy((char *) magic, (const char *)font->ft.img, PFA_TESTBYTE);
stemp = font->ft.name;
}
/* try to identify PFA files */
if (magic[0] != PFB_MARKER)
{
char startsequ[PFA_TESTBYTE + 1];
strcpy(startsequ, FNT_PFA_STARTSEQU);
if (strncmp((const char *) magic, startsequ, PFA_TESTBYTE))
{
if (fp)
pdc_fclose(fp);
pdc_set_errmsg(p->pdc, PDF_E_T1_NOFONT, stemp, 0, 0, 0);
if (t1src)
PDC_RETHROW(p->pdc);
return pdc_false;
}
ispfb = pdc_false;
}
pdc_logg_cond(p->pdc, 1, trc_font,
"\tPostScript Type1 font of format \"%s\" detected\n",
ispfb ? "PFB" : "PFA");
if (t1src)
{
t1src->private_data = (unsigned char *)
pdc_malloc(p->pdc, sizeof(t1_private_data), fn);
t1 = (t1_private_data *) t1src->private_data;
if (filename)
{
pdc_fclose(fp);
if (ispfb)
{
t1->fontfile =
pdc_fsearch_fopen(p->pdc, fullname, NULL, "PFB ", fflags);
}
else
{
t1->fontfile =
pdc_fsearch_fopen(p->pdc, fullname, NULL, "PFA ",
PDC_FILE_TEXT);
}
if (t1->fontfile == NULL)
PDC_RETHROW(p->pdc);
}
else if (font->ft.img)
{
/* only for virtual PFB files */
t1->fontfile = NULL;
t1->img = font->ft.img;
t1->pos = font->ft.img;
t1->end = font->ft.img + font->ft.filelen;
}
t1src->init = t1data_init;
t1src->fill = ispfb ? PFB_data_fill : PFA_data_fill;
t1src->terminate = t1data_terminate;
}
else if (fp != NULL)
{
if (pdc_file_isvirtual(fp) == pdc_true)
{
if (ispfb)
font->ft.img =
(pdc_byte *) pdc_freadall(fp, &font->ft.filelen, NULL);
font->ft.imgname = pdc_strdup(p->pdc, fullname);
pdc_lock_pvf(p->pdc, font->ft.imgname);
}
font->ft.filename = pdc_strdup(p->pdc, fullname);
pdc_fclose(fp);
}
return pdc_true;
}
