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
151
152
153
154
155
156
|
/* Copyright (C) 2001-2021 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., 1305 Grant Avenue - Suite 200, Novato,
CA 94945, U.S.A., +1(415)492-9861, for further information.
*/
/* pjtop.h */
/* Interface to PJL parser */
#ifndef pjtop_INCLUDED
# define pjtop_INCLUDED
#include "pltop.h"
/*
* Generic PJL data types which may be subclassed by specific implementations
*/
struct pjl_implementation_s; /* fwd decl */
#ifndef PJL_ENVAR_T
#define PJL_ENVAR_T
typedef char pjl_envvar_t; /* opaque decl */
#endif /* PJL_ENVVAR_T */
/*
* Define PJL-specific procedures
*/
/* return the current setting of a pjl environment variable. The
input parameter should be the exact string used in PJLTRM.
Sample Usage:
char *formlines = pjl_get_envvar(pst, "formlines");
if (formlines) {
int fl = atoi(formlines);
.
.
}
Both variables and values are case insensitive.
*/
typedef pjl_envvar_t *(*pjl_proc_get_envvar_t) (pl_interp_implementation_t * pli,
const char *pjl_var);
pjl_envvar_t *pjl_proc_get_envvar(pl_interp_implementation_t * pli,
const char *pjl_var);
/* compare a pjl environment variable to a string values. */
typedef int (*pjl_proc_compare_t) (pl_interp_implementation_t * pli,
const pjl_envvar_t * s1, const char *s2);
int pjl_proc_compare(pl_interp_implementation_t * pli, const pjl_envvar_t * s1,
const char *s2);
/* map a pjl symbol set name to a pcl integer */
typedef int (*pjl_proc_map_pjl_sym_to_pcl_sym_t) (pl_interp_implementation_t * pli,
const pjl_envvar_t *
symname);
int pjl_proc_map_pjl_sym_to_pcl_sym(pl_interp_implementation_t * pli,
const pjl_envvar_t * symname);
/* pjl environment variable to integer. */
typedef int (*pjl_proc_vartoi_t) (pl_interp_implementation_t * pli,
const pjl_envvar_t * s);
int pjl_proc_vartoi(pl_interp_implementation_t * pli, const pjl_envvar_t * s);
/* pjl envioronment variable to float. */
typedef double(*pjl_proc_vartof_t) (pl_interp_implementation_t * pli,
const pjl_envvar_t * s);
double pjl_proc_vartof(pl_interp_implementation_t * pli, const pjl_envvar_t * s);
/* convert a pjl designated fontsource to a subdirectory pathname. */
typedef char *(*pjl_proc_fontsource_to_path_t) (pl_interp_implementation_t * pli,
const pjl_envvar_t *
fontsource);
char *pjl_proc_fontsource_to_path(pl_interp_implementation_t * pli,
const pjl_envvar_t * fontsource);
/* Change to next highest priority font source. The following events
automatically change the value of the FONTSOURCE variable to the
next highest priority font source containing a default-marked font:
if the currently set font source is C, C1, or C2, and the cartridge
is removed from the printer; if the currently set font source is S
and all soft fonts are deleted; if the currently set font source is
S, while the currently set font number is the highest-numbered soft
font, and any soft font is deleted. Ideally this function would be
solely responsible for these activities, with the current
architecture we depend in part on pcl to keep up with font resource
bookkeeping. PJLTRM is not careful to define distinguish between
default font source vs environment font source. Both are set when
the font source is changed. */
typedef void (*pjl_proc_set_next_fontsource_t) (pl_interp_implementation_t * pli);
void pjl_proc_set_next_fontsource(pl_interp_implementation_t * pli);
/* tell pjl that a soft font is being deleted. We return 0 if no
state change is required and 1 if the pdl should update its font
state. (see discussion above) */
typedef
int (*pjl_proc_register_permanent_soft_font_deletion_t)
(pl_interp_implementation_t * pli, int font_number);
int pjl_proc_register_permanent_soft_font_deletion(pl_interp_implementation_t * pli,
int font_number);
/* request that pjl add a soft font and return a pjl font number for
the font. */
typedef
int (*pjl_proc_register_permanent_soft_font_addition_t)
(pl_interp_implementation_t * pli);
int pjl_proc_register_permanent_soft_font_addition(pl_interp_implementation_t *
pli);
typedef long int (*pjl_proc_get_named_resource_size_t) (pl_interp_implementation_t *
pli, char *name);
long int pjl_proc_get_named_resource_size(pl_interp_implementation_t * pli,
char *name);
typedef int (*pjl_proc_get_named_resource_t) (pl_interp_implementation_t * pli,
char *name, byte * data);
int pjl_proc_get_named_resource(pl_interp_implementation_t * pli, char *name,
byte * data);
typedef int (*pjl_proc_process_t) (pl_interp_implementation_t * pli,
stream_cursor_read * pr);
int pjl_proc_process(pl_interp_implementation_t * pli, stream_cursor_read * pr);
/*
* Define a generic interpreter implementation
*/
typedef struct pjl_implementation_s
{
pl_interp_implementation_t pl; /* MUST BE FIRST generic impl */
/* PJL-specific procedure vector */
pjl_proc_get_envvar_t proc_get_envvar;
pjl_proc_compare_t proc_compare;
pjl_proc_map_pjl_sym_to_pcl_sym_t proc_map_pjl_sym_to_pcl_sym;
pjl_proc_vartoi_t proc_vartoi;
pjl_proc_vartof_t proc_vartof;
pjl_proc_fontsource_to_path_t proc_fontsource_to_path;
pjl_proc_set_next_fontsource_t proc_set_next_fontsource;
pjl_proc_register_permanent_soft_font_deletion_t
proc_register_permanent_soft_font_deletion;
pjl_proc_register_permanent_soft_font_addition_t
proc_register_permanent_soft_font_addition;
pjl_proc_get_named_resource_size_t proc_get_named_resource_size;
pjl_proc_get_named_resource_t proc_get_named_resource;
pjl_proc_process_t proc_process;
} pjl_implementation_t;
#endif /* pjtop_INCLUDED */
|
