/* - end - */
int
zend(i_ctx_t *i_ctx_p)
{
if (ref_stack_count_inline(&d_stack) == min_dstack_size) {
/* We would underflow the d-stack. */
return_error(e_dictstackunderflow);
}
while (dsp == dsbot) {
/* We would underflow the current block. */
ref_stack_pop_block(&d_stack);
}
dsp--;
dict_set_top();
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(e_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(e_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;
}
