1994-08-01 08:34:53 -03:00
|
|
|
/* -*- C -*- ***********************************************
|
1995-01-04 15:10:35 -04:00
|
|
|
Copyright 1991-1994 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1991-02-19 08:39:46 -04:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
1995-01-04 15:10:35 -04:00
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
1991-02-19 08:39:46 -04:00
|
|
|
provided that the above copyright notice appear in all copies and that
|
1995-01-04 15:10:35 -04:00
|
|
|
both that copyright notice and this permission notice appear in
|
1991-02-19 08:39:46 -04:00
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
|
|
|
Centrum or CWI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior permission.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
|
|
|
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
|
|
|
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
|
|
|
|
FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
|
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
|
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
|
|
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* Universal Python configuration file */
|
1990-12-20 19:03:58 -04:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
#include "config.h"
|
1993-01-26 09:33:44 -04:00
|
|
|
#endif
|
|
|
|
|
1994-08-23 10:48:30 -03:00
|
|
|
#ifdef macintosh
|
|
|
|
/* The Macintosh main program is in macmain.c */
|
|
|
|
#define NO_MAIN
|
|
|
|
#endif
|
|
|
|
|
1993-01-21 12:07:51 -04:00
|
|
|
#include <stdio.h>
|
1994-08-01 08:34:53 -03:00
|
|
|
#include <string.h>
|
1992-09-03 17:49:55 -03:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
#include "myproto.h"
|
1992-08-19 13:44:41 -03:00
|
|
|
#include "mymalloc.h"
|
1993-01-26 09:33:44 -04:00
|
|
|
#include "osdefs.h"
|
1994-08-01 08:34:53 -03:00
|
|
|
#include "intrcheck.h"
|
1992-06-03 14:05:13 -03:00
|
|
|
|
1995-01-10 13:43:33 -04:00
|
|
|
#if defined(__cplusplus)
|
|
|
|
extern "C" {
|
|
|
|
#endif
|
1991-12-29 21:43:49 -04:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
#ifndef NO_MAIN
|
1991-12-16 09:05:20 -04:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* Normally, the main program is called from here (so everything else
|
|
|
|
can be in libPython.a). We save a pointer to argv[0] because it
|
|
|
|
may be needed for dynamic loading of modules in import.c. If you
|
|
|
|
have your own main program and want to use non-SunOS dynamic
|
|
|
|
loading, you will have to provide your own version of
|
|
|
|
getprogramname(). */
|
1991-12-16 09:05:20 -04:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
static char *argv0;
|
1992-01-19 12:27:42 -04:00
|
|
|
|
1994-08-29 07:46:42 -03:00
|
|
|
/* These are made available for other modules that might need them.
|
|
|
|
This is rare, but it is needed by the secureware module. */
|
|
|
|
|
|
|
|
static char **orig_argv;
|
|
|
|
static int orig_argc;
|
|
|
|
|
1995-01-10 13:43:33 -04:00
|
|
|
#if defined(__cplusplus)
|
|
|
|
int realmain(int, char**);
|
|
|
|
main(int argc, char **argv)
|
|
|
|
#else
|
1994-08-01 08:34:53 -03:00
|
|
|
main(argc, argv)
|
|
|
|
int argc;
|
|
|
|
char **argv;
|
1995-01-10 13:43:33 -04:00
|
|
|
#endif
|
1990-12-20 19:03:58 -04:00
|
|
|
{
|
1994-08-29 07:46:42 -03:00
|
|
|
orig_argc = argc;
|
|
|
|
orig_argv = argv;
|
1994-08-01 08:34:53 -03:00
|
|
|
argv0 = argv[0];
|
|
|
|
realmain(argc, argv);
|
1990-12-20 19:03:58 -04:00
|
|
|
}
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
char *
|
|
|
|
getprogramname()
|
1990-12-20 19:03:58 -04:00
|
|
|
{
|
1994-08-01 08:34:53 -03:00
|
|
|
return argv0;
|
1990-12-20 19:03:58 -04:00
|
|
|
}
|
|
|
|
|
1994-08-29 07:46:42 -03:00
|
|
|
void
|
1995-01-10 13:43:33 -04:00
|
|
|
#if defined(__cplusplus)
|
|
|
|
getargcargv(int *argc, char ***argv)
|
|
|
|
#else
|
1994-08-29 07:46:42 -03:00
|
|
|
getargcargv(argc,argv)
|
|
|
|
int *argc;
|
|
|
|
char ***argv;
|
1995-01-10 13:43:33 -04:00
|
|
|
#endif
|
1994-08-29 07:46:42 -03:00
|
|
|
{
|
|
|
|
*argc = orig_argc;
|
|
|
|
*argv = orig_argv;
|
|
|
|
}
|
|
|
|
|
1990-12-20 19:03:58 -04:00
|
|
|
#endif
|
|
|
|
|
1993-01-26 09:33:44 -04:00
|
|
|
|
1994-08-19 09:03:04 -03:00
|
|
|
/* Python version information */
|
|
|
|
|
|
|
|
#include "patchlevel.h"
|
|
|
|
|
|
|
|
/* Return the version string. This is constructed from the official
|
|
|
|
version number (from patchlevel.h), and the current date (if known
|
|
|
|
to the compiler, else a manually inserted date). */
|
|
|
|
|
|
|
|
#define VERSION "%s (%s)"
|
|
|
|
|
|
|
|
#ifdef __DATE__
|
|
|
|
#define DATE __DATE__
|
|
|
|
#else
|
|
|
|
#define DATE "Aug 17 1994"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
char *
|
|
|
|
getversion()
|
|
|
|
{
|
|
|
|
static char version[80];
|
|
|
|
sprintf(version, VERSION, PATCHLEVEL, DATE);
|
|
|
|
return version;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Return the copyright string. This is updated manually. */
|
|
|
|
|
|
|
|
char *
|
|
|
|
getcopyright()
|
|
|
|
{
|
1995-01-04 15:10:35 -04:00
|
|
|
return "Copyright 1991-1995 Stichting Mathematisch Centrum, Amsterdam";
|
1994-08-19 09:03:04 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* Return the initial python search path. This is called once from
|
|
|
|
initsys() to initialize sys.path.
|
|
|
|
The environment variable PYTHONPATH is fetched and the default path
|
|
|
|
appended. (The Mac has no environment variables, so there the
|
|
|
|
default path is always returned.) The default path may be passed
|
|
|
|
to the preprocessor; if not, a system-dependent default is used. */
|
|
|
|
|
|
|
|
#ifndef PYTHONPATH
|
1993-01-21 12:07:51 -04:00
|
|
|
#ifdef macintosh
|
1994-08-23 10:48:30 -03:00
|
|
|
#define PYTHONPATH ": :Lib :Lib:stdwin :Lib:test :Lib:mac"
|
1993-01-26 09:33:44 -04:00
|
|
|
#endif /* macintosh */
|
1994-08-01 08:34:53 -03:00
|
|
|
#endif /* !PYTHONPATH */
|
1993-01-26 09:33:44 -04:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
#ifndef PYTHONPATH
|
|
|
|
#if defined(MSDOS) || defined(NT)
|
1993-07-09 07:51:31 -03:00
|
|
|
#define PYTHONPATH ".;..\\lib;\\python\\lib"
|
1994-08-01 08:34:53 -03:00
|
|
|
#endif /* MSDOS || NT */
|
|
|
|
#endif /* !PYTHONPATH */
|
1993-01-26 09:33:44 -04:00
|
|
|
|
|
|
|
#ifndef PYTHONPATH
|
1994-08-01 08:34:53 -03:00
|
|
|
#define PYTHONPATH ".:/usr/local/lib/python"
|
1993-01-21 12:07:51 -04:00
|
|
|
#endif /* !PYTHONPATH */
|
1990-12-20 19:03:58 -04:00
|
|
|
|
1995-01-10 13:43:33 -04:00
|
|
|
#ifndef __cplusplus
|
1990-12-20 19:03:58 -04:00
|
|
|
extern char *getenv();
|
1995-01-10 13:43:33 -04:00
|
|
|
#endif
|
1990-12-20 19:03:58 -04:00
|
|
|
|
|
|
|
char *
|
|
|
|
getpythonpath()
|
|
|
|
{
|
1995-01-10 13:43:33 -04:00
|
|
|
#ifdef __cplusplus
|
|
|
|
void fatal(char *);
|
|
|
|
#endif
|
1990-12-20 19:03:58 -04:00
|
|
|
char *path = getenv("PYTHONPATH");
|
1992-06-03 14:05:13 -03:00
|
|
|
char *defpath = PYTHONPATH;
|
1994-10-05 09:25:12 -03:00
|
|
|
static char *buf = NULL;
|
1993-01-26 09:33:44 -04:00
|
|
|
char *p;
|
1992-06-03 14:05:13 -03:00
|
|
|
int n;
|
|
|
|
|
1994-10-05 09:25:12 -03:00
|
|
|
if (path == NULL)
|
|
|
|
path = "";
|
1992-06-03 14:05:13 -03:00
|
|
|
n = strlen(path) + strlen(defpath) + 2;
|
1994-10-05 09:25:12 -03:00
|
|
|
if (buf != NULL) {
|
|
|
|
free(buf);
|
|
|
|
buf = NULL;
|
|
|
|
}
|
1992-06-03 14:05:13 -03:00
|
|
|
buf = malloc(n);
|
|
|
|
if (buf == NULL)
|
1994-10-05 09:25:12 -03:00
|
|
|
fatal("not enough memory to copy module search path");
|
1992-06-03 14:05:13 -03:00
|
|
|
strcpy(buf, path);
|
1993-01-26 09:33:44 -04:00
|
|
|
p = buf + strlen(buf);
|
1994-10-05 11:48:22 -03:00
|
|
|
if (p != buf)
|
|
|
|
*p++ = DELIM;
|
1993-01-26 09:33:44 -04:00
|
|
|
strcpy(p, defpath);
|
1992-06-03 14:05:13 -03:00
|
|
|
return buf;
|
1990-12-20 19:03:58 -04:00
|
|
|
}
|
1991-02-19 08:22:24 -04:00
|
|
|
|
|
|
|
|
|
|
|
/* Table of built-in modules.
|
1994-08-01 08:34:53 -03:00
|
|
|
These are initialized when first imported.
|
|
|
|
Note: selection of optional extensions is now generally done by the
|
|
|
|
makesetup script. */
|
1991-02-19 08:22:24 -04:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* -- ADDMODULE MARKER 1 -- */
|
1991-06-04 16:47:46 -03:00
|
|
|
|
1992-09-03 17:49:55 -03:00
|
|
|
extern void initmarshal();
|
1995-01-02 15:30:30 -04:00
|
|
|
extern void initimp();
|
1991-02-19 08:22:24 -04:00
|
|
|
|
|
|
|
struct {
|
|
|
|
char *name;
|
|
|
|
void (*initfunc)();
|
|
|
|
} inittab[] = {
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* -- ADDMODULE MARKER 2 -- */
|
1993-10-11 09:54:31 -03:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* This module "lives in" with marshal.c */
|
|
|
|
{"marshal", initmarshal},
|
1993-11-10 08:53:24 -04:00
|
|
|
|
1995-01-02 15:30:30 -04:00
|
|
|
/* This lives it with import.c */
|
|
|
|
{"imp", initimp},
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* These entries are here for sys.builtin_module_names */
|
|
|
|
{"__main__", NULL},
|
|
|
|
{"__builtin__", NULL},
|
|
|
|
{"sys", NULL},
|
1992-09-25 18:54:05 -03:00
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/* Sentinel */
|
|
|
|
{0, 0}
|
1991-02-19 08:22:24 -04:00
|
|
|
};
|
1993-04-01 16:59:32 -04:00
|
|
|
|
1994-10-05 11:48:22 -03:00
|
|
|
#ifndef USE_FROZEN
|
1993-04-01 16:59:32 -04:00
|
|
|
struct frozen {
|
|
|
|
char *name;
|
|
|
|
char *code;
|
|
|
|
int size;
|
|
|
|
} frozen_modules[] = {
|
|
|
|
{0, 0, 0}
|
|
|
|
};
|
|
|
|
#endif
|
1995-01-10 13:43:33 -04:00
|
|
|
|
|
|
|
#if defined(__cplusplus)
|
|
|
|
}
|
|
|
|
#endif
|