diff options
Diffstat (limited to 'Mac/Modules/icgluemodule.c')
-rw-r--r-- | Mac/Modules/icgluemodule.c | 474 |
1 files changed, 0 insertions, 474 deletions
diff --git a/Mac/Modules/icgluemodule.c b/Mac/Modules/icgluemodule.c deleted file mode 100644 index 5ea6c72..0000000 --- a/Mac/Modules/icgluemodule.c +++ /dev/null @@ -1,474 +0,0 @@ -/*********************************************************** -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 = { - PyVarObject_HEAD_INIT(&PyType_Type, 0) - "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; - - /* 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"); -} - |