/* Create a new instance of Ghostscript.
* First instance per process call with *pinstance == NULL
* next instance in a proces call with *pinstance == copy of valid_instance pointer
* *pinstance is set to a new instance pointer.
*/
GSDLLEXPORT int GSDLLAPI
gsapi_new_instance(void **pinstance, void *caller_handle)
{
gs_memory_t *mem = NULL;
gs_main_instance *minst = NULL;
if (pinstance == NULL)
return gs_error_Fatal;
#ifndef GS_THREADSAFE
/* limited to 1 instance, till it works :) */
if ( gsapi_instance_counter >= gsapi_instance_max )
return gs_error_Fatal;
++gsapi_instance_counter;
#endif
if (*pinstance == NULL)
/* first instance in this process */
mem = gs_malloc_init();
else {
/* nothing different for second thread initialization
* seperate memory, ids, only stdio is process shared.
*/
mem = gs_malloc_init();
}
if (mem == NULL)
return gs_error_Fatal;
minst = gs_main_alloc_instance(mem);
if (minst == NULL) {
gs_malloc_release(mem);
return gs_error_Fatal;
}
mem->gs_lib_ctx->top_of_system = (void*) minst;
mem->gs_lib_ctx->caller_handle = caller_handle;
mem->gs_lib_ctx->custom_color_callback = NULL;
#ifdef METRO
mem->gs_lib_ctx->stdin_fn = metro_stdin;
mem->gs_lib_ctx->stdout_fn = metro_stdout;
mem->gs_lib_ctx->stderr_fn = metro_stderr;
#else
mem->gs_lib_ctx->stdin_fn = NULL;
mem->gs_lib_ctx->stdout_fn = NULL;
mem->gs_lib_ctx->stderr_fn = NULL;
#endif
mem->gs_lib_ctx->poll_fn = NULL;
*pinstance = (void*)(mem->gs_lib_ctx);
return gsapi_set_arg_encoding(*pinstance, GS_ARG_ENCODING_LOCAL);
}
/* We do not support multiple instances, so make sure
* we use the default instance only once.
*/
GSDLLEXPORT void GSDLLAPI
gsapi_delete_instance(void *lib)
{
gs_lib_ctx_t *ctx = (gs_lib_ctx_t *)lib;
if ((ctx != NULL)) {
gs_main_instance *minst = get_minst_from_memory(ctx->memory);
ctx->caller_handle = NULL;
ctx->stdin_fn = NULL;
ctx->stdout_fn = NULL;
ctx->stderr_fn = NULL;
ctx->poll_fn = NULL;
minst->display = NULL;
/* Release the memory (frees up everything) */
gs_malloc_release(minst->heap);
--gsapi_instance_counter;
}
}
int
main(int argc, char *argv[])
{
int exit_status, code;
gs_main_instance *minst;
gs_memory_t *mem;
#ifdef NEED_COMMIT_STACK /* hack for bug in gcc 2.96 */
commit_stack_pages();
#endif
exit_status = 0;
mem = gs_malloc_init(NULL);
minst = gs_main_alloc_instance(mem);
code = gs_main_init_with_args(minst, argc, argv);
#ifdef RUN_STRINGS
{ /* Run a list of strings (for testing). */
const char **pstr = run_strings;
for (; *pstr; ++pstr) {
int exit_code;
ref error_object;
int code;
fprintf(stdout, "{%s} =>\n", *pstr);
fflush(stdout);
code = gs_main_run_string(minst, *pstr, 0,
&exit_code, &error_object);
zflush(osp);
fprintf(stdout, " => code = %d\n", code);
fflush(stdout);
if (code < 0) {
gs_to_exit(1);
return 1;
}
}
}
#endif
if (code >= 0)
code = gs_main_run_start(minst);
exit_status = 0;
switch (code) {
case 0:
case e_Info:
case e_Quit:
break;
case e_Fatal:
exit_status = 1;
break;
default:
exit_status = 255;
}
gs_to_exit_with_code(minst->heap, exit_status, code);
gs_malloc_release(mem);
switch (exit_status) {
case 0:
exit_status = exit_OK;
break;
case 1:
exit_status = exit_FAILED;
break;
}
return exit_status;
}
