/* Module definition and import implementation */

#include "Python.h"

#include "Python-ast.h"

#undef Yield /* undefine macro conflicting with winbase.h */

#include "errcode.h"

#include "marshal.h"

#include "code.h"

#include "osdefs.h"

#include "importdl.h"

#ifdef HAVE_FCNTL_H

#include <fcntl.h>

#endif

#ifdef __cplusplus

extern "C" {

#endif

#ifdef MS_WINDOWS

/* for stat.st_mode */

typedef unsigned short mode_t;

/* for _mkdir */

#include <direct.h>

#endif

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

It should change for each incompatible change to the bytecode.

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.

The magic numbers must be spaced apart at least 2 values, as the

-U interpeter flag will cause MAGIC+1 being used. They have been

odd numbers for some time now.

There were a variety of old schemes for setting the magic number.

The current working scheme is to increment the previous value by

10.

Starting with the adoption of PEP 3147 in Python 3.2, every bump in magic

number also includes a new "magic tag", i.e. a human readable string used

to represent the magic number in __pycache__ directories. When you change

the magic number, you must also set a new unique magic tag. Generally this

can be named after the Python major version of the magic number bump, but

it can really be anything, as long as it's different than anything else

that's come before. The tags are included in the following table, starting

with Python 3.2a0.

Known values:

Python 1.5: 20121

Python 1.5.1: 20121

Python 1.5.2: 20121

Python 1.6: 50428

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 (!)

Python 2.4a0: 62041

Python 2.4a3: 62051

Python 2.4b1: 62061

Python 2.5a0: 62071

Python 2.5a0: 62081 (ast-branch)

Python 2.5a0: 62091 (with)

Python 2.5a0: 62092 (changed WITH_CLEANUP opcode)

Python 2.5b3: 62101 (fix wrong code: for x, in ...)

Python 2.5b3: 62111 (fix wrong code: x += yield)

Python 2.5c1: 62121 (fix wrong lnotab with for loops and

storing constants that should have been removed)

Python 2.5c2: 62131 (fix wrong code: for x, in ... in listcomp/genexp)

Python 2.6a0: 62151 (peephole optimizations and STORE_MAP opcode)

Python 2.6a1: 62161 (WITH_CLEANUP optimization)

Python 3000: 3000

3010 (removed UNARY_CONVERT)

3020 (added BUILD_SET)

3030 (added keyword-only parameters)

3040 (added signature annotations)

3050 (print becomes a function)

3060 (PEP 3115 metaclass syntax)

3061 (string literals become unicode)

3071 (PEP 3109 raise changes)

3081 (PEP 3137 make __file__ and __name__ unicode)

3091 (kill str8 interning)

3101 (merge from 2.6a0, see 62151)

3103 (__file__ points to source file)

Python 3.0a4: 3111 (WITH_CLEANUP optimization).

Python 3.0a5: 3131 (lexical exception stacking, including POP_EXCEPT)

Python 3.1a0: 3141 (optimize list, set and dict comprehensions:

change LIST_APPEND and SET_ADD, add MAP_ADD)

Python 3.1a0: 3151 (optimize conditional branches:

introduce POP_JUMP_IF_FALSE and POP_JUMP_IF_TRUE)

Python 3.2a0: 3160 (add SETUP_WITH)

tag: cpython-32

Python 3.2a1: 3170 (add DUP_TOP_TWO, remove DUP_TOPX and ROT_FOUR)

tag: cpython-32

Python 3.2a2 3180 (add DELETE_DEREF)

Python 3.3a0 3190 __class__ super closure changed

Python 3.3a0 3200 (__qualname__ added)

3210 (added size modulo 2**32 to the pyc header)

Python 3.3a1 3220 (changed PEP 380 implementation)

Python 3.3a4 3230 (revert changes to implicit __class__ closure)

*/

/* MAGIC must change whenever the bytecode emitted by the compiler may no

longer be understood by older implementations of the eval loop (usually

due to the addition of new opcodes)

*/

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

#define CACHEDIR "__pycache__"

/* Current magic word and string tag as globals. */

static long pyc_magic = MAGIC;

/* See _PyImport_FixupExtensionObject() below */

static PyObject *extensions = NULL;

/* Function from Parser/tokenizer.c */

extern char * PyTokenizer_FindEncodingFilename(int, PyObject *);

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

extern struct _inittab _PyImport_Inittab[];

struct _inittab *PyImport_Inittab = _PyImport_Inittab;

static PyObject *initstr = NULL;

/* Initialize things */

void

_PyImport_Init(void)

{

initstr = PyUnicode_InternFromString("__init__");

if (initstr == NULL)

Py_FatalError("Can't initialize import variables");

}

void

_PyImportHooks_Init(void)

{

PyObject *v, *path_hooks = NULL;

int err = 0;

/* adding sys.path_hooks and sys.path_importer_cache */

v = PyList_New(0);

if (v == NULL)

goto error;

err = PySys_SetObject("meta_path", v);

Py_DECREF(v);

if (err)

goto error;

v = PyDict_New();

if (v == NULL)

goto error;

err = PySys_SetObject("path_importer_cache", v);

Py_DECREF(v);

if (err)

goto error;

path_hooks = PyList_New(0);

if (path_hooks == NULL)

goto error;

err = PySys_SetObject("path_hooks", path_hooks);

if (err) {

error:

PyErr_Print();

Py_FatalError("initializing sys.meta_path, sys.path_hooks, "

"or path_importer_cache failed");

}

Py_DECREF(path_hooks);

}

void

_PyImportZip_Init(void)

{

PyObject *path_hooks, *zimpimport;

int err = 0;

path_hooks = PySys_GetObject("path_hooks");

if (path_hooks == NULL)

goto error;

if (Py_VerboseFlag)

PySys_WriteStderr("# installing zipimport hook\n");

zimpimport = PyImport_ImportModule("zipimport");

if (zimpimport == NULL) {

PyErr_Clear(); /* No zip import module -- okay */

if (Py_VerboseFlag)

PySys_WriteStderr("# can't import zipimport\n");

}

else {

_Py_IDENTIFIER(zipimporter);

PyObject *zipimporter = _PyObject_GetAttrId(zimpimport,

&PyId_zipimporter);

Py_DECREF(zimpimport);

if (zipimporter == NULL) {

PyErr_Clear(); /* No zipimporter object -- okay */

if (Py_VerboseFlag)

PySys_WriteStderr(

"# can't import zipimport.zipimporter\n");

}

else {

/* sys.path_hooks.insert(0, zipimporter) */

err = PyList_Insert(path_hooks, 0, zipimporter);

Py_DECREF(zipimporter);

if (err < 0) {

goto error;

}

if (Py_VerboseFlag)

PySys_WriteStderr(

"# installed zipimport hook\n");

}

}

return;

error:

PyErr_Print();

Py_FatalError("initializing zipimport failed");

}

/* 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;

void

_PyImport_AcquireLock(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 == NULL)

return; /* Nothing much we can do. */

}

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;

}

int

_PyImport_ReleaseLock(void)

{

long me = PyThread_get_thread_ident();

if (me == -1 || import_lock == NULL)

return 0; /* Too bad */

if (import_lock_thread != me)

return -1;

import_lock_level--;

if (import_lock_level == 0) {

import_lock_thread = -1;

PyThread_release_lock(import_lock);

}

return 1;

}

/* This function is called from PyOS_AfterFork to ensure that newly

created child processes do not share locks with the parent.

We now acquire the import lock around fork() calls but on some platforms

(Solaris 9 and earlier? see isue7242) that still left us with problems. */

void

_PyImport_ReInitLock(void)

{

if (import_lock != NULL)

import_lock = PyThread_allocate_lock();

if (import_lock_level > 1) {

/* Forked as a side effect of import */

long me = PyThread_get_thread_ident();

PyThread_acquire_lock(import_lock, 0);

/* XXX: can the previous line fail? */

import_lock_thread = me;

import_lock_level--;

} else {

import_lock_thread = -1;

import_lock_level = 0;

}

}

#endif

static PyObject *

imp_lock_held(PyObject *self, PyObject *noargs)

{

#ifdef WITH_THREAD

return PyBool_FromLong(import_lock_thread != -1);

#else

return PyBool_FromLong(0);

#endif

}

static PyObject *

imp_acquire_lock(PyObject *self, PyObject *noargs)

{

#ifdef WITH_THREAD

_PyImport_AcquireLock();

#endif

Py_INCREF(Py_None);

return Py_None;

}

static PyObject *

imp_release_lock(PyObject *self, PyObject *noargs)

{

#ifdef WITH_THREAD

if (_PyImport_ReleaseLock() < 0) {

PyErr_SetString(PyExc_RuntimeError,

"not holding the import lock");

return NULL;

}

#endif

Py_INCREF(Py_None);

return Py_None;

}

void

_PyImport_Fini(void)

{

Py_XDECREF(extensions);

extensions = NULL;

#ifdef WITH_THREAD

if (import_lock != NULL) {

PyThread_free_lock(import_lock);

import_lock = NULL;

}

#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",

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

"path_hooks", "path_importer_cache", "meta_path",

/* misc stuff */

"flags", "float_info",

NULL

};

static char* sys_files[] = {

"stdin", "__stdin__",

"stdout", "__stdout__",

"stderr", "__stderr__",

NULL

};

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

void

PyImport_Cleanup(void)

{

Py_ssize_t pos, ndone;

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, "builtins");

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

dict = PyModule_GetDict(value);

if (Py_VerboseFlag)

PySys_WriteStderr("# clear builtins._\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 "builtins" 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 "builtins"

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 builtins and sys) and delete them */

do {

ndone = 0;

pos = 0;

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

if (value->ob_refcnt != 1)

continue;

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

if (PyUnicode_CompareWithASCIIString(key, "builtins") == 0)

continue;

if (PyUnicode_CompareWithASCIIString(key, "sys") == 0)

continue;

if (Py_VerboseFlag)

PySys_FormatStderr(

"# cleanup[1] %U\n", key);

_PyModule_Clear(value);

PyDict_SetItem(modules, key, Py_None);

ndone++;

}

}

} while (ndone > 0);

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

pos = 0;

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

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

if (PyUnicode_CompareWithASCIIString(key, "builtins") == 0)

continue;

if (PyUnicode_CompareWithASCIIString(key, "sys") == 0)

continue;

if (Py_VerboseFlag)

PySys_FormatStderr("# cleanup[2] %U\n", key);

_PyModule_Clear(value);

PyDict_SetItem(modules, key, Py_None);

}

}

/* Next, delete sys and builtins (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, "builtins");

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

if (Py_VerboseFlag)

PySys_WriteStderr("# cleanup builtins\n");

_PyModule_Clear(value);

PyDict_SetItemString(modules, "builtins", 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 and tag. */

long

PyImport_GetMagicNumber(void)

{

return pyc_magic;

}

const char *

PyImport_GetMagicTag(void)

{

PyObject *impl, *tag;

const char *raw_tag;

/* We could also pull it from imp or importlib. */

impl = PySys_GetObject("implementation");

if (impl == NULL)

return NULL;

tag = PyObject_GetAttrString(impl, "cache_tag");

if (tag == NULL)

return NULL;

raw_tag = PyUnicode_DATA(tag);

Py_DECREF(tag);

return raw_tag;

}

/* 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_FixupExtensionObject()

immediately after the module initialization function succeeds. A

copy can be retrieved from there by calling

_PyImport_FindExtensionObject().

Modules which do support multiple initialization set their m_size

field to a non-negative number (indicating the size of the

module-specific state). They are still recorded in the extensions

dictionary, to avoid loading shared libraries twice.

*/

int

_PyImport_FixupExtensionObject(PyObject *mod, PyObject *name,

PyObject *filename)

{

PyObject *modules, *dict;

struct PyModuleDef *def;

if (extensions == NULL) {

extensions = PyDict_New();

if (extensions == NULL)

return -1;

}

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

PyErr_BadInternalCall();

return -1;

}

def = PyModule_GetDef(mod);

if (!def) {

PyErr_BadInternalCall();

return -1;

}

modules = PyImport_GetModuleDict();

if (PyDict_SetItem(modules, name, mod) < 0)

return -1;

if (_PyState_AddModule(mod, def) < 0) {

PyDict_DelItem(modules, name);

return -1;

}

if (def->m_size == -1) {

if (def->m_base.m_copy) {

/* Somebody already imported the module,

likely under a different name.

XXX this should really not happen. */

Py_DECREF(def->m_base.m_copy);

def->m_base.m_copy = NULL;

}

dict = PyModule_GetDict(mod);

if (dict == NULL)

return -1;

def->m_base.m_copy = PyDict_Copy(dict);

if (def->m_base.m_copy == NULL)

return -1;

}

PyDict_SetItem(extensions, filename, (PyObject*)def);

return 0;

}

int

_PyImport_FixupBuiltin(PyObject *mod, char *name)

{

int res;

PyObject *nameobj;

nameobj = PyUnicode_InternFromString(name);

if (nameobj == NULL)

return -1;

res = _PyImport_FixupExtensionObject(mod, nameobj, nameobj);

Py_DECREF(nameobj);

return res;

}

PyObject *

_PyImport_FindExtensionObject(PyObject *name, PyObject *filename)

{

PyObject *mod, *mdict;

PyModuleDef* def;

if (extensions == NULL)

return NULL;

def = (PyModuleDef*)PyDict_GetItem(extensions, filename);

if (def == NULL)

return NULL;

if (def->m_size == -1) {

/* Module does not support repeated initialization */

if (def->m_base.m_copy == NULL)

return NULL;

mod = PyImport_AddModuleObject(name);

if (mod == NULL)

return NULL;

mdict = PyModule_GetDict(mod);

if (mdict == NULL)

return NULL;

if (PyDict_Update(mdict, def->m_base.m_copy))

return NULL;

}

else {

if (def->m_base.m_init == NULL)

return NULL;

mod = def->m_base.m_init();

if (mod == NULL)

return NULL;

PyDict_SetItem(PyImport_GetModuleDict(), name, mod);

Py_DECREF(mod);

}

if (_PyState_AddModule(mod, def) < 0) {

PyDict_DelItem(PyImport_GetModuleDict(), name);

Py_DECREF(mod);

return NULL;

}

if (Py_VerboseFlag)

PySys_FormatStderr("import %U # previously loaded (%R)\n",

name, filename);

return mod;

}

PyObject *

_PyImport_FindBuiltin(const char *name)

{

PyObject *res, *nameobj;

nameobj = PyUnicode_InternFromString(name);

if (nameobj == NULL)

return NULL;

res = _PyImport_FindExtensionObject(nameobj, nameobj);

Py_DECREF(nameobj);

return res;

}

/* 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 it in the modules dictionary.

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

'NEW' REFERENCE! */

PyObject *

PyImport_AddModuleObject(PyObject *name)

{

PyObject *modules = PyImport_GetModuleDict();

PyObject *m;

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

PyModule_Check(m))

return m;

m = PyModule_NewObject(name);

if (m == NULL)

return NULL;

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

Py_DECREF(m);

return NULL;

}

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

return m;

}

PyObject *

PyImport_AddModule(const char *name)

{

PyObject *nameobj, *module;

nameobj = PyUnicode_FromString(name);

if (nameobj == NULL)

return NULL;

module = PyImport_AddModuleObject(nameobj);

Py_DECREF(nameobj);

return module;

}

/* Remove name from sys.modules, if it's there. */

static void

remove_module(PyObject *name)

{

PyObject *modules = PyImport_GetModuleDict();

if (PyDict_GetItem(modules, name) == NULL)

return;

if (PyDict_DelItem(modules, name) < 0)

Py_FatalError("import: deleting existing key in"

"sys.modules failed");

}

static PyObject * get_sourcefile(PyObject *filename);

static PyObject *make_source_pathname(PyObject *pathname);

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

* WITH INCREMENTED REFERENCE COUNT. If an error occurs, name is

* removed from sys.modules, to avoid leaving damaged module objects

* in sys.modules. The caller may wish to restore the original

* module object (if any) in this case; PyImport_ReloadModule is an

* example.

*

* Note that PyImport_ExecCodeModuleWithPathnames() is the preferred, richer

* interface. The other two exist primarily for backward compatibility.

*/

PyObject *

PyImport_ExecCodeModule(char *name, PyObject *co)

{

return PyImport_ExecCodeModuleWithPathnames(

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

}

PyObject *

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

{

return PyImport_ExecCodeModuleWithPathnames(

name, co, pathname, (char *)NULL);

}

PyObject *

PyImport_ExecCodeModuleWithPathnames(char *name, PyObject *co, char *pathname,

char *cpathname)

{

PyObject *m = NULL;

PyObject *nameobj, *pathobj = NULL, *cpathobj = NULL;

nameobj = PyUnicode_FromString(name);

if (nameobj == NULL)

return NULL;

if (pathname != NULL) {

pathobj = PyUnicode_DecodeFSDefault(pathname);

if (pathobj == NULL)

goto error;

} else

pathobj = NULL;

if (cpathname != NULL) {

cpathobj = PyUnicode_DecodeFSDefault(cpathname);

if (cpathobj == NULL)

goto error;

} else

cpathobj = NULL;

m = PyImport_ExecCodeModuleObject(nameobj, co, pathobj, cpathobj);

error:

Py_DECREF(nameobj);

Py_XDECREF(pathobj);

Py_XDECREF(cpathobj);

return m;

}

PyObject*

PyImport_ExecCodeModuleObject(PyObject *name, PyObject *co, PyObject *pathname,

PyObject *cpathname)

{

PyObject *modules = PyImport_GetModuleDict();

PyObject *m, *d, *v;

m = PyImport_AddModuleObject(name);

if (m == NULL)

return NULL;

/* If the module is being reloaded, we get the old module back

and re-use its dict to exec the new code. */

d = PyModule_GetDict(m);

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

if (PyDict_SetItemString(d, "__builtins__",

PyEval_GetBuiltins()) != 0)

goto error;

}

/* Remember the filename as the __file__ attribute */

if (pathname != NULL) {

v = get_sourcefile(pathname);

if (v == NULL)

PyErr_Clear();

}

else

v = NULL;

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);

/* Remember the pyc path name as the __cached__ attribute. */

if (cpathname != NULL)

v = cpathname;

else

v = Py_None;

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

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

v = PyEval_EvalCode(co, d, d);

if (v == NULL)

goto error;

Py_DECREF(v);

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

PyErr_Format(PyExc_ImportError,

"Loaded module %R not found in sys.modules",

name);

return NULL;

}

Py_INCREF(m);

return m;

error:

remove_module(name);

return NULL;

}

/* Like rightmost_sep, but operate on unicode objects. */

static Py_ssize_t

rightmost_sep_obj(PyObject* o, Py_ssize_t start, Py_ssize_t end)

{

Py_ssize_t found, i;

Py_UCS4 c;

for (found = -1, i = start; i < end; i++) {

c = PyUnicode_READ_CHAR(o, i);

if (c == SEP

#ifdef ALTSEP

|| c == ALTSEP

#endif

)

{

found = i;

}

}

return found;

}

/* Given a pathname to a Python byte compiled file, return the path to the

source file, if the path matches the PEP 3147 format. This does not check

for any file existence, however, if the pyc file name does not match PEP

3147 style, NULL is returned. buf must be at least as big as pathname;

the resulting path will always be shorter.

(...)/__pycache__/foo.<tag>.pyc -> (...)/foo.py */

static PyObject*

make_source_pathname(PyObject *path)

{

Py_ssize_t left, right, dot0, dot1, len;

Py_ssize_t i, j;

PyObject *result;

int kind;

void *data;

len = PyUnicode_GET_LENGTH(path);

if (len > MAXPATHLEN)

return NULL;

/* Look back two slashes from the end. In between these two slashes

must be the string __pycache__ or this is not a PEP 3147 style

path. It's possible for there to be only one slash.

*/

right = rightmost_sep_obj(path, 0, len);

if (right == -1)

return NULL;

left = rightmost_sep_obj(path, 0, right);

if (left == -1)

left = 0;

else

left++;

if (right-left != sizeof(CACHEDIR)-1)

return NULL;

for (i = 0; i < sizeof(CACHEDIR)-1; i++)

if (PyUnicode_READ_CHAR(path, left+i) != CACHEDIR[i])

return NULL;

/* Now verify that the path component to the right of the last slash

has two dots in it.

*/

dot0 = PyUnicode_FindChar(path, '.', right+1, len, 1);

if (dot0 < 0)

return NULL;

dot1 = PyUnicode_FindChar(path, '.', dot0+1, len, 1);

if (dot1 < 0)

return NULL;

/* Too many dots? */

if (PyUnicode_FindChar(path, '.', dot1+1, len, 1) != -1)

return NULL;

/* This is a PEP 3147 path. Start by copying everything from the

start of pathname up to and including the leftmost slash. Then

copy the file's basename, removing the magic tag and adding a .py

suffix.

*/

result = PyUnicode_New(left + (dot0-right) + 2,

PyUnicode_MAX_CHAR_VALUE(path));

if (!result)

return NULL;

kind = PyUnicode_KIND(result);

data = PyUnicode_DATA(result);

PyUnicode_CopyCharacters(result, 0, path, 0, (i = left));

PyUnicode_CopyCharacters(result, left, path, right+1,

(j = dot0-right));

PyUnicode_WRITE(kind, data, i+j, 'p');

PyUnicode_WRITE(kind, data, i+j+1, 'y');

assert(_PyUnicode_CheckConsistency(result, 1));

return result;

}

static void

update_code_filenames(PyCodeObject *co, PyObject *oldname, PyObject *newname)

{

PyObject *constants, *tmp;

Py_ssize_t i, n;

if (PyUnicode_Compare(co->co_filename, oldname))

return;

tmp = co->co_filename;

co->co_filename = newname;

Py_INCREF(co->co_filename);

Py_DECREF(tmp);

constants = co->co_consts;

n = PyTuple_GET_SIZE(constants);

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

tmp = PyTuple_GET_ITEM(constants, i);

if (PyCode_Check(tmp))

update_code_filenames((PyCodeObject *)tmp,

oldname, newname);

}

}

static void

update_compiled_module(PyCodeObject *co, PyObject *newname)

{

PyObject *oldname;

if (PyUnicode_Compare(co->co_filename, newname) == 0)

return;

oldname = co->co_filename;

Py_INCREF(oldname);

update_code_filenames(co, oldname, newname);

Py_DECREF(oldname);

}

static PyObject *

imp_fix_co_filename(PyObject *self, PyObject *args)

{

PyObject *co;

PyObject *file_path;

if (!PyArg_ParseTuple(args, "OO:_fix_co_filename", &co, &file_path))

return NULL;

if (!PyCode_Check(co)) {

PyErr_SetString(PyExc_TypeError,

"first argument must be a code object");

return NULL;

}

if (!PyUnicode_Check(file_path)) {

PyErr_SetString(PyExc_TypeError,

"second argument must be a string");

return NULL;

}

update_compiled_module((PyCodeObject*)co, file_path);