/*
* Create an Identity-* CMap (for both 1 and 2-byte encodings)
*/
fz_error
pdf_newidentitycmap(pdf_cmap **cmapp, int wmode, int bytes)
{
fz_error error;
pdf_cmap *cmap;
error = pdf_newcmap(&cmap);
if (error)
return fz_rethrow(error, "cannot create cmap");
sprintf(cmap->cmapname, "Identity-%c", wmode ? 'V' : 'H');
error = pdf_addcodespace(cmap, 0x0000, 0xffff, bytes);
if (error) {
pdf_dropcmap(cmap);
return fz_rethrow(error, "cannot add code space");
}
error = pdf_maprangetorange(cmap, 0x0000, 0xffff, 0);
if (error) {
pdf_dropcmap(cmap);
return fz_rethrow(error, "cannot map <0000> to <ffff>");
}
error = pdf_sortcmap(cmap);
if (error) {
pdf_dropcmap(cmap);
return fz_rethrow(error, "cannot sort cmap");
}
pdf_setwmode(cmap, wmode);
*cmapp = cmap;
return fz_okay;
}
static fz_error parsecidchar(pdf_cmap *cmap, fz_stream *file)
{
fz_error error;
char buf[256];
pdf_token_e tok;
int len;
int src, dst;
while (1)
{
error = lexcmap(&tok, file, buf, sizeof buf, &len);
if (error)
return fz_rethrow(error, "syntaxerror in cmap");
if (tok == TENDCIDCHAR)
return fz_okay;
else if (tok != PDF_TSTRING)
return fz_throw("expected string or endcidchar");
src = codefromstring(buf, len);
error = lexcmap(&tok, file, buf, sizeof buf, &len);
if (error)
return fz_rethrow(error, "syntaxerror in cmap");
if (tok != PDF_TINT)
return fz_throw("expected integer");
dst = atoi(buf);
pdf_maprangetorange(cmap, src, src, dst);
}
}
/*
* Create an Identity-* CMap (for both 1 and 2-byte encodings)
*/
pdf_cmap *
pdf_newidentitycmap(int wmode, int bytes)
{
pdf_cmap *cmap = pdf_newcmap();
sprintf(cmap->cmapname, "Identity-%c", wmode ? 'V' : 'H');
pdf_addcodespace(cmap, 0x0000, 0xffff, bytes);
pdf_maprangetorange(cmap, 0x0000, 0xffff, 0);
pdf_sortcmap(cmap);
pdf_setwmode(cmap, wmode);
return cmap;
}
fz_error
pdf_loadtounicode(pdf_fontdesc *font, pdf_xref *xref,
char **strings, char *collection, fz_obj *cmapstm)
{
fz_error error = fz_okay;
pdf_cmap *cmap;
int cid;
int ucsbuf[8];
int ucslen;
int i;
if (pdf_isstream(xref, fz_tonum(cmapstm), fz_togen(cmapstm)))
{
pdf_logfont("tounicode embedded cmap\n");
error = pdf_loadembeddedcmap(&cmap, xref, cmapstm);
if (error)
return fz_rethrow(error, "cannot load embedded cmap (%d %d R)", fz_tonum(cmapstm), fz_togen(cmapstm));
font->tounicode = pdf_newcmap();
for (i = 0; i < (strings ? 256 : 65536); i++)
{
cid = pdf_lookupcmap(font->encoding, i);
if (cid >= 0)
{
ucslen = pdf_lookupcmapfull(cmap, i, ucsbuf);
if (ucslen == 1)
pdf_maprangetorange(font->tounicode, cid, cid, ucsbuf[0]);
if (ucslen > 1)
pdf_maponetomany(font->tounicode, cid, ucsbuf, ucslen);
}
}
pdf_sortcmap(font->tounicode);
pdf_dropcmap(cmap);
}
else if (collection)
{
pdf_logfont("tounicode cid collection (%s)\n", collection);
error = fz_okay;
if (!strcmp(collection, "Adobe-CNS1"))
error = pdf_loadsystemcmap(&font->tounicode, "Adobe-CNS1-UCS2");
else if (!strcmp(collection, "Adobe-GB1"))
error = pdf_loadsystemcmap(&font->tounicode, "Adobe-GB1-UCS2");
else if (!strcmp(collection, "Adobe-Japan1"))
error = pdf_loadsystemcmap(&font->tounicode, "Adobe-Japan1-UCS2");
else if (!strcmp(collection, "Adobe-Japan2"))
error = pdf_loadsystemcmap(&font->tounicode, "Adobe-Japan2-UCS2"); /* where's this? */
else if (!strcmp(collection, "Adobe-Korea1"))
error = pdf_loadsystemcmap(&font->tounicode, "Adobe-Korea1-UCS2");
if (error)
return fz_rethrow(error, "cannot load tounicode system cmap %s-UCS2", collection);
}
if (strings)
{
pdf_logfont("tounicode strings\n");
/* TODO one-to-many mappings */
font->ncidtoucs = 256;
font->cidtoucs = fz_calloc(256, sizeof(unsigned short));
for (i = 0; i < 256; i++)
{
if (strings[i])
font->cidtoucs[i] = pdf_lookupagl(strings[i]);
else
font->cidtoucs[i] = '?';
}
}
if (!font->tounicode && !font->cidtoucs)
{
pdf_logfont("tounicode could not be loaded\n");
/* TODO: synthesize a ToUnicode if it's a freetype font with
* cmap and/or post tables or if it has glyph names. */
}
return fz_okay;
}
static fz_error parsebfrange(pdf_cmap *cmap, fz_stream *file)
{
fz_error error;
char buf[256];
pdf_token_e tok;
int len;
int lo, hi, dst;
while (1)
{
error = lexcmap(&tok, file, buf, sizeof buf, &len);
if (error)
return fz_rethrow(error, "syntaxerror in cmap");
if (tok == TENDBFRANGE)
return fz_okay;
else if (tok != PDF_TSTRING)
return fz_throw("expected string or endbfrange");
lo = codefromstring(buf, len);
error = lexcmap(&tok, file, buf, sizeof buf, &len);
if (error)
return fz_rethrow(error, "syntaxerror in cmap");
if (tok != PDF_TSTRING)
return fz_throw("expected string");
hi = codefromstring(buf, len);
error = lexcmap(&tok, file, buf, sizeof buf, &len);
if (error)
return fz_rethrow(error, "syntaxerror in cmap");
if (tok == PDF_TSTRING)
{
if (len == 2)
{
dst = codefromstring(buf, len);
pdf_maprangetorange(cmap, lo, hi, dst);
}
else
{
int dststr[256];
int i;
if (len / 2)
{
for (i = 0; i < len / 2; i++)
dststr[i] = codefromstring(buf + i * 2, 2);
while (lo <= hi)
{
dststr[i-1] ++;
pdf_maponetomany(cmap, lo, dststr, i);
lo ++;
}
}
}
}
else if (tok == PDF_TOARRAY)
{
error = parsebfrangearray(cmap, file, lo, hi);
if (error)
return fz_rethrow(error, "cannot map bfrange");
}
else
{
return fz_throw("expected string or array or endbfrange");
}
}
}
