New files.

1 files changed, 396 insertions, 0 deletions

diff --git a/Modules/version.c b/Modules/version.c
new file mode 100644
index 0000000..d71b59f
--- /dev/null
+++ b/Modules/version.c
@@ -0,0 +1,396 @@
+/***********************************************************
+Copyright 1991, 1992, 1993 by Stichting Mathematisch Centrum,
+Amsterdam, The Netherlands.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its 
+documentation for any purpose and without fee is hereby granted, 
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in 
+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.
+
+******************************************************************/
+
+/* Python version information */
+
+/* Return the version string.  This is constructed from the official
+   version number, the patch level, and the current date (if known to
+   the compiler, else a manually inserted date). */
+
+#define VERSION "1.0.%d ALPHA (%s)"
+
+#ifdef __DATE__
+#define DATE __DATE__
+#else
+#define DATE ">= 21 Dec 1993"
+#endif
+
+char *
+getversion()
+{
+	static char version[80];
+	sprintf(version, VERSION, PATCHLEVEL, DATE);
+	return version;
+}
+
+
+/* Return the copyright string.  This is updated manually. */
+
+char *
+getcopyright()
+{
+	return
+"Copyright 1990, 1991, 1992, 1993 Stichting Mathematisch Centrum, Amsterdam";
+}
+
+
+/* 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
+#ifdef macintosh
+#define PYTHONPATH ": :lib :demo"
+#endif /* macintosh */
+#endif /* !PYTHONPATH */
+
+#ifndef PYTHONPATH
+#ifdef MSDOS
+#define PYTHONPATH ".;..\\lib;\\python\\lib"
+#endif /* MSDOS */
+#endif /* !PYTHONPATH */
+
+#ifndef PYTHONPATH
+#define PYTHONPATH ".:/usr/local/lib/python"
+#endif /* !PYTHONPATH */
+
+extern char *getenv();
+
+char *
+getpythonpath()
+{
+#ifdef macintosh
+	return PYTHONPATH;
+#else /* !macintosh */
+	char *path = getenv("PYTHONPATH");
+	char *defpath = PYTHONPATH;
+	char *buf;
+	char *p;
+	int n;
+
+	if (path == 0 || *path == '\0')
+		return defpath;
+	n = strlen(path) + strlen(defpath) + 2;
+	buf = malloc(n);
+	if (buf == NULL)
+		return path; /* XXX too bad -- but not likely */
+	strcpy(buf, path);
+	p = buf + strlen(buf);
+	*p++ = DELIM;
+	strcpy(p, defpath);
+	return buf;
+#endif /* !macintosh */
+}
+
+
+/* Table of built-in modules.
+   These are initialized when first imported.
+   Note: selection of optional extensions is now generally done by the
+   mkext.py script in ../Extensions, but for non-UNIX systems most
+   well-known extensions are still listed here. */
+
+/* Standard modules */
+
+#ifdef USE_AL
+extern void inital();
+#endif
+#ifdef USE_AMOEBA
+extern void initamoeba();
+#endif
+#ifdef USE_AUDIO
+extern void initaudio();
+#endif
+#ifdef USE_AUDIOOP
+extern void initaudioop();
+#endif
+#ifdef USE_CD
+extern void initcd();
+#endif
+#ifdef USE_CL
+extern void initcl();
+#endif
+#ifdef USE_DBM
+extern void initdbm();
+#endif
+#ifdef USE_FCNTL
+extern void initfcntl();
+#endif
+#ifdef USE_FL
+extern void initfl();
+#endif
+#ifdef USE_FM
+extern void initfm();
+#endif
+#ifdef USE_GL
+extern void initgl();
+#endif
+#ifdef USE_GRP
+extern void initgrp();
+#endif
+#ifdef USE_IMGFILE
+extern void initimgfile();
+#endif
+#ifdef USE_JPEG
+extern void initjpeg();
+#endif
+#ifdef USE_MAC
+extern void initmac();
+#endif
+#ifdef USE_MARSHAL
+extern void initmarshal();
+#endif
+#ifdef USE_MATH
+extern void initmath();
+#endif
+#ifdef USE_NIS
+extern void initnis();
+#endif
+#ifdef USE_PANEL
+extern void initpanel();
+#endif
+#ifdef USE_POSIX
+extern void initposix();
+#endif
+#ifdef USE_PWD
+extern void initpwd();
+#endif
+#ifdef USE_REGEX
+extern void initregex();
+#endif
+#ifdef USE_ROTOR
+extern void initrotor();
+#endif
+#ifdef USE_SELECT
+extern void initselect();
+#endif
+#ifdef USE_SGI
+extern void initsgi();
+#endif
+#ifdef USE_SOCKET
+extern void initsocket();
+#endif
+#ifdef USE_STDWIN
+extern void initstdwin();
+#endif
+#ifdef USE_STROP
+extern void initstrop();
+#endif
+#ifdef USE_STRUCT
+extern void initstruct();
+#endif
+#ifdef USE_SUNAUDIODEV
+extern void initsunaudiodev();
+#endif
+#ifdef USE_SV
+extern void initsv();
+#endif
+#ifdef USE_TIME
+extern void inittime();
+#endif
+#ifdef USE_IMAGEOP
+extern void initimageop();
+#endif
+#ifdef USE_MPZ
+extern void initmpz();
+#endif
+#ifdef USE_MD5
+extern void initmd5();
+#endif
+#ifdef USE_ARRAY
+extern void initarray();
+#endif
+#ifdef USE_XT
+extern void initXt();
+#endif
+#ifdef USE_XAW
+extern void initXaw();
+#endif
+#ifdef USE_XM
+extern void initXm();
+#endif
+#ifdef USE_GLX
+extern void initGlx();
+#endif
+#ifdef USE_HTML
+extern void initHTML();
+#endif
+#ifdef USE_XLIB
+extern void initXlib();
+#endif
+#ifdef USE_PARSER
+extern void initparser();
+#endif
+/* -- ADDMODULE MARKER 1 -- */
+
+struct {
+	char *name;
+	void (*initfunc)();
+} inittab[] = {
+
+#ifdef USE_AL
+	{"al",		inital},
+#endif
+
+#ifdef USE_AMOEBA
+	{"amoeba",	initamoeba},
+#endif
+
+#ifdef USE_AUDIO
+	{"audio",	initaudio},
+#endif
+
+#ifdef USE_AUDIOOP
+	{"audioop",	initaudioop},
+#endif
+
+#ifdef USE_CD
+	{"cd",		initcd},
+#endif
+
+#ifdef USE_CL
+	{"cl",		initcl},
+#endif
+
+#ifdef USE_DBM
+	{"dbm",		initdbm},
+#endif
+
+#ifdef USE_FCNTL
+	{"fcntl",	initfcntl},
+#endif
+
+#ifdef USE_FL
+	{"fl",		initfl},
+#endif
+
+#ifdef USE_FM
+	{"fm",		initfm},
+#endif
+
+#ifdef USE_GL
+	{"gl",		initgl},
+#endif
+
+#ifdef USE_GRP
+	{"grp",		initgrp},
+#endif
+
+#ifdef USE_IMGFILE
+	{"imgfile",	initimgfile},
+#endif
+
+#ifdef USE_JPEG
+	{"jpeg",	initjpeg},
+#endif
+
+#ifdef USE_MAC
+	{"mac",	initmac},
+#endif
+
+#ifdef USE_MARSHAL
+	{"marshal",	initmarshal},
+#endif
+
+#ifdef USE_MATH
+	{"math",	initmath},
+#endif
+
+#ifdef USE_NIS
+	{"nis",		initnis},
+#endif
+
+#ifdef USE_PANEL
+	{"pnl",		initpanel},
+#endif
+
+#ifdef USE_POSIX
+	{"posix",	initposix},
+#endif
+
+#ifdef USE_PWD
+	{"pwd",		initpwd},
+#endif
+
+#ifdef USE_REGEX
+	{"regex",	initregex},
+#endif
+
+#ifdef USE_ROTOR
+	{"rotor",	initrotor},
+#endif
+
+#ifdef USE_SELECT
+	{"select",	initselect},
+#endif
+
+#ifdef USE_SGI
+	{"sgi",		initsgi},
+#endif
+
+#ifdef USE_SOCKET
+	{"socket",	initsocket},
+#endif
+
+#ifdef USE_STDWIN
+	{"stdwin",	initstdwin},
+#endif
+
+#ifdef USE_STROP
+	{"strop",	initstrop},
+#endif
+
+#ifdef USE_STRUCT
+	{"struct",	initstruct},
+#endif
+
+#ifdef USE_SUNAUDIODEV
+	{"sunaudiodev",	initsunaudiodev},
+#endif
+
+#ifdef USE_SV
+	{"sv",		initsv},
+#endif
+
+#ifdef USE_TIME
+	{"time",	inittime},
+#endif
+
+#ifdef USE_IMAGEOP
+       {"imageop", initimageop},
+#endif
+
+#ifdef USE_MPZ
+       {"mpz", initmpz},
+#endif
+
+#ifdef USE_MD5
+       {"md5", initmd5},
+#endif
+
+#ifdef USE_ARRAY
+       {"array", initarray},
+#endif