diff options
Diffstat (limited to 'gs/src/zcsindex.c')
| -rw-r--r-- | gs/src/zcsindex.c | 129 |
1 files changed, 0 insertions, 129 deletions
diff --git a/gs/src/zcsindex.c b/gs/src/zcsindex.c index e3cdea33a..2b8f6d9b7 100644 --- a/gs/src/zcsindex.c +++ b/gs/src/zcsindex.c @@ -29,135 +29,6 @@ #include "ivmspace.h" #include "store.h" -/* Imported from gscolor2.c */ -extern const gs_color_space_type gs_color_space_type_Indexed; - -/* Forward references. */ -static int indexed_map1(i_ctx_t *); - -/* <array> .setindexedspace - */ -/* The current color space is the base space for the indexed space. */ -static int -zsetindexedspace(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - ref *pproc = &istate->colorspace.procs.special.index_proc; - const ref *pcsa; - gs_color_space *pcs; - gs_color_space *pcs_base; - ref_colorspace cspace_old; - uint edepth = ref_stack_count(&e_stack); - int num_entries; - int code; - - check_read_type(*op, t_array); - if (r_size(op) != 4) - return_error(e_rangecheck); - pcsa = op->value.const_refs + 1; - check_type_only(pcsa[1], t_integer); - if (pcsa[1].value.intval < 0 || pcsa[1].value.intval > 4095) - return_error(e_rangecheck); - num_entries = (int)pcsa[1].value.intval + 1; - pcs_base = gs_currentcolorspace(igs); - if (!pcs_base->type->can_be_base_space) - return_error(e_rangecheck); - cspace_old = istate->colorspace; - - if (r_has_type(&pcsa[2], t_string)) { - int num_values = num_entries * cs_num_components(pcs_base); - - check_read(pcsa[2]); - /* - * The PDF and PS specifications state that the lookup table must have - * the exact number of of data bytes needed. However we have found - * PDF files from Amyuni with extra data bytes. Acrobat 6.0 accepts - * these files without complaint, so we ignore the extra data. - */ - if (r_size(&pcsa[2]) < num_values) - return_error(e_rangecheck); - pcs = gs_cspace_alloc(imemory, &gs_color_space_type_Indexed); - pcs->base_space = pcs_base; - rc_increment(pcs_base); - pcs->params.indexed.lookup.table.data = pcsa[2].value.const_bytes; - pcs->params.indexed.lookup.table.size = num_values; - pcs->params.indexed.use_proc = 0; - make_null(pproc); - code = 0; - } else { - gs_indexed_map *map; - - check_proc(pcsa[2]); - /* - * We have to call zcs_begin_map before moving the parameters, - * since if the color space is a DeviceN or Separation space, - * the memmove will overwrite its parameters. - */ - code = zcs_begin_map(i_ctx_p, &map, &pcsa[2], num_entries, - pcs_base, indexed_map1); - if (code < 0) - return code; - pcs = gs_cspace_alloc(imemory, &gs_color_space_type_Indexed); - pcs->base_space = pcs_base; - rc_increment(pcs_base); - pcs->params.indexed.use_proc = 1; - *pproc = pcsa[2]; - map->proc.lookup_index = lookup_indexed_map; - pcs->params.indexed.lookup.map = map; - } - pcs->params.indexed.hival = num_entries - 1; - pcs->params.indexed.n_comps = cs_num_components(pcs_base); - code = gs_setcolorspace(igs, pcs); - /* release reference from construction */ - rc_decrement_only(pcs, "zsetindexedspace"); - if (code < 0) { - istate->colorspace = cspace_old; - ref_stack_pop_to(&e_stack, edepth); - return code; - } - pop(1); - return (ref_stack_count(&e_stack) == edepth ? 0 : o_push_estack); /* installation will load the caches */ -} - -/* Continuation procedure for saving mapped Indexed color values. */ -static int -indexed_map1(i_ctx_t *i_ctx_p) -{ - os_ptr op = osp; - es_ptr ep = esp; - int i = (int)ep[csme_index].value.intval; - - if (i >= 0) { /* i.e., not first time */ - int m = (int)ep[csme_num_components].value.intval; - int code = float_params(op, m, &r_ptr(&ep[csme_map], gs_indexed_map)->values[i * m]); - - if (code < 0) - return code; - pop(m); - op -= m; - if (i == (int)ep[csme_hival].value.intval) { /* All done. */ - esp -= num_csme; - return o_pop_estack; - } - } - push(1); - ep[csme_index].value.intval = ++i; - make_int(op, i); - make_op_estack(ep + 1, indexed_map1); - ep[2] = ep[csme_proc]; /* lookup proc */ - esp = ep + 2; - return o_push_estack; -} - -/* ------ Initialization procedure ------ */ - -const op_def zcsindex_l2_op_defs[] = -{ - op_def_begin_level2(), - {"1.setindexedspace", zsetindexedspace}, - /* Internal operators */ - {"1%indexed_map1", indexed_map1}, - op_def_end(0) -}; /* ------ Internal routines ------ */ |