#include "Python.h"

#include "compile.h"

#include "frameobject.h"

#include "eval.h"

#include "opcode.h"

#include "structmember.h"

#ifdef macintosh

#include "macglue.h"

#include <ctype.h>

#ifdef Py_DEBUG

#define LLTRACE 1 /* Low-level trace feature */

#define CHECKEXC 1 /* Double-check exception checking */

typedef PyObject *(*callproc)(PyObject *, PyObject *, PyObject *);

static PyObject *eval_frame(PyFrameObject *);

static PyObject *call_function(PyObject ***, int);

static PyObject *fast_function(PyObject *, PyObject ***, int, int, int);

static PyObject *do_call(PyObject *, PyObject ***, int, int);

static PyObject *ext_do_call(PyObject *, PyObject ***, int, int, int);

static PyObject *update_keyword_args(PyObject *, int, PyObject ***,PyObject *);

static PyObject *update_star_args(int, int, PyObject *, PyObject ***);

static PyObject *load_args(PyObject ***, int);

#define CALL_FLAG_VAR 1

#define CALL_FLAG_KW 2

#ifdef LLTRACE

static int prtrace(PyObject *, char *);

static int call_trace(Py_tracefunc, PyObject *, PyFrameObject *,

int, PyObject *);

static void call_trace_protected(Py_tracefunc, PyObject *,

PyFrameObject *, int);

static void call_exc_trace(Py_tracefunc, PyObject *, PyFrameObject *);

static int maybe_call_line_trace(Py_tracefunc, PyObject *,

PyFrameObject *, int *, int *);

static PyObject *apply_slice(PyObject *, PyObject *, PyObject *);

static int assign_slice(PyObject *, PyObject *,

PyObject *, PyObject *);

static PyObject *cmp_outcome(int, PyObject *, PyObject *);

static PyObject *import_from(PyObject *, PyObject *);

static int import_all_from(PyObject *, PyObject *);

static PyObject *build_class(PyObject *, PyObject *, PyObject *);

static int exec_statement(PyFrameObject *,

PyObject *, PyObject *, PyObject *);

static void set_exc_info(PyThreadState *, PyObject *, PyObject *, PyObject *);

static void reset_exc_info(PyThreadState *);

static void format_exc_check_arg(PyObject *, char *, PyObject *);

#define NAME_ERROR_MSG \

"name '%.200s' is not defined"

#define GLOBAL_NAME_ERROR_MSG \

"global name '%.200s' is not defined"

#define UNBOUNDLOCAL_ERROR_MSG \

"local variable '%.200s' referenced before assignment"

#define UNBOUNDFREE_ERROR_MSG \

"free variable '%.200s' referenced before assignment" \

" in enclosing scope"

#ifdef DYNAMIC_EXECUTION_PROFILE

#ifdef DXPAIRS

static long dxpairs[257][256];

#define dxp dxpairs[256]

static long dxp[256];

#ifdef CALL_PROFILE

#define PCALL_NUM 11

static int pcall[PCALL_NUM];

#define PCALL_ALL 0

#define PCALL_FUNCTION 1

#define PCALL_FAST_FUNCTION 2

#define PCALL_FASTER_FUNCTION 3

#define PCALL_METHOD 4

#define PCALL_BOUND_METHOD 5

#define PCALL_CFUNCTION 6

#define PCALL_TYPE 7

#define PCALL_GENERATOR 8

#define PCALL_OTHER 9

#define PCALL_POP 10

#define PCALL(POS) pcall[POS]++

PyObject *

PyEval_GetCallStats(PyObject *self)

{

return Py_BuildValue("iiiiiiiiii",

pcall[0], pcall[1], pcall[2], pcall[3],

pcall[4], pcall[5], pcall[6], pcall[7],

pcall[8], pcall[9]);

}

#define PCALL(O)

PyObject *

PyEval_GetCallStats(PyObject *self)

{

Py_INCREF(Py_None);

return Py_None;

}

static PyTypeObject gentype;

typedef struct {

PyObject_HEAD

/* The gi_ prefix is intended to remind of generator-iterator. */

PyFrameObject *gi_frame;

/* True if generator is being executed. */

int gi_running;

/* List of weak reference. */

PyObject *gi_weakreflist;

} genobject;

static PyObject *

gen_new(PyFrameObject *f)

{

genobject *gen = PyObject_GC_New(genobject, &gentype);

if (gen == NULL) {

Py_DECREF(f);

return NULL;

}

gen->gi_frame = f;

gen->gi_running = 0;

gen->gi_weakreflist = NULL;

_PyObject_GC_TRACK(gen);

return (PyObject *)gen;

}

static int

gen_traverse(genobject *gen, visitproc visit, void *arg)

{

return visit((PyObject *)gen->gi_frame, arg);

}

static void

gen_dealloc(genobject *gen)

{

_PyObject_GC_UNTRACK(gen);

if (gen->gi_weakreflist != NULL)

PyObject_ClearWeakRefs((PyObject *) gen);

Py_DECREF(gen->gi_frame);

PyObject_GC_Del(gen);

}

static PyObject *

gen_iternext(genobject *gen)

{

PyThreadState *tstate = PyThreadState_GET();

PyFrameObject *f = gen->gi_frame;

PyObject *result;

if (gen->gi_running) {

PyErr_SetString(PyExc_ValueError,

"generator already executing");

return NULL;

}

if (f->f_stacktop == NULL)

return NULL;

/* Generators always return to their most recent caller, not

Py_XINCREF(tstate->frame);

assert(f->f_back == NULL);

f->f_back = tstate->frame;

gen->gi_running = 1;

result = eval_frame(f);

gen->gi_running = 0;

/* Don't keep the reference to f_back any longer than necessary. It

Py_XDECREF(f->f_back);

f->f_back = NULL;

/* If the generator just returned (as opposed to yielding), signal

if (result == Py_None && f->f_stacktop == NULL) {

Py_DECREF(result);

result = NULL;

}

return result;

}

static PyObject *

gen_getiter(PyObject *gen)

{

Py_INCREF(gen);

return gen;

}

static PyMemberDef gen_memberlist[] = {

{"gi_frame", T_OBJECT, offsetof(genobject, gi_frame), RO},

{"gi_running", T_INT, offsetof(genobject, gi_running), RO},

{NULL} /* Sentinel */

};

static PyTypeObject gentype = {

PyObject_HEAD_INIT(&PyType_Type)

0, /* ob_size */

"generator", /* tp_name */

sizeof(genobject), /* tp_basicsize */

0, /* tp_itemsize */

/* methods */

(destructor)gen_dealloc, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

0, /* tp_compare */

0, /* tp_repr */

0, /* tp_as_number */

0, /* tp_as_sequence */

0, /* tp_as_mapping */

0, /* tp_hash */

0, /* tp_call */

0, /* tp_str */

PyObject_GenericGetAttr, /* tp_getattro */

0, /* tp_setattro */

0, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC,/* tp_flags */

0, /* tp_doc */

(traverseproc)gen_traverse, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

offsetof(genobject, gi_weakreflist), /* tp_weaklistoffset */

(getiterfunc)gen_getiter, /* tp_iter */

(iternextfunc)gen_iternext, /* tp_iternext */

0, /* tp_methods */

gen_memberlist, /* tp_members */

0, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

};

#ifdef WITH_THREAD

#ifndef DONT_HAVE_ERRNO_H

#include <errno.h>

#include "pythread.h"

extern int _PyThread_Started; /* Flag for Py_Exit */

static PyThread_type_lock interpreter_lock = 0; /* This is the GIL */

static long main_thread = 0;

PyEval_InitThreads(void)

{

if (interpreter_lock)

return;

_PyThread_Started = 1;

interpreter_lock = PyThread_allocate_lock();

PyThread_acquire_lock(interpreter_lock, 1);

main_thread = PyThread_get_thread_ident();

}

PyEval_AcquireLock(void)

{

PyThread_acquire_lock(interpreter_lock, 1);

}

PyEval_ReleaseLock(void)

{

PyThread_release_lock(interpreter_lock);

}

PyEval_AcquireThread(PyThreadState *tstate)

{

if (tstate == NULL)

Py_FatalError("PyEval_AcquireThread: NULL new thread state");

/* Check someone has called PyEval_InitThreads() to create the lock */

assert(interpreter_lock);

PyThread_acquire_lock(interpreter_lock, 1);

if (PyThreadState_Swap(tstate) != NULL)

Py_FatalError(

"PyEval_AcquireThread: non-NULL old thread state");

}

PyEval_ReleaseThread(PyThreadState *tstate)

{

if (tstate == NULL)

Py_FatalError("PyEval_ReleaseThread: NULL thread state");

if (PyThreadState_Swap(NULL) != tstate)

Py_FatalError("PyEval_ReleaseThread: wrong thread state");

PyThread_release_lock(interpreter_lock);

}

PyEval_ReInitThreads(void)

{

if (!interpreter_lock)

return;

/*XXX Can't use PyThread_free_lock here because it does too

interpreter_lock = PyThread_allocate_lock();

PyThread_acquire_lock(interpreter_lock, 1);

main_thread = PyThread_get_thread_ident();

}

PyThreadState *

PyEval_SaveThread(void)

{

PyThreadState *tstate = PyThreadState_Swap(NULL);

if (tstate == NULL)

Py_FatalError("PyEval_SaveThread: NULL tstate");

#ifdef WITH_THREAD

if (interpreter_lock)

PyThread_release_lock(interpreter_lock);

return tstate;

}

PyEval_RestoreThread(PyThreadState *tstate)

{

if (tstate == NULL)

Py_FatalError("PyEval_RestoreThread: NULL tstate");

#ifdef WITH_THREAD

if (interpreter_lock) {

int err = errno;

PyThread_acquire_lock(interpreter_lock, 1);

errno = err;

}

PyThreadState_Swap(tstate);

}

#define NPENDINGCALLS 32

static struct {

int (*func)(void *);

void *arg;

} pendingcalls[NPENDINGCALLS];

static volatile int pendingfirst = 0;

static volatile int pendinglast = 0;

static volatile int things_to_do = 0;

Py_AddPendingCall(int (*func)(void *), void *arg)

{

static int busy = 0;

int i, j;

/* XXX Begin critical section */

/* XXX If you want this to be safe against nested

if (busy)

return -1;

busy = 1;

i = pendinglast;

j = (i + 1) % NPENDINGCALLS;

if (j == pendingfirst) {

busy = 0;

return -1; /* Queue full */

}

pendingcalls[i].func = func;

pendingcalls[i].arg = arg;

pendinglast = j;

_Py_Ticker = 0;

things_to_do = 1; /* Signal main loop */

busy = 0;

/* XXX End critical section */

return 0;

}

Py_MakePendingCalls(void)

{

static int busy = 0;

#ifdef WITH_THREAD

if (main_thread && PyThread_get_thread_ident() != main_thread)

return 0;

if (busy)

return 0;

busy = 1;

things_to_do = 0;

for (;;) {

int i;

int (*func)(void *);

void *arg;

i = pendingfirst;

if (i == pendinglast)

break; /* Queue empty */

func = pendingcalls[i].func;

arg = pendingcalls[i].arg;

pendingfirst = (i + 1) % NPENDINGCALLS;

if (func(arg) < 0) {

busy = 0;

things_to_do = 1; /* We're not done yet */

return -1;

}

}

busy = 0;

return 0;

}

static int recursion_limit = 1000;

Py_GetRecursionLimit(void)

{

return recursion_limit;

}

Py_SetRecursionLimit(int new_limit)

{

recursion_limit = new_limit;

}

enum why_code {

};

static enum why_code do_raise(PyObject *, PyObject *, PyObject *);

static int unpack_iterable(PyObject *, int, PyObject **);

int _Py_CheckInterval = 100;

volatile int _Py_Ticker = 100;

PyObject *

PyEval_EvalCode(PyCodeObject *co, PyObject *globals, PyObject *locals)

{

/* XXX raise SystemError if globals is NULL */

return PyEval_EvalCodeEx(co,

globals, locals,

(PyObject **)NULL, 0,

(PyObject **)NULL, 0,

(PyObject **)NULL, 0,

NULL);

}

static PyObject *

eval_frame(PyFrameObject *f)

{

#ifdef DXPAIRS

int lastopcode = 0;

PyObject **stack_pointer; /* Next free slot in value stack */

register unsigned char *next_instr;

register int opcode=0; /* Current opcode */

register int oparg=0; /* Current opcode argument, if any */

register enum why_code why; /* Reason for block stack unwind */

register int err; /* Error status -- nonzero if error */

register PyObject *x; /* Result object -- NULL if error */

register PyObject *v; /* Temporary objects popped off stack */

register PyObject *w;

register PyObject *u;

register PyObject *t;

register PyObject *stream = NULL; /* for PRINT opcodes */

register PyObject **fastlocals, **freevars;

PyObject *retval = NULL; /* Return value */

PyThreadState *tstate = PyThreadState_GET();

PyCodeObject *co;

/* when tracing we set things up so that

int instr_ub = -1, instr_lb = 0;

unsigned char *first_instr;

PyObject *names;

PyObject *consts;

#ifdef LLTRACE

int lltrace;

#if defined(Py_DEBUG) || defined(LLTRACE)

/* Make it easier to find out where we are with a debugger */

char *filename;

#ifndef Py_DEBUG

#define GETITEM(v, i) PyTuple_GET_ITEM((PyTupleObject *)(v), (i))

#define GETITEM(v, i) PyTuple_GetItem((v), (i))

#define INSTR_OFFSET() (next_instr - first_instr)

#define NEXTOP() (*next_instr++)

#define NEXTARG() (next_instr += 2, (next_instr[-1]<<8) + next_instr[-2])

#define JUMPTO(x) (next_instr = first_instr + (x))

#define JUMPBY(x) (next_instr += (x))

#define PREDICT(op) if (*next_instr == op) goto PRED_##op

#define PREDICTED(op) PRED_##op: next_instr++

#define PREDICTED_WITH_ARG(op) PRED_##op: oparg = (next_instr[2]<<8) + \

next_instr[1]; next_instr += 3

#define STACK_LEVEL() (stack_pointer - f->f_valuestack)

#define EMPTY() (STACK_LEVEL() == 0)

#define TOP() (stack_pointer[-1])

#define SECOND() (stack_pointer[-2])

#define THIRD() (stack_pointer[-3])

#define FOURTH() (stack_pointer[-4])

#define SET_TOP(v) (stack_pointer[-1] = (v))

#define SET_SECOND(v) (stack_pointer[-2] = (v))

#define SET_THIRD(v) (stack_pointer[-3] = (v))

#define SET_FOURTH(v) (stack_pointer[-4] = (v))

#define BASIC_STACKADJ(n) (stack_pointer += n)

#define BASIC_PUSH(v) (*stack_pointer++ = (v))

#define BASIC_POP() (*--stack_pointer)

#ifdef LLTRACE

#define PUSH(v) { (void)(BASIC_PUSH(v), \

lltrace && prtrace(TOP(), "push")); \

assert(STACK_LEVEL() <= f->f_stacksize); }

#define POP() ((void)(lltrace && prtrace(TOP(), "pop")), BASIC_POP())

#define STACKADJ(n) { (void)(BASIC_STACKADJ(n), \

lltrace && prtrace(TOP(), "stackadj")); \

assert(STACK_LEVEL() <= f->f_stacksize); }

#define PUSH(v) BASIC_PUSH(v)

#define POP() BASIC_POP()

#define STACKADJ(n) BASIC_STACKADJ(n)

#define GETLOCAL(i) (fastlocals[i])

#define SETLOCAL(i, value) do { PyObject *tmp = GETLOCAL(i); \

GETLOCAL(i) = value; \

Py_XDECREF(tmp); } while (0)

if (f == NULL)

return NULL;

#ifdef USE_STACKCHECK

if (tstate->recursion_depth%10 == 0 && PyOS_CheckStack()) {

PyErr_SetString(PyExc_MemoryError, "Stack overflow");

return NULL;

}

/* push frame */

if (++tstate->recursion_depth > recursion_limit) {

--tstate->recursion_depth;

PyErr_SetString(PyExc_RuntimeError,

"maximum recursion depth exceeded");

tstate->frame = f->f_back;

return NULL;

}

tstate->frame = f;

if (tstate->use_tracing) {

if (tstate->c_tracefunc != NULL) {

/* tstate->c_tracefunc, if defined, is a

if (call_trace(tstate->c_tracefunc, tstate->c_traceobj,

f, PyTrace_CALL, Py_None)) {

/* Trace function raised an error */

--tstate->recursion_depth;

tstate->frame = f->f_back;

return NULL;

}

}

if (tstate->c_profilefunc != NULL) {

/* Similar for c_profilefunc, except it needn't

if (call_trace(tstate->c_profilefunc,

tstate->c_profileobj,

f, PyTrace_CALL, Py_None)) {

/* Profile function raised an error */

--tstate->recursion_depth;

tstate->frame = f->f_back;

return NULL;

}

}

}

co = f->f_code;

names = co->co_names;

consts = co->co_consts;

fastlocals = f->f_localsplus;

freevars = f->f_localsplus + f->f_nlocals;

_PyCode_GETCODEPTR(co, &first_instr);

/* An explanation is in order for the next line.

next_instr = first_instr + f->f_lasti + 1;

stack_pointer = f->f_stacktop;

assert(stack_pointer != NULL);

f->f_stacktop = NULL; /* remains NULL unless yield suspends frame */

#ifdef LLTRACE

lltrace = PyDict_GetItemString(f->f_globals,"__lltrace__") != NULL;

#if defined(Py_DEBUG) || defined(LLTRACE)

filename = PyString_AsString(co->co_filename);

why = WHY_NOT;

err = 0;

x = Py_None; /* Not a reference, just anything non-NULL */

w = NULL;

for (;;) {

assert(stack_pointer >= f->f_valuestack); /* else underflow */

assert(STACK_LEVEL() <= f->f_stacksize); /* else overflow */

/* Do periodic things. Doing this every time through

if (--_Py_Ticker < 0) {

if (*next_instr == SETUP_FINALLY) {

/* Make the last opcode before

goto fast_next_opcode;

}

_Py_Ticker = _Py_CheckInterval;

tstate->tick_counter++;

if (things_to_do) {

if (Py_MakePendingCalls() < 0) {

why = WHY_EXCEPTION;

goto on_error;

}

if (things_to_do)

/* MakePendingCalls() didn't succeed.

_Py_Ticker = 0;

}

#if !defined(HAVE_SIGNAL_H) || defined(macintosh)

/* If we have true signals, the signal handler

if (PyErr_CheckSignals()) {

why = WHY_EXCEPTION;

goto on_error;

}

#ifdef WITH_THREAD

if (interpreter_lock) {

/* Give another thread a chance */

if (PyThreadState_Swap(NULL) != tstate)

Py_FatalError("ceval: tstate mix-up");

PyThread_release_lock(interpreter_lock);

/* Other threads may run now */

PyThread_acquire_lock(interpreter_lock, 1);

if (PyThreadState_Swap(tstate) != NULL)

Py_FatalError("ceval: orphan tstate");

/* Check for thread interrupts */

if (tstate->async_exc != NULL) {

x = tstate->async_exc;

tstate->async_exc = NULL;

PyErr_SetNone(x);

Py_DECREF(x);

why = WHY_EXCEPTION;

goto on_error;

}

}

}

fast_next_opcode:

f->f_lasti = INSTR_OFFSET();

/* line-by-line tracing support */

if (tstate->c_tracefunc != NULL && !tstate->tracing) {

/* see maybe_call_line_trace

f->f_stacktop = stack_pointer;

err = maybe_call_line_trace(tstate->c_tracefunc,

tstate->c_traceobj,

f, &instr_lb, &instr_ub);

/* Reload possibly changed frame fields */

JUMPTO(f->f_lasti);

if (f->f_stacktop != NULL) {

stack_pointer = f->f_stacktop;

f->f_stacktop = NULL;

}

if (err) {

/* trace function raised an exception */

goto on_error;

}

}

/* Extract opcode and argument */

opcode = NEXTOP();

if (HAS_ARG(opcode))

oparg = NEXTARG();

dispatch_opcode:

#ifdef DYNAMIC_EXECUTION_PROFILE

#ifdef DXPAIRS

dxpairs[lastopcode][opcode]++;

lastopcode = opcode;

dxp[opcode]++;

#ifdef LLTRACE

/* Instruction tracing */

if (lltrace) {

if (HAS_ARG(opcode)) {

printf("%d: %d, %d\n",

f->f_lasti, opcode, oparg);

}

else {

printf("%d: %d\n",

f->f_lasti, opcode);

}

}

/* Main switch on opcode */

switch (opcode) {

/* BEWARE!

/* case STOP_CODE: this is an error! */

case LOAD_FAST:

x = GETLOCAL(oparg);

if (x != NULL) {

Py_INCREF(x);

PUSH(x);

goto fast_next_opcode;

}

format_exc_check_arg(PyExc_UnboundLocalError,

UNBOUNDLOCAL_ERROR_MSG,

PyTuple_GetItem(co->co_varnames, oparg));

break;

case LOAD_CONST:

x = GETITEM(consts, oparg);

Py_INCREF(x);

PUSH(x);

goto fast_next_opcode;

PREDICTED_WITH_ARG(STORE_FAST);

case STORE_FAST:

v = POP();

SETLOCAL(oparg, v);

goto fast_next_opcode;

PREDICTED(POP_TOP);

case POP_TOP:

v = POP();

Py_DECREF(v);

goto fast_next_opcode;

case ROT_TWO:

v = TOP();

w = SECOND();

SET_TOP(w);

SET_SECOND(v);

goto fast_next_opcode;

case ROT_THREE:

v = TOP();

w = SECOND();

x = THIRD();

SET_TOP(w);

SET_SECOND(x);

SET_THIRD(v);

goto fast_next_opcode;

case ROT_FOUR:

u = TOP();

v = SECOND();

w = THIRD();

x = FOURTH();

SET_TOP(v);

SET_SECOND(w);

SET_THIRD(x);

SET_FOURTH(u);

goto fast_next_opcode;

case DUP_TOP:

v = TOP();

Py_INCREF(v);

PUSH(v);

goto fast_next_opcode;

case DUP_TOPX:

if (oparg == 2) {

x = TOP();

Py_INCREF(x);

w = SECOND();

Py_INCREF(w);

STACKADJ(2);

SET_TOP(x);

SET_SECOND(w);

goto fast_next_opcode;

} else if (oparg == 3) {

x = TOP();

Py_INCREF(x);

w = SECOND();

Py_INCREF(w);

v = THIRD();

Py_INCREF(v);

STACKADJ(3);

SET_TOP(x);

SET_SECOND(w);

SET_THIRD(v);

goto fast_next_opcode;

}

Py_FatalError("invalid argument to DUP_TOPX"

" (bytecode corruption?)");

break;

case UNARY_POSITIVE:

v = TOP();

x = PyNumber_Positive(v);

Py_DECREF(v);

SET_TOP(x);

if (x != NULL) continue;

break;

case UNARY_NEGATIVE:

v = TOP();

x = PyNumber_Negative(v);

Py_DECREF(v);