ref: 985b2457cda207c2c65edeb647aedbb6e92dac46
dir: /sys/src/cmd/gs/src/gs.c/
/* Copyright (C) 1989, 1995, 1996, 1999 Aladdin Enterprises. 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.
For more information about licensing, please refer to
http://www.ghostscript.com/licensing/. For information on
commercial licensing, go to http://www.artifex.com/licensing/ or
contact Artifex Software, Inc., 101 Lucas Valley Road #110,
San Rafael, CA 94903, U.S.A., +1(415)492-9861.
*/
/* $Id: gs.c,v 1.14 2004/09/15 19:41:01 ray Exp $ */
/* 'main' program for Ghostscript */
#include "ghost.h"
#include "imain.h"
#include "imainarg.h"
#include "iapi.h"
#include "iminst.h"
#include "ierrors.h"
#include "gsmalloc.h"
/* Define an optional array of strings for testing. */
/*#define RUN_STRINGS */
#ifdef RUN_STRINGS
private const char *run_strings[] =
{
"2 vmreclaim /SAVE save def 2 vmreclaim",
"(saved\n) print flush",
"SAVE restore (restored\n) print flush 2 vmreclaim",
"(done\n) print flush quit",
0
};
#endif
int
main(int argc, char *argv[])
{
int exit_status = 0;
gs_main_instance *minst = gs_main_alloc_instance(gs_malloc_init(NULL));
int 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);
switch (exit_status) {
case 0:
exit_status = exit_OK;
break;
case 1:
exit_status = exit_FAILED;
break;
}
return exit_status;
}