/* ------ Initialization procedure ------ */
const op_def zfont_op_defs[] =
{
{"0currentfont", zcurrentfont},
{"2makefont", zmakefont},
{"2scalefont", zscalefont},
{"1setfont", zsetfont},
{"0cachestatus", zcachestatus},
{"1setcachelimit", zsetcachelimit},
{"1setcacheparams", zsetcacheparams},
{"0currentcacheparams", zcurrentcacheparams},
{"1.registerfont", zregisterfont},
{"1.setupUnicodeDecoder", zsetupUnicodeDecoder},
op_def_end(zfont_init)
};
/* ------ Subroutines ------ */
/* Validate a font parameter. */
int
font_param(const ref * pfdict, gs_font ** ppfont)
{ /*
* Check that pfdict is a read-only dictionary, that it has a FID
* entry whose value is a fontID, and that the fontID points to a
* gs_font structure whose associated PostScript dictionary is
* pfdict.
*/
ref *pid;
gs_font *pfont;
/* <source> <dict> TBCPEncode/filter <file> */
static int
zTBCPE(i_ctx_t *i_ctx_p)
{
return filter_write_simple(i_ctx_p, &s_TBCPE_template);
}
/* <target> TBCPDecode/filter <file> */
/* <target> <dict> TBCPDecode/filter <file> */
static int
zTBCPD(i_ctx_t *i_ctx_p)
{
stream_BCPD_state state;
state.signal_interrupt = no_bcp_signal_interrupt;
state.request_status = no_bcp_request_status;
return filter_read(i_ctx_p, 0, &s_TBCPD_template, (stream_state *)&state, 0);
}
/* ------ Initialization procedure ------ */
const op_def zfbcp_op_defs[] =
{
op_def_begin_filter(),
{"1BCPEncode", zBCPE},
{"1BCPDecode", zBCPD},
{"1TBCPEncode", zTBCPE},
{"1TBCPDecode", zTBCPD},
op_def_end(0)
};
{
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)
};
