/* ========================== Module _OSA =========================== */

#include "Python.h"

#include "pymactoolbox.h"

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

#if PY_VERSION_HEX < 0x02040000

PyObject *PyMac_GetOSErrException(void);

#endif

#include <Carbon/Carbon.h>

#ifdef USE_TOOLBOX_OBJECT_GLUE

extern PyObject *_OSAObj_New(ComponentInstance);

extern int _OSAObj_Convert(PyObject *, ComponentInstance *);

#define OSAObj_New _OSAObj_New

#define OSAObj_Convert _OSAObj_Convert

#endif

static PyObject *OSA_Error;

/* ---------------- Object type OSAComponentInstance ---------------- */

PyTypeObject OSAComponentInstance_Type;

#define OSAObj_Check(x) ((x)->ob_type == &OSAComponentInstance_Type || PyObject_TypeCheck((x), &OSAComponentInstance_Type))

typedef struct OSAComponentInstanceObject {

	PyObject_HEAD

	ComponentInstance ob_itself;

} OSAComponentInstanceObject;

PyObject *OSAObj_New(ComponentInstance itself)

{

	OSAComponentInstanceObject *it;

	if (itself == NULL) {

	                                PyErr_SetString(OSA_Error,"NULL ComponentInstance");

	                                return NULL;

	                        }

	it = PyObject_NEW(OSAComponentInstanceObject, &OSAComponentInstance_Type);

	if (it == NULL) return NULL;

	it->ob_itself = itself;

	return (PyObject *)it;

}

int OSAObj_Convert(PyObject *v, ComponentInstance *p_itself)

{

	                if (CmpInstObj_Convert(v, p_itself))

	                        return 1;

	                PyErr_Clear();

	if (!OSAObj_Check(v))

	{

		PyErr_SetString(PyExc_TypeError, "OSAComponentInstance required");

		return 0;

	}

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

	return 1;

}

static void OSAObj_dealloc(OSAComponentInstanceObject *self)

{

	/* Cleanup of self->ob_itself goes here */

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

}

static PyObject *OSAObj_OSALoad(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEDesc scriptData;

	long modeFlags;

	OSAID resultingScriptID;

#ifndef OSALoad

	PyMac_PRECHECK(OSALoad);

#endif

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

	                      AEDesc_Convert, &scriptData,

	                      &modeFlags))

		return NULL;

	_err = OSALoad(_self->ob_itself,

	               &scriptData,

	               modeFlags,

	               &resultingScriptID);

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

	_res = Py_BuildValue("l",

	                     resultingScriptID);

	return _res;

}

static PyObject *OSAObj_OSAStore(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID scriptID;

	DescType desiredType;

	long modeFlags;

	AEDesc resultingScriptData;

#ifndef OSAStore

	PyMac_PRECHECK(OSAStore);

#endif

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

	                      &scriptID,

	                      PyMac_GetOSType, &desiredType,

	                      &modeFlags))

		return NULL;

	_err = OSAStore(_self->ob_itself,

	                scriptID,

	                desiredType,

	                modeFlags,

	                &resultingScriptData);

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

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &resultingScriptData);

	return _res;

}

static PyObject *OSAObj_OSAExecute(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID compiledScriptID;

	OSAID contextID;

	long modeFlags;

	OSAID resultingScriptValueID;

#ifndef OSAExecute

	PyMac_PRECHECK(OSAExecute);

#endif

	if (!PyArg_ParseTuple(_args, "lll",

	                      &compiledScriptID,

	                      &contextID,

	                      &modeFlags))

		return NULL;

	_err = OSAExecute(_self->ob_itself,

	                  compiledScriptID,

	                  contextID,

	                  modeFlags,

	                  &resultingScriptValueID);

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

	_res = Py_BuildValue("l",

	                     resultingScriptValueID);

	return _res;

}

static PyObject *OSAObj_OSADisplay(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID scriptValueID;

	DescType desiredType;

	long modeFlags;

	AEDesc resultingText;

#ifndef OSADisplay

	PyMac_PRECHECK(OSADisplay);

#endif

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

	                      &scriptValueID,

	                      PyMac_GetOSType, &desiredType,

	                      &modeFlags))

		return NULL;

	_err = OSADisplay(_self->ob_itself,

	                  scriptValueID,

	                  desiredType,

	                  modeFlags,

	                  &resultingText);

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

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &resultingText);

	return _res;

}

static PyObject *OSAObj_OSAScriptError(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSType selector;

	DescType desiredType;

	AEDesc resultingErrorDescription;

#ifndef OSAScriptError

	PyMac_PRECHECK(OSAScriptError);

#endif

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

	                      PyMac_GetOSType, &selector,

	                      PyMac_GetOSType, &desiredType))

		return NULL;

	_err = OSAScriptError(_self->ob_itself,

	                      selector,

	                      desiredType,

	                      &resultingErrorDescription);

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

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &resultingErrorDescription);

	return _res;

}

static PyObject *OSAObj_OSADispose(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID scriptID;

#ifndef OSADispose

	PyMac_PRECHECK(OSADispose);

#endif

	if (!PyArg_ParseTuple(_args, "l",

	                      &scriptID))

		return NULL;

	_err = OSADispose(_self->ob_itself,

	                  scriptID);

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

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *OSAObj_OSASetScriptInfo(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID scriptID;

	OSType selector;

	long value;

#ifndef OSASetScriptInfo

	PyMac_PRECHECK(OSASetScriptInfo);

#endif

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

	                      &scriptID,

	                      PyMac_GetOSType, &selector,

	                      &value))

		return NULL;

	_err = OSASetScriptInfo(_self->ob_itself,

	                        scriptID,

	                        selector,

	                        value);

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

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *OSAObj_OSAGetScriptInfo(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID scriptID;

	OSType selector;

	long result;

#ifndef OSAGetScriptInfo

	PyMac_PRECHECK(OSAGetScriptInfo);

#endif

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

	                      &scriptID,

	                      PyMac_GetOSType, &selector))

		return NULL;

	_err = OSAGetScriptInfo(_self->ob_itself,

	                        scriptID,

	                        selector,

	                        &result);

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

	_res = Py_BuildValue("l",

	                     result);

	return _res;

}

static PyObject *OSAObj_OSAScriptingComponentName(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEDesc resultingScriptingComponentName;

#ifndef OSAScriptingComponentName

	PyMac_PRECHECK(OSAScriptingComponentName);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_err = OSAScriptingComponentName(_self->ob_itself,

	                                 &resultingScriptingComponentName);

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

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &resultingScriptingComponentName);

	return _res;

}

static PyObject *OSAObj_OSACompile(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEDesc sourceData;

	long modeFlags;

	OSAID previousAndResultingScriptID;

#ifndef OSACompile

	PyMac_PRECHECK(OSACompile);

#endif

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

	                      AEDesc_Convert, &sourceData,

	                      &modeFlags))

		return NULL;

	_err = OSACompile(_self->ob_itself,

	                  &sourceData,

	                  modeFlags,

	                  &previousAndResultingScriptID);

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

	_res = Py_BuildValue("l",

	                     previousAndResultingScriptID);

	return _res;

}

static PyObject *OSAObj_OSACopyID(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID fromID;

	OSAID toID;

#ifndef OSACopyID

	PyMac_PRECHECK(OSACopyID);

#endif

	if (!PyArg_ParseTuple(_args, "l",

	                      &fromID))

		return NULL;

	_err = OSACopyID(_self->ob_itself,

	                 fromID,

	                 &toID);

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

	_res = Py_BuildValue("l",

	                     toID);

	return _res;

}

static PyObject *OSAObj_OSAGetSource(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID scriptID;

	DescType desiredType;

	AEDesc resultingSourceData;

#ifndef OSAGetSource

	PyMac_PRECHECK(OSAGetSource);

#endif

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

	                      &scriptID,

	                      PyMac_GetOSType, &desiredType))

		return NULL;

	_err = OSAGetSource(_self->ob_itself,

	                    scriptID,

	                    desiredType,

	                    &resultingSourceData);

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

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &resultingSourceData);

	return _res;

}

static PyObject *OSAObj_OSACoerceFromDesc(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEDesc scriptData;

	long modeFlags;

	OSAID resultingScriptID;

#ifndef OSACoerceFromDesc

	PyMac_PRECHECK(OSACoerceFromDesc);

#endif

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

	                      AEDesc_Convert, &scriptData,

	                      &modeFlags))

		return NULL;

	_err = OSACoerceFromDesc(_self->ob_itself,

	                         &scriptData,

	                         modeFlags,

	                         &resultingScriptID);

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

	_res = Py_BuildValue("l",

	                     resultingScriptID);

	return _res;

}

static PyObject *OSAObj_OSACoerceToDesc(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID scriptID;

	DescType desiredType;

	long modeFlags;

	AEDesc result;

#ifndef OSACoerceToDesc

	PyMac_PRECHECK(OSACoerceToDesc);

#endif

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

	                      &scriptID,

	                      PyMac_GetOSType, &desiredType,

	                      &modeFlags))

		return NULL;

	_err = OSACoerceToDesc(_self->ob_itself,

	                       scriptID,

	                       desiredType,

	                       modeFlags,

	                       &result);

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

	_res = Py_BuildValue("O&",

	                     AEDesc_New, &result);

	return _res;

}

static PyObject *OSAObj_OSASetDefaultTarget(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEAddressDesc target;

#ifndef OSASetDefaultTarget

	PyMac_PRECHECK(OSASetDefaultTarget);

#endif

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

	                      AEDesc_Convert, &target))

		return NULL;

	_err = OSASetDefaultTarget(_self->ob_itself,

	                           &target);

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

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *OSAObj_OSAStartRecording(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID compiledScriptToModifyID;

#ifndef OSAStartRecording

	PyMac_PRECHECK(OSAStartRecording);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_err = OSAStartRecording(_self->ob_itself,

	                         &compiledScriptToModifyID);

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

	_res = Py_BuildValue("l",

	                     compiledScriptToModifyID);

	return _res;

}

static PyObject *OSAObj_OSAStopRecording(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	OSAID compiledScriptID;

#ifndef OSAStopRecording

	PyMac_PRECHECK(OSAStopRecording);

#endif

	if (!PyArg_ParseTuple(_args, "l",

	                      &compiledScriptID))

		return NULL;

	_err = OSAStopRecording(_self->ob_itself,

	                        compiledScriptID);

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

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *OSAObj_OSALoadExecute(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEDesc scriptData;

	OSAID contextID;

	long modeFlags;

	OSAID resultingScriptValueID;

#ifndef OSALoadExecute

	PyMac_PRECHECK(OSALoadExecute);

#endif

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

	                      AEDesc_Convert, &scriptData,

	                      &contextID,

	                      &modeFlags))

		return NULL;

	_err = OSALoadExecute(_self->ob_itself,

	                      &scriptData,

	                      contextID,

	                      modeFlags,

	                      &resultingScriptValueID);

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

	_res = Py_BuildValue("l",

	                     resultingScriptValueID);

	return _res;

}

static PyObject *OSAObj_OSACompileExecute(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEDesc sourceData;

	OSAID contextID;

	long modeFlags;

	OSAID resultingScriptValueID;

#ifndef OSACompileExecute

	PyMac_PRECHECK(OSACompileExecute);

#endif

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

	                      AEDesc_Convert, &sourceData,

	                      &contextID,

	                      &modeFlags))

		return NULL;

	_err = OSACompileExecute(_self->ob_itself,

	                         &sourceData,

	                         contextID,

	                         modeFlags,

	                         &resultingScriptValueID);

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

	_res = Py_BuildValue("l",

	                     resultingScriptValueID);

	return _res;

}

static PyObject *OSAObj_OSADoScript(OSAComponentInstanceObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSAError _err;

	AEDesc sourceData;