+++ /dev/null
-/***********************************************************
-Copyright 1991-1995 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.
-
-******************************************************************/
-
-/* Objective-C interface for NeXTStep */
-/* Tested with NeXTStep 3.3 on Intel and Sparc architectures */
-
-/* Original author: Jon M. Kutemeier */
-/* Revamped and maintained by: Guido van Rossum */
-
-/* XXX To do:
- - bug??? x.send('name', []) gives weird error
- - rename functions from objc_* to ObjC_*
- - change send(sel, [a, b, c]) to send(self, a, b, c)
- - call back to Python from Objective-C
- */
-
-/* Python header file */
-#include "Python.h"
-
-/* NeXT headers */
-#include <sys/param.h>
-#include <mach-o/rld.h>
-#include <objc/objc.h>
-#include <objc/objc-runtime.h>
-#import <remote/NXProxy.h>
-
-/* Distinguish between ObjC classes and instances */
-typedef enum {
- OBJC_CLASS,
- OBJC_INSTANCE,
-} ObjC_Typecode;
-
-/* Exception raised for ObjC specific errors */
-static PyObject *ObjC_Error;
-
-/* Python wrapper about ObjC id (instance or class) */
-typedef struct {
- PyObject_HEAD
- id obj;
- ObjC_Typecode type;
- int owned;
-} ObjCObject;
-
-/* Corresponding Python type object */
-staticforward PyTypeObject ObjC_Type;
-
-/* Corresponding Python type check macro */
-#define ObjC_Check(o) ((o)->ob_type == &ObjC_Type)
-
-/* Create a new ObjCObject */
-static ObjCObject *
-newObjCObject(obj, type, owned)
- id obj;
- ObjC_Typecode type;
- int owned;
-{
- ObjCObject *self;
-
- self = PyObject_NEW(ObjCObject, &ObjC_Type);
- if (self == NULL)
- return NULL;
-
- self->obj = obj;
- self->type = type;
- self->owned = owned;
-
- return self;
-}
-
-static void
-objc_sendfree(self)
- ObjCObject *self;
-{
- if (self->obj)
- self->obj = (id)objc_msgSend(self->obj, SELUID("free"));
-}
-
-/* Deallocate an ObjCObject */
-static void
-objc_dealloc(self)
- ObjCObject *self;
-{
- if (self->owned)
- objc_sendfree(self);
- PyMem_DEL(self);
-}
-
-/* Return a string representation of an ObjCObject */
-static PyObject *
-objc_repr(self)
- ObjCObject *self;
-{
- char buffer[512];
- char *p = buffer;
- if (self->obj == nil)
- p = "<Objective-C nil>";
- else {
- char *t;
- switch (self->type) {
- case OBJC_CLASS: t = "class"; break;
- case OBJC_INSTANCE: t = "instance"; break;
- default: t = "???"; break;
- }
- sprintf(buffer, "<Objective-C %s %s at %lx>",
- NAMEOF(self->obj), t, (long)(self->obj));
- }
- return PyString_FromString(p);
-}
-
-/*** ObjCObject methods ***/
-
-/* Call an object's free method */
-static PyObject *
-objc_free(self, args)
- ObjCObject *self;
- PyObject *args;
-{
- if (!PyArg_ParseTuple(args, ""))
- return NULL;
- objc_sendfree(self);
-}
-
-/* Send a message to an ObjCObject.
- The Python call looks like e.g. obj.send('moveTo::', [arg1, arg2])
- which translates into Objective-C as [obj moveTo: arg1 : arg2] */
-static PyObject *
-objc_send(self, args)
- ObjCObject *self;
- PyObject *args;
-{
- char *methodname;
- char *margBuff = NULL;
- PyObject *retobject = NULL;
- PyObject *arglist;
- id receiver, obj;
- char *type;
- SEL sel;
- Method meth;
- unsigned int margCount, margSize;
- int offset, i;
-
- if (!PyArg_ParseTuple(args, "sO!", &methodname, &PyList_Type, &arglist))
- return NULL;
-
- /* Get the method descriptor from the object */
-
- receiver = self->obj;
- sel = SELUID(methodname);
-
- switch(self->type) {
- case OBJC_CLASS:
- meth = class_getClassMethod(receiver->isa, sel);
- break;
- case OBJC_INSTANCE:
- meth = class_getInstanceMethod(receiver->isa, sel);
- break;
- default:
- PyErr_SetString(ObjC_Error,
- "receiver's type is neither instance not class!?!?");
- return NULL;
- }
-
- if (!meth) {
- PyErr_SetString(ObjC_Error, "receiver has no method by that name");
- return NULL;
- }
-
- /* Fill in the argument list, type-checking the arguments */
-
- margCount = method_getNumberOfArguments(meth);
-
- if (PyList_Size(arglist) + 2 != margCount) {
- PyErr_SetString(ObjC_Error,
- "wrong number of arguments for this method");
- return NULL;
- }
-
- margSize = method_getSizeOfArguments(meth);
- margBuff = PyMem_NEW(char, margSize+1);
- if (margBuff == NULL)
- return PyErr_NoMemory();
-
- method_getArgumentInfo(meth, 0, &type, &offset);
- marg_setValue(margBuff, offset, id, receiver);
-
- method_getArgumentInfo(meth, 1, &type, &offset);
- marg_setValue(margBuff, offset, SEL, sel);
-
- for (i = 2; i < margCount; i++) {
- PyObject *argument;
- method_getArgumentInfo(meth, i, &type, &offset);
-
- argument = PyList_GetItem(arglist, i-2);
-
- /* scan past protocol-type modifiers */
- while (strchr("rnNoOV", *type) != 0)
- type++;
-
- /* common type checks */
- switch(*type) {
-
- /* XXX The errors here should point out which argument */
-
- case 'c':
- case '*':
- case 'C':
- if (!PyString_Check(argument)) {
- PyErr_SetString(ObjC_Error, "string argument expected");
- goto error;
- }
- break;
-
- case 'i':
- case 's':
- case 'I':
- case 'S':
- case 'l':
- case 'L':
- case '^':
- if (!PyInt_Check(argument)) {
- PyErr_SetString(ObjC_Error, "integer argument expected");
- goto error;
- }
- break;
-
- case 'f':
- case 'd':
- if (!PyFloat_Check(argument)) {
- PyErr_SetString(ObjC_Error, "float argument expected");
- goto error;
- }
- break;
-
- }
-
- /* convert and store the argument */
- switch (*type) {
-
- case 'c': /* char */
- marg_setValue(margBuff, offset, char,
- PyString_AsString(argument)[0]);
- break;
-
- case 'C': /* unsigned char */
- marg_setValue(margBuff, offset, unsigned char,
- PyString_AsString(argument)[0]);
- break;
-
- case '*': /* string */
- marg_setValue(margBuff, offset, char *,
- PyString_AsString(argument));
- break;
-
- case 'i': /* int */
- marg_setValue(margBuff, offset, int,
- PyInt_AsLong(argument));
- break;
-
- case 'I': /* unsigned int */
- marg_setValue(margBuff, offset, unsigned int,
- PyInt_AsLong(argument));
- break;
-
- case 's': /* short */
- marg_setValue(margBuff, offset, short,
- PyInt_AsLong(argument));
- break;
-
- case 'S': /* unsigned short */
- marg_setValue(margBuff, offset, unsigned short,
- PyInt_AsLong(argument));
- break;
-
- case 'l': /* long */
- marg_setValue(margBuff, offset, long,
- PyInt_AsLong(argument));
- break;
-
- case 'L': /* unsigned long */
- marg_setValue(margBuff, offset, unsigned long,
- PyInt_AsLong(argument));
- break;
-
- case 'f': /* float */
- marg_setValue(margBuff, offset, float,
- (float)PyFloat_AsDouble(argument));
- break;
-
- case 'd': /* double */
- marg_setValue(margBuff, offset, double,
- PyFloat_AsDouble(argument));
- break;
-
- case '@': /* id (or None) */
- if (ObjC_Check(argument))
- marg_setValue(margBuff, offset, id,
- ((ObjCObject *)(argument))->obj);
- else if (argument == Py_None)
- marg_setValue(margBuff, offset, id, nil);
- else {
- PyErr_SetString(ObjC_Error, "id or None argument expected");
- goto error;
- }
- break;
-
- case '^': /* void * (use int) */
- marg_setValue(margBuff, offset, void *,
- (void *)PyInt_AsLong(argument));
- break;
-
- case ':': /* SEL (use string or int) */
- if (PyInt_Check(argument))
- marg_setValue(margBuff, offset, SEL,
- (SEL)PyInt_AsLong(argument));
- else if (PyString_Check(argument))
- marg_setValue(margBuff, offset, SEL,
- SELUID(PyString_AsString(argument)));
- else {
- PyErr_SetString(ObjC_Error,
- "selector string or int argument expected");
- goto error;
- }
- break;
-
- case '#': /* Class (may also use int) */
- if (ObjC_Check(argument) &&
- ((ObjCObject *)argument)->type == OBJC_INSTANCE)
- marg_setValue(margBuff, offset, Class *,
- (Class *)((ObjCObject *)argument)->obj);
- else if (PyInt_Check(argument))
- marg_setValue(margBuff, offset, Class *,
- (Class *)PyInt_AsLong(argument));
- else {
- PyErr_SetString(ObjC_Error,
- "ObjC class object required");
- goto error;
- }
- break;
-
- default:
- PyErr_SetString(ObjC_Error, "unknown argument type");
- goto error;
-
- }
- }
-
- /* Call the method and set the return value */
-
- type = meth->method_types;
-
- while (strchr("rnNoOV", *type))
- type++;
-
- switch(*type) {
-
-/* Cast objc_msgSendv to a function returning the right thing */
-#define MS_CAST(type) ((type (*)())objc_msgSendv)
-
- case 'c':
- case '*':
- case 'C':
- retobject = (PyObject *)PyString_FromString(
- MS_CAST(char *)(receiver, sel, margSize, margBuff));
- break;
-
- case 'i':
- case 's':
- case 'I':
- case 'S':
- retobject = (PyObject *)PyInt_FromLong(
- MS_CAST(int)(receiver, sel, margSize, margBuff));
- break;
-
- case 'l':
- case 'L':
- case '^':
- retobject = (PyObject *)PyInt_FromLong(
- MS_CAST(long)(receiver, sel, margSize, margBuff));
- break;
-
- case 'f':
- retobject = (PyObject *)PyFloat_FromDouble(
- MS_CAST(float)(receiver, sel, margSize, margBuff));
- break;
-
- case 'd':
- retobject = (PyObject *)PyFloat_FromDouble(
- MS_CAST(double)(receiver, sel, margSize, margBuff));
- break;
-
- case '@':
- obj = MS_CAST(id)(receiver, sel, margSize, margBuff);
- if (obj == nil) {
- retobject = Py_None;
- Py_INCREF(retobject);
- }
- else if (obj != receiver)
- retobject = (PyObject *)newObjCObject(obj, OBJC_INSTANCE, 0);
- else {
- retobject = (PyObject *)self;
- Py_INCREF(retobject);
- }
- break;
-
- case ':':
- retobject = (PyObject *)PyInt_FromLong(
- (long)MS_CAST(SEL)(receiver, sel, margSize, margBuff));
- break;
-
- case '#':
- retobject = (PyObject *)PyInt_FromLong(
- (long)MS_CAST(Class *)(receiver, sel, margSize, margBuff));
- break;
-
-#undef MS_CAST
-
- }
-
- error:
- PyMem_XDEL(margBuff);
- return retobject;
-}
-
-/* List of methods for ObjCObject */
-static PyMethodDef objc_methods[] = {
- {"send", (PyCFunction)objc_send, 1},
- {"free", (PyCFunction)objc_free, 1},
- {NULL, NULL} /* sentinel */
-};
-
-/* Get an attribute of an ObjCObject */
-static PyObject *
-objc_getattr(self, name)
- ObjCObject *self;
- char *name;
-{
- PyObject *method;
-
- /* Try a function method */
- method = Py_FindMethod(objc_methods, (PyObject *)self, name);
- if (method != NULL)
- return method;
- PyErr_Clear();
-
- /* Try an instance variable */
- if (strcmp(name, "obj") == 0)
- return PyInt_FromLong((long)self->obj);
- if (strcmp(name, "type") == 0)
- return PyInt_FromLong((long)self->type);
- if (strcmp(name, "owned") == 0)
- return PyInt_FromLong((long)self->owned);
- if (strcmp(name, "name") == 0)
- return PyString_FromString(NAMEOF(self->obj));
- if (strcmp(name, "__members__") == 0)
- return Py_BuildValue("[sss]", "name", "obj", "owned", "type");
-
- PyErr_SetString(PyExc_AttributeError, name);
- return NULL;
-}
-
-/* The type object */
-static PyTypeObject ObjC_Type = {
- PyObject_HEAD_INIT(&PyType_Type)
- 0, /*ob_size*/
- "objc", /*tp_name*/
- sizeof(ObjCObject), /*tp_basicsize*/
- 0, /*tp_itemsize*/
- /* methods */
- (destructor)objc_dealloc, /*tp_dealloc*/
- 0, /*tp_print*/
- (getattrfunc)objc_getattr, /*tp_getattr*/
- 0, /*tp_setattr*/
- 0, /*tp_compare*/
- (reprfunc)objc_repr, /*tp_repr*/
- 0, /*tp_as_number*/
- 0, /*tp_as_sequence*/
- 0, /*tp_as_mapping*/
- 0, /*tp_hash*/
- 0, /*tp_call*/
- 0, /*tp_str*/
- 0, 0, 0, 0, /*xxx1-4*/
- "Objective-C id wrapper", /*tp_doc*/
-};
-
-
-
-/*** Top-level functions ***/
-
-/* Max #files passed to loadobjectfile() */
-#define MAXRLD 128
-
-/* Load a list of object files */
-static PyObject *
-objc_loadobjectfiles(self, args)
-PyObject *self; /* Not used */
-PyObject *args;
-{
- NXStream *errorStream;
- struct mach_header *new_header;
- const char *filenames[MAXRLD+1];
- long ret;
- char *streamBuf;
- PyObject *filelist, *file;
- int listsize, len, maxLen, i;
-
- if (!PyArg_ParseTuple(args, "O!", &PyList_Type, &filelist))
- return NULL;
-
- listsize = PyList_Size(filelist);
-
- if (listsize > MAXRLD) {
- PyErr_SetString(ObjC_Error, "more than 128 files in list");
- return NULL;
- }
-
- errorStream = NXOpenMemory(NULL, 0, NX_WRITEONLY);
-
- for (i = 0; i < listsize; i++) {
- file = PyList_GetItem(filelist, i);
-
- if (!PyString_Check(file))
- {
- PyErr_SetString(ObjC_Error,
- "all list items must be strings");
- return NULL;
- }
-
- filenames[i] = PyString_AsString(file);
- }
-
- filenames[listsize] = NULL;
-
- ret = objc_loadModules(filenames, errorStream, NULL, &new_header, NULL);
-
- /* extract the error messages for the exception */
-
- if(ret) {
- NXPutc(errorStream, (char)0);
-
- NXGetMemoryBuffer(errorStream, &streamBuf, &len, &maxLen);
- PyErr_SetString(ObjC_Error, streamBuf);
- }
-
- NXCloseMemory(errorStream, NX_FREEBUFFER);
-
- if(ret)
- return NULL;
-
- Py_XINCREF(Py_None);
- return Py_None;
-}
-
-static PyObject *
-objc_lookupclass(self, args)
-PyObject *self; /* Not used */
-PyObject *args;
-{
- char *classname;
- id class;
-
- if (!PyArg_ParseTuple(args, "s", &classname))
- return NULL;
-
- if (!(class = objc_lookUpClass(classname)))
- {
- PyErr_SetString(ObjC_Error, "unknown ObjC class");
- return NULL;
- }
-
- return (PyObject *)newObjCObject(class, OBJC_CLASS, 0);
-}
-
-/* List all classes */
-static PyObject *
-objc_listclasses(self, args)
- ObjCObject *self;
- PyObject *args;
-{
- NXHashTable *class_hash = objc_getClasses();
- NXHashState state = NXInitHashState(class_hash);
- Class classid;
- PyObject *list;
-
- if (!PyArg_ParseTuple(args, ""))
- return NULL;
-
- list = PyList_New(0);
- if (list == NULL)
- return NULL;
-
- while (NXNextHashState(class_hash, &state, (void**)&classid)) {
- ObjCObject *item = newObjCObject(classid, OBJC_CLASS, 0);
- if (item == NULL || PyList_Append(list, (PyObject *)item) < 0) {
- Py_XDECREF(item);
- Py_DECREF(list);
- return NULL;
- }
- Py_INCREF(item);
- }
-
- return list;
-}
-
-/* List of top-level functions */
-static PyMethodDef objc_class_methods[] = {
- {"loadobjectfiles", objc_loadobjectfiles, 1},
- {"lookupclass", objc_lookupclass, 1},
- {"listclasses", objc_listclasses, 1},
- {NULL, NULL} /* sentinel */
-};
-
-/* Initialize for the module */
-void
-initobjc()
-{
- PyObject *m, *d;
-
- m = Py_InitModule("objc", objc_class_methods);
- d = PyModule_GetDict(m);
-
- ObjC_Error = PyString_FromString("objc.error");
- PyDict_SetItemString(d, "error", ObjC_Error);
-
- if (PyErr_Occurred())
- Py_FatalError("can't initialize module objc");
-
-#ifdef WITH_THREAD
- objc_setMultithreaded(1);
-#endif
-}
+++ /dev/null
-/*
-Subject: Re: Sybase module -- input sought
-From: jredford@lehman.com
-To: ags@uncompaghre.informatics.jax.org (Alexander G. Smith)
-Cc: python-list@cwi.nl
-Date: Tue, 10 May 94 11:53:13 -0400
-
-
-input sought? how about a complete module? :)
-
-This is a fairly incomplete work.. but I have done things dramatically
-differently than sybperl would. Given the nature of the language I
-find it is easier to simply get ALL results & then muck with the rows
-later as parts of the data. This is a subset of the functionality of a
-Modula-3 interface to Sybase that I wrote.. I could send you that if
-you are interested in a more complete picture.
-*/
-
-#include <stdio.h>
-
-#include <sybfront.h>
-#include <sybdb.h>
-
-#include "allobjects.h"
-#include "modsupport.h"
-
-
-static object *SybaseError; /* exception sybase.error */
-
-
-typedef struct {
- OB_HEAD
- LOGINREC *login; /* login record */
- DBPROCESS *dbproc; /* login record */
-} sybdbobject;
-
-extern typeobject SybDbtype; /* Forward */
-
-
-static sybdbobject *
- newsybdbobject(char *user, char *passwd, char *server)
-{
- sybdbobject *s;
-
- s = NEWOBJ(sybdbobject, &SybDbtype);
- if (s != NULL) {
- s->login = dblogin();
- if (user) {
- (void)DBSETLUSER(s->login, user);
- }
- if (passwd) {
- (void)DBSETLPWD(s->login, passwd);
- }
- if(!(s->dbproc = dbopen(s->login, server))) {
- dbloginfree(s->login);
- DEL(s);
- return (NULL);
- }
- }
- return s;
-}
-
-/* OBJECT FUNCTIONS: sybdb */
-
-/* Common code for returning pending results */
-static object
- *getresults (DBPROCESS *dbp)
-{
- object *results;
- object *list;
- object *tuple;
- object *o;
- int retcode;
- int cols;
- int *fmt;
- int i;
-
- results = newlistobject(0);
- while ((retcode = dbresults(dbp)) != NO_MORE_RESULTS) {
- if (retcode == SUCCEED && DBROWS(dbp) == SUCCEED) {
- list = newlistobject(0);
- cols = dbnumcols(dbp);
- fmt = (int *)malloc(sizeof(int) * cols);
- for (i = 1; i <= cols; i++) {
- switch(dbcoltype(dbp, i)) {
- case SYBCHAR:
- fmt[i-1] = SYBCHAR;
- break;
- case SYBINT1:
- fmt[i-1] = SYBINT1;
- break;
- case SYBINT2:
- fmt[i-1] = SYBINT2;
- break;
- case SYBINT4:
- fmt[i-1] = SYBINT4;
- break;
- case SYBFLT8:
- fmt[i-1] = SYBFLT8;
- break;
- }
- }
- while (dbnextrow(dbp) != NO_MORE_ROWS) {
- tuple = newtupleobject(cols);
- for (i = 1; i <= cols; i++) {
- switch(fmt[i-1]) {
- case SYBCHAR:
- o = newsizedstringobject((char *)dbdata(dbp, i), dbdatlen(dbp, i));
- settupleitem(tuple, i-1, o);
- break;
- case SYBINT1:
- o = newintobject(*((char *)dbdata(dbp, i)));
- settupleitem(tuple, i-1, o);
- break;
- case SYBINT2:
- o = newintobject(*((short *)dbdata(dbp, i)));
- settupleitem(tuple, i-1, o);
- break;
- case SYBINT4:
- o = newintobject(*((int *)dbdata(dbp, i)));
- settupleitem(tuple, i-1, o);
- break;
- case SYBFLT8:
- o = newfloatobject(*((double *)dbdata(dbp, i)));
- settupleitem(tuple, i-1, o);
- break;
- }
- }
- addlistitem(list,tuple);
- }
- free(fmt);
- addlistitem(results,list);
- }
- }
- return (results);
-}
-
-static object
- *sybdb_sql (self, args)
-object *self;
-object *args;
-{
- char *sql;
- DBPROCESS *dbp;
-
- dbp = ((sybdbobject *)self)->dbproc;
- err_clear ();
- if (!getargs (args, "s", &sql)) {
- return NULL;
- }
- dbcancel(dbp);
- dbcmd(dbp, sql);
- dbsqlexec(dbp);
- return getresults(dbp);
-}
-
-static object
- *sybdb_sp (self, args)
-object *self;
-object *args;
-{
- char *sp;
- DBPROCESS *dbp;
- object *spargs;
- object *sparg;
- object *results;
- object *r;
- int spargcnt;
- int i;
- int retstatus;
-
- dbp = ((sybdbobject *)self)->dbproc;
- err_clear ();
- if (!getargs (args, "(sO)", &sp, &spargs)) {
- return NULL;
- }
-
- dbcancel(dbp);
- dbrpcinit(dbp, sp, 0);
-
- if (is_tupleobject(spargs)) {
- spargcnt=gettuplesize(spargs);
- for (i=0; i < spargcnt; i++) {
- sparg = gettupleitem(spargs,i);
- if (is_intobject(sparg)) {
- int i;
- i = getintvalue(sparg);
- dbrpcparam(dbp, NULL, 0, SYBINT4, -1, -1, &i);
- } else if (is_floatobject(sparg)) {
- double i;
- i = getfloatvalue(sparg);
- dbrpcparam(dbp, NULL, 0, SYBFLT8, -1, -1, &i);
- } else if (is_stringobject(sparg)) {
- dbrpcparam(dbp, NULL, 0, SYBCHAR, -1, getstringsize(sparg), getstringvalue(sparg));
- } else {
- err_setstr (SybaseError, "Could not handle paramaters to procedure.");
- return NULL;
- }
- }
- } else if (spargs != None) {
- err_setstr (SybaseError, "Could not handle paramaters to procedure.");
- return NULL;
- }
- dbrpcsend(dbp);
- dbsqlok(dbp);
-
- results = getresults(dbp);
- retstatus = dbretstatus(dbp);
-
- r = mkvalue("(iO)", retstatus, results);
- DECREF(results);
- return (r);
-}
-
-
-static struct methodlist sybdb_methods[] = {
- {"sql", sybdb_sql},
- {"sp", sybdb_sp},
- {NULL, NULL} /* sentinel */
-};
-
-static void
-sybdb_dealloc(s)
- sybdbobject *s;
-{
- dbloginfree(s->login);
- dbclose(s->dbproc);
- DEL(s);
-}
-
-static object *
-sybdb_getattr(s, name)
- sybdbobject *s;
- char *name;
-{
- return findmethod(sybdb_methods, (object *) s, name);
-}
-
-
-typeobject SybDbtype = {
- OB_HEAD_INIT(&Typetype)
- 0,
- "sybdb",
- sizeof(sybdbobject),
- 0,
- sybdb_dealloc, /*tp_dealloc*/
- 0, /*tp_print*/
- sybdb_getattr, /*tp_getattr*/
- 0, /*tp_setattr*/
- 0, /*tp_compare*/
- 0, /*tp_repr*/
- 0, /*tp_as_number*/
- 0, /*tp_as_sequence*/
- 0, /*tp_as_mapping*/
-};
-
-
-
-
-
-/* MODULE FUNCTIONS: sybase */
-
-static object
- *sybase_new (self, args)
-object *self; /* Not used */
-object *args;
-{
- char *user, *passwd, *server;
- object *db;
-
- err_clear ();
- if (!getargs (args, "(zzz)", &user, &passwd, &server)) {
- return NULL;
- }
- db = (object *) newsybdbobject(user, passwd, server);
- if (!db) {
- /* XXX Should be setting some errstr stuff here based on sybase errors */
- err_setstr (SybaseError, "Could not open connection to server.");
- return NULL;
- }
- return db;
-}
-
-
-/* List of module functions */
-static struct methodlist sybase_methods[]=
-{
- {"new", sybase_new},
- {NULL, NULL} /* sentinel */
-};
-
-/* Module initialisation */
-void initsybase ()
-{
- object *m, *d;
-
- /* Create the module and add the functions */
- m = initmodule ("sybase", sybase_methods);
- /* Add some symbolic constants to the module */
- d = getmoduledict (m);
- SybaseError = newstringobject ("sybase.error");
- if (SybaseError == NULL || dictinsert (d, "error", SybaseError) != 0) {
- fatal ("can't define sybase.error");
- }
- /* Check for errors */
- if (err_occurred ()){
- fatal ("can't initialize module sybase");
- }
-}
projects / thirdparty / Python / cpython.git / commitdiff
