diff options
Diffstat (limited to 'Build/source/texk/dvipdfm-x/cid.c')
-rw-r--r-- | Build/source/texk/dvipdfm-x/cid.c | 610 |
1 files changed, 0 insertions, 610 deletions
diff --git a/Build/source/texk/dvipdfm-x/cid.c b/Build/source/texk/dvipdfm-x/cid.c deleted file mode 100644 index 9935513ad3e..00000000000 --- a/Build/source/texk/dvipdfm-x/cid.c +++ /dev/null @@ -1,610 +0,0 @@ -/* This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. - - Copyright (C) 2002-2020 by Jin-Hwan Cho and Shunsaku Hirata, - the dvipdfmx project team. - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. -*/ - -/* - * CID-keyed font support: - * - * See also, cidtype0, and cidtype2 - */ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#include <string.h> - -#include "system.h" -#include "mem.h" -#include "error.h" -#include "dpxconf.h" -#include "dpxutil.h" - -#include "pdfobj.h" - -#include "cidtype0.h" -#include "cidtype2.h" -#include "cid.h" - -#define PDF_CID_SUPPORT_MIN 2 -#define PDF_CID_SUPPORT_MAX 6 - -/* - * Unicode and PDF Standard Character Collections. - * - * Adobe-Identity is only for TrueType fonts and it means font's - * internal glyph ordering. - */ -static struct { - const char *registry; - const char *ordering; - /* Heighest Supplement values supported by PDF-1.0, 1.1, ...; see - * also http://partners.adobe.com/public/developer/font/index.html#ckf - */ - int supplement[21]; -} CIDFont_stdcc_def[] = { - {"Adobe", "UCS", {-1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0}}, - {"Adobe", "GB1", {-1, -1, 0, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4}}, - {"Adobe", "CNS1", {-1, -1, 0, 0, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4}}, - {"Adobe", "Japan1", {-1, -1, 2, 2, 4, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, - 6, 6, 6, 6, 6}}, - {"Adobe", "Korea1", {-1, -1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2}}, - {"Adobe", "Identity", {-1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0}}, - {NULL, NULL, { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0}} -}; -#define SUP_IDX_MAX 20 -#define UCS_CC 0 -#define ACC_START 1 -#define ACC_END 4 - -static char registry_Adobe[] = "Adobe"; -static char ordering_Identity[] = "Identity"; -static char ordering_UCS[] = "UCS"; - -CIDSysInfo CSI_IDENTITY = { - registry_Adobe, - ordering_Identity, - 0 -}; - -CIDSysInfo CSI_UNICODE = { - registry_Adobe, - ordering_UCS, - 0 -}; - -/* - * Optional supplement after alias name. - */ - -static struct { - const char *name; - int index; -} CIDFont_stdcc_alias[] = { - {"AU", 0}, {"AG1", 1}, {"AC1", 2}, {"AJ1", 3}, {"AK1", 4}, {"AI", 5}, - {"UCS", 0}, {"GB1", 1}, {"CNS1", 2}, {"Japan1", 3}, {"Korea1", 4}, {"Identity", 5}, - {"U", 0}, {"G", 1}, {"C", 2}, {"J", 3}, {"K", 4}, {"I", 5}, - {NULL, 0} -}; - -static void release_opt (cid_opt *opt); -static int get_cidsysinfo (CIDSysInfo *csi, const char *map_name, const fontmap_opt *fmap_opt); - -int opt_flags_cidfont = 0; - -int -CIDFont_is_ACCFont (pdf_font *font) -{ - int i; - CIDSysInfo *csi; - - ASSERT(font); - - csi = &font->cid.csi; - for (i = ACC_START; i <= ACC_END ; i++) { - if (!strcmp(csi->registry, CIDFont_stdcc_def[i].registry) && - !strcmp(csi->ordering, CIDFont_stdcc_def[i].ordering)) - return 1; - } - - return 0; -} - -int -CIDFont_is_UCSFont (pdf_font *font) -{ - CIDSysInfo *csi; - - ASSERT(font); - - csi = &font->cid.csi; - - if (!strcmp(csi->ordering, "UCS") || - !strcmp(csi->ordering, "UCS2")) - return 1; - - return 0; -} - -char * -CIDFont_get_usedchars (pdf_font *font) -{ - if (!font->usedchars) { - font->usedchars = NEW(8192, char); - memset(font->usedchars, 0, 8192*sizeof(char)); - } - - return font->usedchars; -} - -char * -CIDFont_get_usedchars_v (pdf_font *font) -{ - if (!font->cid.usedchars_v) { - font->cid.usedchars_v = NEW(8192, char); - memset(font->cid.usedchars_v, 0, 8192*sizeof(char)); - } - - return font->cid.usedchars_v; -} - - -static int -source_font_type (pdf_font *font) -{ - int type = PDF_FONT_FONTTYPE_CIDTYPE0; - - ASSERT(font); - - if (font->flags & CIDFONT_FLAG_TYPE1) { - type = PDF_FONT_FONTTYPE_TYPE1; - } else if (font->flags & CIDFONT_FLAG_TYPE1C) { - type = PDF_FONT_FONTTYPE_TYPE1C; - } else if (font->flags & CIDFONT_FLAG_TRUETYPE) { - type = PDF_FONT_FONTTYPE_TRUETYPE; - } - - return type; -} - -void -pdf_font_load_cidfont (pdf_font *font) -{ - int error = 0; - - if (!font || !font->reference) - return; - - if (dpx_conf.verbose_level > 0) - MESG(":%s", font->filename); - if (dpx_conf.verbose_level > 1) { - if (font->fontname) - MESG("[%s]", font->fontname); - } - - switch (font->subtype) { - case PDF_FONT_FONTTYPE_CIDTYPE0: - if(dpx_conf.verbose_level > 0) - MESG("[CIDFontType0]"); - switch (source_font_type(font)) { - case PDF_FONT_FONTTYPE_TYPE1: - error = CIDFont_type0_t1dofont(font); - break; - case PDF_FONT_FONTTYPE_TYPE1C: - error = CIDFont_type0_t1cdofont(font); - break; - default: - error = CIDFont_type0_dofont(font); - break; - } - break; - case PDF_FONT_FONTTYPE_CIDTYPE2: - if(dpx_conf.verbose_level > 0) - MESG("[CIDFontType2]"); - error = CIDFont_type2_dofont(font); - break; - } - - if (error) - ERROR("Error occurred while loading font: %s", font->filename); - - return; -} - -#include "pdfparse.h" -#include "cid_basefont.h" - -static int -CIDFont_base_open (pdf_font *font, const char *name, cid_opt *opt) -{ - pdf_obj *fontdict, *descriptor; - char *fontname = NULL; - int idx; - - ASSERT(font); - - for (idx = 0; cid_basefont[idx].fontname != NULL; idx++) { - if (!strcmp(name, cid_basefont[idx].fontname) || - (strlen(name) == strlen(cid_basefont[idx].fontname) - strlen("-Acro") && - !strncmp(name, cid_basefont[idx].fontname, - strlen(cid_basefont[idx].fontname)-strlen("-Acro"))) - ) - break; - } - - if (cid_basefont[idx].fontname == NULL) - return -1; - - fontname = NEW(strlen(name)+12, char); - memset(fontname, 0, strlen(name)+12); - strcpy(fontname, name); - - switch (opt->style) { - case FONT_STYLE_BOLD: - strcat(fontname, ",Bold"); - break; - case FONT_STYLE_ITALIC: - strcat(fontname, ",Italic"); - break; - case FONT_STYLE_BOLDITALIC: - strcat(fontname, ",BoldItalic"); - break; - } - { - const char *start; - const char *end; - - start = cid_basefont[idx].fontdict; - end = start + strlen(start); - fontdict = parse_pdf_dict(&start, end, NULL); - start = cid_basefont[idx].descriptor; - end = start + strlen(start); - descriptor = parse_pdf_dict(&start, end, NULL); - - ASSERT(fontdict && descriptor); - } - - font->fontname = fontname; - font->flags |= PDF_FONT_FLAG_BASEFONT; - { - char *registry, *ordering; - int supplement; - pdf_obj *tmp; - - tmp = pdf_lookup_dict(fontdict, "CIDSystemInfo"); - - ASSERT( tmp && pdf_obj_typeof(tmp) == PDF_DICT ); - - registry = pdf_string_value(pdf_lookup_dict(tmp, "Registry")); - ordering = pdf_string_value(pdf_lookup_dict(tmp, "Ordering")); - supplement = pdf_number_value(pdf_lookup_dict(tmp, "Supplement")); - - font->cid.csi.registry = NEW(strlen(registry)+1, char); - font->cid.csi.ordering = NEW(strlen(ordering)+1, char); - strcpy(font->cid.csi.registry, registry); - strcpy(font->cid.csi.ordering, ordering); - font->cid.csi.supplement = supplement; - } - - { - pdf_obj *tmp; - char *type; - - tmp = pdf_lookup_dict(fontdict, "Subtype"); - ASSERT( tmp != NULL && pdf_obj_typeof(tmp) == PDF_NAME ); - - type = pdf_name_value(tmp); - if (!strcmp(type, "CIDFontType0")) - font->subtype = PDF_FONT_FONTTYPE_CIDTYPE0; - else if (!strcmp(type, "CIDFontType2")) - font->subtype = PDF_FONT_FONTTYPE_CIDTYPE2; - else { - ERROR("Unknown CIDFontType \"%s\"", type); - } - } - - if (opt_flags_cidfont & CIDFONT_FORCE_FIXEDPITCH) { - if (pdf_lookup_dict(fontdict, "W")) { - pdf_remove_dict(fontdict, "W"); - } - if (pdf_lookup_dict(fontdict, "W2")) { - pdf_remove_dict(fontdict, "W2"); - } - } - - pdf_add_dict(fontdict, pdf_new_name("Type"), pdf_new_name("Font")); - pdf_add_dict(fontdict, pdf_new_name("BaseFont"), pdf_new_name(fontname)); - pdf_add_dict(descriptor, pdf_new_name("Type"), pdf_new_name("FontDescriptor")); - pdf_add_dict(descriptor, pdf_new_name("FontName"), pdf_new_name(fontname)); - - font->resource = fontdict; - font->descriptor = descriptor; - - opt->embed = 0; - - return 0; -} - -int -pdf_font_cidfont_lookup_cache (pdf_font *fonts, int count, const char *map_name, - CIDSysInfo *cmap_csi, const fontmap_opt *fmap_opt) -{ - int font_id = -1; - pdf_font *font = NULL; - cid_opt opt; - int has_csi; - - ASSERT(fonts); - - opt.style = fmap_opt->style; - opt.embed = (fmap_opt->flags & FONTMAP_OPT_NOEMBED) ? 0 : 1; - opt.csi.registry = NULL; - opt.csi.ordering = NULL; - opt.csi.supplement = 0; - has_csi = get_cidsysinfo(&opt.csi, map_name, fmap_opt); - opt.stemv = fmap_opt->stemv; - - if (!has_csi && cmap_csi) { - /* - * No CIDSystemInfo supplied explicitly. Copy from CMap's one if available. - * It is not neccesary for CID-keyed fonts. But TrueType requires them. - */ - opt.csi.registry = NEW(strlen(cmap_csi->registry)+1, char); - strcpy(opt.csi.registry, cmap_csi->registry); - opt.csi.ordering = NEW(strlen(cmap_csi->ordering)+1, char); - strcpy(opt.csi.ordering, cmap_csi->ordering); - opt.csi.supplement = cmap_csi->supplement; - has_csi = 1; - } - /* - * Here, we do not compare font->ident and map_name because of - * implicit CIDSystemInfo supplied by CMap for TrueType. - */ - for (font_id = 0; font_id < count; font_id++) { - font = &fonts[font_id]; - if (font->subtype != PDF_FONT_FONTTYPE_CIDTYPE0 && - font->subtype != PDF_FONT_FONTTYPE_CIDTYPE2) - continue; - if (!strcmp(font->filename, map_name) && - font->cid.options.style == opt.style && - font->index == fmap_opt->index) { - if (font->cid.options.embed == opt.embed) { - /* - * Case 1: CSI not available (Identity CMap) - * Font is TrueType --> continue - * Font is CIDFont --> break - * Case 2: CSI matched --> break - */ - if (!has_csi) { - if (font->subtype == PDF_FONT_FONTTYPE_CIDTYPE2) - continue; - else - break; - } else if (!strcmp(font->cid.csi.registry, opt.csi.registry) && - !strcmp(font->cid.csi.ordering, opt.csi.ordering)) { - if (font->subtype == PDF_FONT_FONTTYPE_CIDTYPE2) - font->cid.csi.supplement = - MAX(opt.csi.supplement, font->cid.csi.supplement); /* FIXME: font modified */ - break; - } - } else if (font->flags & PDF_FONT_FLAG_BASEFONT) { - break; - } - } - } - release_opt(&opt); - - return (font_id < count) ? font_id : -1; -} - -int -pdf_font_open_cidfont (pdf_font *font, const char *map_name, CIDSysInfo *cmap_csi, const fontmap_opt *fmap_opt) -{ - cid_opt opt; - int has_csi; - - opt.style = fmap_opt->style; - opt.embed = (fmap_opt->flags & FONTMAP_OPT_NOEMBED) ? 0 : 1; - opt.csi.registry = NULL; - opt.csi.ordering = NULL; - opt.csi.supplement = 0; - has_csi = get_cidsysinfo(&opt.csi, map_name, fmap_opt); - opt.stemv = fmap_opt->stemv; - - if (!has_csi && cmap_csi) { - /* - * No CIDSystemInfo supplied explicitly. Copy from CMap's one if available. - * It is not neccesary for CID-keyed fonts. But TrueType requires them. - */ - opt.csi.registry = NEW(strlen(cmap_csi->registry)+1, char); - strcpy(opt.csi.registry, cmap_csi->registry); - opt.csi.ordering = NEW(strlen(cmap_csi->ordering)+1, char); - strcpy(opt.csi.ordering, cmap_csi->ordering); - opt.csi.supplement = cmap_csi->supplement; - has_csi = 1; - } - - if (CIDFont_type0_open(font, map_name, fmap_opt->index, &opt) < 0 && - CIDFont_type2_open(font, map_name, fmap_opt->index, &opt) < 0 && - CIDFont_type0_open_from_t1 (font, map_name, fmap_opt->index, &opt) < 0 && - CIDFont_type0_open_from_t1c(font, map_name, fmap_opt->index, &opt) < 0 && - CIDFont_base_open (font, map_name, &opt) < 0) { - release_opt(&opt); - return -1; - } - - font->filename = NEW(strlen(map_name)+1, char); - strcpy(font->filename, map_name); - font->ident = NEW(strlen(map_name)+1, char); - strcpy(font->ident, map_name); - font->index = fmap_opt->index; - font->cid.options = opt; - - if (font->cid.csi.registry && font->cid.csi.ordering) { - if (cmap_csi) { - if (strcmp(font->cid.csi.registry, cmap_csi->registry) || - strcmp(font->cid.csi.ordering, cmap_csi->ordering)) { - WARN("Inconsistent ROS found:\n"); - MESG("\tFont: %s-%s-%d\n", font->cid.csi.registry, font->cid.csi.ordering, font->cid.csi.supplement); - MESG("\tCMap: %s-%s-%d\n", cmap_csi->registry, cmap_csi->ordering, cmap_csi->supplement); - ERROR("Incompatible CMap specified for this font."); - } - if (font->cid.csi.supplement < cmap_csi->supplement) { - font->cid.csi.supplement = cmap_csi->supplement; - } - } - } else { - ASSERT(font->subtype == PDF_FONT_FONTTYPE_CIDTYPE2); - if (cmap_csi) { - font->cid.csi.registry = NEW(strlen(cmap_csi->registry)+1, char); - strcpy(font->cid.csi.registry, cmap_csi->registry); - font->cid.csi.ordering = NEW(strlen(cmap_csi->ordering)+1, char); - strcpy(font->cid.csi.ordering, cmap_csi->ordering); - font->cid.csi.supplement = cmap_csi->supplement; - } else { /* This means font's internal glyph ordering. */ - font->cid.csi.registry = NEW(strlen("Adobe")+1, char); - strcpy(font->cid.csi.registry, "Adobe"); - font->cid.csi.ordering = NEW(strlen("Identity")+1, char); - strcpy(font->cid.csi.ordering, "Identity"); - font->cid.csi.supplement = 0; - } - } - - return 0; -} - - -/******************************* OPTIONS *******************************/ - -/* - * FORMAT: - * - * (:int:)?!?string(/string)?(,string)? - */ - -static void -release_opt (cid_opt *opt) -{ - if (opt->csi.registry) - RELEASE(opt->csi.registry); - if (opt->csi.ordering) - RELEASE(opt->csi.ordering); -} - -static int -get_cidsysinfo (CIDSysInfo *csi, const char *map_name, const fontmap_opt *fmap_opt) -{ - int has_csi = 0; - int sup_idx; - int i, csi_idx = -1, n, m; - - sup_idx = pdf_get_version() - 10; - sup_idx = (sup_idx > SUP_IDX_MAX) ? SUP_IDX_MAX : sup_idx; - - if (!fmap_opt || !fmap_opt->charcoll) - return 0; - - /* First try alias for standard one. */ - for (i = 0; CIDFont_stdcc_alias[i].name != NULL; i++) { - n = strlen(CIDFont_stdcc_alias[i].name); - if (!strncmp(fmap_opt->charcoll, - CIDFont_stdcc_alias[i].name, n)) { - csi_idx = CIDFont_stdcc_alias[i].index; - csi->registry = NEW(strlen(CIDFont_stdcc_def[csi_idx].registry)+1, char); - strcpy(csi->registry, CIDFont_stdcc_def[csi_idx].registry); - csi->ordering = NEW(strlen(CIDFont_stdcc_def[csi_idx].ordering)+1, char); - strcpy(csi->ordering, CIDFont_stdcc_def[csi_idx].ordering); - if (strlen(fmap_opt->charcoll) > n) { - csi->supplement = (int) strtoul(&(fmap_opt->charcoll[n]), NULL, 10); - } else { /* Use heighest supported value for current output PDF version. */ - csi->supplement = CIDFont_stdcc_def[csi_idx].supplement[sup_idx]; - } - has_csi = 1; - break; - } - } - if (!has_csi) { - char *p, *q; - - p = (char *) fmap_opt->charcoll; - - /* Full REGISTRY-ORDERING-SUPPLEMENT */ - p = strchr(fmap_opt->charcoll, '-'); - if (!p || p[1] == '\0') - ERROR("String can't be converted to REGISTRY-ORDERING-SUPPLEMENT: %s", fmap_opt->charcoll); - p++; - - q = strchr(p, '-'); - if (!q || q[1] == '\0') - ERROR("String can't be converted to REGISTRY-ORDERING-SUPPLEMENT: %s", fmap_opt->charcoll); - q++; - - if (!isdigit((unsigned char)q[0])) - ERROR("String can't be converted to REGISTRY-ORDERING-SUPPLEMENT: %s", fmap_opt->charcoll); - - n = strlen(fmap_opt->charcoll) - strlen(p) - 1; - csi->registry = NEW(n+1, char); - memcpy(csi->registry, fmap_opt->charcoll, n); - csi->registry[n] = '\0'; - - m = strlen(p) - strlen(q) - 1; - csi->ordering = NEW(m+1, char); - memcpy(csi->ordering, p, m); - csi->ordering[m] = '\0'; - - csi->supplement = (int) strtoul(q, NULL, 10); - - has_csi = 1; - - /* Check for standart character collections. */ - for (i = 0; CIDFont_stdcc_def[i].ordering != NULL; i++) { - if ((CIDFont_stdcc_def[i].registry && - !strcmp(csi->registry, CIDFont_stdcc_def[i].registry)) && - !strcmp(csi->ordering, CIDFont_stdcc_def[i].ordering)) { - csi_idx = i; - break; - } - } - } - - if (csi && csi_idx >= 0) { - if (csi->supplement > CIDFont_stdcc_def[csi_idx].supplement[sup_idx] - && (fmap_opt->flags & FONTMAP_OPT_NOEMBED)) { - WARN("Heighest supplement number supported in PDF-%d.%d for %s-%s is %d.", - pdf_get_version_major(), pdf_get_version_minor(), - csi->registry, csi->ordering, - CIDFont_stdcc_def[csi_idx].supplement[sup_idx]); - WARN("Some character may not shown without embedded font (--> %s).", map_name); - } - } - - return has_csi; -} - -void -CIDFont_set_flags (int flags) -{ - opt_flags_cidfont |= flags; -} |