Macconsole module is think-specific
This commit is contained in:
Jack Jansen
parent
31f61dddfa
commit
fbfacf6d1f
|
|
@ -0,0 +1,437 @@
|
|||
/***********************************************************
|
||||
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.
|
||||
|
||||
******************************************************************/
|
||||
|
||||
/*
|
||||
** Written by Jack Jansen, October 1994, initially only to allow him to
|
||||
** test the ctb module:-)
|
||||
*/
|
||||
|
||||
#include "allobjects.h"
|
||||
#include "modsupport.h" /* For getargs() etc. */
|
||||
#include "structmember.h"
|
||||
|
||||
#include <console.h>
|
||||
|
||||
static object *ErrorObject;
|
||||
|
||||
#define OFF(x) offsetof(struct __copt, x)
|
||||
|
||||
static struct memberlist copt_memberlist[] = {
|
||||
{"top", T_SHORT, OFF(top)},
|
||||
{"left", T_SHORT, OFF(left)},
|
||||
{"title", T_PSTRING, OFF(title)},
|
||||
{"procID", T_SHORT, OFF(procID), RO},
|
||||
{"txFont", T_SHORT, OFF(txFont)},
|
||||
{"txSize", T_SHORT, OFF(txSize)},
|
||||
{"txFace", T_SHORT, OFF(txFace)},
|
||||
{"nrows", T_SHORT, OFF(nrows)},
|
||||
{"ncols", T_SHORT, OFF(ncols)},
|
||||
{"pause_atexit", T_SHORT, OFF(pause_atexit)},
|
||||
{NULL}
|
||||
};
|
||||
|
||||
static unsigned char mytitle[256];
|
||||
typedef struct {
|
||||
OB_HEAD
|
||||
} coptobject;
|
||||
|
||||
staticforward typeobject Xxotype;
|
||||
|
||||
#define is_coptobject(v) ((v)->ob_type == &Xxotype)
|
||||
|
||||
static coptobject *
|
||||
newcoptobject()
|
||||
{
|
||||
coptobject *self;
|
||||
self = NEWOBJ(coptobject, &Xxotype);
|
||||
return self;
|
||||
}
|
||||
|
||||
/* Xxo methods */
|
||||
|
||||
static void
|
||||
copt_dealloc(self)
|
||||
coptobject *self;
|
||||
{
|
||||
DEL(self);
|
||||
}
|
||||
|
||||
static object *
|
||||
copt_getattr(self, name)
|
||||
coptobject *self;
|
||||
char *name;
|
||||
{
|
||||
return getmember((char *)&console_options, copt_memberlist, name);
|
||||
}
|
||||
|
||||
static int
|
||||
copt_setattr(self, name, v)
|
||||
coptobject *self;
|
||||
char *name;
|
||||
object *v;
|
||||
{
|
||||
char *str;
|
||||
int len;
|
||||
|
||||
if ( strcmp(name, "title") == 0 ) {
|
||||
if ( !v || !is_stringobject(v)) {
|
||||
err_setstr(ErrorObject, "title must be a string");
|
||||
return -1;
|
||||
}
|
||||
str = getstringvalue(v);
|
||||
len = strlen(str);
|
||||
mytitle[0] = (unsigned char)len;
|
||||
strncpy((char *)mytitle+1, str, mytitle[0]);
|
||||
console_options.title = mytitle;
|
||||
return 0;
|
||||
}
|
||||
return setmember((char *)&console_options, copt_memberlist, name, v);
|
||||
}
|
||||
|
||||
static typeobject Xxotype = {
|
||||
OB_HEAD_INIT(&Typetype)
|
||||
0, /*ob_size*/
|
||||
"console options", /*tp_name*/
|
||||
sizeof(coptobject), /*tp_basicsize*/
|
||||
0, /*tp_itemsize*/
|
||||
/* methods */
|
||||
(destructor)copt_dealloc, /*tp_dealloc*/
|
||||
0, /*tp_print*/
|
||||
(getattrfunc)copt_getattr, /*tp_getattr*/
|
||||
(setattrfunc)copt_setattr, /*tp_setattr*/
|
||||
0, /*tp_compare*/
|
||||
0, /*tp_repr*/
|
||||
0, /*tp_as_number*/
|
||||
0, /*tp_as_sequence*/
|
||||
0, /*tp_as_mapping*/
|
||||
0, /*tp_hash*/
|
||||
};
|
||||
|
||||
/* ------------------------------------------- */
|
||||
|
||||
typedef struct {
|
||||
OB_HEAD
|
||||
FILE *fp;
|
||||
object *file;
|
||||
} cons_object;
|
||||
|
||||
staticforward typeobject constype;
|
||||
|
||||
#define is_cons_object(v) ((v)->ob_type == &constype)
|
||||
|
||||
static cons_object *
|
||||
newcons_object(fp, file)
|
||||
FILE *fp;
|
||||
object *file;
|
||||
{
|
||||
cons_object *self;
|
||||
self = NEWOBJ(cons_object, &constype);
|
||||
if (self == NULL)
|
||||
return NULL;
|
||||
self->fp = fp;
|
||||
self->file = file;
|
||||
return self;
|
||||
}
|
||||
|
||||
/* cons methods */
|
||||
|
||||
static void
|
||||
cons_dealloc(self)
|
||||
cons_object *self;
|
||||
{
|
||||
DECREF(self->file);
|
||||
DEL(self);
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_setmode(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
int mode;
|
||||
|
||||
if (!getargs(args, "i", &mode))
|
||||
return NULL;
|
||||
csetmode(mode, self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_cleos(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
ccleos(self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_cleol(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
ccleol(self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_show(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
cshow(self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_hide(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
chide(self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_echo2printer(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
cecho2printer(self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_gotoxy(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
int x, y;
|
||||
|
||||
if (!getargs(args, "(ii)", &x, &y))
|
||||
return NULL;
|
||||
cgotoxy(x, y, self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_getxy(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
int x, y;
|
||||
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
cgetxy(&x, &y, self->fp);
|
||||
return mkvalue("(ii)", x, y);
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_settabs(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
int arg;
|
||||
|
||||
if (!getargs(args, "i", &arg))
|
||||
return NULL;
|
||||
csettabs(arg, self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cons_inverse(self, args)
|
||||
cons_object *self;
|
||||
object *args;
|
||||
{
|
||||
int arg;
|
||||
|
||||
if (!getargs(args, "i", &arg))
|
||||
return NULL;
|
||||
cinverse(arg, self->fp);
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static struct methodlist cons_methods[] = {
|
||||
{"setmode", (method)cons_setmode},
|
||||
{"gotoxy", (method)cons_gotoxy},
|
||||
{"getxy", (method)cons_getxy},
|
||||
{"cleos", (method)cons_cleos},
|
||||
{"cleol", (method)cons_cleol},
|
||||
{"settabs", (method)cons_settabs},
|
||||
{"inverse", (method)cons_inverse},
|
||||
{"show", (method)cons_show},
|
||||
{"hide", (method)cons_hide},
|
||||
{"echo2printer", (method)cons_echo2printer},
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
static object *
|
||||
cons_getattr(self, name)
|
||||
cons_object *self;
|
||||
char *name;
|
||||
{
|
||||
if ( strcmp(name, "file") == 0 ) {
|
||||
INCREF(self->file);
|
||||
return self->file;
|
||||
}
|
||||
return findmethod(cons_methods, (object *)self, name);
|
||||
}
|
||||
|
||||
static typeobject constype = {
|
||||
OB_HEAD_INIT(&Typetype)
|
||||
0, /*ob_size*/
|
||||
"cons", /*tp_name*/
|
||||
sizeof(cons_object), /*tp_basicsize*/
|
||||
0, /*tp_itemsize*/
|
||||
/* methods */
|
||||
(destructor)cons_dealloc, /*tp_dealloc*/
|
||||
0, /*tp_print*/
|
||||
(getattrfunc)cons_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*/
|
||||
};
|
||||
/* --------------------------------------------------------------------- */
|
||||
|
||||
/* Return a new console */
|
||||
|
||||
static object *
|
||||
maccons_copen(self, args)
|
||||
object *self; /* Not used */
|
||||
object *args;
|
||||
{
|
||||
FILE *fp;
|
||||
object *file;
|
||||
cons_object *rv;
|
||||
char *name;
|
||||
unsigned char nbuf[256];
|
||||
int len;
|
||||
|
||||
name = NULL;
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
if ( (fp=fopenc()) == NULL ) {
|
||||
err_errno(ErrorObject);
|
||||
return NULL;
|
||||
}
|
||||
if ( (file=newopenfileobject(fp, "<a console>", "r+", fclose)) == NULL)
|
||||
return NULL;
|
||||
rv = newcons_object(fp, file);
|
||||
if ( rv == NULL ) {
|
||||
fclose(fp);
|
||||
return NULL;
|
||||
}
|
||||
return (object *)rv;
|
||||
}
|
||||
|
||||
/* Return an open file as a console */
|
||||
|
||||
static object *
|
||||
maccons_fopen(self, args)
|
||||
object *self; /* Not used */
|
||||
object *args;
|
||||
{
|
||||
cons_object *rv;
|
||||
object *file;
|
||||
FILE *fp;
|
||||
|
||||
if (!newgetargs(args, "O", &file))
|
||||
return NULL;
|
||||
if ( !is_fileobject(file) ) {
|
||||
err_badarg();
|
||||
return NULL;
|
||||
}
|
||||
fp = getfilefile(file);
|
||||
if ( !isatty(fileno(fp)) ) {
|
||||
err_setstr(ErrorObject, "File is not a console");
|
||||
return NULL;
|
||||
}
|
||||
rv = newcons_object(fp, file);
|
||||
if ( rv == NULL ) {
|
||||
return NULL;
|
||||
}
|
||||
INCREF(file);
|
||||
return (object *)rv;
|
||||
}
|
||||
|
||||
/* List of functions defined in the module */
|
||||
|
||||
static struct methodlist maccons_methods[] = {
|
||||
{"fopen", (method)maccons_fopen, 1},
|
||||
{"copen", (method)maccons_copen, 0},
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
|
||||
/* Initialization function for the module (*must* be called initmacconsole) */
|
||||
|
||||
void
|
||||
initmacconsole()
|
||||
{
|
||||
object *m, *d, *o;
|
||||
|
||||
/* Create the module and add the functions */
|
||||
m = initmodule("macconsole", maccons_methods);
|
||||
|
||||
/* Add some symbolic constants to the module */
|
||||
#define INTATTR(name, value) o = newintobject(value); dictinsert(d, name, o);
|
||||
d = getmoduledict(m);
|
||||
ErrorObject = newstringobject("macconsole.error");
|
||||
dictinsert(d, "error", ErrorObject);
|
||||
o = (object *)newcoptobject();
|
||||
dictinsert(d, "options", o);
|
||||
INTATTR("C_RAW", C_RAW);
|
||||
INTATTR("C_CBREAK", C_CBREAK);
|
||||
INTATTR("C_ECHO", C_ECHO);
|
||||
INTATTR("C_NOECHO", C_NOECHO);
|
||||
|
||||
/* Check for errors */
|
||||
if (err_occurred())
|
||||
fatal("can't initialize module macconsole");
|
||||
}
|
||||
Loading…
Reference in New Issue