From 2d16703d654e773b09fd73e66ef663a2d5256768 Mon Sep 17 00:00:00 2001 From: Guido van Rossum Date: Fri, 16 Sep 1994 10:54:21 +0000 Subject: [PATCH] gestaltmodule.c: interface to Gestalt Manager. macosmodule.c: interface to random collection of Managers. macsetfiletype.c: set file type, for import.c. --- Mac/Modules/gestaltmodule.c | 45 ++++ Mac/Modules/macosmodule.c | 405 ++++++++++++++++++++++++++++++++++++ Mac/Python/macsetfiletype.c | 25 +++ 3 files changed, 475 insertions(+) create mode 100644 Mac/Modules/gestaltmodule.c create mode 100644 Mac/Modules/macosmodule.c create mode 100644 Mac/Python/macsetfiletype.c diff --git a/Mac/Modules/gestaltmodule.c b/Mac/Modules/gestaltmodule.c new file mode 100644 index 00000000000..efc7b073dca --- /dev/null +++ b/Mac/Modules/gestaltmodule.c @@ -0,0 +1,45 @@ +/* Macintosh Gestalt interface */ + +#include "allobjects.h" +#include "modsupport.h" + +#include +#include + +static object * +gestalt_gestalt(self, args) + object *self; + object *args; +{ + OSErr iErr; + char *str; + int size; + OSType selector; + long response; + if (!getargs(args, "s#", &str, &size)) + return NULL; + if (size != 4) { + err_setstr(TypeError, "gestalt arg must be 4-char string"); + return NULL; + } + selector = *(OSType*)str; + iErr = Gestalt ( selector, &response ); + if (iErr != 0) { + char buf[100]; + sprintf(buf, "Gestalt error code %d", iErr); + err_setstr(RuntimeError, buf); + return NULL; + } + return newintobject(response); +} + +static struct methodlist gestalt_methods[] = { + {"gestalt", gestalt_gestalt}, + {NULL, NULL} /* Sentinel */ +}; + +void +initgestalt() +{ + initmodule("gestalt", gestalt_methods); +} diff --git a/Mac/Modules/macosmodule.c b/Mac/Modules/macosmodule.c new file mode 100644 index 00000000000..f653e362cb8 --- /dev/null +++ b/Mac/Modules/macosmodule.c @@ -0,0 +1,405 @@ +/*********************************************************** +Copyright 1991, 1992, 1993, 1994 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 not be used in advertising or publicity pertaining to +distribution of the software without specific, written prior permission. + +STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO +THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND +FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM 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. + +******************************************************************/ + +/* Macintosh OS-specific interface */ + +#include "Python.h" + +#include +#include +#include + +#include +#include + +/*----------------------------------------------------------------------*/ +/* General tools */ + +static PyObject *MacOS_Error; /* Exception MacOS.Error */ + +/* Set a MAC-specific error from errno, and return NULL; return None if no error */ +static PyObject * +Err(OSErr err) +{ + char buf[100]; + PyObject *v; + if (err == 0) { + Py_INCREF(Py_None); + return Py_None; + } + sprintf(buf, "Mac OS error code %d", (int)err); + v = Py_BuildValue("(is)", (int)err, buf); + PyErr_SetObject(MacOS_Error, v); + Py_DECREF(v); + return NULL; +} + +/* Check for a ResType argument */ +static int +GetOSType(PyObject *v, ResType *pr) +{ + if (!PyString_Check(v) || PyString_Size(v) != 4) { + PyErr_SetString(MacOS_Error, + "OSType arg must be string of 4 chars"); + return 0; + } + memcpy((char *)pr, PyString_AsString(v), 4); + return 1; +} + +/* Check for a Str255 argument */ +static int +GetStr255(PyObject *v, Str255 pbuf) +{ + int len; + if (!PyString_Check(v) || (len = PyString_Size(v)) > 255) { + PyErr_SetString(MacOS_Error, + "Str255 arg must be string <= 255 chars"); + return 0; + } + pbuf[0] = len; + memcpy((char *)(pbuf+1), PyString_AsString(v), len); + return 1; +} + +/*----------------------------------------------------------------------*/ +/* Resource objects */ + +typedef struct { + OB_HEAD + Handle h; +} RsrcObject; + +staticforward PyTypeObject RsrcType; + +#define RsrcObject_Check(r) ((r)->ob_type == &RsrcType) + +static RsrcObject * +Rsrc_FromHandle(Handle h) +{ + RsrcObject *r; + if (h == NULL) + return (RsrcObject *)Err(ResError()); + r = PyObject_NEW(RsrcObject, &RsrcType); + if (r != NULL) + r->h = h; + return r; +} + +static void +Rsrc_Dealloc(RsrcObject *r) +{ + PyMem_DEL(r); +} + +static PyObject * +Rsrc_GetResInfo(RsrcObject *r, PyObject *args) +{ + short id; + ResType type; + Str255 name; + if (!PyArg_Parse(args, "()")) + return NULL; + GetResInfo(r->h, &id, &type, name); + return Py_BuildValue("(is#s#)", + (int)id, (char *)&type, 4, name+1, (int)name[0]); +} + +static PyMethodDef Rsrc_Methods[] = { + {"GetResInfo", (PyCFunction)Rsrc_GetResInfo, 1}, + {NULL, NULL} /* Sentinel */ +}; + +static PyObject * +Rsrc_GetAttr(PyObject *r, char *name) +{ + return Py_FindMethod(Rsrc_Methods, r, name); +} + +static PyTypeObject RsrcType = { + PyObject_HEAD_INIT(&PyType_Type) + 0, + "Resource", /*tp_name*/ + sizeof(RsrcObject), /*tp_basicsize*/ + 0, /*tp_itemsize*/ + /* methods */ + (destructor)Rsrc_Dealloc, /*tp_dealloc*/ + 0, /*tp_print*/ + (getattrfunc)Rsrc_GetAttr, /*tp_getattr*/ + 0, /*tp_setattr*/ + 0, /*tp_compare*/ + 0, /*tp_repr*/ + 0, /*tp_as_number*/ + 0, /*tp_as_sequence*/ + 0, /*tp_as_mapping*/ + 0, /*tp_hash*/ +}; + +static PyObject * +MacOS_GetResource(PyObject *self, PyObject *args) +{ + ResType rt; + int id; + Handle h; + if (!PyArg_Parse(args, "(O&i)", GetOSType, &rt, &id)) + return NULL; + h = GetResource(rt, id); + return (PyObject *)Rsrc_FromHandle(h); +} + +static PyObject * +MacOS_GetNamedResource(PyObject *self, PyObject *args) +{ + ResType rt; + Str255 name; + Handle h; + if (!PyArg_Parse(args, "(O&O&)", GetOSType, &rt, GetStr255, &name)) + return NULL; + h = GetNamedResource(rt, name); + return (PyObject *)Rsrc_FromHandle(h); +} + +/*----------------------------------------------------------------------*/ +/* SoundChannel objects */ + +/* Check for a SndCommand argument */ +static int +GetSndCommand(PyObject *v, SndCommand *pc) +{ + int len; + pc->param1 = 0; + pc->param2 = 0; + if (PyArg_Parse(v, "h", &pc->cmd)) + return 1; + PyErr_Clear(); + if (PyArg_Parse(v, "(h)", &pc->cmd)) + return 1; + PyErr_Clear(); + if (PyArg_Parse(v, "(hh)", &pc->cmd, &pc->param1)) + return 1; + PyErr_Clear(); + if (PyArg_Parse(v, "(hhl)", + &pc->cmd, &pc->param1, &pc->param2)) + return 1; + PyErr_Clear(); + if (PyArg_Parse(v, "(hhs#);SndCommand arg must be 1-3 ints or 2 ints + string", + &pc->cmd, &pc->param1, &pc->param2, &len)) + return 1; + return 0; +} + +typedef struct { + OB_HEAD + SndChannelPtr chan; +} SndChObject; + +staticforward PyTypeObject SndChType; + +#define SndChObject_Check(s) ((s)->ob_type == &SndChType) + +static SndChObject * +SndCh_FromSndChannelPtr(SndChannelPtr chan) +{ + SndChObject *s = PyObject_NEW(SndChObject, &SndChType); + if (s != NULL) + s->chan = chan; + return s; +} + +static void +SndCh_Dealloc(SndChObject *s) +{ + if (s->chan != NULL) { + SndDisposeChannel(s->chan, 1); + s->chan = NULL; + } + PyMem_DEL(s); +} + +static PyObject * +SndCh_Close(SndChObject *s, PyObject *args) +{ + int quietNow = 1; + if (args != NULL) { + if (!PyArg_Parse(args, "i", &quietNow)) + return NULL; + } + if (s->chan != NULL) { + SndDisposeChannel(s->chan, quietNow); + s->chan = NULL; + } + Py_INCREF(Py_None); + return Py_None; +} + +static PyObject * +SndCh_SndPlay(SndChObject *s, PyObject *args) +{ + RsrcObject *r; + int async = 0; + if (!PyArg_Parse(args, "(O)", &r)) { + PyErr_Clear(); + if (!PyArg_Parse(args, "(Oi)", &r, &async)) + return NULL; + } + if (!RsrcObject_Check(r)) { + PyErr_SetString(MacOS_Error, + "SndPlay argument must be resource"); + return NULL; + } + SndPlay(s->chan, r->h, async); + Py_INCREF(Py_None); + return Py_None; +} + +static PyObject * +SndCh_SndDoCommand(SndChObject *s, PyObject *args) +{ + SndCommand c; + int noWait = 0; + OSErr err; + if (!PyArg_Parse(args, "(O&)", GetSndCommand, &c)) { + PyErr_Clear(); + if (!PyArg_Parse(args, "(O&i)", GetSndCommand, &c, &noWait)) + return 0; + } + err = SndDoCommand(s->chan, &c, noWait); + return Err(err); +} + +static PyObject * +SndCh_SndDoImmediate(SndChObject *s, PyObject *args) +{ + SndCommand c; + OSErr err; + if (!PyArg_Parse(args, "(O&)", GetSndCommand, &c)) + return 0; + err = SndDoImmediate(s->chan, &c); + return Err(err); +} + +static PyMethodDef SndCh_Methods[] = { + {"close", (PyCFunction)SndCh_Close}, + {"SndDisposeChannel", (PyCFunction)SndCh_Close}, + {"SndPlay", (PyCFunction)SndCh_SndPlay, 1}, + {"SndDoCommand", (PyCFunction)SndCh_SndDoCommand, 1}, + {"SndDoImmediate", (PyCFunction)SndCh_SndDoImmediate, 1}, + {NULL, NULL} /* Sentinel */ +}; + +static PyObject * +SndCh_GetAttr(PyObject *s, char *name) +{ + return Py_FindMethod(SndCh_Methods, s, name); +} + +static PyTypeObject SndChType = { + PyObject_HEAD_INIT(&PyType_Type) + 0, + "SoundChannel", /*tp_name*/ + sizeof(SndChObject), /*tp_basicsize*/ + 0, /*tp_itemsize*/ + /* methods */ + (destructor)SndCh_Dealloc, /*tp_dealloc*/ + 0, /*tp_print*/ + (getattrfunc)SndCh_GetAttr, /*tp_getattr*/ + 0, /*tp_setattr*/ + 0, /*tp_compare*/ + 0, /*tp_repr*/ + 0, /*tp_as_number*/ + 0, /*tp_as_sequence*/ + 0, /*tp_as_mapping*/ + 0, /*tp_hash*/ +}; + +/*----------------------------------------------------------------------*/ +/* Module */ + +static PyObject * +MacOS_SndNewChannel(PyObject *self, PyObject *args) +{ + SndChannelPtr chan; + short synth; + long init = 0; + OSErr err; + if (!PyArg_Parse(args, "(h)", &synth)) { + PyErr_Clear(); + if (!PyArg_Parse(args, "(hl)", &synth, &init)) + return NULL; + } + chan = NULL; + err = SndNewChannel(&chan, synth, init, (SndCallBackProcPtr)NULL); + if (err) + return Err(err); + return (PyObject *)SndCh_FromSndChannelPtr(chan); +} + +static PyObject * +MacOS_SndPlay(PyObject *self, PyObject *args) +{ + RsrcObject *r; + OSErr err; + if (!PyArg_Parse(args, "(O!)", &RsrcType, &r)) + return NULL; + err = SndPlay((SndChannelPtr)NULL, r->h, 0); + return Err(err); +} + +static PyObject * +MacOS_SndControl(PyObject *self, PyObject *args) +{ + int id; + SndCommand c; + OSErr err; + if (!PyArg_Parse(args, "(iO&)", &id, GetSndCommand, &c)) + return NULL; + err = SndControl(id, &c); + if (err) + return Err(err); + return Py_BuildValue("(hhl)", c.cmd, c.param1, c.param2); +} + +static PyMethodDef MacOS_Methods[] = { + {"GetResource", MacOS_GetResource, 1}, + {"GetNamedResource", MacOS_GetNamedResource, 1}, + {"SndNewChannel", MacOS_SndNewChannel, 1}, + {"SndPlay", MacOS_SndPlay, 1}, + {"SndControl", MacOS_SndControl, 1}, + {NULL, NULL} /* Sentinel */ +}; + + +void +MacOS_Init() +{ + PyObject *m, *d; + + m = Py_InitModule("MacOS", MacOS_Methods); + d = PyModule_GetDict(m); + + /* Initialize MacOS.Error exception */ + MacOS_Error = PyString_FromString("MacOS.Error"); + if (MacOS_Error == NULL || PyDict_SetItemString(d, "Error", MacOS_Error) != 0) + Py_FatalError("can't define MacOS.Error"); +} diff --git a/Mac/Python/macsetfiletype.c b/Mac/Python/macsetfiletype.c new file mode 100644 index 00000000000..7ba70807d55 --- /dev/null +++ b/Mac/Python/macsetfiletype.c @@ -0,0 +1,25 @@ + +/* + * macsetfiletype - Set the mac's idea of file type + * + */ + +#include +#include + +int +setfiletype(name, creator, type) +char *name; +long creator, type; +{ + FInfo info; + unsigned char *pname; + + pname = c2pstr(name); + if ( GetFInfo(pname, 0, &info) < 0 ) + return -1; + info.fdType = type; + info.fdCreator = creator; + return SetFInfo(pname, 0, &info); +} +