mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-17 00:22:59 +00:00
5481a14812
Add some missing default function result types (int). Add some missing void result types where appropriate. modified: src/Cldeetr.c modified: src/atom.c modified: src/bbtsub.c modified: src/bitblt.c modified: src/byteswap.c modified: src/chardev.c modified: src/chatter.c modified: src/colorbltfns.c modified: src/common.c modified: src/dir.c modified: src/dlpi.c modified: src/doskbd.c modified: src/dosmouse.c modified: src/draw.c modified: src/dsk.c modified: src/dspsubrs.c modified: src/ejlisp.c modified: src/ether.c modified: src/imagefile.c modified: src/imagefile2.c modified: src/inet.c modified: src/initdsp.c modified: src/initkbd.c modified: src/kbdsubrs.c modified: src/ldeboot.c modified: src/llcolor.c modified: src/llstk.c modified: src/loader.c modified: src/loopsops.c modified: src/lpdual.c modified: src/lpmain.c modified: src/lpread.c modified: src/lptran.c modified: src/lpwrite.c modified: src/main.c modified: src/misc7.c modified: src/mkatom.c modified: src/mnwevent.c modified: src/mnxmeth.c modified: src/mouseif.c modified: src/ocr.c modified: src/ocrproc.c modified: src/oether.c modified: src/oldeether.c modified: src/osmsg.c modified: src/picture.c modified: src/rawcolor.c modified: src/rawrs232c.c modified: src/rpc.c modified: src/rs232c.c modified: src/socdvr.c modified: src/socket.c modified: src/testdsp.c modified: src/testtool.c modified: src/timeoday.c modified: src/timeofday.c modified: src/timer.c modified: src/truecolor.c modified: src/tty.c modified: src/ufn.c modified: src/ufs.c modified: src/unixcomm.c modified: src/unixfork.c modified: src/unwind.c modified: src/uraid.c modified: src/vesainit.c modified: src/vgainit.c modified: src/vmemsave.c modified: src/xcursor.c modified: src/xinit.c modified: src/xlspwin.c modified: src/xmkicon.c modified: src/xrdopt.c modified: src/xwinman.c
220 lines
8.7 KiB
C
220 lines
8.7 KiB
C
/* $Id: chatter.c,v 1.2 1999/01/03 02:06:51 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
|
*/
|
|
static char *id = "$Id: chatter.c,v 1.2 1999/01/03 02:06:51 sybalsky Exp $ Copyright (C) Venue";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/* The contents of this file are proprietary information */
|
|
/* belonging to Venue, and are provided to you under license. */
|
|
/* They may not be further distributed or disclosed to third */
|
|
/* parties without the specific permission of Venue. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <sys/fcntlcom.h>
|
|
#include <sys/termios.h>
|
|
#include <sys/ttydev.h>
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
|
|
#include "lispemul.h"
|
|
#include "address.h"
|
|
#include "adr68k.h"
|
|
#include "lsptypes.h"
|
|
#include "lispmap.h"
|
|
#include "emlglob.h"
|
|
#include "lspglob.h"
|
|
#include "arith.h"
|
|
#include "locfile.h"
|
|
|
|
#define CHAR_MAXLEN 512
|
|
#define BYTESIZE 256
|
|
|
|
int chatter_fd;
|
|
|
|
#define LStringToCString(Lisp, C, MaxLen, Len) \
|
|
{ \
|
|
OneDArray *arrayp; \
|
|
char *base; \
|
|
short *sbase; \
|
|
int i; \
|
|
\
|
|
arrayp = (OneDArray *)(Addr68k_from_LADDR((UNSIGNED)Lisp)); \
|
|
Len = min(MaxLen, arrayp->totalsize); \
|
|
\
|
|
switch (arrayp->typenumber) { \
|
|
case THIN_CHAR_TYPENUMBER: \
|
|
base = ((char *)(Addr68k_from_LADDR((UNSIGNED)arrayp->base))) + ((int)(arrayp->offset)); \
|
|
for (i = 0; i < Len; i++) C[i] = base[i]; \
|
|
C[Len] = '\0'; \
|
|
break; \
|
|
\
|
|
case FAT_CHAR_TYPENUMBER: \
|
|
sbase = ((short *)(Addr68k_from_LADDR((UNSIGNED)arrayp->base))) + ((int)(arrayp->offset)); \
|
|
base = (char *)sbase; \
|
|
for (i = 0; i < Len * 2; i++) C[i] = base[i]; \
|
|
C[Len * 2] = '\0'; \
|
|
break; \
|
|
\
|
|
default: error("LStringToCString can not handle\n"); \
|
|
} \
|
|
}
|
|
|
|
#define CStringToLString(C, Lisp, Len) \
|
|
{ \
|
|
OneDArray *arrayp; \
|
|
char *base; \
|
|
short *sbase; \
|
|
int id; \
|
|
\
|
|
arrayp = (OneDArray *)(Addr68k_from_LADDR((UNSIGNED)Lisp)); \
|
|
\
|
|
switch (arrayp->typenumber) { \
|
|
case THIN_CHAR_TYPENUMBER: \
|
|
base = ((char *)(Addr68k_from_LADDR((UNSIGNED)arrayp->base))) + ((int)(arrayp->offset)); \
|
|
for (id = 0; id < Len; id++) base[id] = C[id]; \
|
|
arrayp->fillpointer = Len; \
|
|
break; \
|
|
\
|
|
case FAT_CHAR_TYPENUMBER: \
|
|
sbase = ((short *)(Addr68k_from_LADDR((UNSIGNED)arrayp->base))) + ((int)(arrayp->offset)); \
|
|
base = (char *)sbase; \
|
|
for (id = 0; id < Len * 2; id++) base[id] = C[id]; \
|
|
arrayp->fillpointer = Len; \
|
|
break; \
|
|
\
|
|
default: error("CStringToLString can not handle\n"); \
|
|
} \
|
|
}
|
|
|
|
#define IntToFixp(C, Lisp) \
|
|
{ \
|
|
int *base; \
|
|
\
|
|
base = (int *)Addr68k_from_LADDR((UNSIGNED)Lisp); \
|
|
*base = C; \
|
|
}
|
|
|
|
chatter(LispPTR *args)
|
|
{
|
|
int result;
|
|
int length;
|
|
int number;
|
|
unsigned char data[(CHAR_MAXLEN + 1) * 2];
|
|
unsigned char tmp[(CHAR_MAXLEN + 1) * 2];
|
|
|
|
int i;
|
|
|
|
N_GETNUMBER(args[0], number, ERROR);
|
|
switch (number) {
|
|
case 1:
|
|
LStringToCString(args[1], data, CHAR_MAXLEN, length);
|
|
result = chatter_open(data);
|
|
break;
|
|
|
|
case 2: result = chatter_close(); break;
|
|
|
|
case 3:
|
|
LStringToCString(args[1], data, CHAR_MAXLEN, length);
|
|
result = chatter_write_string(data, length);
|
|
break;
|
|
|
|
case 4:
|
|
result = chatter_read(data, 1);
|
|
number = data[0];
|
|
IntToFixp(number, args[1]);
|
|
break;
|
|
|
|
case 5:
|
|
N_GETNUMBER(args[1], number, ERROR);
|
|
data[0] = number & 0xff;
|
|
result = chatter_write_code(data[0]);
|
|
break;
|
|
|
|
ERROR:
|
|
result = 9999;
|
|
break;
|
|
}
|
|
|
|
if (result == 0)
|
|
return (ATOM_T);
|
|
else
|
|
return (NIL);
|
|
}
|
|
|
|
chatter_open(char *dev)
|
|
{
|
|
struct termios termdata;
|
|
|
|
if ((chatter_fd = open(dev, O_RDWR)) < 0) {
|
|
perror("CHATTER OPEN ERROR");
|
|
return (-1);
|
|
}
|
|
if (ioctl(chatter_fd, TCGETS, &termdata) < 0) {
|
|
perror("CHATTER GET PARAMS ERROR");
|
|
return (-1);
|
|
}
|
|
termdata.c_iflag &= ~IXON;
|
|
termdata.c_iflag &= ~IXANY;
|
|
termdata.c_iflag &= ~IXOFF;
|
|
|
|
termdata.c_cflag &= ~CBAUD;
|
|
termdata.c_cflag |= B4800;
|
|
termdata.c_cflag &= ~CSIZE;
|
|
termdata.c_cflag |= CS8;
|
|
termdata.c_cflag &= ~CSTOPB;
|
|
termdata.c_cflag &= ~PARODD;
|
|
termdata.c_cflag &= ~CIBAUD;
|
|
|
|
termdata.c_lflag = 0;
|
|
|
|
termdata.c_cc[VMIN] = 256;
|
|
termdata.c_cc[VTIME] = 1;
|
|
|
|
if (ioctl(chatter_fd, TCSETS, &termdata) < 0) {
|
|
perror("CHATTER SET PARAMS ERROR:");
|
|
return (-1);
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
chatter_close() {
|
|
if (close(chatter_fd) < 0) {
|
|
perror("CHATTER CLOSE ERROR");
|
|
return (-1);
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
chatter_write_string(char *data, int len)
|
|
{
|
|
if (write(chatter_fd, data, len) < 0) {
|
|
perror("WRITE ERROR");
|
|
return (-1);
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
chatter_write_code(unsigned char code)
|
|
{
|
|
if (write(chatter_fd, &code, 1) < 0) {
|
|
perror("WRITE ERROR");
|
|
return (-1);
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
chatter_read(unsigned char *data, int len)
|
|
{
|
|
if (read(chatter_fd, data, len) < 0) {
|
|
perror("READ ERROR");
|
|
return (-1);
|
|
}
|
|
return (0);
|
|
}
|