mirror of https://github.com/python/cpython
1146 lines
32 KiB
C
1146 lines
32 KiB
C
|
|
/* =========================== Module AE ============================ */
|
|
|
|
#include "Python.h"
|
|
|
|
|
|
|
|
#define SystemSevenOrLater 1
|
|
|
|
#include "macglue.h"
|
|
#include <Memory.h>
|
|
#include <Dialogs.h>
|
|
#include <Menus.h>
|
|
#include <Controls.h>
|
|
|
|
extern PyObject *ResObj_New(Handle);
|
|
extern int ResObj_Convert(PyObject *, Handle *);
|
|
|
|
extern PyObject *WinObj_New(WindowPtr);
|
|
extern int WinObj_Convert(PyObject *, WindowPtr *);
|
|
|
|
extern PyObject *DlgObj_New(DialogPtr);
|
|
extern int DlgObj_Convert(PyObject *, DialogPtr *);
|
|
extern PyTypeObject Dialog_Type;
|
|
#define DlgObj_Check(x) ((x)->ob_type == &Dialog_Type)
|
|
|
|
extern PyObject *MenuObj_New(MenuHandle);
|
|
extern int MenuObj_Convert(PyObject *, MenuHandle *);
|
|
|
|
extern PyObject *CtlObj_New(ControlHandle);
|
|
extern int CtlObj_Convert(PyObject *, ControlHandle *);
|
|
|
|
extern PyObject *WinObj_WhichWindow(WindowPtr);
|
|
|
|
#include <AppleEvents.h>
|
|
|
|
#ifndef HAVE_UNIVERSAL_HEADERS
|
|
#define AEIdleProcPtr IdleProcPtr
|
|
#define AEFilterProcPtr EventFilterProcPtr
|
|
#define AEEventHandlerProcPtr EventHandlerProcPtr
|
|
#endif
|
|
|
|
#ifndef HAVE_UNIVERSAL_HEADERS
|
|
/* I'm trying to setup the code here so that is easily automated,
|
|
** as follows:
|
|
** - Use the UPP in the source
|
|
** - for pre-universal headers, #define each UPP as the corresponding ProcPtr
|
|
** - for each routine we pass we declare a upp_xxx that
|
|
** we initialize to the correct value in the init routine.
|
|
*/
|
|
#define AEIdleUPP AEIdleProcPtr
|
|
#define AEFilterUPP AEFilterProcPtr
|
|
#define AEEventHandlerUPP AEEventHandlerProcPtr
|
|
#define NewAEIdleProc(x) (x)
|
|
#define NewAEFilterProc(x) (x)
|
|
#define NewAEEventHandlerProc(x) (x)
|
|
#endif
|
|
|
|
static pascal OSErr GenericEventHandler(); /* Forward */
|
|
|
|
AEEventHandlerUPP upp_GenericEventHandler;
|
|
|
|
static pascal Boolean AEIdleProc(EventRecord *theEvent, long *sleepTime, RgnHandle *mouseRgn)
|
|
{
|
|
PyMac_Yield();
|
|
return 0;
|
|
}
|
|
|
|
AEIdleUPP upp_AEIdleProc;
|
|
|
|
static PyObject *AE_Error;
|
|
|
|
/* ----------------------- Object type AEDesc ----------------------- */
|
|
|
|
staticforward PyTypeObject AEDesc_Type;
|
|
|
|
#define AEDesc_Check(x) ((x)->ob_type == &AEDesc_Type)
|
|
|
|
typedef struct AEDescObject {
|
|
PyObject_HEAD
|
|
AEDesc ob_itself;
|
|
} AEDescObject;
|
|
|
|
static PyObject *AEDesc_New(itself)
|
|
AEDesc *itself;
|
|
{
|
|
AEDescObject *it;
|
|
it = PyObject_NEW(AEDescObject, &AEDesc_Type);
|
|
if (it == NULL) return NULL;
|
|
it->ob_itself = *itself;
|
|
return (PyObject *)it;
|
|
}
|
|
static AEDesc_Convert(v, p_itself)
|
|
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(self)
|
|
AEDescObject *self;
|
|
{
|
|
AEDisposeDesc(&self->ob_itself);
|
|
PyMem_DEL(self);
|
|
}
|
|
|
|
static PyObject *AEDesc_AECoerceDesc(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
DescType toType;
|
|
AEDesc result;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEDesc result;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
long theCount;
|
|
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_AEGetNthPtr(_self, _args)
|
|
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__;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
long index;
|
|
DescType desiredType;
|
|
AEKeyword theAEKeyword;
|
|
AEDesc result;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
long index;
|
|
DescType typeCode;
|
|
Size dataSize;
|
|
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_AEPutParamPtr(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
DescType typeCode;
|
|
char *dataPtr__in__;
|
|
long dataPtr__len__;
|
|
int dataPtr__in_len__;
|
|
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;
|
|
dataPtr__error__: ;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AEPutParamDesc(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
AEDesc theAEDesc;
|
|
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(_self, _args)
|
|
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__;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
DescType desiredType;
|
|
AEDesc result;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
DescType typeCode;
|
|
Size dataSize;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
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(_self, _args)
|
|
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__;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
DescType desiredType;
|
|
AEDesc result;
|
|
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(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
DescType typeCode;
|
|
Size dataSize;
|
|
if (!PyArg_ParseTuple(_args, "O&",
|
|
PyMac_GetOSType, &theAEKeyword))
|
|
return NULL;
|
|
_err = AESizeOfAttribute(&_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_AEPutAttributePtr(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
DescType typeCode;
|
|
char *dataPtr__in__;
|
|
long dataPtr__len__;
|
|
int dataPtr__in_len__;
|
|
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 = AEPutAttributePtr(&_self->ob_itself,
|
|
theAEKeyword,
|
|
typeCode,
|
|
dataPtr__in__, dataPtr__len__);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
dataPtr__error__: ;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AEPutAttributeDesc(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword theAEKeyword;
|
|
AEDesc theAEDesc;
|
|
if (!PyArg_ParseTuple(_args, "O&O&",
|
|
PyMac_GetOSType, &theAEKeyword,
|
|
AEDesc_Convert, &theAEDesc))
|
|
return NULL;
|
|
_err = AEPutAttributeDesc(&_self->ob_itself,
|
|
theAEKeyword,
|
|
&theAEDesc);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AESend(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AppleEvent reply;
|
|
AESendMode sendMode;
|
|
AESendPriority sendPriority;
|
|
long timeOutInTicks;
|
|
if (!PyArg_ParseTuple(_args, "lhl",
|
|
&sendMode,
|
|
&sendPriority,
|
|
&timeOutInTicks))
|
|
return NULL;
|
|
_err = AESend(&_self->ob_itself,
|
|
&reply,
|
|
sendMode,
|
|
sendPriority,
|
|
timeOutInTicks,
|
|
upp_AEIdleProc,
|
|
(AEFilterUPP)0);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &reply);
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AEResetTimer(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
if (!PyArg_ParseTuple(_args, ""))
|
|
return NULL;
|
|
_err = AEResetTimer(&_self->ob_itself);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AESuspendTheCurrentEvent(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
if (!PyArg_ParseTuple(_args, ""))
|
|
return NULL;
|
|
_err = AESuspendTheCurrentEvent(&_self->ob_itself);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AEResumeTheCurrentEvent(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AppleEvent reply;
|
|
long handlerRefcon;
|
|
if (!PyArg_ParseTuple(_args, "O&l",
|
|
AEDesc_Convert, &reply,
|
|
&handlerRefcon))
|
|
return NULL;
|
|
_err = AEResumeTheCurrentEvent(&_self->ob_itself,
|
|
&reply,
|
|
upp_GenericEventHandler,
|
|
handlerRefcon);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AEGetTheCurrentEvent(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
if (!PyArg_ParseTuple(_args, ""))
|
|
return NULL;
|
|
_err = AEGetTheCurrentEvent(&_self->ob_itself);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AEDesc_AESetTheCurrentEvent(_self, _args)
|
|
AEDescObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
if (!PyArg_ParseTuple(_args, ""))
|
|
return NULL;
|
|
_err = AESetTheCurrentEvent(&_self->ob_itself);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyMethodDef AEDesc_methods[] = {
|
|
{"AECoerceDesc", (PyCFunction)AEDesc_AECoerceDesc, 1,
|
|
"(DescType toType) -> (AEDesc result)"},
|
|
{"AEDuplicateDesc", (PyCFunction)AEDesc_AEDuplicateDesc, 1,
|
|
"() -> (AEDesc result)"},
|
|
{"AECountItems", (PyCFunction)AEDesc_AECountItems, 1,
|
|
"() -> (long theCount)"},
|
|
{"AEGetNthPtr", (PyCFunction)AEDesc_AEGetNthPtr, 1,
|
|
"(long index, DescType desiredType, Buffer dataPtr) -> (AEKeyword theAEKeyword, DescType typeCode, Buffer dataPtr)"},
|
|
{"AEGetNthDesc", (PyCFunction)AEDesc_AEGetNthDesc, 1,
|
|
"(long index, DescType desiredType) -> (AEKeyword theAEKeyword, AEDesc result)"},
|
|
{"AESizeOfNthItem", (PyCFunction)AEDesc_AESizeOfNthItem, 1,
|
|
"(long index) -> (DescType typeCode, Size dataSize)"},
|
|
{"AEPutParamPtr", (PyCFunction)AEDesc_AEPutParamPtr, 1,
|
|
"(AEKeyword theAEKeyword, DescType typeCode, Buffer dataPtr) -> None"},
|
|
{"AEPutParamDesc", (PyCFunction)AEDesc_AEPutParamDesc, 1,
|
|
"(AEKeyword theAEKeyword, AEDesc theAEDesc) -> None"},
|
|
{"AEGetParamPtr", (PyCFunction)AEDesc_AEGetParamPtr, 1,
|
|
"(AEKeyword theAEKeyword, DescType desiredType, Buffer dataPtr) -> (DescType typeCode, Buffer dataPtr)"},
|
|
{"AEGetParamDesc", (PyCFunction)AEDesc_AEGetParamDesc, 1,
|
|
"(AEKeyword theAEKeyword, DescType desiredType) -> (AEDesc result)"},
|
|
{"AESizeOfParam", (PyCFunction)AEDesc_AESizeOfParam, 1,
|
|
"(AEKeyword theAEKeyword) -> (DescType typeCode, Size dataSize)"},
|
|
{"AEDeleteParam", (PyCFunction)AEDesc_AEDeleteParam, 1,
|
|
"(AEKeyword theAEKeyword) -> None"},
|
|
{"AEGetAttributePtr", (PyCFunction)AEDesc_AEGetAttributePtr, 1,
|
|
"(AEKeyword theAEKeyword, DescType desiredType, Buffer dataPtr) -> (DescType typeCode, Buffer dataPtr)"},
|
|
{"AEGetAttributeDesc", (PyCFunction)AEDesc_AEGetAttributeDesc, 1,
|
|
"(AEKeyword theAEKeyword, DescType desiredType) -> (AEDesc result)"},
|
|
{"AESizeOfAttribute", (PyCFunction)AEDesc_AESizeOfAttribute, 1,
|
|
"(AEKeyword theAEKeyword) -> (DescType typeCode, Size dataSize)"},
|
|
{"AEPutAttributePtr", (PyCFunction)AEDesc_AEPutAttributePtr, 1,
|
|
"(AEKeyword theAEKeyword, DescType typeCode, Buffer dataPtr) -> None"},
|
|
{"AEPutAttributeDesc", (PyCFunction)AEDesc_AEPutAttributeDesc, 1,
|
|
"(AEKeyword theAEKeyword, AEDesc theAEDesc) -> None"},
|
|
{"AESend", (PyCFunction)AEDesc_AESend, 1,
|
|
"(AESendMode sendMode, AESendPriority sendPriority, long timeOutInTicks) -> (AppleEvent reply)"},
|
|
{"AEResetTimer", (PyCFunction)AEDesc_AEResetTimer, 1,
|
|
"() -> None"},
|
|
{"AESuspendTheCurrentEvent", (PyCFunction)AEDesc_AESuspendTheCurrentEvent, 1,
|
|
"() -> None"},
|
|
{"AEResumeTheCurrentEvent", (PyCFunction)AEDesc_AEResumeTheCurrentEvent, 1,
|
|
"(AppleEvent reply, long handlerRefcon) -> None"},
|
|
{"AEGetTheCurrentEvent", (PyCFunction)AEDesc_AEGetTheCurrentEvent, 1,
|
|
"() -> None"},
|
|
{"AESetTheCurrentEvent", (PyCFunction)AEDesc_AESetTheCurrentEvent, 1,
|
|
"() -> None"},
|
|
{NULL, NULL, 0}
|
|
};
|
|
|
|
static PyMethodChain AEDesc_chain = { AEDesc_methods, NULL };
|
|
|
|
static PyObject *AEDesc_getattr(self, name)
|
|
AEDescObject *self;
|
|
char *name;
|
|
{
|
|
|
|
if (strcmp(name, "type") == 0)
|
|
return PyMac_BuildOSType(self->ob_itself.descriptorType);
|
|
if (strcmp(name, "data") == 0) {
|
|
PyObject *res;
|
|
char state;
|
|
state = HGetState(self->ob_itself.dataHandle);
|
|
HLock(self->ob_itself.dataHandle);
|
|
res = PyString_FromStringAndSize(
|
|
*self->ob_itself.dataHandle,
|
|
GetHandleSize(self->ob_itself.dataHandle));
|
|
HUnlock(self->ob_itself.dataHandle);
|
|
HSetState(self->ob_itself.dataHandle, state);
|
|
return res;
|
|
}
|
|
if (strcmp(name, "__members__") == 0)
|
|
return Py_BuildValue("[ss]", "data", "type");
|
|
|
|
return Py_FindMethodInChain(&AEDesc_chain, (PyObject *)self, name);
|
|
}
|
|
|
|
#define AEDesc_setattr NULL
|
|
|
|
staticforward PyTypeObject AEDesc_Type = {
|
|
PyObject_HEAD_INIT(&PyType_Type)
|
|
0, /*ob_size*/
|
|
"AEDesc", /*tp_name*/
|
|
sizeof(AEDescObject), /*tp_basicsize*/
|
|
0, /*tp_itemsize*/
|
|
/* methods */
|
|
(destructor) AEDesc_dealloc, /*tp_dealloc*/
|
|
0, /*tp_print*/
|
|
(getattrfunc) AEDesc_getattr, /*tp_getattr*/
|
|
(setattrfunc) AEDesc_setattr, /*tp_setattr*/
|
|
};
|
|
|
|
/* --------------------- End object type AEDesc --------------------- */
|
|
|
|
|
|
static PyObject *AE_AECreateDesc(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
DescType typeCode;
|
|
char *dataPtr__in__;
|
|
long dataPtr__len__;
|
|
int dataPtr__in_len__;
|
|
AEDesc result;
|
|
if (!PyArg_ParseTuple(_args, "O&s#",
|
|
PyMac_GetOSType, &typeCode,
|
|
&dataPtr__in__, &dataPtr__in_len__))
|
|
return NULL;
|
|
dataPtr__len__ = dataPtr__in_len__;
|
|
_err = AECreateDesc(typeCode,
|
|
dataPtr__in__, dataPtr__len__,
|
|
&result);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &result);
|
|
dataPtr__error__: ;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AECoercePtr(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
DescType typeCode;
|
|
char *dataPtr__in__;
|
|
long dataPtr__len__;
|
|
int dataPtr__in_len__;
|
|
DescType toType;
|
|
AEDesc result;
|
|
if (!PyArg_ParseTuple(_args, "O&s#O&",
|
|
PyMac_GetOSType, &typeCode,
|
|
&dataPtr__in__, &dataPtr__in_len__,
|
|
PyMac_GetOSType, &toType))
|
|
return NULL;
|
|
dataPtr__len__ = dataPtr__in_len__;
|
|
_err = AECoercePtr(typeCode,
|
|
dataPtr__in__, dataPtr__len__,
|
|
toType,
|
|
&result);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &result);
|
|
dataPtr__error__: ;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AECreateList(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
char *factoringPtr__in__;
|
|
long factoringPtr__len__;
|
|
int factoringPtr__in_len__;
|
|
Boolean isRecord;
|
|
AEDescList resultList;
|
|
if (!PyArg_ParseTuple(_args, "s#b",
|
|
&factoringPtr__in__, &factoringPtr__in_len__,
|
|
&isRecord))
|
|
return NULL;
|
|
factoringPtr__len__ = factoringPtr__in_len__;
|
|
_err = AECreateList(factoringPtr__in__, factoringPtr__len__,
|
|
isRecord,
|
|
&resultList);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &resultList);
|
|
factoringPtr__error__: ;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEPutPtr(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEDescList theAEDescList;
|
|
long index;
|
|
DescType typeCode;
|
|
char *dataPtr__in__;
|
|
long dataPtr__len__;
|
|
int dataPtr__in_len__;
|
|
if (!PyArg_ParseTuple(_args, "lO&s#",
|
|
&index,
|
|
PyMac_GetOSType, &typeCode,
|
|
&dataPtr__in__, &dataPtr__in_len__))
|
|
return NULL;
|
|
dataPtr__len__ = dataPtr__in_len__;
|
|
_err = AEPutPtr(&theAEDescList,
|
|
index,
|
|
typeCode,
|
|
dataPtr__in__, dataPtr__len__);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &theAEDescList);
|
|
dataPtr__error__: ;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEPutDesc(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEDescList theAEDescList;
|
|
long index;
|
|
AEDesc theAEDesc;
|
|
if (!PyArg_ParseTuple(_args, "lO&",
|
|
&index,
|
|
AEDesc_Convert, &theAEDesc))
|
|
return NULL;
|
|
_err = AEPutDesc(&theAEDescList,
|
|
index,
|
|
&theAEDesc);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &theAEDescList);
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEDeleteItem(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEDescList theAEDescList;
|
|
long index;
|
|
if (!PyArg_ParseTuple(_args, "l",
|
|
&index))
|
|
return NULL;
|
|
_err = AEDeleteItem(&theAEDescList,
|
|
index);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &theAEDescList);
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AECreateAppleEvent(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEEventClass theAEEventClass;
|
|
AEEventID theAEEventID;
|
|
AEAddressDesc target;
|
|
short returnID;
|
|
long transactionID;
|
|
AppleEvent result;
|
|
if (!PyArg_ParseTuple(_args, "O&O&O&hl",
|
|
PyMac_GetOSType, &theAEEventClass,
|
|
PyMac_GetOSType, &theAEEventID,
|
|
AEDesc_Convert, &target,
|
|
&returnID,
|
|
&transactionID))
|
|
return NULL;
|
|
_err = AECreateAppleEvent(theAEEventClass,
|
|
theAEEventID,
|
|
&target,
|
|
returnID,
|
|
transactionID,
|
|
&result);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("O&",
|
|
AEDesc_New, &result);
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEProcessAppleEvent(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
EventRecord theEventRecord;
|
|
if (!PyArg_ParseTuple(_args, "O&",
|
|
PyMac_GetEventRecord, &theEventRecord))
|
|
return NULL;
|
|
_err = AEProcessAppleEvent(&theEventRecord);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEGetInteractionAllowed(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEInteractAllowed level;
|
|
if (!PyArg_ParseTuple(_args, ""))
|
|
return NULL;
|
|
_err = AEGetInteractionAllowed(&level);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("b",
|
|
level);
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AESetInteractionAllowed(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEInteractAllowed level;
|
|
if (!PyArg_ParseTuple(_args, "b",
|
|
&level))
|
|
return NULL;
|
|
_err = AESetInteractionAllowed(level);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEInteractWithUser(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
long timeOutInTicks;
|
|
if (!PyArg_ParseTuple(_args, "l",
|
|
&timeOutInTicks))
|
|
return NULL;
|
|
_err = AEInteractWithUser(timeOutInTicks,
|
|
(NMRecPtr)0,
|
|
upp_AEIdleProc);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEInstallEventHandler(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEEventClass theAEEventClass;
|
|
AEEventID theAEEventID;
|
|
long handlerRefcon;
|
|
if (!PyArg_ParseTuple(_args, "O&O&l",
|
|
PyMac_GetOSType, &theAEEventClass,
|
|
PyMac_GetOSType, &theAEEventID,
|
|
&handlerRefcon))
|
|
return NULL;
|
|
_err = AEInstallEventHandler(theAEEventClass,
|
|
theAEEventID,
|
|
upp_GenericEventHandler,
|
|
handlerRefcon,
|
|
0);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AERemoveEventHandler(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEEventClass theAEEventClass;
|
|
AEEventID theAEEventID;
|
|
if (!PyArg_ParseTuple(_args, "O&O&",
|
|
PyMac_GetOSType, &theAEEventClass,
|
|
PyMac_GetOSType, &theAEEventID))
|
|
return NULL;
|
|
_err = AERemoveEventHandler(theAEEventClass,
|
|
theAEEventID,
|
|
upp_GenericEventHandler,
|
|
0);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
Py_INCREF(Py_None);
|
|
_res = Py_None;
|
|
return _res;
|
|
}
|
|
|
|
static PyObject *AE_AEManagerInfo(_self, _args)
|
|
PyObject *_self;
|
|
PyObject *_args;
|
|
{
|
|
PyObject *_res = NULL;
|
|
OSErr _err;
|
|
AEKeyword keyWord;
|
|
long result;
|
|
if (!PyArg_ParseTuple(_args, "O&",
|
|
PyMac_GetOSType, &keyWord))
|
|
return NULL;
|
|
_err = AEManagerInfo(keyWord,
|
|
&result);
|
|
if (_err != noErr) return PyMac_Error(_err);
|
|
_res = Py_BuildValue("l",
|
|
result);
|
|
return _res;
|
|
}
|
|
|
|
static PyMethodDef AE_methods[] = {
|
|
{"AECreateDesc", (PyCFunction)AE_AECreateDesc, 1,
|
|
"(DescType typeCode, Buffer dataPtr) -> (AEDesc result)"},
|
|
{"AECoercePtr", (PyCFunction)AE_AECoercePtr, 1,
|
|
"(DescType typeCode, Buffer dataPtr, DescType toType) -> (AEDesc result)"},
|
|
{"AECreateList", (PyCFunction)AE_AECreateList, 1,
|
|
"(Buffer factoringPtr, Boolean isRecord) -> (AEDescList resultList)"},
|
|
{"AEPutPtr", (PyCFunction)AE_AEPutPtr, 1,
|
|
"(long index, DescType typeCode, Buffer dataPtr) -> (AEDescList theAEDescList)"},
|
|
{"AEPutDesc", (PyCFunction)AE_AEPutDesc, 1,
|
|
"(long index, AEDesc theAEDesc) -> (AEDescList theAEDescList)"},
|
|
{"AEDeleteItem", (PyCFunction)AE_AEDeleteItem, 1,
|
|
"(long index) -> (AEDescList theAEDescList)"},
|
|
{"AECreateAppleEvent", (PyCFunction)AE_AECreateAppleEvent, 1,
|
|
"(AEEventClass theAEEventClass, AEEventID theAEEventID, AEAddressDesc target, short returnID, long transactionID) -> (AppleEvent result)"},
|
|
{"AEProcessAppleEvent", (PyCFunction)AE_AEProcessAppleEvent, 1,
|
|
"(EventRecord theEventRecord) -> None"},
|
|
{"AEGetInteractionAllowed", (PyCFunction)AE_AEGetInteractionAllowed, 1,
|
|
"() -> (AEInteractAllowed level)"},
|
|
{"AESetInteractionAllowed", (PyCFunction)AE_AESetInteractionAllowed, 1,
|
|
"(AEInteractAllowed level) -> None"},
|
|
{"AEInteractWithUser", (PyCFunction)AE_AEInteractWithUser, 1,
|
|
"(long timeOutInTicks) -> None"},
|
|
{"AEInstallEventHandler", (PyCFunction)AE_AEInstallEventHandler, 1,
|
|
"(AEEventClass theAEEventClass, AEEventID theAEEventID, long handlerRefcon) -> None"},
|
|
{"AERemoveEventHandler", (PyCFunction)AE_AERemoveEventHandler, 1,
|
|
"(AEEventClass theAEEventClass, AEEventID theAEEventID) -> None"},
|
|
{"AEManagerInfo", (PyCFunction)AE_AEManagerInfo, 1,
|
|
"(AEKeyword keyWord) -> (long result)"},
|
|
{NULL, NULL, 0}
|
|
};
|
|
|
|
|
|
|
|
static pascal OSErr
|
|
GenericEventHandler(AppleEvent *request, AppleEvent *reply, long refcon)
|
|
{
|
|
PyObject *handler = (PyObject *)refcon;
|
|
AEDescObject *requestObject, *replyObject;
|
|
PyObject *args, *res;
|
|
if ((requestObject = (AEDescObject *)AEDesc_New(request)) == NULL) {
|
|
return -1;
|
|
}
|
|
if ((replyObject = (AEDescObject *)AEDesc_New(reply)) == NULL) {
|
|
Py_DECREF(requestObject);
|
|
return -1;
|
|
}
|
|
if ((args = Py_BuildValue("OO", requestObject, replyObject)) == NULL) {
|
|
Py_DECREF(requestObject);
|
|
Py_DECREF(replyObject);
|
|
return -1;
|
|
}
|
|
res = PyEval_CallObject(handler, args);
|
|
requestObject->ob_itself.descriptorType = 'null';
|
|
requestObject->ob_itself.dataHandle = NULL;
|
|
replyObject->ob_itself.descriptorType = 'null';
|
|
replyObject->ob_itself.dataHandle = NULL;
|
|
Py_DECREF(args);
|
|
if (res == NULL)
|
|
return -1;
|
|
Py_DECREF(res);
|
|
return noErr;
|
|
}
|
|
|
|
|
|
void initAE()
|
|
{
|
|
PyObject *m;
|
|
PyObject *d;
|
|
|
|
|
|
|
|
upp_AEIdleProc = NewAEIdleProc(AEIdleProc);
|
|
upp_GenericEventHandler = NewAEEventHandlerProc(GenericEventHandler);
|
|
|
|
|
|
m = Py_InitModule("AE", AE_methods);
|
|
d = PyModule_GetDict(m);
|
|
AE_Error = PyMac_GetOSErrException();
|
|
if (AE_Error == NULL ||
|
|
PyDict_SetItemString(d, "Error", AE_Error) != 0)
|
|
Py_FatalError("can't initialize AE.Error");
|
|
}
|
|
|
|
/* ========================= End module AE ========================== */
|
|
|