1 files changed, 107 insertions, 0 deletions
diff --git a/gs/psi/main.h b/gs/psi/main.h
new file mode 100644
index 000000000..27db6e6ce
--- /dev/null
+++ b/gs/psi/main.h
@@ -0,0 +1,107 @@
+/* Copyright (C) 2001-2006 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 that
+   license.  Refer to licensing information at http://www.artifex.com/
+   or contact Artifex Software, Inc.,  7 Mt. Lassen Drive - Suite A-134,
+   San Rafael, CA  94903, U.S.A., +1(415)492-9861, for further information.
+*/
+
+/* $Id$ */
+/* Backward-compatible interface to gsmain.c */
+
+#ifndef main_INCLUDED
+#  define main_INCLUDED
+
+#include "iapi.h"
+#include "imain.h"
+#include "iminst.h"
+
+/*
+ * This file adds to imain.h some backward-compatible procedures and
+ * data elements that assume there is only a single instance of
+ * the interpreter.
+ */
+
+/* conditional out the entire file */
+#if 0 
+
+
+/* ================ Data elements ================ */
+
+/* Clients should never access these directly. */
+
+#define gs_user_errors (gs_main_instance_default()->user_errors)
+#define gs_lib_path (gs_main_instance_default()->lib_path)
+/* gs_lib_paths removed in release 3.65 */
+/* gs_lib_env_path removed in release 3.65 */
+
+/* ================ Exported procedures from gsmain.c ================ */
+
+/* ---------------- Initialization ---------------- */
+
+#define gs_init0(in, out, err, mlp)\
+  gs_main_init0(gs_main_instance_default(), in, out, err, mlp)
+
+#define gs_init1()\
+  gs_main_init1(gs_main_instance_default())
+
+#define gs_init2()\
+  gs_main_init2(gs_main_instance_default())
+
+#define gs_add_lib_path(path)\
+  gs_main_add_lib_path(gs_main_instance_default(), path)
+
+#define gs_set_lib_paths()\
+  gs_main_set_lib_paths(gs_main_instance_default())
+
+#define gs_lib_open(fname, pfile)\
+  gs_main_lib_open(gs_main_instance_default(), fname, pfile)
+
+/* ---------------- Execution ---------------- */
+
+#define gs_run_file(fn, ue, pec, peo)\
+  gs_main_run_file(gs_main_instance_default(), fn, ue, pec, peo)
+
+#define gs_run_string(str, ue, pec, peo)\
+  gs_main_run_string(gs_main_instance_default(), str, ue, pec, peo)
+
+#define gs_run_string_with_length(str, len, ue, pec, peo)\
+  gs_main_run_string_with_length(gs_main_instance_default(),\
+				 str, len, ue, pec, peo)
+
+#define gs_run_file_open(fn, pfref)\
+  gs_main_run_file_open(gs_main_instance_default(), fn, pfref)
+
+#define gs_run_string_begin(ue, pec, peo)\
+  gs_main_run_string_begin(gs_main_instance_default(), ue, pec, peo)
+
+#define gs_run_string_continue(str, len, ue, pec, peo)\
+  gs_main_run_string_continue(gs_main_instance_default(),\
+			      str, len, ue, pec, peo)
+
+#define gs_run_string_end(ue, pec, peo)\
+  gs_main_run_string_end(gs_main_instance_default(), ue, pec, peo)
+
+/* ---------------- Debugging ---------------- */
+
+/*
+ * We should have the following definition:
+
+#define gs_debug_dump_stack(code, peo)\
+  gs_main_dump_stack(gs_main_instance_default(), code, peo)
+
+ * but we make it a procedure instead so it can be called from debuggers.
+ */
+void gs_debug_dump_stack(int code, ref * perror_object);
+
+/* ---------------- Termination ---------------- */
+
+
+#endif /* full file conditional */
+
+#endif /* main_INCLUDED */