/* Module definition and import implementation */

#include "Python.h"

#include "node.h"

#include "token.h"

#include "errcode.h"

#include "marshal.h"

#include "compile.h"

#include "eval.h"

#include "osdefs.h"

#include "importdl.h"

#ifdef macintosh

#include "macglue.h"

#endif

#ifdef HAVE_FCNTL_H

#include <fcntl.h>

#endif

extern time_t PyOS_GetLastModificationTime(char *, FILE *);

/* In getmtime.c */

/* Magic word to reject .pyc files generated by other Python versions */

/* Change for each incompatible change */

/* The value of CR and LF is incorporated so if you ever read or write

a .pyc file in text mode the magic number will be wrong; also, the

Apple MPW compiler swaps their values, botching string constants.

XXX That probably isn't important anymore.

*/

/* XXX Perhaps the magic number should be frozen and a version field

added to the .pyc file header? */

/* New way to come up with the low 16 bits of the magic number:

(YEAR-1995) * 10000 + MONTH * 100 + DAY

where MONTH and DAY are 1-based.

XXX Whatever the "old way" may have been isn't documented.

XXX This scheme breaks in 2002, as (2002-1995)*10000 = 70000 doesn't

fit in 16 bits.

XXX Later, sometimes 1 gets added to MAGIC in order to record that

the Unicode -U option is in use. IMO (Tim's), that's a Bad Idea

(quite apart from that the -U option doesn't work so isn't used

anyway).

XXX MAL, 2002-02-07: I had to modify the MAGIC due to a fix of the

UTF-8 encoder (it previously produced invalid UTF-8 for unpaired

high surrogates), so I simply bumped the month value to 20 (invalid

month) and set the day to 1. This should be recognizable by any

algorithm relying on the above scheme. Perhaps we should simply

start counting in increments of 10 from now on ?!

MWH, 2002-08-03: Removed SET_LINENO. Couldn't be bothered figuring

out the MAGIC schemes, so just incremented it by 10.

GvR, 2002-08-31: Because MWH changed the bytecode again, moved the

magic number *back* to 62011. This should get the snake-farm to

throw away its old .pyc files, amongst others.

Known values:

Python 1.5: 20121

Python 1.5.1: 20121

Python 1.5.2: 20121

Python 2.0: 50823

Python 2.0.1: 50823

Python 2.1: 60202

Python 2.1.1: 60202

Python 2.1.2: 60202

Python 2.2: 60717

Python 2.3a0: 62011

Python 2.3a0: 62021

Python 2.3a0: 62011 (!)

*/

#define MAGIC (62011 | ((long)'\r'<<16) | ((long)'\n'<<24))

/* Magic word as global; note that _PyImport_Init() can change the

value of this global to accommodate for alterations of how the

compiler works which are enabled by command line switches. */

static long pyc_magic = MAGIC;

/* See _PyImport_FixupExtension() below */

static PyObject *extensions = NULL;

/* This table is defined in config.c: */

extern struct _inittab _PyImport_Inittab[];

struct _inittab *PyImport_Inittab = _PyImport_Inittab;

/* these tables define the module suffixes that Python recognizes */

struct filedescr * _PyImport_Filetab = NULL;

#ifdef RISCOS

static const struct filedescr _PyImport_StandardFiletab[] = {

{"/py", "U", PY_SOURCE},

{"/pyc", "rb", PY_COMPILED},

{0, 0}

};

#else

static const struct filedescr _PyImport_StandardFiletab[] = {

{".py", "U", PY_SOURCE},

#ifdef MS_WINDOWS

{".pyw", "U", PY_SOURCE},

#endif

{".pyc", "rb", PY_COMPILED},

{0, 0}

};

#endif

/* Initialize things */

void

_PyImport_Init(void)

{

const struct filedescr *scan;

struct filedescr *filetab;

int countD = 0;

int countS = 0;

/* prepare _PyImport_Filetab: copy entries from

_PyImport_DynLoadFiletab and _PyImport_StandardFiletab.

*/

for (scan = _PyImport_DynLoadFiletab; scan->suffix != NULL; ++scan)

++countD;

for (scan = _PyImport_StandardFiletab; scan->suffix != NULL; ++scan)

++countS;

filetab = PyMem_NEW(struct filedescr, countD + countS + 1);

memcpy(filetab, _PyImport_DynLoadFiletab,

countD * sizeof(struct filedescr));

memcpy(filetab + countD, _PyImport_StandardFiletab,

countS * sizeof(struct filedescr));

filetab[countD + countS].suffix = NULL;

_PyImport_Filetab = filetab;

if (Py_OptimizeFlag) {

/* Replace ".pyc" with ".pyo" in _PyImport_Filetab */

for (; filetab->suffix != NULL; filetab++) {

#ifndef RISCOS

if (strcmp(filetab->suffix, ".pyc") == 0)

filetab->suffix = ".pyo";

#else

if (strcmp(filetab->suffix, "/pyc") == 0)

filetab->suffix = "/pyo";

#endif

}

}

if (Py_UnicodeFlag) {

/* Fix the pyc_magic so that byte compiled code created

using the all-Unicode method doesn't interfere with

code created in normal operation mode. */

pyc_magic = MAGIC + 1;

}

}

void

_PyImport_Fini(void)

{

Py_XDECREF(extensions);

extensions = NULL;

PyMem_DEL(_PyImport_Filetab);

_PyImport_Filetab = NULL;

}

/* Locking primitives to prevent parallel imports of the same module

in different threads to return with a partially loaded module.

These calls are serialized by the global interpreter lock. */

#ifdef WITH_THREAD

#include "pythread.h"

static PyThread_type_lock import_lock = 0;

static long import_lock_thread = -1;

static int import_lock_level = 0;

static void

lock_import(void)

{

long me = PyThread_get_thread_ident();

if (me == -1)

return; /* Too bad */

if (import_lock == NULL)

import_lock = PyThread_allocate_lock();

if (import_lock_thread == me) {

import_lock_level++;

return;

}

if (import_lock_thread != -1 || !PyThread_acquire_lock(import_lock, 0)) {

PyThreadState *tstate = PyEval_SaveThread();

PyThread_acquire_lock(import_lock, 1);

PyEval_RestoreThread(tstate);

}

import_lock_thread = me;

import_lock_level = 1;

}

static void

unlock_import(void)

{

long me = PyThread_get_thread_ident();

if (me == -1)

return; /* Too bad */

if (import_lock_thread != me)

Py_FatalError("unlock_import: not holding the import lock");

import_lock_level--;

if (import_lock_level == 0) {

import_lock_thread = -1;

PyThread_release_lock(import_lock);

}

}

#else

#define lock_import()

#define unlock_import()

#endif

static PyObject *

imp_lock_held(PyObject *self, PyObject *args)

{

if (!PyArg_ParseTuple(args, ":lock_held"))

return NULL;

#ifdef WITH_THREAD

return PyBool_FromLong(import_lock_thread != -1);

#else

return PyBool_FromLong(0);

#endif

}

/* Helper for sys */

PyObject *

PyImport_GetModuleDict(void)

{

PyInterpreterState *interp = PyThreadState_Get()->interp;

if (interp->modules == NULL)

Py_FatalError("PyImport_GetModuleDict: no module dictionary!");

return interp->modules;

}

/* List of names to clear in sys */

static char* sys_deletes[] = {

"path", "argv", "ps1", "ps2", "exitfunc",

"exc_type", "exc_value", "exc_traceback",

"last_type", "last_value", "last_traceback",

NULL

};

static char* sys_files[] = {

"stdin", "__stdin__",

"stdout", "__stdout__",

"stderr", "__stderr__",

NULL

};

/* Un-initialize things, as good as we can */

void

PyImport_Cleanup(void)

{

int pos, ndone;

char *name;

PyObject *key, *value, *dict;

PyInterpreterState *interp = PyThreadState_Get()->interp;

PyObject *modules = interp->modules;

if (modules == NULL)

return; /* Already done */

/* Delete some special variables first. These are common

places where user values hide and people complain when their

destructors fail. Since the modules containing them are

deleted *last* of all, they would come too late in the normal

destruction order. Sigh. */

value = PyDict_GetItemString(modules, "__builtin__");

if (value != NULL && PyModule_Check(value)) {

dict = PyModule_GetDict(value);

if (Py_VerboseFlag)

PySys_WriteStderr("# clear __builtin__._\n");

PyDict_SetItemString(dict, "_", Py_None);

}

value = PyDict_GetItemString(modules, "sys");

if (value != NULL && PyModule_Check(value)) {

char **p;

PyObject *v;

dict = PyModule_GetDict(value);

for (p = sys_deletes; *p != NULL; p++) {

if (Py_VerboseFlag)

PySys_WriteStderr("# clear sys.%s\n", *p);

PyDict_SetItemString(dict, *p, Py_None);

}

for (p = sys_files; *p != NULL; p+=2) {

if (Py_VerboseFlag)

PySys_WriteStderr("# restore sys.%s\n", *p);

v = PyDict_GetItemString(dict, *(p+1));

if (v == NULL)

v = Py_None;

PyDict_SetItemString(dict, *p, v);

}

}

/* First, delete __main__ */

value = PyDict_GetItemString(modules, "__main__");

if (value != NULL && PyModule_Check(value)) {

if (Py_VerboseFlag)

PySys_WriteStderr("# cleanup __main__\n");

_PyModule_Clear(value);

PyDict_SetItemString(modules, "__main__", Py_None);

}

/* The special treatment of __builtin__ here is because even

when it's not referenced as a module, its dictionary is

referenced by almost every module's __builtins__. Since

deleting a module clears its dictionary (even if there are

references left to it), we need to delete the __builtin__

module last. Likewise, we don't delete sys until the very

end because it is implicitly referenced (e.g. by print).

Also note that we 'delete' modules by replacing their entry

in the modules dict with None, rather than really deleting

them; this avoids a rehash of the modules dictionary and

also marks them as "non existent" so they won't be

re-imported. */

/* Next, repeatedly delete modules with a reference count of

one (skipping __builtin__ and sys) and delete them */

do {

ndone = 0;

pos = 0;

while (PyDict_Next(modules, &pos, &key, &value)) {

if (value->ob_refcnt != 1)

continue;

if (PyString_Check(key) && PyModule_Check(value)) {

name = PyString_AS_STRING(key);

if (strcmp(name, "__builtin__") == 0)

continue;

if (strcmp(name, "sys") == 0)

continue;

if (Py_VerboseFlag)

PySys_WriteStderr(

"# cleanup[1] %s\n", name);

_PyModule_Clear(value);

PyDict_SetItem(modules, key, Py_None);

ndone++;

}

}

} while (ndone > 0);

/* Next, delete all modules (still skipping __builtin__ and sys) */

pos = 0;

while (PyDict_Next(modules, &pos, &key, &value)) {

if (PyString_Check(key) && PyModule_Check(value)) {

name = PyString_AS_STRING(key);

if (strcmp(name, "__builtin__") == 0)

continue;

if (strcmp(name, "sys") == 0)

continue;

if (Py_VerboseFlag)

PySys_WriteStderr("# cleanup[2] %s\n", name);

_PyModule_Clear(value);

PyDict_SetItem(modules, key, Py_None);

}

}

/* Next, delete sys and __builtin__ (in that order) */

value = PyDict_GetItemString(modules, "sys");

if (value != NULL && PyModule_Check(value)) {

if (Py_VerboseFlag)

PySys_WriteStderr("# cleanup sys\n");

_PyModule_Clear(value);

PyDict_SetItemString(modules, "sys", Py_None);

}

value = PyDict_GetItemString(modules, "__builtin__");

if (value != NULL && PyModule_Check(value)) {

if (Py_VerboseFlag)

PySys_WriteStderr("# cleanup __builtin__\n");

_PyModule_Clear(value);

PyDict_SetItemString(modules, "__builtin__", Py_None);

}

/* Finally, clear and delete the modules directory */

PyDict_Clear(modules);

interp->modules = NULL;

Py_DECREF(modules);

}

/* Helper for pythonrun.c -- return magic number */

long

PyImport_GetMagicNumber(void)

{

return pyc_magic;

}

/* Magic for extension modules (built-in as well as dynamically

loaded). To prevent initializing an extension module more than

once, we keep a static dictionary 'extensions' keyed by module name

(for built-in modules) or by filename (for dynamically loaded

modules), containing these modules. A copy of the module's

dictionary is stored by calling _PyImport_FixupExtension()

immediately after the module initialization function succeeds. A

copy can be retrieved from there by calling

_PyImport_FindExtension(). */

PyObject *

_PyImport_FixupExtension(char *name, char *filename)

{

PyObject *modules, *mod, *dict, *copy;

if (extensions == NULL) {

extensions = PyDict_New();

if (extensions == NULL)

return NULL;

}

modules = PyImport_GetModuleDict();

mod = PyDict_GetItemString(modules, name);

if (mod == NULL || !PyModule_Check(mod)) {

PyErr_Format(PyExc_SystemError,

"_PyImport_FixupExtension: module %.200s not loaded", name);

return NULL;

}

dict = PyModule_GetDict(mod);

if (dict == NULL)

return NULL;

copy = PyDict_Copy(dict);

if (copy == NULL)

return NULL;

PyDict_SetItemString(extensions, filename, copy);

Py_DECREF(copy);

return copy;

}

PyObject *

_PyImport_FindExtension(char *name, char *filename)

{

PyObject *dict, *mod, *mdict;

if (extensions == NULL)

return NULL;

dict = PyDict_GetItemString(extensions, filename);

if (dict == NULL)

return NULL;

mod = PyImport_AddModule(name);

if (mod == NULL)

return NULL;

mdict = PyModule_GetDict(mod);

if (mdict == NULL)

return NULL;

if (PyDict_Update(mdict, dict))

return NULL;

if (Py_VerboseFlag)

PySys_WriteStderr("import %s # previously loaded (%s)\n",

name, filename);

return mod;

}

/* Get the module object corresponding to a module name.

First check the modules dictionary if there's one there,

if not, create a new one and insert in in the modules dictionary.

Because the former action is most common, THIS DOES NOT RETURN A

'NEW' REFERENCE! */

PyObject *

PyImport_AddModule(char *name)

{

PyObject *modules = PyImport_GetModuleDict();

PyObject *m;

if ((m = PyDict_GetItemString(modules, name)) != NULL &&

PyModule_Check(m))

return m;

m = PyModule_New(name);

if (m == NULL)

return NULL;

if (PyDict_SetItemString(modules, name, m) != 0) {

Py_DECREF(m);

return NULL;

}

Py_DECREF(m); /* Yes, it still exists, in modules! */

return m;

}

/* Execute a code object in a module and return the module object

WITH INCREMENTED REFERENCE COUNT */

PyObject *

PyImport_ExecCodeModule(char *name, PyObject *co)

{

return PyImport_ExecCodeModuleEx(name, co, (char *)NULL);

}

PyObject *

PyImport_ExecCodeModuleEx(char *name, PyObject *co, char *pathname)

{

PyObject *modules = PyImport_GetModuleDict();

PyObject *m, *d, *v;

m = PyImport_AddModule(name);

if (m == NULL)

return NULL;

d = PyModule_GetDict(m);

if (PyDict_GetItemString(d, "__builtins__") == NULL) {

if (PyDict_SetItemString(d, "__builtins__",

PyEval_GetBuiltins()) != 0)

return NULL;

}

/* Remember the filename as the __file__ attribute */

v = NULL;

if (pathname != NULL) {

v = PyString_FromString(pathname);

if (v == NULL)

PyErr_Clear();

}

if (v == NULL) {

v = ((PyCodeObject *)co)->co_filename;

Py_INCREF(v);

}

if (PyDict_SetItemString(d, "__file__", v) != 0)

PyErr_Clear(); /* Not important enough to report */

Py_DECREF(v);

v = PyEval_EvalCode((PyCodeObject *)co, d, d);

if (v == NULL)

return NULL;

Py_DECREF(v);

if ((m = PyDict_GetItemString(modules, name)) == NULL) {

PyErr_Format(PyExc_ImportError,

"Loaded module %.200s not found in sys.modules",

name);

return NULL;

}

Py_INCREF(m);

return m;

}

/* Given a pathname for a Python source file, fill a buffer with the

pathname for the corresponding compiled file. Return the pathname

for the compiled file, or NULL if there's no space in the buffer.

Doesn't set an exception. */

static char *

make_compiled_pathname(char *pathname, char *buf, size_t buflen)

{

size_t len = strlen(pathname);

if (len+2 > buflen)

return NULL;

#ifdef MS_WINDOWS

/* Treat .pyw as if it were .py. The case of ".pyw" must match

that used in _PyImport_StandardFiletab. */

if (len >= 4 && strcmp(&pathname[len-4], ".pyw") == 0)

--len; /* pretend 'w' isn't there */

#endif

memcpy(buf, pathname, len);

buf[len] = Py_OptimizeFlag ? 'o' : 'c';

buf[len+1] = '\0';

return buf;

}

/* Given a pathname for a Python source file, its time of last

modification, and a pathname for a compiled file, check whether the

compiled file represents the same version of the source. If so,

return a FILE pointer for the compiled file, positioned just after

the header; if not, return NULL.

Doesn't set an exception. */

static FILE *

check_compiled_module(char *pathname, long mtime, char *cpathname)

{

FILE *fp;

long magic;

long pyc_mtime;

fp = fopen(cpathname, "rb");

if (fp == NULL)

return NULL;

magic = PyMarshal_ReadLongFromFile(fp);

if (magic != pyc_magic) {

if (Py_VerboseFlag)

PySys_WriteStderr("# %s has bad magic\n", cpathname);

fclose(fp);

return NULL;

}

pyc_mtime = PyMarshal_ReadLongFromFile(fp);

if (pyc_mtime != mtime) {

if (Py_VerboseFlag)

PySys_WriteStderr("# %s has bad mtime\n", cpathname);

fclose(fp);

return NULL;

}

if (Py_VerboseFlag)

PySys_WriteStderr("# %s matches %s\n", cpathname, pathname);

return fp;

}

/* Read a code object from a file and check it for validity */

static PyCodeObject *

read_compiled_module(char *cpathname, FILE *fp)

{

PyObject *co;

co = PyMarshal_ReadLastObjectFromFile(fp);

/* Ugly: rd_object() may return NULL with or without error */

if (co == NULL || !PyCode_Check(co)) {

if (!PyErr_Occurred())

PyErr_Format(PyExc_ImportError,

"Non-code object in %.200s", cpathname);

Py_XDECREF(co);

return NULL;

}

return (PyCodeObject *)co;

}

/* Load a module from a compiled file, execute it, and return its

module object WITH INCREMENTED REFERENCE COUNT */

static PyObject *

load_compiled_module(char *name, char *cpathname, FILE *fp)

{

long magic;

PyCodeObject *co;

PyObject *m;

magic = PyMarshal_ReadLongFromFile(fp);

if (magic != pyc_magic) {

PyErr_Format(PyExc_ImportError,

"Bad magic number in %.200s", cpathname);

return NULL;

}

(void) PyMarshal_ReadLongFromFile(fp);

co = read_compiled_module(cpathname, fp);

if (co == NULL)

return NULL;

if (Py_VerboseFlag)

PySys_WriteStderr("import %s # precompiled from %s\n",

name, cpathname);

m = PyImport_ExecCodeModuleEx(name, (PyObject *)co, cpathname);

Py_DECREF(co);

return m;

}

/* Parse a source file and return the corresponding code object */

static PyCodeObject *

parse_source_module(char *pathname, FILE *fp)

{

PyCodeObject *co;

node *n;

n = PyParser_SimpleParseFile(fp, pathname, Py_file_input);

if (n == NULL)

return NULL;

co = PyNode_Compile(n, pathname);

PyNode_Free(n);

return co;

}

/* Helper to open a bytecode file for writing in exclusive mode */

static FILE *

open_exclusive(char *filename)

{

#if defined(O_EXCL)&&defined(O_CREAT)&&defined(O_WRONLY)&&defined(O_TRUNC)

/* Use O_EXCL to avoid a race condition when another process tries to

write the same file. When that happens, our open() call fails,

which is just fine (since it's only a cache).

XXX If the file exists and is writable but the directory is not

writable, the file will never be written. Oh well.

*/

int fd;

(void) unlink(filename);

fd = open(filename, O_EXCL|O_CREAT|O_WRONLY|O_TRUNC

#ifdef O_BINARY

|O_BINARY /* necessary for Windows */

#endif

, 0666);

if (fd < 0)

return NULL;

return fdopen(fd, "wb");

#else

/* Best we can do -- on Windows this can't happen anyway */

return fopen(filename, "wb");

#endif

}

/* Write a compiled module to a file, placing the time of last

modification of its source into the header.

Errors are ignored, if a write error occurs an attempt is made to

remove the file. */

static void

write_compiled_module(PyCodeObject *co, char *cpathname, long mtime)

{

FILE *fp;

fp = open_exclusive(cpathname);

if (fp == NULL) {

if (Py_VerboseFlag)

PySys_WriteStderr(

"# can't create %s\n", cpathname);

return;

}

PyMarshal_WriteLongToFile(pyc_magic, fp);

/* First write a 0 for mtime */

PyMarshal_WriteLongToFile(0L, fp);

PyMarshal_WriteObjectToFile((PyObject *)co, fp);

if (ferror(fp)) {

if (Py_VerboseFlag)

PySys_WriteStderr("# can't write %s\n", cpathname);

/* Don't keep partial file */

fclose(fp);

(void) unlink(cpathname);

return;

}

/* Now write the true mtime */

fseek(fp, 4L, 0);

PyMarshal_WriteLongToFile(mtime, fp);

fflush(fp);

fclose(fp);

if (Py_VerboseFlag)

PySys_WriteStderr("# wrote %s\n", cpathname);

#ifdef macintosh

PyMac_setfiletype(cpathname, 'Pyth', 'PYC ');

#endif

}

/* Load a source module from a given file and return its module

object WITH INCREMENTED REFERENCE COUNT. If there's a matching

byte-compiled file, use that instead. */

static PyObject *

load_source_module(char *name, char *pathname, FILE *fp)

{

time_t mtime;

FILE *fpc;

char buf[MAXPATHLEN+1];

char *cpathname;

PyCodeObject *co;

PyObject *m;

mtime = PyOS_GetLastModificationTime(pathname, fp);

if (mtime == (time_t)(-1))

return NULL;

#if SIZEOF_TIME_T > 4

/* Python's .pyc timestamp handling presumes that the timestamp fits

in 4 bytes. This will be fine until sometime in the year 2038,

when a 4-byte signed time_t will overflow.

*/

if (mtime >> 32) {

PyErr_SetString(PyExc_OverflowError,

"modification time overflows a 4 byte field");

return NULL;

}

#endif

cpathname = make_compiled_pathname(pathname, buf,

(size_t)MAXPATHLEN + 1);

if (cpathname != NULL &&

(fpc = check_compiled_module(pathname, mtime, cpathname))) {

co = read_compiled_module(cpathname, fpc);

fclose(fpc);

if (co == NULL)

return NULL;

if (Py_VerboseFlag)

PySys_WriteStderr("import %s # precompiled from %s\n",

name, cpathname);

pathname = cpathname;

}

else {

co = parse_source_module(pathname, fp);

if (co == NULL)

return NULL;

if (Py_VerboseFlag)

PySys_WriteStderr("import %s # from %s\n",

name, pathname);

write_compiled_module(co, cpathname, mtime);

}

m = PyImport_ExecCodeModuleEx(name, (PyObject *)co, pathname);

Py_DECREF(co);

return m;

}

/* Forward */

static PyObject *load_module(char *, FILE *, char *, int);

static struct filedescr *find_module(char *, PyObject *,

char *, size_t, FILE **);

static struct _frozen *find_frozen(char *name);

/* Load a package and return its module object WITH INCREMENTED

REFERENCE COUNT */

static PyObject *

load_package(char *name, char *pathname)

{

PyObject *m, *d, *file, *path;

int err;

char buf[MAXPATHLEN+1];

FILE *fp = NULL;

struct filedescr *fdp;

m = PyImport_AddModule(name);

if (m == NULL)

return NULL;

if (Py_VerboseFlag)

PySys_WriteStderr("import %s # directory %s\n",

name, pathname);

d = PyModule_GetDict(m);

file = PyString_FromString(pathname);

if (file == NULL)

return NULL;

path = Py_BuildValue("[O]", file);

if (path == NULL) {

Py_DECREF(file);

return NULL;

}

err = PyDict_SetItemString(d, "__file__", file);

if (err == 0)

err = PyDict_SetItemString(d, "__path__", path);

if (err != 0) {

m = NULL;

goto cleanup;

}

buf[0] = '\0';

fdp = find_module("__init__", path, buf, sizeof(buf), &fp);

if (fdp == NULL) {

if (PyErr_ExceptionMatches(PyExc_ImportError)) {

PyErr_Clear();

}

else

m = NULL;

goto cleanup;

}

m = load_module(name, fp, buf, fdp->type);

if (fp != NULL)

fclose(fp);

cleanup:

Py_XDECREF(path);

Py_XDECREF(file);

return m;

}

/* Helper to test for built-in module */

static int

is_builtin(char *name)

{

int i;

for (i = 0; PyImport_Inittab[i].name != NULL; i++) {

if (strcmp(name, PyImport_Inittab[i].name) == 0) {

if (PyImport_Inittab[i].initfunc == NULL)

return -1;

else

return 1;

}

}

return 0;

}

/* Search the path (default sys.path) for a module. Return the

corresponding filedescr struct, and (via return arguments) the

pathname and an open file. Return NULL if the module is not found. */

#ifdef MS_COREDLL

extern FILE *PyWin_FindRegisteredModule(const char *, struct filedescr **,

char *, int);

#endif

static int case_ok(char *, int, int, char *);

static int find_init_module(char *); /* Forward */

static struct filedescr *

find_module(char *realname, PyObject *path, char *buf, size_t buflen,

FILE **p_fp)

{

int i, npath;

size_t len, namelen;

struct filedescr *fdp = NULL;

char *filemode;

FILE *fp = NULL;

#ifndef RISCOS

struct stat statbuf;

#endif

static struct filedescr fd_frozen = {"", "", PY_FROZEN};

static struct filedescr fd_builtin = {"", "", C_BUILTIN};

static struct filedescr fd_package = {"", "", PKG_DIRECTORY};

char name[MAXPATHLEN+1];

#if defined(PYOS_OS2)

size_t saved_len;

size_t saved_namelen;

char *saved_buf = NULL;

#endif

if (strlen(realname) > MAXPATHLEN) {

PyErr_SetString(PyExc_OverflowError,

"module name is too long");

return NULL;

}

strcpy(name, realname);

if (path != NULL && PyString_Check(path)) {

/* The only type of submodule allowed inside a "frozen"

package are other frozen modules or packages. */

if (PyString_Size(path) + 1 + strlen(name) >= (size_t)buflen) {

PyErr_SetString(PyExc_ImportError,

"full frozen module name too long");

return NULL;

}

strcpy(buf, PyString_AsString(path));

strcat(buf, ".");

strcat(buf, name);

strcpy(name, buf);

#ifdef macintosh

/* Freezing on the mac works different, and the modules are

** actually on sys.path. So we don't take the quick exit but

** continue with the normal flow.

*/

path = NULL;

#else

if (find_frozen(name) != NULL) {

strcpy(buf, name);

return &fd_frozen;

}

PyErr_Format(PyExc_ImportError,

"No frozen submodule named %.200s", name);

return NULL;

#endif

}

if (path == NULL) {

if (is_builtin(name)) {

strcpy(buf, name);

return &fd_builtin;

}

if ((find_frozen(name)) != NULL) {

strcpy(buf, name);

return &fd_frozen;

}

#ifdef MS_COREDLL

fp = PyWin_FindRegisteredModule(name, &fdp, buf, buflen);

if (fp != NULL) {

*p_fp = fp;

return fdp;

}

#endif

path = PySys_GetObject("path");

}

if (path == NULL || !PyList_Check(path)) {

PyErr_SetString(PyExc_ImportError,

"sys.path must be a list of directory names");

return NULL;

}

npath = PyList_Size(path);

namelen = strlen(name);

for (i = 0; i < npath; i++) {

PyObject *copy = NULL;

PyObject *v = PyList_GetItem(path, i);

#ifdef Py_USING_UNICODE

if (PyUnicode_Check(v)) {

copy = PyUnicode_Encode(PyUnicode_AS_UNICODE(v),

PyUnicode_GET_SIZE(v), Py_FileSystemDefaultEncoding, NULL);

if (copy == NULL)

return NULL;

v = copy;

}

else

#endif

if (!PyString_Check(v))

continue;

len = PyString_Size(v);

if (len + 2 + namelen + MAXSUFFIXSIZE >= buflen) {

Py_XDECREF(copy);

continue; /* Too long */

}

strcpy(buf, PyString_AsString(v));