special cases and other things in wxPython, and since I plan on making several more, I've decided to put the SWIG sources in wxPython's CVS instead of relying on maintaining patches. This effectivly becomes a fork of an obsolete version of SWIG, :-( but since SWIG 1.3 still doesn't have some things I rely on in 1.1, not to mention that my custom patches would all have to be redone, I felt that this is the easier road to take. git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@15307 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
		
			
				
	
	
		
			341 lines
		
	
	
		
			7.9 KiB
		
	
	
	
		
			OpenEdge ABL
		
	
	
	
	
	
			
		
		
	
	
			341 lines
		
	
	
		
			7.9 KiB
		
	
	
	
		
			OpenEdge ABL
		
	
	
	
	
	
//
 | 
						|
// embed.i
 | 
						|
// SWIG file embedding the Python interpreter in something else.
 | 
						|
// This file is based on Python-1.4.
 | 
						|
//
 | 
						|
// This file makes it possible to extend Python and all of its
 | 
						|
// built-in functions without having to hack it's setup script.
 | 
						|
//
 | 
						|
 | 
						|
 | 
						|
#ifdef AUTODOC
 | 
						|
%subsection "embed.i"
 | 
						|
%text %{
 | 
						|
This module provides support for building a new version of the
 | 
						|
Python executable.  This will be necessary on systems that do
 | 
						|
not support shared libraries and may be necessary with C++
 | 
						|
extensions.  This file contains everything you need to build
 | 
						|
a new version of Python from include files and libraries normally
 | 
						|
installed with the Python language.
 | 
						|
 | 
						|
This module will automatically grab all of the Python modules
 | 
						|
present in your current Python executable (including any special
 | 
						|
purpose modules you have enabled such as tkinter).   Thus, you
 | 
						|
may need to provide additional link libraries when compiling.
 | 
						|
 | 
						|
This library file only works with Python 1.4.  A version compatible
 | 
						|
with Python 1.3 is available as embed13.i.  A Python 1.5 version is
 | 
						|
available as embed15.i As far as I know, this module is C++ safe
 | 
						|
(well, it works for me).
 | 
						|
%}
 | 
						|
#else
 | 
						|
%echo "embed.i : Using Python 1.4"
 | 
						|
#endif
 | 
						|
 | 
						|
%wrapper %{
 | 
						|
#ifndef NEED_GETOPT
 | 
						|
#include <unistd.h>
 | 
						|
#endif
 | 
						|
 | 
						|
#include <pythonrun.h>
 | 
						|
 | 
						|
#ifdef __cplusplus
 | 
						|
extern "C"
 | 
						|
#endif
 | 
						|
void SWIG_init();  /* Forward reference */
 | 
						|
 | 
						|
#define inittab    python_inittab
 | 
						|
 | 
						|
/* Grab Python's inittab[] structure */
 | 
						|
 | 
						|
#ifdef __cplusplus
 | 
						|
extern "C" {
 | 
						|
#endif
 | 
						|
#include <config.c>
 | 
						|
 | 
						|
#undef inittab
 | 
						|
 | 
						|
/* Now define our own version of it.
 | 
						|
   Hopefully someone does not have more than 1000 built-in modules */
 | 
						|
 | 
						|
struct _inittab inittab[1000];       
 | 
						|
 | 
						|
static int  swig_num_modules = 0;
 | 
						|
 | 
						|
/* Function for adding modules to Python */
 | 
						|
 | 
						|
 | 
						|
static void swig_add_module(char *name, void (*initfunc)()) {
 | 
						|
	inittab[swig_num_modules].name = name;
 | 
						|
	inittab[swig_num_modules].initfunc = initfunc;
 | 
						|
	swig_num_modules++;
 | 
						|
	inittab[swig_num_modules].name = (char *) 0;
 | 
						|
	inittab[swig_num_modules].initfunc = 0;
 | 
						|
}				
 | 
						|
 | 
						|
/* Function to add all of Python's build in modules to our interpreter */
 | 
						|
 | 
						|
static void swig_add_builtin() {
 | 
						|
	int i = 0;
 | 
						|
	while (python_inittab[i].name) {
 | 
						|
		swig_add_module(python_inittab[i].name, python_inittab[i].initfunc);
 | 
						|
		i++;
 | 
						|
 	}
 | 
						|
#ifdef SWIGMODINIT
 | 
						|
	SWIGMODINIT	
 | 
						|
#endif
 | 
						|
	/* Add SWIG builtin function */
 | 
						|
	swig_add_module(SWIG_name, SWIG_init);
 | 
						|
}
 | 
						|
 | 
						|
#ifdef __cplusplus
 | 
						|
}
 | 
						|
#endif
 | 
						|
 | 
						|
/* Interface to getopt(): */
 | 
						|
extern int optind;
 | 
						|
extern char *optarg;
 | 
						|
#ifdef NEED_GETOPT
 | 
						|
#ifdef __cplusplus
 | 
						|
extern "C" int getopt(int, char **, char *);
 | 
						|
#else
 | 
						|
extern int getopt();    /* PROTO((int, char **, char *)); -- not standardized */
 | 
						|
#endif
 | 
						|
#endif
 | 
						|
 | 
						|
extern int Py_DebugFlag;             /* For parser.c, declared in pythonrun.c */
 | 
						|
extern int Py_VerboseFlag;           /* For import.c, declared in pythonrun.c */
 | 
						|
extern int Py_SuppressPrintingFlag;  /* For ceval.c, declared in pythonrun.c */
 | 
						|
 | 
						|
/* Subroutines that live in their own file */
 | 
						|
#ifdef __cplusplus
 | 
						|
extern "C" {
 | 
						|
extern int  isatty(int fd);
 | 
						|
extern void PySys_SetArgv(int, char **);
 | 
						|
#endif
 | 
						|
extern char *Py_GetVersion();
 | 
						|
extern char *Py_GetCopyright();
 | 
						|
#ifdef __cplusplus
 | 
						|
}
 | 
						|
#endif
 | 
						|
 | 
						|
/* For getprogramname(); set by main() */
 | 
						|
static char *argv0;
 | 
						|
 | 
						|
/* For getargcargv(); set by main() */
 | 
						|
static char **orig_argv;
 | 
						|
static int  orig_argc;
 | 
						|
 | 
						|
/* Short usage message (with %s for argv0) */
 | 
						|
static char *usage_line =
 | 
						|
"usage: %s [-d] [-i] [-s] [-u ] [-v] [-c cmd | file | -] [arg] ...\n";
 | 
						|
 | 
						|
/* Long usage message, split into parts < 512 bytes */
 | 
						|
static char *usage_top = "\n\
 | 
						|
Options and arguments (and corresponding environment variables):\n\
 | 
						|
-d     : debug output from parser (also PYTHONDEBUG=x)\n\
 | 
						|
-i     : inspect interactively after running script (also PYTHONINSPECT=x)\n\
 | 
						|
-s     : suppress printing of top level expressions (also PYTHONSUPPRESS=x)\n\
 | 
						|
-u     : unbuffered stdout and stderr (also PYTHONUNBUFFERED=x)\n\
 | 
						|
-v     : verbose (trace import statements) (also PYTHONVERBOSE=x)\n\
 | 
						|
-c cmd : program passed in as string (terminates option list)\n\
 | 
						|
";
 | 
						|
static char *usage_bot = "\
 | 
						|
file   : program read from script file\n\
 | 
						|
-      : program read from stdin (default; interactive mode if a tty)\n\
 | 
						|
arg ...: arguments passed to program in sys.argv[1:]\n\
 | 
						|
\n\
 | 
						|
Other environment variables:\n\
 | 
						|
PYTHONSTARTUP: file executed on interactive startup (no default)\n\
 | 
						|
PYTHONPATH   : colon-separated list of directories prefixed to the\n\
 | 
						|
               default module search path.  The result is sys.path.\n\
 | 
						|
";
 | 
						|
 | 
						|
/* Main program */
 | 
						|
 | 
						|
int
 | 
						|
main(int argc, char **argv) {
 | 
						|
	int c;
 | 
						|
	int sts;
 | 
						|
	char *command = NULL;
 | 
						|
	char *filename = NULL;
 | 
						|
	FILE *fp = stdin;
 | 
						|
	char *p;
 | 
						|
	int inspect = 0;
 | 
						|
	int unbuffered = 0;
 | 
						|
 | 
						|
	swig_add_builtin();     /* Add SWIG built-in modules */
 | 
						|
	orig_argc = argc;	/* For getargcargv() */
 | 
						|
	orig_argv = argv;
 | 
						|
	argv0 = argv[0];	/* For getprogramname() */
 | 
						|
 | 
						|
	if ((p = getenv("PYTHONDEBUG")) && *p != '\0')
 | 
						|
		Py_DebugFlag = 1;
 | 
						|
	if ((p = getenv("PYTHONSUPPRESS")) && *p != '\0')
 | 
						|
		Py_SuppressPrintingFlag = 1;
 | 
						|
	if ((p = getenv("PYTHONVERBOSE")) && *p != '\0')
 | 
						|
		Py_VerboseFlag = 1;
 | 
						|
	if ((p = getenv("PYTHONINSPECT")) && *p != '\0')
 | 
						|
		inspect = 1;
 | 
						|
	if ((p = getenv("PYTHONUNBUFFERED")) && *p != '\0')
 | 
						|
		unbuffered = 1;
 | 
						|
 | 
						|
	while ((c = getopt(argc, argv, "c:disuv")) != EOF) {
 | 
						|
		if (c == 'c') {
 | 
						|
			/* -c is the last option; following arguments
 | 
						|
			   that look like options are left for the
 | 
						|
			   the command to interpret. */
 | 
						|
			command = (char *) malloc(strlen(optarg) + 2);
 | 
						|
			if (command == NULL)
 | 
						|
				Py_FatalError(
 | 
						|
				   "not enough memory to copy -c argument");
 | 
						|
			strcpy(command, optarg);
 | 
						|
			strcat(command, "\n");
 | 
						|
			break;
 | 
						|
		}
 | 
						|
		
 | 
						|
		switch (c) {
 | 
						|
 | 
						|
		case 'd':
 | 
						|
			Py_DebugFlag++;
 | 
						|
			break;
 | 
						|
 | 
						|
		case 'i':
 | 
						|
			inspect++;
 | 
						|
			break;
 | 
						|
 | 
						|
		case 's':
 | 
						|
			Py_SuppressPrintingFlag++;
 | 
						|
			break;
 | 
						|
 | 
						|
		case 'u':
 | 
						|
			unbuffered++;
 | 
						|
			break;
 | 
						|
 | 
						|
		case 'v':
 | 
						|
			Py_VerboseFlag++;
 | 
						|
			break;
 | 
						|
 | 
						|
		/* This space reserved for other options */
 | 
						|
 | 
						|
		default:
 | 
						|
			fprintf(stderr, usage_line, argv[0]);
 | 
						|
			fprintf(stderr, usage_top);
 | 
						|
			fprintf(stderr, usage_bot);
 | 
						|
			exit(2);
 | 
						|
			/*NOTREACHED*/
 | 
						|
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	if (unbuffered) {
 | 
						|
#ifndef MPW
 | 
						|
		setbuf(stdout, (char *)NULL);
 | 
						|
		setbuf(stderr, (char *)NULL);
 | 
						|
#else
 | 
						|
		/* On MPW (3.2) unbuffered seems to hang */
 | 
						|
		setvbuf(stdout, (char *)NULL, _IOLBF, BUFSIZ);
 | 
						|
		setvbuf(stderr, (char *)NULL, _IOLBF, BUFSIZ);
 | 
						|
#endif
 | 
						|
	}
 | 
						|
 | 
						|
	if (command == NULL && optind < argc &&
 | 
						|
	    strcmp(argv[optind], "-") != 0)
 | 
						|
		filename = argv[optind];
 | 
						|
 | 
						|
	if (Py_VerboseFlag ||
 | 
						|
	    command == NULL && filename == NULL && isatty((int)fileno(fp)))
 | 
						|
		fprintf(stderr, "Python %s\n%s\n",
 | 
						|
			Py_GetVersion(), Py_GetCopyright());
 | 
						|
	
 | 
						|
	if (filename != NULL) {
 | 
						|
		if ((fp = fopen(filename, "r")) == NULL) {
 | 
						|
			fprintf(stderr, "%s: can't open file '%s'\n",
 | 
						|
				argv[0], filename);
 | 
						|
			exit(2);
 | 
						|
		}
 | 
						|
	}
 | 
						|
	
 | 
						|
	Py_Initialize();
 | 
						|
	if (command != NULL) {
 | 
						|
		/* Backup optind and force sys.argv[0] = '-c' */
 | 
						|
		optind--;
 | 
						|
		argv[optind] = "-c";
 | 
						|
	}
 | 
						|
 | 
						|
	PySys_SetArgv(argc-optind, argv+optind);
 | 
						|
 | 
						|
	if (command) {
 | 
						|
		sts = PyRun_SimpleString(command) != 0;
 | 
						|
	}
 | 
						|
	else {
 | 
						|
		if (filename == NULL && isatty((int)fileno(fp))) {
 | 
						|
			char *startup = getenv("PYTHONSTARTUP");
 | 
						|
			if (startup != NULL && startup[0] != '\0') {
 | 
						|
				FILE *fp = fopen(startup, "r");
 | 
						|
				if (fp != NULL) {
 | 
						|
					(void) PyRun_SimpleFile(fp, startup);
 | 
						|
					PyErr_Clear();
 | 
						|
					fclose(fp);
 | 
						|
				}
 | 
						|
			}
 | 
						|
		}
 | 
						|
		sts = PyRun_AnyFile(
 | 
						|
			fp, filename == NULL ? "<stdin>" : filename) != 0;
 | 
						|
		if (filename != NULL)
 | 
						|
			fclose(fp);
 | 
						|
	}
 | 
						|
 | 
						|
	if (inspect && isatty((int)fileno(stdin)) &&
 | 
						|
	    (filename != NULL || command != NULL))
 | 
						|
		sts = PyRun_AnyFile(stdin, "<stdin>") != 0;
 | 
						|
 | 
						|
	Py_Exit(sts);
 | 
						|
	/*NOTREACHED*/
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
/* Return the program name -- some code out there needs this. */
 | 
						|
 | 
						|
#ifdef __cplusplus
 | 
						|
extern "C"
 | 
						|
#endif
 | 
						|
 | 
						|
char *
 | 
						|
Py_GetProgramName()
 | 
						|
{
 | 
						|
	return argv0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
/* Make the *original* argc/argv available to other modules.
 | 
						|
   This is rare, but it is needed by the secureware extension. */
 | 
						|
 | 
						|
#ifdef __cplusplus
 | 
						|
extern "C"
 | 
						|
#endif
 | 
						|
void
 | 
						|
getargcargv(int *argc,char ***argv)
 | 
						|
{
 | 
						|
	*argc = orig_argc;
 | 
						|
	*argv = orig_argv;
 | 
						|
}
 | 
						|
 | 
						|
/* Total Hack to get getpath.c to compile under C++ */
 | 
						|
 | 
						|
#ifdef __cplusplus
 | 
						|
#define malloc   (char *) malloc
 | 
						|
extern "C" {
 | 
						|
#endif
 | 
						|
#include <getpath.c>
 | 
						|
#ifdef __cplusplus
 | 
						|
}
 | 
						|
#undef malloc
 | 
						|
#endif
 | 
						|
 | 
						|
%}
 | 
						|
 | 
						|
 | 
						|
  
 | 
						|
 |