123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488 |
- /* Copyright (C) 1997, 1998, 1999, 2000 Aladdin Enterprises. All rights reserved.
-
- This software is provided AS-IS with no warranty, either express or
- implied.
-
- This software is distributed under license and may not be copied,
- modified or distributed except as expressly authorized under the terms
- of the license contained in the file LICENSE in this distribution.
-
- For more information about licensing, please refer to
- http://www.ghostscript.com/licensing/. For information on
- commercial licensing, go to http://www.artifex.com/licensing/ or
- contact Artifex Software, Inc., 101 Lucas Valley Road #110,
- San Rafael, CA 94903, U.S.A., +1(415)492-9861.
- */
- /* $Id: zfcmap.c,v 1.17 2005/10/04 06:30:02 ray Exp $ */
- /* CMap creation operator */
- #include "memory_.h"
- #include "ghost.h"
- #include "oper.h"
- #include "gsmatrix.h" /* for gxfont.h */
- #include "gsstruct.h"
- #include "gsutil.h" /* for bytes_compare */
- #include "gxfcmap1.h"
- #include "gxfont.h"
- #include "ialloc.h"
- #include "icid.h"
- #include "iddict.h"
- #include "idparam.h"
- #include "ifont.h" /* for zfont_mark_glyph_name */
- #include "iname.h"
- #include "store.h"
- /* Exported for zfont0.c */
- int ztype0_get_cmap(const gs_cmap_t ** ppcmap, const ref * pfdepvector,
- const ref * op, gs_memory_t *imem);
- /*
- * Define whether to check the compatibility of CIDSystemInfo between the
- * CMap and the composite font. PLRM2 says compatibility is required, but
- * PLRM3 says the interpreter doesn't check it.
- */
- /*#define CHECK_CID_SYSTEM_INFO_COMPATIBILITY*/
- /* ---------------- Internal procedures ---------------- */
- /* Free a code map in case of VMerror. */
- private void
- free_code_map(gx_code_map_t * pcmap, gs_memory_t * mem)
- {
- if (pcmap->lookup) {
- int i;
- for (i = 0; i < pcmap->num_lookup; ++i) {
- gx_cmap_lookup_range_t *pclr = &pcmap->lookup[i];
- if (pclr->value_type == CODE_VALUE_GLYPH)
- gs_free_string(mem, pclr->values.data, pclr->values.size,
- "free_code_map(values)");
- }
- gs_free_object(mem, pcmap->lookup, "free_code_map(map)");
- }
- }
- /* Convert code ranges to internal form. */
- private int
- acquire_code_ranges(gs_cmap_adobe1_t *cmap, const ref *pref, gs_memory_t *mem)
- {
- uint num_ranges = 0;
- gx_code_space_range_t *ranges;
- uint i, j, elem_sz;
- ref elem;
- if (!r_is_array(pref))
- return_error(e_rangecheck);
- for (i=0; i < r_size(pref); i++) {
- int code = array_get(mem, pref, i, &elem);
- if (code < 0)
- return code;
- elem_sz = r_size(&elem);
- if (elem_sz & 1)
- return_error(e_rangecheck);
- num_ranges += elem_sz;
- }
- if (num_ranges == 0)
- return_error(e_rangecheck);
- num_ranges >>= 1;
- ranges = (gx_code_space_range_t *)
- gs_alloc_byte_array(mem, num_ranges, sizeof(gx_code_space_range_t),
- "acquire_code_ranges");
- if (ranges == 0)
- return_error(e_VMerror);
- cmap->code_space.ranges = ranges;
- cmap->code_space.num_ranges = num_ranges;
- for (i = 0; i < r_size(pref); i++) {
- array_get(mem, pref, i, &elem);
- elem_sz = r_size(&elem);
- for (j = 0; j < elem_sz; j += 2) {
- ref rfirst, rlast;
- int size;
- array_get(mem, &elem, j, &rfirst);
- array_get(mem, &elem, j + 1, &rlast);
- if (!r_has_type(&rfirst, t_string) ||
- !r_has_type(&rlast, t_string) ||
- (size = r_size(&rfirst)) == 0 || size > MAX_CMAP_CODE_SIZE ||
- r_size(&rlast) != size ||
- memcmp(rfirst.value.bytes, rlast.value.bytes, size) > 0)
- return_error(e_rangecheck);
- memcpy(ranges->first, rfirst.value.bytes, size);
- memcpy(ranges->last, rlast.value.bytes, size);
- ranges->size = size;
- ++ranges;
- }
- }
- return 0;
- }
- /* Convert a code map to internal form. */
- private int
- acquire_code_map(gx_code_map_t *pcmap, const ref *pref, gs_cmap_adobe1_t *root,
- gs_memory_t *mem)
- {
- uint num_lookup = 0;
- gx_cmap_lookup_range_t *pclr;
- long i;
- ref elem;
- uint elem_sz;
- if (!r_is_array(pref))
- return_error(e_rangecheck);
- for (i=0; i < r_size(pref); i++) {
- int code = array_get(mem, pref, i, &elem);
- if (code < 0)
- return code;
- elem_sz = r_size(&elem);
- if (elem_sz % 5 != 0)
- return_error(e_rangecheck);
- num_lookup += elem_sz;
- }
- num_lookup /= 5;
- pclr = gs_alloc_struct_array(mem, num_lookup, gx_cmap_lookup_range_t,
- &st_cmap_lookup_range_element,
- "acquire_code_map(lookup ranges)");
- if (pclr == 0)
- return_error(e_VMerror);
- memset(pclr, 0, sizeof(*pclr) * num_lookup);
- pcmap->lookup = pclr;
- pcmap->num_lookup = num_lookup;
-
-
- for (i = 0; i < r_size(pref); i++) {
- uint j;
- array_get(mem, pref, i, &elem);
- elem_sz = r_size(&elem);
- for (j = 0; j < elem_sz; j += 5) {
- ref rprefix, rmisc, rkeys, rvalues, rfxs;
- array_get(mem, &elem, j, &rprefix);
- array_get(mem, &elem, j + 1, &rmisc);
- array_get(mem, &elem, j + 2, &rkeys);
- array_get(mem, &elem, j + 3, &rvalues);
- array_get(mem, &elem, j + 4, &rfxs);
- if (!r_has_type(&rprefix, t_string) ||
- !r_has_type(&rmisc, t_string) ||
- !r_has_type(&rkeys, t_string) ||
- !(r_has_type(&rvalues, t_string) || r_is_array(&rvalues)) ||
- !r_has_type(&rfxs, t_integer)
- )
- return_error(e_typecheck);
- if (r_size(&rmisc) != 4 ||
- rmisc.value.bytes[0] > MAX_CMAP_CODE_SIZE - r_size(&rprefix) ||
- rmisc.value.bytes[1] > 1 ||
- rmisc.value.bytes[2] > CODE_VALUE_MAX ||
- rmisc.value.bytes[3] == 0)
- return_error(e_rangecheck);
- pclr->cmap = root;
- pclr->key_size = rmisc.value.bytes[0];
- pclr->key_prefix_size = r_size(&rprefix);
- memcpy(pclr->key_prefix, rprefix.value.bytes, pclr->key_prefix_size);
- pclr->key_is_range = rmisc.value.bytes[1];
- if (pclr->key_size == 0) {
- /* This is a single entry consisting only of the prefix. */
- if (r_size(&rkeys) != 0)
- return_error(e_rangecheck);
- pclr->num_entries = 1;
- } else {
- int step = pclr->key_size * (pclr->key_is_range ? 2 : 1);
- if (r_size(&rkeys) % step != 0)
- return_error(e_rangecheck);
- pclr->num_entries = r_size(&rkeys) / step;
- }
- pclr->keys.data = rkeys.value.bytes,
- pclr->keys.size = r_size(&rkeys);
- pclr->value_type = rmisc.value.bytes[2];
- pclr->value_size = rmisc.value.bytes[3];
- if (r_has_type(&rvalues, t_string)) {
- if (pclr->value_type == CODE_VALUE_GLYPH)
- return_error(e_rangecheck);
- if (r_size(&rvalues) % pclr->num_entries != 0 ||
- r_size(&rvalues) / pclr->num_entries != pclr->value_size)
- return_error(e_rangecheck);
- pclr->values.data = rvalues.value.bytes,
- pclr->values.size = r_size(&rvalues);
- } else {
- uint values_size = pclr->num_entries * pclr->value_size;
- long k;
- byte *pvalue;
- if (pclr->value_type != CODE_VALUE_GLYPH ||
- r_size(&rvalues) != pclr->num_entries ||
- pclr->value_size > sizeof(gs_glyph))
- return_error(e_rangecheck);
- pclr->values.data = gs_alloc_string(mem, values_size,
- "acquire_code_map(values)");
- if (pclr->values.data == 0)
- return_error(e_VMerror);
- pclr->values.size = values_size;
- pvalue = pclr->values.data;
- for (k = 0; k < pclr->num_entries; ++k) {
- ref rvalue;
- gs_glyph value;
- int i;
- array_get(mem, &rvalues, k, &rvalue);
- if (!r_has_type(&rvalue, t_name))
- return_error(e_rangecheck);
- value = name_index(mem, &rvalue);
- /*
- * We need a special check here because some CPUs cannot
- * shift by the full size of an int or long.
- */
- if (pclr->value_size < sizeof(value) &&
- (value >> (pclr->value_size * 8)) != 0
- )
- return_error(e_rangecheck);
- for (i = pclr->value_size; --i >= 0; )
- *pvalue++ = (byte)(value >> (i * 8));
- }
- }
- check_int_leu_only(rfxs, 0xff);
- pclr->font_index = (int)rfxs.value.intval;
- ++pclr;
- }
- }
- return 0;
- }
- /*
- * Acquire the CIDSystemInfo array from a dictionary. If missing, fabricate
- * a 0-element array and return 1.
- */
- private int
- acquire_cid_system_info(ref *psia, const ref *op)
- {
- ref *prcidsi;
- if (dict_find_string(op, "CIDSystemInfo", &prcidsi) <= 0) {
- make_empty_array(psia, a_readonly);
- return 1;
- }
- if (r_has_type(prcidsi, t_dictionary)) {
- make_array(psia, a_readonly, 1, prcidsi);
- return 0;
- }
- if (!r_is_array(prcidsi))
- return_error(e_typecheck);
- *psia = *prcidsi;
- return 0;
- }
- /*
- * Get one element of a CIDSystemInfo array. If the element is missing or
- * null, return 1.
- */
- private int
- get_cid_system_info(const gs_memory_t *mem, gs_cid_system_info_t *pcidsi, const ref *psia, uint index)
- {
- ref rcidsi;
- int code = array_get(mem, psia, (long)index, &rcidsi);
- if (code < 0 || r_has_type(&rcidsi, t_null)) {
- cid_system_info_set_null(pcidsi);
- return 1;
- }
- return cid_system_info_param(pcidsi, &rcidsi);
- }
- #ifdef CHECK_CID_SYSTEM_INFO_COMPATIBILITY
- /* Check compatibility of CIDSystemInfo. */
- private bool
- bytes_eq(const gs_const_string *pcs1, const gs_const_string *pcs2)
- {
- return !bytes_compare(pcs1->data, pcs1->size,
- pcs2->data, pcs2->size);
- }
- private bool
- cid_system_info_compatible(const gs_cid_system_info_t * psi1,
- const gs_cid_system_info_t * psi2)
- {
- return bytes_eq(&psi1->Registry, &psi2->Registry) &&
- bytes_eq(&psi1->Ordering, &psi2->Ordering);
- }
- #endif /* CHECK_CID_SYSTEM_INFO_COMPATIBILITY */
- /* ---------------- (Semi-)public procedures ---------------- */
- /* Get the CodeMap from a Type 0 font, and check the CIDSystemInfo of */
- /* its subsidiary fonts. */
- int
- ztype0_get_cmap(const gs_cmap_t **ppcmap, const ref *pfdepvector,
- const ref *op, gs_memory_t *imem)
- {
- ref *prcmap;
- ref *pcodemap;
- const gs_cmap_t *pcmap;
- int code;
- uint num_fonts;
- uint i;
- /*
- * We have no way of checking whether the CodeMap is a concrete
- * subclass of gs_cmap_t, so we just check that it is in fact a
- * t_struct and is large enough.
- */
- if (dict_find_string(op, "CMap", &prcmap) <= 0 ||
- !r_has_type(prcmap, t_dictionary) ||
- dict_find_string(prcmap, "CodeMap", &pcodemap) <= 0 ||
- !r_is_struct(pcodemap) ||
- gs_object_size(imem, r_ptr(pcodemap, gs_cmap_t)) < sizeof(gs_cmap_t)
- )
- return_error(e_invalidfont);
- pcmap = r_ptr(pcodemap, gs_cmap_t);
- num_fonts = r_size(pfdepvector);
- for (i = 0; i < num_fonts; ++i) {
- ref rfdep, rfsi;
- array_get(imem, pfdepvector, (long)i, &rfdep);
- code = acquire_cid_system_info(&rfsi, &rfdep);
- if (code < 0)
- return code;
- if (code == 0) {
- if (r_size(&rfsi) != 1)
- return_error(e_rangecheck);
- #ifdef CHECK_CID_SYSTEM_INFO_COMPATIBILITY
- {
- gs_cid_system_info_t cidsi;
- get_cid_system_info(&cidsi, &rfsi, 0);
- if (!cid_system_info_is_null(&cidsi) &&
- !cid_system_info_compatible(&cidsi,
- pcmap->CIDSystemInfo + i))
- return_error(e_rangecheck);
- }
- #endif
- }
- }
- *ppcmap = pcmap;
- return 0;
- }
- /* ---------------- Operators ---------------- */
- /* <CMap> .buildcmap <CMap> */
- /*
- * Create the internal form of a CMap. The initial CMap must be read-write
- * and have an entry with key = CodeMap and value = null; the result is
- * read-only and has a real CodeMap.
- *
- * This operator reads the CMapType, CMapName, CIDSystemInfo, CMapVersion,
- * UIDOffset, XUID, WMode, and .CodeMapData elements of the CMap dictionary.
- * For details, see lib/gs_cmap.ps and the Adobe documentation.
- */
- private int
- zfcmap_glyph_name(const gs_memory_t *mem,
- gs_glyph glyph, gs_const_string *pstr, void *proc_data)
- {
- ref nref, nsref;
- int code = 0;
- /*code = */name_index_ref(mem, (uint)glyph, &nref);
- if (code < 0)
- return code;
- name_string_ref(mem, &nref, &nsref);
- pstr->data = nsref.value.const_bytes;
- pstr->size = r_size(&nsref);
- return 0;
- }
- private int
- zbuildcmap(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- int code;
- ref *pcmapname;
- ref *puidoffset;
- ref *pcodemapdata;
- ref *pcodemap;
- ref rname, rcidsi, rcoderanges, rdefs, rnotdefs;
- gs_cmap_adobe1_t *pcmap = 0;
- ref rcmap;
- uint i;
- check_type(*op, t_dictionary);
- check_dict_write(*op);
- if ((code = dict_find_string(op, "CMapName", &pcmapname)) <= 0) {
- code = gs_note_error(e_rangecheck);
- goto fail;
- }
- if (!r_has_type(pcmapname, t_name)) {
- code = gs_note_error(e_typecheck);
- goto fail;
- }
- name_string_ref(imemory, pcmapname, &rname);
- if (dict_find_string(op, ".CodeMapData", &pcodemapdata) <= 0 ||
- !r_has_type(pcodemapdata, t_array) ||
- r_size(pcodemapdata) != 3 ||
- dict_find_string(op, "CodeMap", &pcodemap) <= 0 ||
- !r_has_type(pcodemap, t_null)
- ) {
- code = gs_note_error(e_rangecheck);
- goto fail;
- }
- if ((code = acquire_cid_system_info(&rcidsi, op)) < 0)
- goto fail;
- if ((code = gs_cmap_adobe1_alloc(&pcmap, 0, rname.value.const_bytes,
- r_size(&rname), r_size(&rcidsi),
- 0, 0, 0, 0, 0, imemory)) < 0)
- goto fail;
- if ((code = dict_int_param(op, "CMapType", 0, 1, 0, &pcmap->CMapType)) < 0 ||
- (code = dict_float_param(op, "CMapVersion", 0.0, &pcmap->CMapVersion)) < 0 ||
- (code = dict_uid_param(op, &pcmap->uid, 0, imemory, i_ctx_p)) < 0 ||
- (code = dict_int_param(op, "WMode", 0, 1, 0, &pcmap->WMode)) < 0
- )
- goto fail;
- if (dict_find_string(op, "UIDOffset", &puidoffset) > 0) {
- if (!r_has_type(puidoffset, t_integer)) {
- code = gs_note_error(e_typecheck);
- goto fail;
- }
- pcmap->UIDOffset = puidoffset->value.intval; /* long, not int */
- }
- for (i = 0; i < r_size(&rcidsi); ++i) {
- code = get_cid_system_info(imemory, pcmap->CIDSystemInfo + i, &rcidsi, i);
- if (code < 0)
- goto fail;
- }
- array_get(imemory, pcodemapdata, 0L, &rcoderanges);
- array_get(imemory, pcodemapdata, 1L, &rdefs);
- array_get(imemory, pcodemapdata, 2L, &rnotdefs);
- if ((code = acquire_code_ranges(pcmap, &rcoderanges, imemory)) < 0)
- goto fail;
- if ((code = acquire_code_map(&pcmap->def, &rdefs, pcmap, imemory)) < 0)
- goto fail;
- if ((code = acquire_code_map(&pcmap->notdef, &rnotdefs, pcmap, imemory)) < 0)
- goto fail;
- pcmap->mark_glyph = zfont_mark_glyph_name;
- pcmap->mark_glyph_data = 0;
- pcmap->glyph_name = zfcmap_glyph_name;
- pcmap->glyph_name_data = 0;
- make_istruct_new(&rcmap, a_readonly, pcmap);
- code = idict_put_string(op, "CodeMap", &rcmap);
- if (code < 0)
- goto fail;
- return zreadonly(i_ctx_p);
- fail:
- if (pcmap) {
- free_code_map(&pcmap->notdef, imemory);
- free_code_map(&pcmap->def, imemory);
- ifree_object(pcmap->CIDSystemInfo, "zbuildcmap(CIDSystemInfo)");
- ifree_object(pcmap, "zbuildcmap(cmap)");
- }
- return code;
- }
- /* ------ Initialization procedure ------ */
- const op_def zfcmap_op_defs[] =
- {
- {"1.buildcmap", zbuildcmap},
- op_def_end(0)
- };
|