#define USE_COMPOSITELESS_PHOTO_PUT_BLOCK

#include <Python.h>

#include <cstdlib>

#include <cstdio>

#include <sstream>

#include "py_converters.h"

extern "C"

{

#ifdef __APPLE__

# ifdef TK_FRAMEWORK

# include <Tcl/tcl.h>

# include <Tk/tk.h>

# else

# include <tk.h>

# endif

#else

# include <tk.h>

#endif

}

#if defined(_MSC_VER)

# define SIZE_T_FORMAT "%Iu"

#else

# define SIZE_T_FORMAT "%zu"

#endif

typedef struct

{

PyObject_HEAD;

Tcl_Interp *interp;

} TkappObject;

static int PyAggImagePhoto(ClientData clientdata, Tcl_Interp *interp, int argc, char **argv)

}

static PyObject *_pyobj_addr(PyObject *self, PyObject *args)

{

PyObject *pyobj;

if (!PyArg_ParseTuple(args, "O", &pyobj)) {

return NULL;

}

return Py_BuildValue("n", (Py_ssize_t)pyobj);

}

static PyObject *_tkinit(PyObject *self, PyObject *args)

{

Tcl_Interp *interp;

TkappObject *app;

Py_ssize_t arg;

int is_interp;

if (!PyArg_ParseTuple(args, "ni", &arg, &is_interp)) {

return NULL;

}

if (is_interp) {

interp = (Tcl_Interp *)arg;

} else {

/* Do it the hard way. This will break if the TkappObject

app = (TkappObject *)arg;

interp = app->interp;

}

/* This will bomb if interp is invalid... */

Tcl_CreateCommand(interp,

"PyAggImagePhoto",

(Tcl_CmdProc *)PyAggImagePhoto,

(ClientData)0,

(Tcl_CmdDeleteProc *)NULL);

Py_INCREF(Py_None);

return Py_None;

}

static PyMethodDef functions[] = {

/* Tkinter interface stuff */

{ "_pyobj_addr", (PyCFunction)_pyobj_addr, 1 }, { "tkinit", (PyCFunction)_tkinit, 1 },

{ NULL, NULL } /* sentinel */

};

#if PY3K

static PyModuleDef _tkagg_module = { PyModuleDef_HEAD_INIT, "_tkagg", "", -1, functions,

NULL, NULL, NULL, NULL };

PyMODINIT_FUNC PyInit__tkagg(void)

}

#else

PyMODINIT_FUNC init_tkagg(void)

}

#endif