123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155 |
- /* Copyright (C) 1998, 1999 Aladdin Enterprises. All rights reserved.
-
- This file is part of AFPL Ghostscript.
-
- AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author or
- distributor accepts any responsibility for the consequences of using it, or
- for whether it serves any particular purpose or works at all, unless he or
- she says so in writing. Refer to the Aladdin Free Public License (the
- "License") for full details.
-
- Every copy of AFPL Ghostscript must include a copy of the License, normally
- in a plain ASCII text file named PUBLIC. The License grants you the right
- to copy, modify and redistribute AFPL Ghostscript, but only under certain
- conditions described in the License. Among other things, the License
- requires that the copyright notice and this notice be preserved on all
- copies.
- */
- /*$Id: zcfont.c,v 1.2 2000/09/19 19:00:52 lpd Exp $ */
- /* Composite font-related character operators */
- #include "ghost.h"
- #include "oper.h"
- #include "gsmatrix.h" /* for gxfont.h */
- #include "gxfixed.h" /* for gxfont.h */
- #include "gxfont.h"
- #include "gxtext.h"
- #include "estack.h"
- #include "ichar.h"
- #include "ifont.h"
- #include "igstate.h"
- #include "store.h"
- /* Forward references */
- private int cshow_continue(P1(i_ctx_t *));
- private int cshow_restore_font(P1(i_ctx_t *));
- /* <proc> <string> cshow - */
- private int
- zcshow(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- os_ptr proc_op = op - 1;
- os_ptr str_op = op;
- gs_text_enum_t *penum;
- int code;
- /*
- * Even though this is not documented anywhere by Adobe,
- * some Adobe interpreters apparently allow the string and
- * the procedure to be provided in either order!
- */
- if (r_is_proc(proc_op))
- ;
- else if (r_is_proc(op)) { /* operands reversed */
- proc_op = op;
- str_op = op - 1;
- } else {
- check_op(2);
- return_error(e_typecheck);
- }
- if ((code = op_show_setup(i_ctx_p, str_op)) != 0 ||
- (code = gs_cshow_begin(igs, str_op->value.bytes, r_size(str_op),
- imemory, &penum)) < 0)
- return code;
- if ((code = op_show_finish_setup(i_ctx_p, penum, 2, NULL)) < 0) {
- ifree_object(penum, "op_show_enum_setup");
- return code;
- }
- sslot = *proc_op; /* save kerning proc */
- pop(2);
- return cshow_continue(i_ctx_p);
- }
- private int
- cshow_continue(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- gs_text_enum_t *penum = senum;
- int code;
- check_estack(4); /* in case we call the procedure */
- code = gs_text_process(penum);
- if (code != TEXT_PROCESS_INTERVENE) {
- code = op_show_continue_dispatch(i_ctx_p, 0, code);
- if (code == o_push_estack) /* must be TEXT_PROCESS_RENDER */
- make_op_estack(esp - 1, cshow_continue);
- return code;
- }
- /* Push the character code and width, and call the procedure. */
- {
- ref *pslot = &sslot;
- gs_point wpt;
- gs_font *font = gs_text_current_font(penum);
- gs_font *root_font = gs_rootfont(igs);
- gs_font *scaled_font;
- uint font_space = r_space(pfont_dict(font));
- uint root_font_space = r_space(pfont_dict(root_font));
- gs_text_current_width(penum, &wpt);
- if (font == root_font)
- scaled_font = font;
- else {
- /* Construct a scaled version of the leaf font. */
- uint save_space = idmemory->current_space;
-
- ialloc_set_space(idmemory, font_space);
- code = gs_makefont(font->dir, font, &root_font->FontMatrix,
- &scaled_font);
- ialloc_set_space(idmemory, save_space);
- if (code < 0)
- return code;
- }
- push(3);
- make_int(op - 2, gs_text_current_char(penum) & 0xff);
- make_real(op - 1, wpt.x);
- make_real(op, wpt.y);
- make_struct(&ssfont, font_space, font);
- make_struct(&srfont, root_font_space, root_font);
- push_op_estack(cshow_restore_font);
- /* cshow does not change rootfont for user procedure */
- gs_set_currentfont(igs, scaled_font);
- *++esp = *pslot; /* user procedure */
- }
- return o_push_estack;
- }
- private int
- cshow_restore_font(i_ctx_t *i_ctx_p)
- {
- /* We must restore both the root font and the current font. */
- gs_setfont(igs, r_ptr(&srfont, gs_font));
- gs_set_currentfont(igs, r_ptr(&ssfont, gs_font));
- return cshow_continue(i_ctx_p);
- }
- /* - rootfont <font> */
- private int
- zrootfont(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- push(1);
- *op = *pfont_dict(gs_rootfont(igs));
- return 0;
- }
- /* ------ Initialization procedure ------ */
- const op_def zcfont_op_defs[] =
- {
- {"2cshow", zcshow},
- {"0rootfont", zrootfont},
- /* Internal operators */
- {"0%cshow_continue", cshow_continue},
- {"0%cshow_restore_font", cshow_restore_font},
- op_def_end(0)
- };
|