symbian-qemu-0.9.1-12/python-2.6.1/Mac/Modules/icgluemodule.c
changeset 1 2fb8b9db1c86
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/symbian-qemu-0.9.1-12/python-2.6.1/Mac/Modules/icgluemodule.c	Fri Jul 31 15:01:17 2009 +0100
@@ -0,0 +1,478 @@
+/***********************************************************
+Copyright 1991-1997 by Stichting Mathematisch Centrum, Amsterdam,
+The Netherlands.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose and without fee is hereby granted,
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in
+supporting documentation, and that the names of Stichting Mathematisch
+Centrum or CWI or Corporation for National Research Initiatives or
+CNRI not be used in advertising or publicity pertaining to
+distribution of the software without specific, written prior
+permission.
+
+While CWI is the initial source for this software, a modified version
+is made available by the Corporation for National Research Initiatives
+(CNRI) at the Internet address ftp://ftp.python.org.
+
+STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
+REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
+CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
+PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
+TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+PERFORMANCE OF THIS SOFTWARE.
+
+******************************************************************/
+
+#include "Python.h"
+#include "pymactoolbox.h"
+
+extern int ResObj_Convert(PyObject *, Handle *); /* From Resmodule.c */
+
+#include <Carbon/Carbon.h>
+
+static PyObject *ErrorObject;
+
+/* ----------------------------------------------------- */
+
+/* Declarations for objects of type ic_instance */
+
+typedef struct {
+	PyObject_HEAD
+	ICInstance inst;
+} iciobject;
+
+static PyTypeObject Icitype;
+
+
+
+/* ---------------------------------------------------------------- */
+
+
+static char ici_ICGetSeed__doc__[] = 
+"()->int; Returns int that changes when configuration does"
+;
+
+static PyObject *
+ici_ICGetSeed(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	long seed;
+	
+	if (!PyArg_ParseTuple(args, ""))
+		return NULL;
+	if ((err=ICGetSeed(self->inst, &seed)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("i", (int)seed);
+}
+
+
+static char ici_ICBegin__doc__[] = 
+"(perm)->None; Lock config file for read/write"
+;
+
+static PyObject *
+ici_ICBegin(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	int perm;
+	
+	if (!PyArg_ParseTuple(args, "i", &perm))
+		return NULL;
+	if ((err=ICBegin(self->inst, (ICPerm)perm)) != 0 )
+		return PyMac_Error(err);
+	Py_INCREF(Py_None);
+	return Py_None;
+}
+
+
+static char ici_ICFindPrefHandle__doc__[] = 
+"(key, handle)->attrs; Lookup key, store result in handle, return attributes"
+;
+
+static PyObject *
+ici_ICFindPrefHandle(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	Str255 key;
+	ICAttr attr;
+	Handle h;
+	
+	if (!PyArg_ParseTuple(args, "O&O&", PyMac_GetStr255, &key, ResObj_Convert, &h))
+		return NULL;
+	if ((err=ICFindPrefHandle(self->inst, key, &attr, h)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("i", (int)attr);
+}
+
+
+static char ici_ICSetPref__doc__[] = 
+"(key, attr, data)->None; Set preference key to data with attributes"
+;
+
+static PyObject *
+ici_ICSetPref(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	Str255 key;
+	int attr;
+	char *data;
+	int datalen;
+	
+	if (!PyArg_ParseTuple(args, "O&is#", PyMac_GetStr255, &key, &attr, 
+					&data, &datalen))
+		return NULL;
+	if ((err=ICSetPref(self->inst, key, (ICAttr)attr, (Ptr)data, 
+			(long)datalen)) != 0)
+		return PyMac_Error(err);
+	Py_INCREF(Py_None);
+	return Py_None;
+}
+
+
+static char ici_ICCountPref__doc__[] = 
+"()->int; Return number of preferences"
+;
+
+static PyObject *
+ici_ICCountPref(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	long count;
+	
+	if (!PyArg_ParseTuple(args, ""))
+		return NULL;
+	if ((err=ICCountPref(self->inst, &count)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("i", (int)count);
+}
+
+
+static char ici_ICGetIndPref__doc__[] = 
+"(num)->key; Return key of preference with given index"
+;
+
+static PyObject *
+ici_ICGetIndPref(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	long num;
+	Str255 key;
+	
+	if (!PyArg_ParseTuple(args, "l", &num))
+		return NULL;
+	if ((err=ICGetIndPref(self->inst, num, key)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("O&", PyMac_BuildStr255, key);
+}
+
+
+static char ici_ICDeletePref__doc__[] = 
+"(key)->None; Delete preference"
+;
+
+static PyObject *
+ici_ICDeletePref(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	Str255 key;
+
+	if (!PyArg_ParseTuple(args, "O&", PyMac_GetStr255, key))
+		return NULL;
+	if ((err=ICDeletePref(self->inst, key)) != 0 )
+		return PyMac_Error(err);
+	Py_INCREF(Py_None);
+	return Py_None;
+}
+
+
+static char ici_ICEnd__doc__[] = 
+"()->None; Unlock file after ICBegin call"
+;
+
+static PyObject *
+ici_ICEnd(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	
+	if (!PyArg_ParseTuple(args, ""))
+		return NULL;
+	if ((err=ICEnd(self->inst)) != 0 )
+		return PyMac_Error(err);
+	Py_INCREF(Py_None);
+	return Py_None;
+}
+
+
+static char ici_ICEditPreferences__doc__[] = 
+"(key)->None; Ask user to edit preferences, staring with key"
+;
+
+static PyObject *
+ici_ICEditPreferences(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	Str255 key;
+	
+	if (!PyArg_ParseTuple(args, "O&", PyMac_GetStr255, key))
+		return NULL;
+	if ((err=ICEditPreferences(self->inst, key)) != 0 )
+		return PyMac_Error(err);
+	Py_INCREF(Py_None);
+	return Py_None;
+}
+
+
+static char ici_ICParseURL__doc__[] = 
+"(hint, data, selStart, selEnd, handle)->selStart, selEnd; Find an URL, return in handle"
+;
+
+static PyObject *
+ici_ICParseURL(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	Str255 hint;
+	char *data;
+	int datalen;
+	long selStart, selEnd;
+	Handle h;
+	
+	if (!PyArg_ParseTuple(args, "O&s#llO&", PyMac_GetStr255, hint, &data, &datalen,
+				&selStart, &selEnd, ResObj_Convert, &h))
+		return NULL;
+	if ((err=ICParseURL(self->inst, hint, (Ptr)data, (long)datalen,
+				&selStart, &selEnd, h)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("ii", (int)selStart, (int)selEnd);
+}
+
+
+static char ici_ICLaunchURL__doc__[] = 
+"(hint, data, selStart, selEnd)->None; Find an URL and launch the correct app"
+;
+
+static PyObject *
+ici_ICLaunchURL(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	Str255 hint;
+	char *data;
+	int datalen;
+	long selStart, selEnd;
+	
+	if (!PyArg_ParseTuple(args, "O&s#ll", PyMac_GetStr255, hint, &data, &datalen,
+				&selStart, &selEnd))
+		return NULL;
+	if ((err=ICLaunchURL(self->inst, hint, (Ptr)data, (long)datalen,
+				&selStart, &selEnd)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("ii", (int)selStart, (int)selEnd);
+}
+
+
+static char ici_ICMapFilename__doc__[] = 
+"(filename)->mapinfo; Get filemap info for given filename"
+;
+
+static PyObject *
+ici_ICMapFilename(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	Str255 filename;
+	ICMapEntry entry;
+	
+	if (!PyArg_ParseTuple(args, "O&", PyMac_GetStr255, filename))
+		return NULL;
+	if ((err=ICMapFilename(self->inst, filename, &entry)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("hO&O&O&lO&O&O&O&O&", entry.version, 
+		PyMac_BuildOSType, entry.fileType,
+		PyMac_BuildOSType, entry.fileCreator, 
+		PyMac_BuildOSType, entry.postCreator, 
+		entry.flags,
+		PyMac_BuildStr255, entry.extension,
+		PyMac_BuildStr255, entry.creatorAppName,
+		PyMac_BuildStr255, entry.postAppName,
+		PyMac_BuildStr255, entry.MIMEType,
+		PyMac_BuildStr255, entry.entryName);
+}
+
+
+static char ici_ICMapTypeCreator__doc__[] = 
+"(type, creator, filename)->mapinfo; Get filemap info for given tp/cr/filename"
+;
+
+static PyObject *
+ici_ICMapTypeCreator(iciobject *self, PyObject *args)
+{
+	OSStatus err;
+	OSType type, creator;
+	Str255 filename;
+	ICMapEntry entry;
+	
+	if (!PyArg_ParseTuple(args, "O&O&O&",
+			PyMac_GetOSType, &type,
+			PyMac_GetOSType, &creator,
+			PyMac_GetStr255, filename))
+		return NULL;
+	if ((err=ICMapTypeCreator(self->inst, type, creator, filename, &entry)) != 0 )
+		return PyMac_Error(err);
+	return Py_BuildValue("hO&O&O&lO&O&O&O&O&", entry.version, 
+		PyMac_BuildOSType, entry.fileType,
+		PyMac_BuildOSType, entry.fileCreator, 
+		PyMac_BuildOSType, entry.postCreator, 
+		entry.flags,
+		PyMac_BuildStr255, entry.extension,
+		PyMac_BuildStr255, entry.creatorAppName,
+		PyMac_BuildStr255, entry.postAppName,
+		PyMac_BuildStr255, entry.MIMEType,
+		PyMac_BuildStr255, entry.entryName);
+}
+
+
+static struct PyMethodDef ici_methods[] = {
+ {"ICGetSeed",	(PyCFunction)ici_ICGetSeed,	METH_VARARGS,	ici_ICGetSeed__doc__},
+ {"ICBegin",	(PyCFunction)ici_ICBegin,	METH_VARARGS,	ici_ICBegin__doc__},
+ {"ICFindPrefHandle",	(PyCFunction)ici_ICFindPrefHandle,	METH_VARARGS,	ici_ICFindPrefHandle__doc__},
+ {"ICSetPref",	(PyCFunction)ici_ICSetPref,	METH_VARARGS,	ici_ICSetPref__doc__},
+ {"ICCountPref",	(PyCFunction)ici_ICCountPref,	METH_VARARGS,	ici_ICCountPref__doc__},
+ {"ICGetIndPref",	(PyCFunction)ici_ICGetIndPref,	METH_VARARGS,	ici_ICGetIndPref__doc__},
+ {"ICDeletePref",	(PyCFunction)ici_ICDeletePref,	METH_VARARGS,	ici_ICDeletePref__doc__},
+ {"ICEnd",	(PyCFunction)ici_ICEnd,	METH_VARARGS,	ici_ICEnd__doc__},
+ {"ICEditPreferences",	(PyCFunction)ici_ICEditPreferences,	METH_VARARGS,	ici_ICEditPreferences__doc__},
+ {"ICParseURL",	(PyCFunction)ici_ICParseURL,	METH_VARARGS,	ici_ICParseURL__doc__},
+ {"ICLaunchURL",	(PyCFunction)ici_ICLaunchURL,	METH_VARARGS,	ici_ICLaunchURL__doc__},
+ {"ICMapFilename",	(PyCFunction)ici_ICMapFilename,	METH_VARARGS,	ici_ICMapFilename__doc__},
+ {"ICMapTypeCreator",	(PyCFunction)ici_ICMapTypeCreator,	METH_VARARGS,	ici_ICMapTypeCreator__doc__},
+ 
+	{NULL,		NULL}		/* sentinel */
+};
+
+/* ---------- */
+
+
+static iciobject *
+newiciobject(OSType creator)
+{
+	iciobject *self;
+	OSStatus err;
+	
+	self = PyObject_NEW(iciobject, &Icitype);
+	if (self == NULL)
+		return NULL;
+	if ((err=ICStart(&self->inst, creator)) != 0 ) {
+		(void)PyMac_Error(err);
+		PyObject_DEL(self);
+		return NULL;
+	}
+	return self;
+}
+
+
+static void
+ici_dealloc(iciobject *self)
+{
+	(void)ICStop(self->inst);
+	PyObject_DEL(self);
+}
+
+static PyObject *
+ici_getattr(iciobject *self, char *name)
+{
+	return Py_FindMethod(ici_methods, (PyObject *)self, name);
+}
+
+static char Icitype__doc__[] = 
+"Internet Config instance"
+;
+
+static PyTypeObject Icitype = {
+	PyObject_HEAD_INIT(&PyType_Type)
+	0,				/*ob_size*/
+	"icglue.ic_instance",		/*tp_name*/
+	sizeof(iciobject),		/*tp_basicsize*/
+	0,				/*tp_itemsize*/
+	/* methods */
+	(destructor)ici_dealloc,	/*tp_dealloc*/
+	(printfunc)0,		/*tp_print*/
+	(getattrfunc)ici_getattr,	/*tp_getattr*/
+	(setattrfunc)0,	/*tp_setattr*/
+	(cmpfunc)0,		/*tp_compare*/
+	(reprfunc)0,		/*tp_repr*/
+	0,			/*tp_as_number*/
+	0,		/*tp_as_sequence*/
+	0,		/*tp_as_mapping*/
+	(hashfunc)0,		/*tp_hash*/
+	(ternaryfunc)0,		/*tp_call*/
+	(reprfunc)0,		/*tp_str*/
+
+	/* Space for future expansion */
+	0L,0L,0L,0L,
+	Icitype__doc__ /* Documentation string */
+};
+
+/* End of code for ic_instance objects */
+/* -------------------------------------------------------- */
+
+
+static char ic_ICStart__doc__[] =
+"(OSType)->ic_instance; Create an Internet Config instance"
+;
+
+static PyObject *
+ic_ICStart(PyObject *self, PyObject *args)
+{
+	OSType creator;
+
+	if (!PyArg_ParseTuple(args, "O&", PyMac_GetOSType, &creator))
+		return NULL;
+	return (PyObject *)newiciobject(creator);
+}
+
+/* List of methods defined in the module */
+
+static struct PyMethodDef ic_methods[] = {
+	{"ICStart",	(PyCFunction)ic_ICStart,	METH_VARARGS,	ic_ICStart__doc__},
+ 
+	{NULL,	 (PyCFunction)NULL, 0, NULL}		/* sentinel */
+};
+
+
+/* Initialization function for the module (*must* be called initicglue) */
+
+static char icglue_module_documentation[] = 
+"Implements low-level Internet Config interface"
+;
+
+void
+initicglue(void)
+{
+	PyObject *m, *d;
+	
+	if (PyErr_WarnPy3k("In 3.x, icglue is removed.", 1))
+		return;
+
+	/* Create the module and add the functions */
+	m = Py_InitModule4("icglue", ic_methods,
+		icglue_module_documentation,
+		(PyObject*)NULL,PYTHON_API_VERSION);
+
+	/* Add some symbolic constants to the module */
+	d = PyModule_GetDict(m);
+	ErrorObject = PyMac_GetOSErrException();
+	if (ErrorObject == NULL ||
+	    PyDict_SetItemString(d, "error", ErrorObject) != 0)
+		return;
+
+	/* XXXX Add constants here */
+	
+	/* Check for errors */
+	if (PyErr_Occurred())
+		Py_FatalError("can't initialize module icglue");
+}
+