void init(void) {
itpdata = malloc(sizeof*itpdata);
memset(itpdata, 0, sizeof*itpdata);
xpost_interpreter_init(itpdata);
ctx = &itpdata->ctab[0];
ctx->vmmode = GLOBAL;
}
/*
set global pagesize,
initialize eval's jump-tabl
allocate global itpdata interpreter instance
call xpost_interpreter_init
which initializes the first context
*/
static
int initalldata(const char *device)
{
int ret;
initevaltype();
xpost_object_install_dict_get_access(xpost_dict_get_access);
xpost_object_install_dict_set_access(xpost_dict_set_access);
/* allocate the top-level itpdata data structure. */
null = xpost_object_cvlit(null);
itpdata = malloc(sizeof*itpdata);
if (!itpdata)
{
XPOST_LOG_ERR("itpdata=malloc failed");
return 0;
}
memset(itpdata, 0, sizeof*itpdata);
/* allocate and initialize the first context structure
and associated memory structures.
populate OPTAB and systemdict with operators.
push systemdict, globaldict, and userdict on dict stack
*/
ret = xpost_interpreter_init(itpdata, device);
if (!ret)
{
return 0;
}
/* set global shortcut to context_0
(the only context in a single-threaded interpreter)
TODO remove this variable
*/
xpost_ctx = &itpdata->ctab[0];
return 1;
}
void init(void) {
itpdata = malloc(sizeof*itpdata);
memset(itpdata, 0, sizeof*itpdata);
xpost_interpreter_init(itpdata);
}