summaryrefslogtreecommitdiffstats
path: root/Mac/Modules/config.c
diff options
context:
space:
mode:
Diffstat (limited to 'Mac/Modules/config.c')
-rw-r--r--Mac/Modules/config.c210
1 files changed, 210 insertions, 0 deletions
diff --git a/Mac/Modules/config.c b/Mac/Modules/config.c
new file mode 100644
index 0000000..a41a0d6
--- /dev/null
+++ b/Mac/Modules/config.c
@@ -0,0 +1,210 @@
+/***********************************************************
+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.
+
+******************************************************************/
+
+/* Universal Python configuration file */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <stdio.h>
+#include <string.h>
+
+#include "myproto.h"
+#include "mymalloc.h"
+#include "osdefs.h"
+#include "intrcheck.h"
+
+
+#ifndef NO_MAIN
+
+/* 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(). */
+
+static char *argv0;
+
+main(argc, argv)
+ int argc;
+ char **argv;
+{
+#ifdef macintosh
+ wargs(&argc, &argv);
+#endif
+ argv0 = argv[0];
+ realmain(argc, argv);
+}
+
+char *
+getprogramname()
+{
+ return argv0;
+}
+
+#endif
+
+
+/* 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 :Lib:stdwin :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
+ makesetup script. */
+
+extern void initarray();
+extern void initmath();
+extern void initparser();
+extern void initmac();
+extern void initregex();
+extern void initstrop();
+extern void initstruct();
+extern void inittime();
+extern void initdbm();
+extern void initfcntl();
+extern void initnis();
+extern void initpwd();
+extern void initgrp();
+extern void initselect();
+extern void initsocket();
+extern void initaudioop();
+extern void initimageop();
+extern void initrgbimg();
+extern void initstdwin();
+extern void initmd5();
+extern void initmpz();
+extern void initrotor();
+extern void inital();
+extern void initcd();
+extern void initcl();
+extern void initfm();
+extern void initgl();
+extern void initimgfile();
+extern void initsgi();
+extern void initsv();
+extern void initfl();
+extern void initthread();
+extern void inittiming();
+
+/* -- ADDMODULE MARKER 1 -- */
+
+extern void initmarshal();
+
+struct {
+ char *name;
+ void (*initfunc)();
+} inittab[] = {
+
+ {"array", initarray},
+ {"math", initmath},
+ {"parser", initparser},
+ {"mac", initmac},
+ {"regex", initregex},
+ {"strop", initstrop},
+ {"struct", initstruct},
+ {"time", inittime},
+ {"audioop", initaudioop},
+ {"imageop", initimageop},
+ {"rgbimg", initrgbimg},
+ {"stdwin", initstdwin},
+ {"md5", initmd5},
+ {"rotor", initrotor},
+
+/* -- ADDMODULE MARKER 2 -- */
+
+ /* This module "lives in" with marshal.c */
+ {"marshal", initmarshal},
+
+ /* These entries are here for sys.builtin_module_names */
+ {"__main__", NULL},
+ {"__builtin__", NULL},
+ {"sys", NULL},
+
+ /* Sentinel */
+ {0, 0}
+};
+
+#ifdef USE_FROZEN
+#include "frozen.c"
+#else
+struct frozen {
+ char *name;
+ char *code;
+ int size;
+} frozen_modules[] = {
+ {0, 0, 0}
+};
+#endif