123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151 |
- /* Copyright (C) 1990, 2000 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: zbseq.c,v 1.6 2002/02/21 22:24:54 giles Exp $ */
- /* Level 2 binary object sequence operators */
- #include "memory_.h"
- #include "ghost.h"
- #include "gxalloc.h" /* for names_array in allocator */
- #include "oper.h"
- #include "ialloc.h"
- #include "istruct.h"
- #include "btoken.h"
- #include "store.h"
- /*
- * Define the structure that holds the t_*array ref for the system or
- * user name table.
- */
- typedef struct names_array_ref_s {
- ref names;
- } names_array_ref_t;
- gs_private_st_ref_struct(st_names_array_ref, names_array_ref_t,
- "names_array_ref_t");
- /* Create a system or user name table (in the stable memory of mem). */
- int
- create_names_array(ref **ppnames, gs_memory_t *mem, client_name_t cname)
- {
- ref *pnames = (ref *)
- gs_alloc_struct(gs_memory_stable(mem), names_array_ref_t,
- &st_names_array_ref, cname);
- if (pnames == 0)
- return_error(e_VMerror);
- make_empty_array(pnames, a_readonly);
- *ppnames = pnames;
- return 0;
- }
- /* Initialize the binary token machinery. */
- private int
- zbseq_init(i_ctx_t *i_ctx_p)
- {
- /* Initialize a fake system name table. */
- /* PostScript code will install the real system name table. */
- ref *psystem_names = 0;
- int code = create_names_array(&psystem_names, imemory_global,
- "zbseq_init(system_names)");
- if (code < 0)
- return code;
- system_names_p = psystem_names;
- return 0;
- }
- /* <names> .installsystemnames - */
- private int
- zinstallsystemnames(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- if (r_space(op) != avm_global || imemory_save_level(iimemory_global) != 0)
- return_error(e_invalidaccess);
- check_read_type(*op, t_shortarray);
- ref_assign_old(NULL, system_names_p, op, ".installsystemnames");
- pop(1);
- return 0;
- }
- /* - currentobjectformat <int> */
- private int
- zcurrentobjectformat(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- push(1);
- *op = ref_binary_object_format;
- return 0;
- }
- /* <int> setobjectformat - */
- private int
- zsetobjectformat(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- ref cont;
- check_type(*op, t_integer);
- if (op->value.intval < 0 || op->value.intval > 4)
- return_error(e_rangecheck);
- make_struct(&cont, avm_local, ref_binary_object_format_container);
- ref_assign_old(&cont, &ref_binary_object_format, op, "setobjectformat");
- pop(1);
- return 0;
- }
- /* <ref_offset> <char_offset> <obj> <string8> .bosobject */
- /* <ref_offset'> <char_offset'> <string8> */
- /*
- * This converts a single object to its binary object sequence
- * representation, doing the dirty work of printobject and writeobject.
- * (The main control is in PostScript code, so that we don't have to worry
- * about interrupts or callouts in the middle of writing the various data
- * items.) Note that this may or may not modify the 'unused' field.
- */
- private int
- zbosobject(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- int code;
- check_type(op[-3], t_integer);
- check_type(op[-2], t_integer);
- check_write_type(*op, t_string);
- if (r_size(op) < 8)
- return_error(e_rangecheck);
- code = encode_binary_token(i_ctx_p, op - 1, &op[-3].value.intval,
- &op[-2].value.intval, op->value.bytes);
- if (code < 0)
- return code;
- op[-1] = *op;
- r_set_size(op - 1, 8);
- pop(1);
- return 0;
- }
- /* ------ Initialization procedure ------ */
- const op_def zbseq_l2_op_defs[] =
- {
- op_def_begin_level2(),
- {"1.installsystemnames", zinstallsystemnames},
- {"0currentobjectformat", zcurrentobjectformat},
- {"1setobjectformat", zsetobjectformat},
- {"4.bosobject", zbosobject},
- op_def_end(zbseq_init)
- };
|