Sample extension module: InterSLIP control API.
This commit is contained in:
Jack Jansen
parent
4ac724946a
commit
1dcbcc3abf
|
|
@ -0,0 +1,97 @@
|
|||
/*
|
||||
** InterslipLib - Routines to talk to InterSLIP. Version 1.1, 31-Oct-1995.
|
||||
**
|
||||
**
|
||||
** (c) Jack Jansen, CWI, 1995 <jack@cwi.nl>
|
||||
*/
|
||||
|
||||
#include <Devices.h>
|
||||
|
||||
#include "InterslipLib.h"
|
||||
|
||||
static CntrlParam iopb;
|
||||
static short refnum = -1;
|
||||
|
||||
OSErr is_open()
|
||||
{
|
||||
if ( refnum >= 0 ) return 0;
|
||||
return OpenDriver("\p.InterSLIP", &refnum);
|
||||
}
|
||||
|
||||
OSErr is_connect()
|
||||
{
|
||||
iopb.ioCRefNum = refnum;
|
||||
iopb.ioVRefNum = refnum;
|
||||
iopb.ioCompletion = (UniversalProcPtr) 0;
|
||||
iopb.csCode = 2;
|
||||
return PBControlImmed((ParmBlkPtr)&iopb);
|
||||
}
|
||||
|
||||
OSErr is_disconnect()
|
||||
{
|
||||
iopb.ioCRefNum = refnum;
|
||||
iopb.ioVRefNum = refnum;
|
||||
iopb.ioCompletion = (UniversalProcPtr) 0;
|
||||
iopb.csCode = 3;
|
||||
return PBControlImmed((ParmBlkPtr)&iopb);
|
||||
}
|
||||
|
||||
OSErr is_status(long *status, long *msgseqnum, StringPtr *msg)
|
||||
{
|
||||
long *csp;
|
||||
OSErr err;
|
||||
|
||||
iopb.ioCRefNum = refnum;
|
||||
iopb.ioVRefNum = refnum;
|
||||
iopb.ioCompletion = (UniversalProcPtr) 0;
|
||||
iopb.csCode = 4;
|
||||
if( err = PBControlImmed((ParmBlkPtr)&iopb) )
|
||||
return err;
|
||||
csp = (long *)&iopb.csParam;
|
||||
*status = csp[0];
|
||||
*msgseqnum = csp[1];
|
||||
*msg = (unsigned char *)csp[2];
|
||||
return 0;
|
||||
}
|
||||
|
||||
OSErr is_getconfig(long *baudrate, long *flags,
|
||||
Str255 idrvnam, Str255 odrvnam, Str255 cfgnam)
|
||||
{
|
||||
long *csp;
|
||||
OSErr err;
|
||||
|
||||
iopb.ioCRefNum = refnum;
|
||||
iopb.ioVRefNum = refnum;
|
||||
iopb.ioCompletion = (UniversalProcPtr) 0;
|
||||
iopb.csCode = 6;
|
||||
csp = (long *)&iopb.csParam;
|
||||
csp[2] = (long)idrvnam;
|
||||
csp[3] = (long)odrvnam;
|
||||
csp[4] = (long)cfgnam;
|
||||
if( err = PBControlImmed((ParmBlkPtr)&iopb) )
|
||||
return err;
|
||||
*baudrate = csp[0];
|
||||
*flags = csp[1];
|
||||
return 0;
|
||||
}
|
||||
|
||||
OSErr is_setconfig(long baudrate, long flags,
|
||||
Str255 idrvnam, Str255 odrvnam, Str255 cfgnam)
|
||||
{
|
||||
long *csp;
|
||||
OSErr err;
|
||||
|
||||
iopb.ioCRefNum = refnum;
|
||||
iopb.ioVRefNum = refnum;
|
||||
iopb.ioCompletion = (UniversalProcPtr) 0;
|
||||
iopb.csCode = 7;
|
||||
csp = (long *)&iopb.csParam;
|
||||
csp[0] = baudrate;
|
||||
csp[1] = flags;
|
||||
csp[2] = (long)idrvnam;
|
||||
csp[3] = (long)odrvnam;
|
||||
csp[4] = (long)cfgnam;
|
||||
return PBControlImmed((ParmBlkPtr)&iopb);
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
/*
|
||||
** InterSLIP API.
|
||||
*/
|
||||
|
||||
#include <Types.h>
|
||||
|
||||
/* States */
|
||||
#define IS_IDLE 0
|
||||
#define IS_WMODEM 1
|
||||
#define IS_DIAL 2
|
||||
#define IS_LOGIN 3
|
||||
#define IS_RUN 4
|
||||
#define IS_DISC 5
|
||||
|
||||
OSErr is_open(); /* Open InterSLIP driver (optional) */
|
||||
OSErr is_connect();/* Connect */
|
||||
OSErr is_disconnect(); /* Disconnect */
|
||||
OSErr is_status(long *, long *, StringPtr *); /* Get status, msg seq#, msg pointer */
|
||||
OSErr is_getconfig(long *, long *, Str255 , Str255 , Str255 ); /* get config */
|
||||
OSErr is_setconfig(long , long , Str255 , Str255 , Str255 ); /* set config */
|
||||
|
|
@ -0,0 +1,225 @@
|
|||
/***********************************************************
|
||||
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.
|
||||
|
||||
******************************************************************/
|
||||
|
||||
#include "Python.h"
|
||||
#include "InterslipLib.h"
|
||||
#include "macglue.h"
|
||||
|
||||
static PyObject *ErrorObject;
|
||||
|
||||
/* ----------------------------------------------------- */
|
||||
|
||||
static char pyis_open__doc__[] =
|
||||
"Load the interslip driver (optional)"
|
||||
;
|
||||
|
||||
static PyObject *
|
||||
pyis_open(self, args)
|
||||
PyObject *self; /* Not used */
|
||||
PyObject *args;
|
||||
{
|
||||
OSErr err;
|
||||
|
||||
if (!PyArg_ParseTuple(args, ""))
|
||||
return NULL;
|
||||
err = is_open();
|
||||
if ( err ) {
|
||||
PyErr_Mac(ErrorObject, err);
|
||||
return NULL;
|
||||
}
|
||||
Py_INCREF(Py_None);
|
||||
return Py_None;
|
||||
}
|
||||
|
||||
static char pyis_connect__doc__[] =
|
||||
"Tell the driver to start a connect"
|
||||
;
|
||||
|
||||
static PyObject *
|
||||
pyis_connect(self, args)
|
||||
PyObject *self; /* Not used */
|
||||
PyObject *args;
|
||||
{
|
||||
OSErr err;
|
||||
|
||||
if (!PyArg_ParseTuple(args, ""))
|
||||
return NULL;
|
||||
err = is_connect();
|
||||
if ( err ) {
|
||||
PyErr_Mac(ErrorObject, err);
|
||||
return NULL;
|
||||
}
|
||||
Py_INCREF(Py_None);
|
||||
return Py_None;
|
||||
}
|
||||
|
||||
static char pyis_disconnect__doc__[] =
|
||||
"Tell the interslip driver to start a disconnect"
|
||||
;
|
||||
|
||||
static PyObject *
|
||||
pyis_disconnect(self, args)
|
||||
PyObject *self; /* Not used */
|
||||
PyObject *args;
|
||||
{
|
||||
OSErr err;
|
||||
|
||||
if (!PyArg_ParseTuple(args, ""))
|
||||
return NULL;
|
||||
err = is_disconnect();
|
||||
if ( err ) {
|
||||
PyErr_Mac(ErrorObject, err);
|
||||
return NULL;
|
||||
}
|
||||
Py_INCREF(Py_None);
|
||||
return Py_None;
|
||||
}
|
||||
|
||||
static char pyis_status__doc__[] =
|
||||
"Return (numeric_status, message_seqnum, message_string) status tuple"
|
||||
;
|
||||
|
||||
static PyObject *
|
||||
pyis_status(self, args)
|
||||
PyObject *self; /* Not used */
|
||||
PyObject *args;
|
||||
{
|
||||
long status, seqnum;
|
||||
StringPtr message;
|
||||
OSErr err;
|
||||
|
||||
if (!PyArg_ParseTuple(args, ""))
|
||||
return NULL;
|
||||
err = is_status(&status, &seqnum, &message);
|
||||
if ( err ) {
|
||||
PyErr_Mac(ErrorObject, err);
|
||||
return NULL;
|
||||
}
|
||||
return Py_BuildValue("iiO&", (int)status, (int)seqnum, PyMac_BuildStr255, message);
|
||||
}
|
||||
|
||||
static char pyis_getconfig__doc__[] =
|
||||
"Return configuration data (ibaud, obaud, flags, idrvname, odrvname, cfgname)"
|
||||
;
|
||||
|
||||
static PyObject *
|
||||
pyis_getconfig(self, args)
|
||||
PyObject *self; /* Not used */
|
||||
PyObject *args;
|
||||
{
|
||||
long baudrate, flags;
|
||||
Str255 idrvname, odrvname, cfgname;
|
||||
OSErr err;
|
||||
int ibaud, obaud;
|
||||
|
||||
if (!PyArg_ParseTuple(args, ""))
|
||||
return NULL;
|
||||
err = is_getconfig(&baudrate, &flags, idrvname, odrvname, cfgname);
|
||||
if ( err ) {
|
||||
PyErr_Mac(ErrorObject, err);
|
||||
return NULL;
|
||||
}
|
||||
ibaud = (baudrate >> 16) & 0xffff;
|
||||
obaud = baudrate & 0xffff;
|
||||
return Py_BuildValue("iiiO&O&O&", ibaud, obaud, (int)flags, PyMac_BuildStr255, idrvname,
|
||||
PyMac_BuildStr255, odrvname, PyMac_BuildStr255, cfgname);
|
||||
}
|
||||
|
||||
static char pyis_setconfig__doc__[] =
|
||||
"Set configuration data (ibaud, obaud, flags, idrvname, odrvname, cfgname)"
|
||||
;
|
||||
|
||||
static PyObject *
|
||||
pyis_setconfig(self, args)
|
||||
PyObject *self; /* Not used */
|
||||
PyObject *args;
|
||||
{
|
||||
long baudrate;
|
||||
int flags;
|
||||
Str255 idrvname, odrvname, cfgname;
|
||||
OSErr err;
|
||||
int ibaud, obaud;
|
||||
|
||||
if (!PyArg_ParseTuple(args, "iiiO&O&O&", &ibaud, &obaud, &flags, PyMac_GetStr255, idrvname,
|
||||
PyMac_GetStr255, odrvname, PyMac_GetStr255, cfgname))
|
||||
return NULL;
|
||||
baudrate = (ibaud << 16) | obaud;
|
||||
err = is_setconfig(baudrate, (long)flags, idrvname, odrvname, cfgname);
|
||||
if ( err ) {
|
||||
PyErr_Mac(ErrorObject, err);
|
||||
return NULL;
|
||||
}
|
||||
Py_INCREF(Py_None);
|
||||
return Py_None;
|
||||
}
|
||||
|
||||
/* List of methods defined in the module */
|
||||
|
||||
static struct PyMethodDef pyis_methods[] = {
|
||||
{"open", pyis_open, 1, pyis_open__doc__},
|
||||
{"connect", pyis_connect, 1, pyis_connect__doc__},
|
||||
{"disconnect", pyis_disconnect, 1, pyis_disconnect__doc__},
|
||||
{"status", pyis_status, 1, pyis_status__doc__},
|
||||
{"getconfig", pyis_getconfig, 1, pyis_getconfig__doc__},
|
||||
{"setconfig", pyis_setconfig, 1, pyis_setconfig__doc__},
|
||||
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
|
||||
/* Initialization function for the module (*must* be called initinterslip) */
|
||||
|
||||
static char interslip_module_documentation[] =
|
||||
""
|
||||
;
|
||||
|
||||
void
|
||||
initinterslip()
|
||||
{
|
||||
PyObject *m, *d;
|
||||
|
||||
/* Create the module and add the functions */
|
||||
m = Py_InitModule4("interslip", pyis_methods,
|
||||
interslip_module_documentation,
|
||||
(PyObject*)NULL,PYTHON_API_VERSION);
|
||||
|
||||
/* Add some symbolic constants to the module */
|
||||
d = PyModule_GetDict(m);
|
||||
ErrorObject = PyString_FromString("interslip.error");
|
||||
PyDict_SetItemString(d, "error", ErrorObject);
|
||||
|
||||
/* XXXX Add constants here */
|
||||
|
||||
PyDict_SetItemString(d, "IDLE", PyInt_FromLong(IS_IDLE));
|
||||
PyDict_SetItemString(d, "WMODEM", PyInt_FromLong(IS_WMODEM));
|
||||
PyDict_SetItemString(d, "DIAL", PyInt_FromLong(IS_DIAL));
|
||||
PyDict_SetItemString(d, "LOGIN", PyInt_FromLong(IS_LOGIN));
|
||||
PyDict_SetItemString(d, "RUN", PyInt_FromLong(IS_RUN));
|
||||
PyDict_SetItemString(d, "DISC", PyInt_FromLong(IS_DISC));
|
||||
|
||||
/* Check for errors */
|
||||
if (PyErr_Occurred())
|
||||
Py_FatalError("can't initialize module interslip");
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue