// This is the SIP interface definition for TQStrList.
//
// Copyright (c) 2007
// 	Riverbank Computing Limited <info@riverbankcomputing.co.uk>
// 
// This file is part of PyTQt.
// 
// This copy of PyTQt is free software; you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by the Free
// Software Foundation; either version 2, or (at your option) any later
// version.
// 
// PyTQt is supplied in the hope that it will be useful, but WITHOUT ANY
// WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
// FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
// details.
// 
// You should have received a copy of the GNU General Public License along with
// PyTQt; see the file LICENSE.  If not, write to the Free Software Foundation,
// Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.


%ExportedDoc
<Sect2><Title>TQStrList</Title>
<Para>
This class isn't implemented.  Whenever a <Literal>TQStrList</Literal> is the
return type of a function or the type of an argument, a Python list of strings
is used instead.
</Para>
</Sect2>
%End


%MappedType TQStrList
{
%TypeHeaderCode
#include <tqstrlist.h>
%End

%ConvertFromTypeCode
	// Convert to a Python list of strings.

	char *s;
	int i;
	PyObject *l;

	// Create the list.

	if ((l = PyList_New(sipCpp -> count())) == NULL)
		return NULL;

	// Get it.

	i = 0;

	for (s = sipCpp -> first(); s != NULL; s = sipCpp -> next())
	{
		PyObject *ps;

		if ((ps = PyBytes_FromString(s)) == NULL || PyList_SetItem(l,i,ps) < 0)
		{
			Py_XDECREF(ps);
			Py_DECREF(l);
			return NULL;
		}

		++i;
	}

	return l;
%End

%ConvertToTypeCode
	// Convert a Python list of strings to a TQStrList on the heap.

	if (sipIsErr == NULL)
		return PyList_Check(sipPy);

	TQStrList *tqsl = new TQStrList;

	for (int i = 0; i < PyList_GET_SIZE(sipPy); ++i)
	{
		PyObject *object = PyList_GET_ITEM(sipPy, i);
		char *s;

		if (PyUnicode_Check(object))
		{
			s = tqstrdup(sipString_AsUTF8String(&object));
		}
		else if ((s = (char *)sipBytes_AsString(object)) == NULL)
		{
			*sipIsErr = 1;
			delete tqsl;
			return 0;
		}

		tqsl -> append(s);
	}

	*sipCppPtr = tqsl;

	return sipGetState(sipTransferObj);
%End
};
