1995-08-04 01:20:48 -03:00
|
|
|
#include "Python.h"
|
|
|
|
|
#include "osdefs.h"
|
|
|
|
|
|
1996-02-25 00:50:31 -04:00
|
|
|
#ifdef HAVE_STDLIB_H
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
#else
|
|
|
|
|
extern char *getenv Py_PROTO((const char *));
|
|
|
|
|
#endif
|
|
|
|
|
|
1995-08-04 01:20:48 -03:00
|
|
|
|
|
|
|
|
#ifndef PYTHONPATH
|
|
|
|
|
#define PYTHONPATH ".:/usr/local/lib/python"
|
|
|
|
|
#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 default
|
|
|
|
|
path may be passed to the preprocessor; if not, a system-dependent
|
|
|
|
|
default is used. */
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
getpythonpath()
|
|
|
|
|
{
|
|
|
|
|
char *path = getenv("PYTHONPATH");
|
|
|
|
|
char *defpath = PYTHONPATH;
|
|
|
|
|
static char *buf = NULL;
|
|
|
|
|
char *p;
|
|
|
|
|
int n;
|
|
|
|
|
|
|
|
|
|
if (path == NULL)
|
|
|
|
|
path = "";
|
|
|
|
|
n = strlen(path) + strlen(defpath) + 2;
|
|
|
|
|
if (buf != NULL) {
|
|
|
|
|
free(buf);
|
|
|
|
|
buf = NULL;
|
|
|
|
|
}
|
|
|
|
|
buf = malloc(n);
|
|
|
|
|
if (buf == NULL)
|
|
|
|
|
Py_FatalError("not enough memory to copy module search path");
|
|
|
|
|
strcpy(buf, path);
|
|
|
|
|
p = buf + strlen(buf);
|
|
|
|
|
if (p != buf)
|
|
|
|
|
*p++ = DELIM;
|
|
|
|
|
strcpy(p, defpath);
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
