diff options
author | Chris Liddell <chris.liddell@artifex.com> | 2013-07-23 16:24:19 +0100 |
---|---|---|
committer | Chris Liddell <chris.liddell@artifex.com> | 2015-07-20 18:21:17 +0100 |
commit | 6948650efd3fb9e2a70b8cf16aca57e9d0b7eb0a (patch) | |
tree | 5c2a1c671c1d4521f8a770d1e69e3d4342718030 /gs/psi/zchar.c | |
parent | 7fd9e0be26e67c36f87733bc89ea07dc26d9f839 (diff) | |
download | ghostpdl-6948650efd3fb9e2a70b8cf16aca57e9d0b7eb0a.tar.gz |
Commit of build_consolidation branch
Squashed into one commit (see branch for details of the evolution of the
branch).
This brings gpcl6 and gxps into the Ghostscript build system, and a shared
set of graphics library object files for all the interpreters.
Also, brings the same configuration options to the pcl and xps products as we
have for Ghostscript.
Diffstat (limited to 'gs/psi/zchar.c')
-rw-r--r-- | gs/psi/zchar.c | 967 |
1 files changed, 0 insertions, 967 deletions
diff --git a/gs/psi/zchar.c b/gs/psi/zchar.c deleted file mode 100644 index 51081f0b7..000000000 --- a/gs/psi/zchar.c +++ /dev/null @@ -1,967 +0,0 @@ -/* Copyright (C) 2001-2012 Artifex Software, Inc. - 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. - - Refer to licensing information at http://www.artifex.com or contact - Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134, San Rafael, - CA 94903, U.S.A., +1(415)492-9861, for further information. -*/ - - -/* Character operators */ -#include "ghost.h" -#include "oper.h" -#include "gsstruct.h" -#include "gstext.h" -#include "gxarith.h" -#include "gxfixed.h" -#include "gxmatrix.h" /* for ifont.h */ -#include "gxdevice.h" /* for gxfont.h */ -#include "gxfont.h" -#include "gxfont42.h" -#include "gxfont0.h" -#include "gzstate.h" -#include "dstack.h" /* for stack depth */ -#include "estack.h" -#include "ialloc.h" -#include "ichar.h" -#include "ichar1.h" -#include "idict.h" -#include "ifont.h" -#include "igstate.h" -#include "ilevel.h" -#include "iname.h" -#include "ipacked.h" -#include "store.h" -#include "zchar42.h" - -/* Forward references */ -static bool map_glyph_to_char(const gs_memory_t *mem, - const ref *, const ref *, ref *); -static int finish_show(i_ctx_t *); -static int op_show_cleanup(i_ctx_t *); -static int op_show_return_width(i_ctx_t *, uint, double *); - -static int zawidthshow(i_ctx_t *i_ctx_p); -static int zwidthshow(i_ctx_t *i_ctx_p); - - -/* <string> show - */ -static int -zshow(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - gs_text_enum_t *penum; - int code = op_show_setup(i_ctx_p, op); - - if (code != 0 || - (code = gs_show_begin(igs, op->value.bytes, r_size(op), imemory_local, &penum)) < 0) - return code; - *(op_proc_t *)&penum->enum_client_data = zshow; - if ((code = op_show_finish_setup(i_ctx_p, penum, 1, finish_show)) < 0) { - ifree_object(penum, "op_show_enum_setup"); - return code; - } - return op_show_continue_pop(i_ctx_p, 1); -} - -/* <ax> <ay> <string> ashow - */ -static int -zashow(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - gs_text_enum_t *penum; - double axy[2]; - int code = num_params(op - 1, 2, axy); - - if (code < 0 || - (code = op_show_setup(i_ctx_p, op)) != 0 || - (code = gs_ashow_begin(igs, axy[0], axy[1], op->value.bytes, r_size(op), imemory_local, &penum)) < 0) - return code; - *(op_proc_t *)&penum->enum_client_data = zashow; - if ((code = op_show_finish_setup(i_ctx_p, penum, 3, finish_show)) < 0) { - ifree_object(penum, "op_show_enum_setup"); - return code; - } - return op_show_continue_pop(i_ctx_p, 3); -} - -static int -widthshow_aux(i_ctx_t *i_ctx_p, bool single_byte_space) -{ - os_ptr op = osp; - gs_text_enum_t *penum; - double cxy[2]; - int code; - - if ((code = op_show_setup(i_ctx_p, op)) != 0 ) - return code; - check_type(op[-1], t_integer); - if (gs_currentfont(igs)->FontType == ft_composite) { - if ((gs_char) (op[-1].value.intval) != op[-1].value.intval) - return_error(gs_error_rangecheck); - } else { - if (op[-1].value.intval < 0 || op[-1].value.intval > 255) - return_error(gs_error_rangecheck); /* per PLRM and CET 13-26 */ - } - if ((code = num_params(op - 2, 2, cxy)) < 0 ) - return code; - if ((code = gs_widthshow_begin(igs, cxy[0], cxy[1], - (gs_char) op[-1].value.intval, - op->value.bytes, r_size(op), - imemory_local, &penum)) < 0) - return code; - *(op_proc_t *)&penum->enum_client_data = zwidthshow; - - penum->single_byte_space = single_byte_space; - - if ((code = op_show_finish_setup(i_ctx_p, penum, 4, finish_show)) < 0) { - ifree_object(penum, "op_show_enum_setup"); - return code; - } - - return op_show_continue_pop(i_ctx_p, 4); -} - -/* <cx> <cy> <char> <string> widthshow - */ -static int -zwidthshow(i_ctx_t *i_ctx_p) -{ - return(widthshow_aux(i_ctx_p, false)); -} - -/* For PDF word spacing we need to identify strictly - single byte character codes of the value 32, and - this conflicts with Postscript's widthshow character - code matching, where any character code, regardless of - its length will match. For example, in widthshow, a - character code of <0032> will match a parameter value - of 32, but for PDF word spacing, <0032> will not match - the space character, and won't have the word spacing - applied, but <32> will. - Hence, we have a couple of custom operators to cover - the different requirements. -*/ -/* <cx> <cy> <char> <string> .pdfwidthshow - */ -static int -zpdfwidthshow(i_ctx_t *i_ctx_p) -{ - return(widthshow_aux(i_ctx_p, true)); -} - -static int -awidthshow_aux(i_ctx_t *i_ctx_p, bool single_byte_space) -{ - os_ptr op = osp; - gs_text_enum_t *penum; - double cxy[2], axy[2]; - int code; - - if ((code = op_show_setup(i_ctx_p, op)) != 0 ) - return code; - if ((code = num_params(op - 1, 2, axy)) < 0 ) - return code; - check_type(op[-3], t_integer); - if (gs_currentfont(igs)->FontType == ft_composite) { - if ((gs_char) (op[-3].value.intval) != op[-3].value.intval) - return_error(gs_error_rangecheck); - } else { - if (op[-3].value.intval < 0 || op[-3].value.intval > 255) - return_error(gs_error_rangecheck); /* per PLRM and CET 13-02 */ - } - if ((code = num_params(op - 4, 2, cxy)) < 0 ) - return code; - if ((code = gs_awidthshow_begin(igs, cxy[0], cxy[1], - (gs_char) op[-3].value.intval, - axy[0], axy[1], - op->value.bytes, r_size(op), - imemory_local, &penum)) < 0) - return code; - *(op_proc_t *)&penum->enum_client_data = zawidthshow; - - penum->single_byte_space = single_byte_space; - - if ((code = op_show_finish_setup(i_ctx_p, penum, 6, finish_show)) < 0) { - ifree_object(penum, "op_show_enum_setup"); - return code; - } - - return op_show_continue_pop(i_ctx_p, 6); -} - -/* <cx> <cy> <char> <ax> <ay> <string> awidthshow - */ -static int -zawidthshow(i_ctx_t *i_ctx_p) -{ - return(awidthshow_aux(i_ctx_p, false)); -} - -/* <cx> <cy> <char> <ax> <ay> <string> .pdfawidthshow - */ -static int -zpdfawidthshow(i_ctx_t *i_ctx_p) -{ - return(awidthshow_aux(i_ctx_p, true)); -} - -/* <proc> <string> kshow - */ -static int -zkshow(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - gs_text_enum_t *penum; - int code; - - check_read_type(*op, t_string); - check_proc(op[-1]); - /* - * Per PLRM Section xx.x, kshow is illegal if the current font is a - * composite font. The graphics library does not have this limitation, - * so we check for it here. - */ - if (gs_currentfont(igs)->FontType == ft_composite) - return_error(gs_error_invalidfont); - if ((code = op_show_setup(i_ctx_p, op)) != 0 || - (code = gs_kshow_begin(igs, op->value.bytes, r_size(op), - imemory_local, &penum)) < 0) - return code; - *(op_proc_t *)&penum->enum_client_data = zkshow; - if ((code = op_show_finish_setup(i_ctx_p, penum, 2, finish_show)) < 0) { - ifree_object(penum, "op_show_enum_setup"); - return code; - } - sslot = op[-1]; /* save kerning proc */ - return op_show_continue_pop(i_ctx_p, 2); -} - -/* Common finish procedure for all show operations. */ -/* Doesn't have to do anything. */ -static int -finish_show(i_ctx_t *i_ctx_p) -{ - return 0; -} - -/* <string> stringwidth <wx> <wy> */ -static int -zstringwidth(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - gs_text_enum_t *penum; - int code = op_show_setup(i_ctx_p, op); - - if (code != 0 || - (code = gs_stringwidth_begin(igs, op->value.bytes, r_size(op), - imemory, &penum)) < 0) - return code; - *(op_proc_t *)&penum->enum_client_data = zstringwidth; - if ((code = op_show_finish_setup(i_ctx_p, penum, 1, finish_stringwidth)) < 0) { - ifree_object(penum, "op_show_enum_setup"); - return code; - } - return op_show_continue_pop(i_ctx_p, 1); -} -/* Finishing procedure for stringwidth. */ -/* Pushes the accumulated width. */ -/* This is exported for .glyphwidth (in zcharx.c). */ -int -finish_stringwidth(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - gs_point width; - - gs_text_total_width(senum, &width); - push(2); - make_real(op - 1, width.x); - make_real(op, width.y); - return 0; -} - -/* Common code for charpath and .charboxpath. */ -static int -zchar_path(i_ctx_t *i_ctx_p, op_proc_t proc, - int (*begin)(gs_state *, const byte *, uint, - bool, gs_memory_t *, gs_text_enum_t **)) -{ - os_ptr op = osp; - gs_text_enum_t *penum; - int code; - - check_type(*op, t_boolean); - code = op_show_setup(i_ctx_p, op - 1); - if (code != 0 || - (code = begin(igs, op[-1].value.bytes, r_size(op - 1), - op->value.boolval, imemory, &penum)) < 0) - return code; - *(op_proc_t *)&penum->enum_client_data = proc; - if ((code = op_show_finish_setup(i_ctx_p, penum, 2, finish_show)) < 0) { - ifree_object(penum, "op_show_enum_setup"); - return code; - } - return op_show_continue_pop(i_ctx_p, 2); -} -/* <string> <outline_bool> charpath - */ -static int -zcharpath(i_ctx_t *i_ctx_p) -{ - return zchar_path(i_ctx_p, zcharpath, gs_charpath_begin); -} -/* <string> <box_bool> .charboxpath - */ -static int -zcharboxpath(i_ctx_t *i_ctx_p) -{ - return zchar_path(i_ctx_p, zcharboxpath, gs_charboxpath_begin); -} - -/* <wx> <wy> <llx> <lly> <urx> <ury> setcachedevice - */ -int -zsetcachedevice(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - double wbox[6]; - gs_text_enum_t *penum = op_show_find(i_ctx_p); - int code = num_params(op, 6, wbox); - - if (penum == 0) - return_error(gs_error_undefined); - if (code < 0) - return code; - if (zchar_show_width_only(penum)) - return op_show_return_width(i_ctx_p, 6, &wbox[0]); - code = gs_text_setcachedevice(penum, wbox); - if (code < 0) - return code; - pop(6); - if (code == 1) - clear_pagedevice(istate); - return 0; -} - -/* <w0x> <w0y> <llx> <lly> <urx> <ury> <w1x> <w1y> <vx> <vy> setcachedevice2 - */ -int -zsetcachedevice2(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - double wbox[10]; - gs_text_enum_t *penum = op_show_find(i_ctx_p); - int code = num_params(op, 10, wbox); - - if (penum == 0) - return_error(gs_error_undefined); - if (code < 0) - return code; - if (zchar_show_width_only(penum)) - return op_show_return_width(i_ctx_p, 10, - (gs_rootfont(igs)->WMode ? - &wbox[6] : &wbox[0])); - code = gs_text_setcachedevice2(penum, wbox); - if (code < 0) - return code; - pop(10); - if (code == 1) - clear_pagedevice(istate); - return 0; -} - -/* <wx> <wy> setcharwidth - */ -static int -zsetcharwidth(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - double width[2]; - gs_text_enum_t *penum = op_show_find(i_ctx_p); - int code = num_params(op, 2, width); - - if (penum == 0) - return_error(gs_error_undefined); - if (code < 0) - return code; - if (zchar_show_width_only(penum)) - return op_show_return_width(i_ctx_p, 2, &width[0]); - code = gs_text_setcharwidth(penum, width); - if (code < 0) - return code; - pop(2); - return 0; -} - -/* <dict> .fontbbox <llx> <lly> <urx> <ury> -true- */ -/* <dict> .fontbbox -false- */ -static int -zfontbbox(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - double bbox[4]; - int code; - - check_type(*op, t_dictionary); - check_dict_read(*op); - code = font_bbox_param(imemory, op, bbox); - if (code < 0) - return code; - if (bbox[0] < bbox[2] && bbox[1] < bbox[3]) { - push(4); - make_reals(op - 4, bbox, 4); - make_true(op); - } else { /* No bbox, or an empty one. */ - make_false(op); - } - return 0; -} - -/* Export in_cachedevice flag for PDF interpreter, which, unlike - * PS unterpreter, ignores color operations in the inappropriate context. - */ -/* - .incachedevice <bool> */ -static int -zincachedevice(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - - push(1); - make_bool(op, !!igs->in_cachedevice); - return 0; -} - -/* ------ Initialization procedure ------ */ - -const op_def zchar_a_op_defs[] = -{ - {"3ashow", zashow}, - {"6awidthshow", zawidthshow}, - {"2charpath", zcharpath}, - {"2.charboxpath", zcharboxpath}, - {"2kshow", zkshow}, - {"6setcachedevice", zsetcachedevice}, - {":setcachedevice2", zsetcachedevice2}, - {"2setcharwidth", zsetcharwidth}, - {"1show", zshow}, - {"1stringwidth", zstringwidth}, - {"4widthshow", zwidthshow}, - /* Extensions */ - {"1.fontbbox", zfontbbox}, - {"6.pdfawidthshow", zpdfawidthshow}, - {"4.pdfwidthshow", zpdfwidthshow}, - - /* Internal operators */ - {"0%finish_show", finish_show}, - op_def_end(0) -}; - -const op_def zchar_b_op_defs[] = -{ - {"0%finish_stringwidth", finish_stringwidth}, - {"0%op_show_continue", op_show_continue}, - {"0.incachedevice", zincachedevice}, - op_def_end(0) -}; - -/* ------ Subroutines ------ */ - -/* Most of these are exported for zchar2.c. */ - -/* Convert a glyph to a ref. */ -void -glyph_ref(const gs_memory_t *mem, gs_glyph glyph, ref * gref) -{ - if (glyph < gs_min_cid_glyph) - name_index_ref(mem, glyph, gref); - else - make_int(gref, glyph - gs_min_cid_glyph); -} - -/* Prepare to set up for a text operator. */ -/* Don't change any state yet. */ -int -op_show_setup(i_ctx_t *i_ctx_p, os_ptr op) -{ - check_read_type(*op, t_string); - return op_show_enum_setup(i_ctx_p); -} -int -op_show_enum_setup(i_ctx_t *i_ctx_p) -{ - check_estack(snumpush + 2); - return 0; -} - -/* Finish setting up a text operator. */ -int -op_show_finish_setup(i_ctx_t *i_ctx_p, gs_text_enum_t * penum, int npop, - op_proc_t endproc /* end procedure */ ) -{ - gs_text_enum_t *osenum = op_show_find(i_ctx_p); - es_ptr ep = esp + snumpush; - gs_glyph glyph; - - if (gs_currentcpsimode(igs->memory)) { - /* CET 14-03.PS page 2 emits rangecheck before rendering a character. - Early check the text to font compatibility - with decomposing the text into characters.*/ - int code = gs_text_count_chars(igs, gs_get_text_params(penum), imemory); - - if (code < 0) - return code; - } - /* - * If we are in the procedure of a cshow for a CID font and this is - * a show operator, do something special, per the Red Book. - */ - if (osenum && - SHOW_IS_ALL_OF(osenum, - TEXT_FROM_STRING | TEXT_DO_NONE | TEXT_INTERVENE) && - SHOW_IS_ALL_OF(penum, TEXT_FROM_STRING | TEXT_RETURN_WIDTH) && - (glyph = gs_text_current_glyph(osenum)) != gs_no_glyph && - glyph >= gs_min_cid_glyph && - - /* According to PLRM, we don't need to raise a rangecheck error, - if currentfont is changed in the proc of the operator 'cshow'. */ - gs_default_same_font (gs_text_current_font(osenum), - gs_text_current_font(penum), true) - ) { - gs_text_params_t text; - - if (!(penum->text.size == 1 && - penum->text.data.bytes[0] == - (gs_text_current_char(osenum) & 0xff)) - ) - return_error(gs_error_rangecheck); - text = penum->text; - text.operation = - (text.operation & - ~(TEXT_FROM_STRING | TEXT_FROM_BYTES | TEXT_FROM_CHARS | - TEXT_FROM_GLYPHS | TEXT_FROM_SINGLE_CHAR)) | - TEXT_FROM_SINGLE_GLYPH; - text.data.d_glyph = glyph; - text.size = 1; - gs_text_restart(penum, &text); - } - if (osenum && osenum->current_font->FontType == ft_user_defined && - osenum->orig_font->FontType == ft_composite && - ((const gs_font_type0 *)osenum->orig_font)->data.FMapType == fmap_CMap) { - /* A special behavior defined in PLRM3 section 5.11 page 389. */ - penum->outer_CID = osenum->returned.current_glyph; - } - if (osenum == NULL && !(penum->text.operation & (TEXT_FROM_GLYPHS | TEXT_FROM_SINGLE_GLYPH))) { - int ft = igs->root_font->FontType; - - if ((ft >= ft_CID_encrypted && ft <= ft_CID_TrueType) || ft == ft_CID_bitmap) - return_error(gs_error_typecheck); - } - make_mark_estack(ep - (snumpush - 1), es_show, op_show_cleanup); - if (endproc == NULL) - endproc = finish_show; - make_null(&esslot(ep)); - make_int(&esodepth(ep), ref_stack_count_inline(&o_stack) - npop); /* Save stack depth for */ - make_int(&esddepth(ep), ref_stack_count_inline(&d_stack)); /* correct interrupt processing */ - make_int(&esgslevel(ep), igs->level); - make_null(&essfont(ep)); - make_null(&esrfont(ep)); - make_op_estack(&eseproc(ep), endproc); - make_istruct(ep, 0, penum); - esp = ep; - return 0; -} - -/* Continuation operator for character rendering. */ -int -op_show_continue(i_ctx_t *i_ctx_p) -{ - int code = gs_text_update_dev_color(igs, senum); - - if (code >= 0) - code = op_show_continue_dispatch(i_ctx_p, 0, gs_text_process(senum)); - return code; -} -int -op_show_continue_pop(i_ctx_t *i_ctx_p, int npop) -{ - return op_show_continue_dispatch(i_ctx_p, npop, gs_text_process(senum)); -} -/* - * Note that op_show_continue_dispatch sets osp = op explicitly iff the - * dispatch succeeds. This is so that the show operators don't pop anything - * from the o-stack if they don't succeed. Note also that if it returns an - * error, it has freed the enumerator. - */ -int -op_show_continue_dispatch(i_ctx_t *i_ctx_p, int npop, int code) -{ - os_ptr op = osp - npop; - gs_text_enum_t *penum = senum; - - switch (code) { - case 0: { /* all done */ - os_ptr save_osp = osp; - - osp = op; - code = (*real_opproc(&seproc)) (i_ctx_p); - op_show_free(i_ctx_p, code); - if (code < 0) { - osp = save_osp; - return code; - } - return o_pop_estack; - } - case TEXT_PROCESS_INTERVENE: { - ref *pslot = &sslot; /* only used for kshow */ - - push(2); - make_int(op - 1, gs_text_current_char(penum)); /* previous char */ - make_int(op, gs_text_next_char(penum)); - push_op_estack(op_show_continue); /* continue after kerning */ - *++esp = *pslot; /* kerning procedure */ - return o_push_estack; - } - case TEXT_PROCESS_RENDER: { - gs_font *pfont = gs_currentfont(igs); - font_data *pfdata = pfont_data(pfont); - gs_char chr = gs_text_current_char(penum); - gs_glyph glyph = gs_text_current_glyph(penum); - - push(2); - op[-1] = pfdata->dict; /* push the font */ - /* - * For Type 1 and Type 4 fonts, prefer BuildChar to BuildGlyph - * if there is no glyph, or if there is both a character and a - * glyph and the glyph is the one that corresponds to the - * character in the Encoding, so that PostScript procedures - * appearing in the CharStrings dictionary will receive the - * character code rather than the character name; for Type 3 - * fonts, prefer BuildGlyph to BuildChar. For other font types - * (such as CID fonts), only BuildGlyph will be present. - */ - if (pfont->FontType == ft_user_defined) { - /* Type 3 font, prefer BuildGlyph. */ - if (level2_enabled && - !r_has_type(&pfdata->BuildGlyph, t_null) && - glyph != gs_no_glyph - ) { - glyph_ref(imemory, glyph, op); - esp[2] = pfdata->BuildGlyph; - } else if (r_has_type(&pfdata->BuildChar, t_null)) - goto err; - else if (chr == gs_no_char) { - /* glyphshow, reverse map the character */ - /* through the Encoding */ - ref gref; - const ref *pencoding = &pfdata->Encoding; - - glyph_ref(imemory, glyph, &gref); - if (!map_glyph_to_char(imemory, &gref, pencoding, - (ref *) op) - ) { /* Not found, try .notdef */ - name_enter_string(imemory, ".notdef", &gref); - if (!map_glyph_to_char(imemory, &gref, - pencoding, - (ref *) op) - ) - goto err; - } - esp[2] = pfdata->BuildChar; - } else { - make_int(op, chr & 0xff); - esp[2] = pfdata->BuildChar; - } - } else { - /* - * For a Type 1 or Type 4 font, prefer BuildChar or - * BuildGlyph as described above: we know that both - * BuildChar and BuildGlyph are present. For other font - * types, only BuildGlyph is available. - */ - ref eref, gref; - - if (chr != gs_no_char && - !r_has_type(&pfdata->BuildChar, t_null) && - (glyph == gs_no_glyph || - (!r_has_type(&pfdata->Encoding, t_null) && - array_get(imemory, &pfdata->Encoding, (long)(chr & 0xff), &eref) >= 0 && - (glyph_ref(imemory, glyph, &gref), obj_eq(imemory, &gref, &eref)))) - ) { - make_int(op, chr & 0xff); - esp[2] = pfdata->BuildChar; - } else { - /* We might not have a glyph: substitute 0. **HACK** */ - if (glyph == gs_no_glyph) - make_int(op, 0); - else - glyph_ref(imemory, glyph, op); - esp[2] = pfdata->BuildGlyph; - } - } - /* Save the stack depths in case we bail out. */ - sodepth.value.intval = ref_stack_count(&o_stack) - 2; - sddepth.value.intval = ref_stack_count(&d_stack); - push_op_estack(op_show_continue); - ++esp; /* skip BuildChar or BuildGlyph proc */ - return o_push_estack; - } - case TEXT_PROCESS_CDEVPROC: - { gs_font *pfont = penum->current_font; - ref cnref; - op_proc_t cont = op_show_continue, exec_cont = 0; - gs_glyph glyph = penum->returned.current_glyph; - int code; - - pop(npop); - op = osp; - glyph_ref(imemory, glyph, &cnref); - if (pfont->FontType == ft_CID_TrueType) { - gs_font_type42 *pfont42 = (gs_font_type42 *)pfont; - uint glyph_index = pfont42->data.get_glyph_index(pfont42, glyph); - - code = zchar42_set_cache(i_ctx_p, (gs_font_base *)pfont42, - &cnref, glyph_index, cont, &exec_cont); - } else if (pfont->FontType == ft_CID_encrypted) - code = z1_set_cache(i_ctx_p, (gs_font_base *)pfont, - &cnref, glyph, cont, &exec_cont); - else - return_error(gs_error_unregistered); /* Unimplemented. */ - if (exec_cont != 0) - return_error(gs_error_unregistered); /* Must not happen. */ - return code; - } - default: /* error */ -err: - if (code >= 0) - code = gs_note_error(gs_error_invalidfont); - return op_show_free(i_ctx_p, code); - } -} -/* Reverse-map a glyph name to a character code for glyphshow. */ -static bool -map_glyph_to_char(const gs_memory_t *mem, const ref * pgref, const ref * pencoding, ref * pch) -{ - uint esize = r_size(pencoding); - uint ch; - ref eref; - - for (ch = 0; ch < esize; ch++) { - array_get(mem, pencoding, (long)ch, &eref); - if (obj_eq(mem, pgref, &eref)) { - make_int(pch, ch); - return true; - } - } - return false; -} - -/* Find the index of the e-stack mark for the current show enumerator. */ -/* Return 0 if we can't find the mark. */ -static uint -op_show_find_index(i_ctx_t *i_ctx_p) -{ - ref_stack_enum_t rsenum; - uint count = 0; - - ref_stack_enum_begin(&rsenum, &e_stack); - do { - es_ptr ep = rsenum.ptr; - uint size = rsenum.size; - - for (ep += size - 1; size != 0; size--, ep--, count++) - if (r_is_estack_mark(ep) && estack_mark_index(ep) == es_show) - return count; - } while (ref_stack_enum_next(&rsenum)); - return 0; /* no mark */ -} - -/* Find the current show enumerator on the e-stack. */ -gs_text_enum_t * -op_show_find(i_ctx_t *i_ctx_p) -{ - uint index = op_show_find_index(i_ctx_p); - - if (index == 0) - return 0; /* no mark */ - return r_ptr(ref_stack_index(&e_stack, index - (snumpush - 1)), - gs_text_enum_t); -} - -/* - * Return true if we only need the width from the rasterizer - * and can short-circuit the full rendering of the character, - * false if we need the actual character bits. This is only safe if - * we know the character is well-behaved, i.e., is not defined by an - * arbitrary PostScript procedure. - */ -bool -zchar_show_width_only(const gs_text_enum_t * penum) -{ - if (!gs_text_is_width_only(penum)) - return false; - switch (penum->orig_font->FontType) { - case ft_encrypted: - case ft_encrypted2: - case ft_CID_encrypted: - case ft_CID_TrueType: - case ft_CID_bitmap: - case ft_TrueType: - return true; - default: - return false; - } -} - -/* Shortcut the BuildChar or BuildGlyph procedure at the point */ -/* of the setcharwidth or the setcachedevice[2] if we are in */ -/* a stringwidth or cshow, or if we are only collecting the scalable */ -/* width for an xfont character. */ -static int -op_show_return_width(i_ctx_t *i_ctx_p, uint npop, double *pwidth) -{ - uint index = op_show_find_index(i_ctx_p); - es_ptr ep = (es_ptr) ref_stack_index(&e_stack, index - (snumpush - 1)); - int code = gs_text_setcharwidth(esenum(ep), pwidth); - uint ocount, dsaved, dcount; - - if (code < 0) - return code; - /* Restore the operand and dictionary stacks. */ - ocount = ref_stack_count(&o_stack) - (uint) esodepth(ep).value.intval; - if (ocount < npop) - return_error(gs_error_stackunderflow); - dsaved = (uint) esddepth(ep).value.intval; - dcount = ref_stack_count(&d_stack); - if (dcount < dsaved) - return_error(gs_error_dictstackunderflow); - while (dcount > dsaved) { - code = zend(i_ctx_p); - if (code < 0) - return code; - dcount--; - } - ref_stack_pop(&o_stack, ocount); - /* We don't want to pop the mark or the continuation */ - /* procedure (op_show_continue or cshow_continue). */ - pop_estack(i_ctx_p, index - snumpush); - return o_pop_estack; -} - -/* - * Restore state after finishing, or unwinding from an error within, a show - * operation. Note that we assume op == osp, and may reset osp. - */ -static int -op_show_restore(i_ctx_t *i_ctx_p, bool for_error) -{ - register es_ptr ep = esp + snumpush; - gs_text_enum_t *penum = esenum(ep); - int saved_level = esgslevel(ep).value.intval; - int code = 0; - - if (for_error) { -#if 0 /* Disabled for CPSI compatibility for 13-12-4. - CPSI doesn't remove cshow, kshow proc operands. */ - uint saved_count = esodepth(ep).value.intval; - uint count = ref_stack_count(&o_stack); - - if (count > saved_count) /* if <, we're in trouble */ - ref_stack_pop(&o_stack, count - saved_count); -#endif - if (ep[1].value.opproc == op_show_continue && penum->enum_client_data != NULL) { - /* Replace the continuation operaton on estack with the right operator : */ - op_proc_t proc; - - *(void **)&proc = penum->enum_client_data; - make_op_estack(ep + 1, proc); - } - } - if (SHOW_IS_STRINGWIDTH(penum) && igs->text_rendering_mode != 3) { - /* stringwidth does an extra gsave */ - --saved_level; - } - if (penum->text.operation & TEXT_REPLACE_WIDTHS) { - gs_free_const_object(penum->memory, penum->text.y_widths, "y_widths"); - if (penum->text.x_widths != penum->text.y_widths) - gs_free_const_object(penum->memory, penum->text.x_widths, "x_widths"); - } - /* - * We might have been inside a cshow, in which case currentfont was - * reset temporarily, as though we were inside a BuildChar/ BuildGlyph - * procedure. To handle this case, set currentfont back to its original - * state. NOTE: this code previously used fstack[0] in the enumerator - * for the root font: we aren't sure that this change is correct. - */ - gs_set_currentfont(igs, penum->orig_font); - while (igs->level > saved_level && code >= 0) { - if (igs->saved == 0 || igs->saved->saved == 0) { - /* - * Bad news: we got an error inside a save inside a BuildChar or - * BuildGlyph. Don't attempt to recover. - */ - code = gs_note_error(gs_error_Fatal); - } else - code = gs_grestore(igs); - } - gs_text_release(penum, "op_show_restore"); - return code; -} -/* Clean up after an error. */ -static int -op_show_cleanup(i_ctx_t *i_ctx_p) -{ - return op_show_restore(i_ctx_p, true); -} -/* Clean up after termination of a show operation. */ -int -op_show_free(i_ctx_t *i_ctx_p, int code) -{ - int rcode; - - esp -= snumpush; - rcode = op_show_restore(i_ctx_p, code < 0); - return (rcode < 0 ? rcode : code); -} - -/* Get a FontBBox parameter from a font dictionary. */ -int -font_bbox_param(const gs_memory_t *mem, const ref * pfdict, double bbox[4]) -{ - ref *pbbox; - - /* - * Pre-clear the bbox in case it's invalid. The Red Books say that - * FontBBox is required, but old Adobe interpreters don't require - * it, and a few user-written fonts don't supply it, or supply one - * of the wrong size (!); also, PageMaker 5.0 (an Adobe product!) - * sometimes emits an absurd bbox for Type 1 fonts converted from - * TrueType. - */ - bbox[0] = bbox[1] = bbox[2] = bbox[3] = 0.0; - if (dict_find_string(pfdict, "FontBBox", &pbbox) > 0) { - if (!r_is_array(pbbox)) - return_error(gs_error_typecheck); - if (r_size(pbbox) == 4) { - const ref_packed *pbe = pbbox->value.packed; - ref rbe[4]; - int i; - int code; - float dx, dy, ratio; - const float max_ratio = 12; /* From the bug 687594. */ - - for (i = 0; i < 4; i++) { - packed_get(mem, pbe, rbe + i); - pbe = packed_next(pbe); - } - if ((code = num_params(rbe + 3, 4, bbox)) < 0) - return code; - /* Require "reasonable" values. */ - dx = bbox[2] - bbox[0]; - dy = bbox[3] - bbox[1]; - if (dx <= 0 || dy <= 0 || - (ratio = dy / dx) < 1 / max_ratio || ratio > max_ratio - ) - bbox[0] = bbox[1] = bbox[2] = bbox[3] = 0.0; - } - } else if (gs_currentcpsimode(mem)) { - return_error(gs_error_invalidfont); /* CPSI requires FontBBox */ - } - return 0; -} |