mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-06 16:34:45 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
330
src/chatter.c
Executable file → Normal file
330
src/chatter.c
Executable file → Normal file
@@ -1,8 +1,7 @@
|
||||
/* $Id: chatter.c,v 1.2 1999/01/03 02:06:51 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $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. */
|
||||
@@ -17,7 +16,6 @@ static char *id = "$Id: chatter.c,v 1.2 1999/01/03 02:06:51 sybalsky Exp $ Copyr
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
#include <sys/fcntlcom.h>
|
||||
#include <sys/termios.h>
|
||||
#include <sys/ttydev.h>
|
||||
@@ -37,213 +35,187 @@ static char *id = "$Id: chatter.c,v 1.2 1999/01/03 02:06:51 sybalsky Exp $ Copyr
|
||||
#define CHAR_MAXLEN 512
|
||||
#define BYTESIZE 256
|
||||
|
||||
int chatter_fd;
|
||||
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 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 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; \
|
||||
#define IntToFixp(C, Lisp) \
|
||||
{ \
|
||||
int *base; \
|
||||
\
|
||||
base = (int *)Addr68k_from_LADDR((UNSIGNED)Lisp); \
|
||||
*base = C; \
|
||||
}
|
||||
|
||||
chatter(args)
|
||||
int args[];
|
||||
|
||||
chatter(args) int args[];
|
||||
{
|
||||
int result;
|
||||
int length;
|
||||
int number;
|
||||
unsigned char data[(CHAR_MAXLEN+1)*2];
|
||||
unsigned char tmp[(CHAR_MAXLEN+1)*2];
|
||||
int result;
|
||||
int length;
|
||||
int number;
|
||||
unsigned char data[(CHAR_MAXLEN + 1) * 2];
|
||||
unsigned char tmp[(CHAR_MAXLEN + 1) * 2];
|
||||
|
||||
int i;
|
||||
int i;
|
||||
|
||||
N_GETNUMBER(args[0], number, ERROR);
|
||||
switch (number) {
|
||||
case 1:
|
||||
LStringToCString(args[1], data, CHAR_MAXLEN,length);
|
||||
result = chatter_open(data);
|
||||
break;
|
||||
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 2: result = chatter_close(); break;
|
||||
|
||||
case 3:
|
||||
LStringToCString(args[1], data, CHAR_MAXLEN, length);
|
||||
result = chatter_write_string(data , length);
|
||||
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 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;
|
||||
|
||||
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);
|
||||
ERROR:
|
||||
result = 9999;
|
||||
break;
|
||||
}
|
||||
|
||||
if (result == 0)
|
||||
return (ATOM_T);
|
||||
else
|
||||
return (NIL);
|
||||
}
|
||||
|
||||
chatter_open(dev)
|
||||
char dev[];
|
||||
chatter_open(dev) char dev[];
|
||||
{
|
||||
struct termios termdata;
|
||||
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;
|
||||
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_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_lflag = 0;
|
||||
|
||||
termdata.c_cc[VMIN] = 256;
|
||||
termdata.c_cc[VTIME] = 1;
|
||||
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);
|
||||
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_close() {
|
||||
if (close(chatter_fd) < 0) {
|
||||
perror("CHATTER CLOSE ERROR");
|
||||
return (-1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
chatter_write_string(data, len)
|
||||
char data[];
|
||||
int len;
|
||||
chatter_write_string(data, len) char data[];
|
||||
int len;
|
||||
{
|
||||
if (write(chatter_fd, data, len) < 0) {
|
||||
perror("WRITE ERROR");
|
||||
return (-1);
|
||||
}
|
||||
return (0);
|
||||
if (write(chatter_fd, data, len) < 0) {
|
||||
perror("WRITE ERROR");
|
||||
return (-1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
chatter_write_code(code)
|
||||
unsigned char code;
|
||||
chatter_write_code(code) unsigned char code;
|
||||
{
|
||||
if (write(chatter_fd, &code, 1) < 0) {
|
||||
perror("WRITE ERROR");
|
||||
return (-1);
|
||||
}
|
||||
return (0);
|
||||
if (write(chatter_fd, &code, 1) < 0) {
|
||||
perror("WRITE ERROR");
|
||||
return (-1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
chatter_read(data, len)
|
||||
unsigned char *data;
|
||||
int len;
|
||||
chatter_read(data, len) unsigned char *data;
|
||||
int len;
|
||||
{
|
||||
if (read(chatter_fd, data, len) < 0) {
|
||||
perror("READ ERROR");
|
||||
return (-1);
|
||||
}
|
||||
return (0);
|
||||
if (read(chatter_fd, data, len) < 0) {
|
||||
perror("READ ERROR");
|
||||
return (-1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user