1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
/* Copyright (C) 2001-2023 Artifex Software, Inc.
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.
Refer to licensing information at http://www.artifex.com or contact
Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco,
CA 94129, USA, for further information.
*/
/* 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(gs_error_VMerror);
make_empty_array(pnames, a_readonly);
*ppnames = pnames;
return 0;
}
/* Initialize the binary token machinery. */
static 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 - */
static 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(gs_error_invalidaccess);
check_read_type(*op, t_shortarray);
ref_assign_old(NULL, system_names_p, op, ".installsystemnames");
pop(1);
return 0;
}
/* - currentobjectformat <int> */
static int
zcurrentobjectformat(i_ctx_t *i_ctx_p)
{
os_ptr op = osp;
push(1);
*op = ref_binary_object_format;
return 0;
}
/* <int> setobjectformat - */
static 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(gs_error_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.) See encode_binary_token for more details.
*/
static 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(gs_error_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)
};
|
