integer write_tounicode(char **glyph_names, char *name)
{
char buf[SMALL_BUF_SIZE], *p;
static char builtin_suffix[] = "-builtin";
short range_size[257];
glyph_unicode_entry gtab[257];
integer objnum;
int i, j;
int bfchar_count, bfrange_count, subrange_count;
assert(strlen(name) + strlen(builtin_suffix) < SMALL_BUF_SIZE);
if (glyph_unicode_tree == NULL) {
pdftex_warn("no GlyphToUnicode entry has been inserted yet!");
fixedgentounicode = 0;
return 0;
}
strcpy(buf, name);
if ((p = strrchr(buf, '.')) != NULL && strcmp(p, ".enc") == 0)
*p = 0; /* strip ".enc" from encoding name */
else
strcat(buf, builtin_suffix); /* ".enc" not present, this is a builtin
encoding so the name is eg "cmr10-builtin" */
objnum = pdfnewobjnum();
pdfbegindict(objnum, 0);
pdfbeginstream();
pdf_printf("%%!PS-Adobe-3.0 Resource-CMap\n"
"%%%%DocumentNeededResources: ProcSet (CIDInit)\n"
"%%%%IncludeResource: ProcSet (CIDInit)\n"
"%%%%BeginResource: CMap (TeX-%s-0)\n"
"%%%%Title: (TeX-%s-0 TeX %s 0)\n"
"%%%%Version: 1.000\n"
"%%%%EndComments\n"
"/CIDInit /ProcSet findresource begin\n"
"12 dict begin\n"
"begincmap\n"
"/CIDSystemInfo\n"
"<< /Registry (TeX)\n"
"/Ordering (%s)\n"
"/Supplement 0\n"
">> def\n"
"/CMapName /TeX-%s-0 def\n"
"/CMapType 2 def\n"
"1 begincodespacerange\n"
"<00> <FF>\n" "endcodespacerange\n", buf, buf, buf, buf, buf);
/* set gtab */
for (i = 0; i < 256; ++i) {
gtab[i].code = UNI_UNDEF;
set_glyph_unicode(glyph_names[i], >ab[i]);
}
gtab[256].code = UNI_UNDEF;
/* set range_size */
for (i = 0; i < 256;) {
if (gtab[i].code == UNI_STRING || gtab[i].code == UNI_EXTRA_STRING) {
range_size[i] = 1; /* single entry */
i++;
} else if (gtab[i].code == UNI_UNDEF) {
range_size[i] = 0; /* no entry */
i++;
} else { /* gtab[i].code >= 0 */
j = i;
while (i < 256 && gtab[i + 1].code >= 0 &&
gtab[i].code + 1 == gtab[i + 1].code)
i++;
/* at this point i is the last entry of the subrange */
i++; /* move i to the next entry */
range_size[j] = i - j;
}
}
/* calculate bfrange_count and bfchar_count */
bfrange_count = 0;
bfchar_count = 0;
for (i = 0; i < 256;) {
if (range_size[i] == 1) {
bfchar_count++;
i++;
} else if (range_size[i] > 1) {
bfrange_count++;
i += range_size[i];
} else
i++;
}
/* write out bfrange */
i = 0;
write_bfrange:
if (bfrange_count > 100)
subrange_count = 100;
else
subrange_count = bfrange_count;
bfrange_count -= subrange_count;
pdf_printf("%i beginbfrange\n", subrange_count);
for (j = 0; j < subrange_count; j++) {
while (range_size[i] <= 1 && i < 256)
i++;
assert(i < 256);
pdf_printf("<%02X> <%02X> <%s>\n", i, i + range_size[i] - 1,
utf16be_str(gtab[i].code));
i += range_size[i];
}
pdf_printf("endbfrange\n");
if (bfrange_count > 0)
goto write_bfrange;
/* write out bfchar */
i = 0;
write_bfchar:
if (bfchar_count > 100)
subrange_count = 100;
else
subrange_count = bfchar_count;
bfchar_count -= subrange_count;
pdf_printf("%i beginbfchar\n", subrange_count);
for (j = 0; j < subrange_count; j++) {
while (i < 256) {
if (range_size[i] > 1)
i += range_size[i];
else if (range_size[i] == 0)
i++;
else /* range_size[i] == 1 */
break;
}
assert(i < 256 && gtab[i].code != UNI_UNDEF);
if (gtab[i].code == UNI_STRING || gtab[i].code == UNI_EXTRA_STRING) {
assert(gtab[i].unicode_seq != NULL);
pdf_printf("<%02X> <%s>\n", i, gtab[i].unicode_seq);
} else
pdf_printf("<%02X> <%s>\n", i, utf16be_str(gtab[i].code));
i++;
}
pdf_printf("endbfchar\n");
if (bfchar_count > 0)
goto write_bfchar;
/* free strings allocated by set_glyph_unicode() */
for (i = 0; i < 256; ++i) {
if (gtab[i].code == UNI_EXTRA_STRING)
xfree(gtab[i].unicode_seq);
}
pdf_printf("endcmap\n"
"CMapName currentdict /CMap defineresource pop\n"
"end\n" "end\n" "%%%%EndResource\n" "%%%%EOF\n");
pdfendstream();
return objnum;
}
integer get_fontname(int i)
{
if (fm_tab[i].fn_objnum == 0)
fm_tab[i].fn_objnum = pdfnewobjnum();
return fm_tab[i].fn_objnum;
}
