/* =========================== Module _AE =========================== */

#include "Python.h"

#include "pymactoolbox.h"

#ifndef HAVE_OSX105_SDK

typedef SInt32 SRefCon;

#endif

/* Macro to test whether a weak-loaded CFM function exists */

#define PyMac_PRECHECK(rtn) do { if ( &rtn == NULL )  {\

        PyErr_SetString(PyExc_NotImplementedError, \

        "Not available in this shared library/OS version"); \

        return NULL; \

    }} while(0)

#include <Carbon/Carbon.h>

#ifdef USE_TOOLBOX_OBJECT_GLUE

extern PyObject *_AEDesc_New(AEDesc *);

extern int _AEDesc_Convert(PyObject *, AEDesc *);

#define AEDesc_New _AEDesc_New

#define AEDesc_NewBorrowed _AEDesc_NewBorrowed

#define AEDesc_Convert _AEDesc_Convert

#endif

typedef long refcontype;

static pascal OSErr GenericEventHandler(const AppleEvent *request, AppleEvent *reply, refcontype refcon); /* Forward */

AEEventHandlerUPP upp_GenericEventHandler;

static pascal Boolean AEIdleProc(EventRecord *theEvent, long *sleepTime, RgnHandle *mouseRgn)

{

        if ( PyOS_InterruptOccurred() )

                return 1;

        return 0;

}

AEIdleUPP upp_AEIdleProc;

static PyObject *AE_Error;

/* ----------------------- Object type AEDesc ----------------------- */

PyTypeObject AEDesc_Type;

#define AEDesc_Check(x) ((x)->ob_type == &AEDesc_Type || PyObject_TypeCheck((x), &AEDesc_Type))

typedef struct AEDescObject {

	PyObject_HEAD

	AEDesc ob_itself;

	int ob_owned;

} AEDescObject;

PyObject *AEDesc_New(AEDesc *itself)

{

	AEDescObject *it;

	it = PyObject_NEW(AEDescObject, &AEDesc_Type);

	if (it == NULL) return NULL;

	it->ob_itself = *itself;

	it->ob_owned = 1;

	return (PyObject *)it;

}

int AEDesc_Convert(PyObject *v, AEDesc *p_itself)

{

	if (!AEDesc_Check(v))

	{

		PyErr_SetString(PyExc_TypeError, "AEDesc required");

		return 0;

	}

	*p_itself = ((AEDescObject *)v)->ob_itself;

	return 1;

}

static void AEDesc_dealloc(AEDescObject *self)

{

	if (self->ob_owned) AEDisposeDesc(&self->ob_itself);

	self->ob_type->tp_free((PyObject *)self);

}

static PyObject *AEDesc_AECoerceDesc(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	DescType toType;

	AEDesc result;

#ifndef AECoerceDesc

	PyMac_PRECHECK(AECoerceDesc);

#endif

	if (!PyArg_ParseTuple(_args, "O&",

	                      PyMac_GetOSType, &toType))

		return NULL;

	_err = AECoerceDesc(&_self->ob_itself,

	                    toType,

	                    &result);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &result);

	return _res;

}

static PyObject *AEDesc_AEDuplicateDesc(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEDesc result;

#ifndef AEDuplicateDesc

	PyMac_PRECHECK(AEDuplicateDesc);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_err = AEDuplicateDesc(&_self->ob_itself,

	                       &result);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &result);

	return _res;

}

static PyObject *AEDesc_AECountItems(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	long theCount;

#ifndef AECountItems

	PyMac_PRECHECK(AECountItems);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_err = AECountItems(&_self->ob_itself,

	                    &theCount);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("l",

	                     theCount);

	return _res;

}

static PyObject *AEDesc_AEPutPtr(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	long index;

	DescType typeCode;

	char *dataPtr__in__;

	long dataPtr__len__;

	int dataPtr__in_len__;

#ifndef AEPutPtr

	PyMac_PRECHECK(AEPutPtr);

#endif

	if (!PyArg_ParseTuple(_args, "lO&s#",

	                      &index,

	                      PyMac_GetOSType, &typeCode,

	                      &dataPtr__in__, &dataPtr__in_len__))

		return NULL;

	dataPtr__len__ = dataPtr__in_len__;

	_err = AEPutPtr(&_self->ob_itself,

	                index,

	                typeCode,

	                dataPtr__in__, dataPtr__len__);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *AEDesc_AEPutDesc(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	long index;

	AEDesc theAEDesc;

#ifndef AEPutDesc

	PyMac_PRECHECK(AEPutDesc);

#endif

	if (!PyArg_ParseTuple(_args, "lO&",

	                      &index,

	                      AEDesc_Convert, &theAEDesc))

		return NULL;

	_err = AEPutDesc(&_self->ob_itself,

	                 index,

	                 &theAEDesc);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *AEDesc_AEGetNthPtr(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	long index;

	DescType desiredType;

	AEKeyword theAEKeyword;

	DescType typeCode;

	char *dataPtr__out__;

	long dataPtr__len__;

	int dataPtr__in_len__;

#ifndef AEGetNthPtr

	PyMac_PRECHECK(AEGetNthPtr);

#endif

	if (!PyArg_ParseTuple(_args, "lO&i",

	                      &index,

	                      PyMac_GetOSType, &desiredType,

	                      &dataPtr__in_len__))

		return NULL;

	if ((dataPtr__out__ = malloc(dataPtr__in_len__)) == NULL)

	{

		PyErr_NoMemory();

		goto dataPtr__error__;

	}

	dataPtr__len__ = dataPtr__in_len__;

	_err = AEGetNthPtr(&_self->ob_itself,

	                   index,

	                   desiredType,

	                   &theAEKeyword,

	                   &typeCode,

	                   dataPtr__out__, dataPtr__len__, &dataPtr__len__);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&O&s#",

	                     PyMac_BuildOSType, theAEKeyword,

	                     PyMac_BuildOSType, typeCode,

	                     dataPtr__out__, (int)dataPtr__len__);

	free(dataPtr__out__);

 dataPtr__error__: ;

	return _res;

}

static PyObject *AEDesc_AEGetNthDesc(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	long index;

	DescType desiredType;

	AEKeyword theAEKeyword;

	AEDesc result;

#ifndef AEGetNthDesc

	PyMac_PRECHECK(AEGetNthDesc);

#endif

	if (!PyArg_ParseTuple(_args, "lO&",

	                      &index,

	                      PyMac_GetOSType, &desiredType))

		return NULL;

	_err = AEGetNthDesc(&_self->ob_itself,

	                    index,

	                    desiredType,

	                    &theAEKeyword,

	                    &result);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&O&",

	                     PyMac_BuildOSType, theAEKeyword,

	                     AEDesc_New, &result);

	return _res;

}

static PyObject *AEDesc_AESizeOfNthItem(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	long index;

	DescType typeCode;

	Size dataSize;

#ifndef AESizeOfNthItem

	PyMac_PRECHECK(AESizeOfNthItem);

#endif

	if (!PyArg_ParseTuple(_args, "l",

	                      &index))

		return NULL;

	_err = AESizeOfNthItem(&_self->ob_itself,

	                       index,

	                       &typeCode,

	                       &dataSize);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&l",

	                     PyMac_BuildOSType, typeCode,

	                     dataSize);

	return _res;

}

static PyObject *AEDesc_AEDeleteItem(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	long index;

#ifndef AEDeleteItem

	PyMac_PRECHECK(AEDeleteItem);

#endif

	if (!PyArg_ParseTuple(_args, "l",

	                      &index))

		return NULL;

	_err = AEDeleteItem(&_self->ob_itself,

	                    index);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *AEDesc_AEPutParamPtr(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	DescType typeCode;

	char *dataPtr__in__;

	long dataPtr__len__;

	int dataPtr__in_len__;

#ifndef AEPutParamPtr

	PyMac_PRECHECK(AEPutParamPtr);

#endif

	if (!PyArg_ParseTuple(_args, "O&O&s#",

	                      PyMac_GetOSType, &theAEKeyword,

	                      PyMac_GetOSType, &typeCode,

	                      &dataPtr__in__, &dataPtr__in_len__))

		return NULL;

	dataPtr__len__ = dataPtr__in_len__;

	_err = AEPutParamPtr(&_self->ob_itself,

	                     theAEKeyword,

	                     typeCode,

	                     dataPtr__in__, dataPtr__len__);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *AEDesc_AEPutParamDesc(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	AEDesc theAEDesc;

#ifndef AEPutParamDesc

	PyMac_PRECHECK(AEPutParamDesc);

#endif

	if (!PyArg_ParseTuple(_args, "O&O&",

	                      PyMac_GetOSType, &theAEKeyword,

	                      AEDesc_Convert, &theAEDesc))

		return NULL;

	_err = AEPutParamDesc(&_self->ob_itself,

	                      theAEKeyword,

	                      &theAEDesc);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *AEDesc_AEGetParamPtr(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	DescType desiredType;

	DescType typeCode;

	char *dataPtr__out__;

	long dataPtr__len__;

	int dataPtr__in_len__;

#ifndef AEGetParamPtr

	PyMac_PRECHECK(AEGetParamPtr);

#endif

	if (!PyArg_ParseTuple(_args, "O&O&i",

	                      PyMac_GetOSType, &theAEKeyword,

	                      PyMac_GetOSType, &desiredType,

	                      &dataPtr__in_len__))

		return NULL;

	if ((dataPtr__out__ = malloc(dataPtr__in_len__)) == NULL)

	{

		PyErr_NoMemory();

		goto dataPtr__error__;

	}

	dataPtr__len__ = dataPtr__in_len__;

	_err = AEGetParamPtr(&_self->ob_itself,

	                     theAEKeyword,

	                     desiredType,

	                     &typeCode,

	                     dataPtr__out__, dataPtr__len__, &dataPtr__len__);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&s#",

	                     PyMac_BuildOSType, typeCode,

	                     dataPtr__out__, (int)dataPtr__len__);

	free(dataPtr__out__);

 dataPtr__error__: ;

	return _res;

}

static PyObject *AEDesc_AEGetParamDesc(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	DescType desiredType;

	AEDesc result;

#ifndef AEGetParamDesc

	PyMac_PRECHECK(AEGetParamDesc);

#endif

	if (!PyArg_ParseTuple(_args, "O&O&",

	                      PyMac_GetOSType, &theAEKeyword,

	                      PyMac_GetOSType, &desiredType))

		return NULL;

	_err = AEGetParamDesc(&_self->ob_itself,

	                      theAEKeyword,

	                      desiredType,

	                      &result);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &result);

	return _res;

}

static PyObject *AEDesc_AESizeOfParam(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	DescType typeCode;

	Size dataSize;

#ifndef AESizeOfParam

	PyMac_PRECHECK(AESizeOfParam);

#endif

	if (!PyArg_ParseTuple(_args, "O&",

	                      PyMac_GetOSType, &theAEKeyword))

		return NULL;

	_err = AESizeOfParam(&_self->ob_itself,

	                     theAEKeyword,

	                     &typeCode,

	                     &dataSize);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&l",

	                     PyMac_BuildOSType, typeCode,

	                     dataSize);

	return _res;

}

static PyObject *AEDesc_AEDeleteParam(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

#ifndef AEDeleteParam

	PyMac_PRECHECK(AEDeleteParam);

#endif

	if (!PyArg_ParseTuple(_args, "O&",

	                      PyMac_GetOSType, &theAEKeyword))

		return NULL;

	_err = AEDeleteParam(&_self->ob_itself,

	                     theAEKeyword);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *AEDesc_AEGetAttributePtr(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	DescType desiredType;

	DescType typeCode;

	char *dataPtr__out__;

	long dataPtr__len__;

	int dataPtr__in_len__;

#ifndef AEGetAttributePtr

	PyMac_PRECHECK(AEGetAttributePtr);

#endif

	if (!PyArg_ParseTuple(_args, "O&O&i",

	                      PyMac_GetOSType, &theAEKeyword,

	                      PyMac_GetOSType, &desiredType,

	                      &dataPtr__in_len__))

		return NULL;

	if ((dataPtr__out__ = malloc(dataPtr__in_len__)) == NULL)

	{

		PyErr_NoMemory();

		goto dataPtr__error__;

	}

	dataPtr__len__ = dataPtr__in_len__;

	_err = AEGetAttributePtr(&_self->ob_itself,

	                         theAEKeyword,

	                         desiredType,

	                         &typeCode,

	                         dataPtr__out__, dataPtr__len__, &dataPtr__len__);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&s#",

	                     PyMac_BuildOSType, typeCode,

	                     dataPtr__out__, (int)dataPtr__len__);

	free(dataPtr__out__);

 dataPtr__error__: ;

	return _res;

}

static PyObject *AEDesc_AEGetAttributeDesc(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	DescType desiredType;

	AEDesc result;

#ifndef AEGetAttributeDesc

	PyMac_PRECHECK(AEGetAttributeDesc);

#endif

	if (!PyArg_ParseTuple(_args, "O&O&",

	                      PyMac_GetOSType, &theAEKeyword,

	                      PyMac_GetOSType, &desiredType))

		return NULL;

	_err = AEGetAttributeDesc(&_self->ob_itself,

	                          theAEKeyword,

	                          desiredType,

	                          &result);

	if (_err != noErr) return PyMac_Error(_err);

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &result);

	return _res;

}

static PyObject *AEDesc_AESizeOfAttribute(AEDescObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	AEKeyword theAEKeyword;

	DescType typeCode;