123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125 |
- /* Copyright (C) 1997, 1998, 1999 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: zmisc3.c,v 1.6 2004/08/04 19:36:13 stefan Exp $ */
- /* Miscellaneous LanguageLevel 3 operators */
- #include "ghost.h"
- #include "gscspace.h" /* for gscolor2.h */
- #include "gsmatrix.h" /* ditto */
- #include "gsclipsr.h"
- #include "gscolor2.h"
- #include "oper.h"
- #include "igstate.h"
- #include "store.h"
- /* - clipsave - */
- private int
- zclipsave(i_ctx_t *i_ctx_p)
- {
- return gs_clipsave(igs);
- }
- /* - cliprestore - */
- private int
- zcliprestore(i_ctx_t *i_ctx_p)
- {
- return gs_cliprestore(igs);
- }
- /* <proc1> <proc2> .eqproc <bool> */
- /*
- * Test whether two procedures are equal to depth 10.
- * This is the equality test used by idiom recognition in 'bind'.
- */
- #define MAX_DEPTH 10 /* depth is per Adobe specification */
- typedef struct ref2_s {
- ref proc1, proc2;
- } ref2_t;
- private int
- zeqproc(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- ref2_t stack[MAX_DEPTH + 1];
- ref2_t *top = stack;
- make_array(&stack[0].proc1, 0, 1, op - 1);
- make_array(&stack[0].proc2, 0, 1, op);
- for (;;) {
- long i;
- if (r_size(&top->proc1) == 0) {
- /* Finished these arrays, go up to next level. */
- if (top == stack) {
- /* We're done matching: it succeeded. */
- make_true(op - 1);
- pop(1);
- return 0;
- }
- --top;
- continue;
- }
- /* Look at the next elements of the arrays. */
- i = r_size(&top->proc1) - 1;
- array_get(imemory, &top->proc1, i, &top[1].proc1);
- array_get(imemory, &top->proc2, i, &top[1].proc2);
- r_dec_size(&top->proc1, 1);
- ++top;
- /*
- * Amazingly enough, the objects' executable attributes are not
- * required to match. This means { x load } will match { /x load },
- * even though this is clearly wrong.
- */
- #if 0
- if (r_has_attr(&top->proc1, a_executable) !=
- r_has_attr(&top->proc2, a_executable)
- )
- break;
- #endif
- if (obj_eq(imemory, &top->proc1, &top->proc2)) {
- /* Names don't match strings. */
- if (r_type(&top->proc1) != r_type(&top->proc2) &&
- (r_type(&top->proc1) == t_name ||
- r_type(&top->proc2) == t_name)
- )
- break;
- --top; /* no recursion */
- continue;
- }
- if (r_is_array(&top->proc1) && r_is_array(&top->proc2) &&
- r_size(&top->proc1) == r_size(&top->proc2) &&
- top < stack + (MAX_DEPTH - 1)
- ) {
- /* Descend into the arrays. */
- continue;
- }
- break;
- }
- /* An exit from the loop indicates that matching failed. */
- make_false(op - 1);
- pop(1);
- return 0;
- }
- /* ------ Initialization procedure ------ */
- const op_def zmisc3_op_defs[] =
- {
- op_def_begin_ll3(),
- {"0cliprestore", zcliprestore},
- {"0clipsave", zclipsave},
- {"2.eqproc", zeqproc},
- op_def_end(0)
- };
|