/* ========================== Module _List ========================== */

#include "Python.h"

#ifndef __LP64__

#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)

#include <Carbon/Carbon.h>

#ifdef USE_TOOLBOX_OBJECT_GLUE

extern PyObject *_ListObj_New(ListHandle);

extern int _ListObj_Convert(PyObject *, ListHandle *);

#define ListObj_New _ListObj_New

#define ListObj_Convert _ListObj_Convert

#endif

#define as_List(x) ((ListHandle)x)

#define as_Resource(lh) ((Handle)lh)

static ListDefUPP myListDefFunctionUPP;

static PyObject *List_Error;

/* ------------------------ Object type List ------------------------ */

PyTypeObject List_Type;

#define ListObj_Check(x) ((x)->ob_type == &List_Type || PyObject_TypeCheck((x), &List_Type))

typedef struct ListObject {

	PyObject_HEAD

	ListHandle ob_itself;

	PyObject *ob_ldef_func;

	int ob_must_be_disposed;

} ListObject;

PyObject *ListObj_New(ListHandle itself)

{

	ListObject *it;

	if (itself == NULL) {

	                                PyErr_SetString(List_Error,"Cannot create null List");

	                                return NULL;

	                        }

	it = PyObject_NEW(ListObject, &List_Type);

	if (it == NULL) return NULL;

	it->ob_itself = itself;

	it->ob_ldef_func = NULL;

	it->ob_must_be_disposed = 1;

	SetListRefCon(itself, (long)it);

	return (PyObject *)it;

}

int ListObj_Convert(PyObject *v, ListHandle *p_itself)

{

	if (!ListObj_Check(v))

	{

		PyErr_SetString(PyExc_TypeError, "List required");

		return 0;

	}

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

	return 1;

}

static void ListObj_dealloc(ListObject *self)

{

	Py_XDECREF(self->ob_ldef_func);

	self->ob_ldef_func = NULL;

	SetListRefCon(self->ob_itself, (long)0);

	if (self->ob_must_be_disposed && self->ob_itself) LDispose(self->ob_itself);

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

}

static PyObject *ListObj_LAddColumn(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	short _rv;

	short count;

	short colNum;

	if (!PyArg_ParseTuple(_args, "hh",

	                      &count,

	                      &colNum))

		return NULL;

	_rv = LAddColumn(count,

	                 colNum,

	                 _self->ob_itself);

	_res = Py_BuildValue("h",

	                     _rv);

	return _res;

}

static PyObject *ListObj_LAddRow(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	short _rv;

	short count;

	short rowNum;

	if (!PyArg_ParseTuple(_args, "hh",

	                      &count,

	                      &rowNum))

		return NULL;

	_rv = LAddRow(count,

	              rowNum,

	              _self->ob_itself);

	_res = Py_BuildValue("h",

	                     _rv);

	return _res;

}

static PyObject *ListObj_LDelColumn(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	short count;

	short colNum;

	if (!PyArg_ParseTuple(_args, "hh",

	                      &count,

	                      &colNum))

		return NULL;

	LDelColumn(count,

	           colNum,

	           _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LDelRow(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	short count;

	short rowNum;

	if (!PyArg_ParseTuple(_args, "hh",

	                      &count,

	                      &rowNum))

		return NULL;

	LDelRow(count,

	        rowNum,

	        _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LGetSelect(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean _rv;

	Boolean next;

	Point theCell;

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

	                      &next,

	                      PyMac_GetPoint, &theCell))

		return NULL;

	_rv = LGetSelect(next,

	                 &theCell,

	                 _self->ob_itself);

	_res = Py_BuildValue("bO&",

	                     _rv,

	                     PyMac_BuildPoint, theCell);

	return _res;

}

static PyObject *ListObj_LLastClick(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Point _rv;

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_rv = LLastClick(_self->ob_itself);

	_res = Py_BuildValue("O&",

	                     PyMac_BuildPoint, _rv);

	return _res;

}

static PyObject *ListObj_LNextCell(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean _rv;

	Boolean hNext;

	Boolean vNext;

	Point theCell;

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

	                      &hNext,

	                      &vNext,

	                      PyMac_GetPoint, &theCell))

		return NULL;

	_rv = LNextCell(hNext,

	                vNext,

	                &theCell,

	                _self->ob_itself);

	_res = Py_BuildValue("bO&",

	                     _rv,

	                     PyMac_BuildPoint, theCell);

	return _res;

}

static PyObject *ListObj_LSize(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	short listWidth;

	short listHeight;

	if (!PyArg_ParseTuple(_args, "hh",

	                      &listWidth,

	                      &listHeight))

		return NULL;

	LSize(listWidth,

	      listHeight,

	      _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LSetDrawingMode(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean drawIt;

	if (!PyArg_ParseTuple(_args, "b",

	                      &drawIt))

		return NULL;

	LSetDrawingMode(drawIt,

	                _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LScroll(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	short dCols;

	short dRows;

	if (!PyArg_ParseTuple(_args, "hh",

	                      &dCols,

	                      &dRows))

		return NULL;

	LScroll(dCols,

	        dRows,

	        _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LAutoScroll(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	LAutoScroll(_self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LUpdate(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	RgnHandle theRgn;

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

	                      ResObj_Convert, &theRgn))

		return NULL;

	LUpdate(theRgn,

	        _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LActivate(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean act;

	if (!PyArg_ParseTuple(_args, "b",

	                      &act))

		return NULL;

	LActivate(act,

	          _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LCellSize(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Point cSize;

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

	                      PyMac_GetPoint, &cSize))

		return NULL;

	LCellSize(cSize,

	          _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LClick(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean _rv;

	Point pt;

	EventModifiers modifiers;

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

	                      PyMac_GetPoint, &pt,

	                      &modifiers))

		return NULL;

	_rv = LClick(pt,

	             modifiers,

	             _self->ob_itself);

	_res = Py_BuildValue("b",

	                     _rv);

	return _res;

}

static PyObject *ListObj_LAddToCell(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	char *dataPtr__in__;

	short dataPtr__len__;

	int dataPtr__in_len__;

	Point theCell;

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

	                      &dataPtr__in__, &dataPtr__in_len__,

	                      PyMac_GetPoint, &theCell))

		return NULL;

	dataPtr__len__ = dataPtr__in_len__;

	LAddToCell(dataPtr__in__, dataPtr__len__,

	           theCell,

	           _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LClrCell(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Point theCell;

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

	                      PyMac_GetPoint, &theCell))

		return NULL;

	LClrCell(theCell,

	         _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LGetCell(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	char *dataPtr__out__;

	short dataPtr__len__;

	int dataPtr__in_len__;

	Point theCell;

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

	                      &dataPtr__in_len__,

	                      PyMac_GetPoint, &theCell))

		return NULL;

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

	{

		PyErr_NoMemory();

		goto dataPtr__error__;

	}

	dataPtr__len__ = dataPtr__in_len__;

	LGetCell(dataPtr__out__, &dataPtr__len__,

	         theCell,

	         _self->ob_itself);

	_res = Py_BuildValue("s#",

	                     dataPtr__out__, (int)dataPtr__len__);

	free(dataPtr__out__);

 dataPtr__error__: ;

	return _res;

}

static PyObject *ListObj_LRect(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Rect cellRect;

	Point theCell;

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

	                      PyMac_GetPoint, &theCell))

		return NULL;

	LRect(&cellRect,

	      theCell,

	      _self->ob_itself);

	_res = Py_BuildValue("O&",

	                     PyMac_BuildRect, &cellRect);

	return _res;

}

static PyObject *ListObj_LSetCell(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	char *dataPtr__in__;

	short dataPtr__len__;

	int dataPtr__in_len__;

	Point theCell;

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

	                      &dataPtr__in__, &dataPtr__in_len__,

	                      PyMac_GetPoint, &theCell))

		return NULL;

	dataPtr__len__ = dataPtr__in_len__;

	LSetCell(dataPtr__in__, dataPtr__len__,

	         theCell,

	         _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LSetSelect(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean setIt;

	Point theCell;

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

	                      &setIt,

	                      PyMac_GetPoint, &theCell))

		return NULL;

	LSetSelect(setIt,

	           theCell,

	           _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LDraw(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Point theCell;

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

	                      PyMac_GetPoint, &theCell))

		return NULL;

	LDraw(theCell,

	      _self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *ListObj_LGetCellDataLocation(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	short offset;

	short len;

	Point theCell;

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

	                      PyMac_GetPoint, &theCell))

		return NULL;

	LGetCellDataLocation(&offset,

	                     &len,

	                     theCell,

	                     _self->ob_itself);

	_res = Py_BuildValue("hh",

	                     offset,

	                     len);

	return _res;

}

static PyObject *ListObj_GetListPort(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	CGrafPtr _rv;

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_rv = GetListPort(_self->ob_itself);

	_res = Py_BuildValue("O&",

	                     GrafObj_New, _rv);

	return _res;

}

static PyObject *ListObj_GetListVerticalScrollBar(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	ControlHandle _rv;

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_rv = GetListVerticalScrollBar(_self->ob_itself);

	_res = Py_BuildValue("O&",

	                     CtlObj_New, _rv);

	return _res;

}

static PyObject *ListObj_GetListHorizontalScrollBar(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	ControlHandle _rv;

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_rv = GetListHorizontalScrollBar(_self->ob_itself);

	_res = Py_BuildValue("O&",

	                     CtlObj_New, _rv);

	return _res;

}

static PyObject *ListObj_GetListActive(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean _rv;

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_rv = GetListActive(_self->ob_itself);

	_res = Py_BuildValue("b",

	                     _rv);

	return _res;

}

static PyObject *ListObj_GetListClickTime(ListObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	SInt32 _rv;

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;