#include "defs.h"
#include "serial.h"
#include <Types.h>
#include <Devices.h>
#include "MacSerial.h"
struct mac_ttystate
{
int bogus;
};
static int mac_open (serial_t scb, const char *name);
static void mac_raw (serial_t scb);
static int mac_readchar (serial_t scb, int timeout);
static int mac_setbaudrate (serial_t scb, int rate);
static int mac_write (serial_t scb, const char *str, int len);
static void mac_close (serial_t scb);
static serial_ttystate mac_get_tty_state (serial_t scb);
static int mac_set_tty_state (serial_t scb, serial_ttystate state);
static char *aptr (short p);
short input_refnum;
short output_refnum;
char *mac_input_buffer;
char *mac_output_buffer;
static int
mac_open (serial_t scb, const char *name)
{
OSErr err;
if (mac_input_buffer == NULL)
mac_input_buffer = (char *) xmalloc (4096);
if (strcmp (name, "modem") == 0)
{
err = OpenDriver ("\p.AIn", &input_refnum);
if (err != 0)
{
return (-1);
}
err = OpenDriver ("\p.AOut", &output_refnum);
if (err != 0)
{
CloseDriver (input_refnum);
return (-1);
}
}
else if (strcmp (name, "printer") == 0)
{
err = OpenDriver ("\p.BIn", &input_refnum);
if (err != 0)
{
return (-1);
}
err = OpenDriver ("\p.BOut", &output_refnum);
if (err != 0)
{
CloseDriver (input_refnum);
return (-1);
}
scb->fd = 1;
return 0;
}
else
{
error ("You must specify a valid serial port name; your choices are `modem' or `printer'.");
errno = ENOENT;
return (-1);
}
if (1 )
SerSetBuf (input_refnum, mac_input_buffer, 4096);
SerReset (input_refnum, stop10 | noParity | data8 | baud9600);
SerReset (output_refnum, stop10 | noParity | data8 | baud9600);
{
CntrlParam cb;
struct SerShk *handshake;
cb.ioCRefNum = output_refnum;
cb.csCode = 14;
handshake = (struct SerShk *) &cb.csParam[0];
handshake->fXOn = 0;
handshake->fCTS = 0;
handshake->xOn = 0;
handshake->xOff = 0;
handshake->errs = 0;
handshake->evts = 0;
handshake->fInX = 0;
handshake->fDTR = 0;
err = PBControl ((ParmBlkPtr) & cb, 0);
if (err < 0)
return (-1);
}
scb->fd = 1;
return 0;
}
static int
mac_noop (serial_t scb)
{
return 0;
}
static void
mac_raw (serial_t scb)
{
}
static int
mac_readchar (serial_t scb, int timeout)
{
int status, n;
unsigned long start_time, now;
OSErr err;
CntrlParam cb;
IOParam pb;
if (scb->bufcnt-- > 0)
return *scb->bufp++;
time (&start_time);
while (1)
{
cb.ioCRefNum = input_refnum;
cb.csCode = 2;
err = PBStatus ((ParmBlkPtr) & cb, 0);
if (err < 0)
return SERIAL_ERROR;
n = *((long *) &cb.csParam[0]);
if (n > 0)
{
pb.ioRefNum = input_refnum;
pb.ioBuffer = (Ptr) (scb->buf);
pb.ioReqCount = (n > 64 ? 64 : n);
err = PBRead ((ParmBlkPtr) & pb, 0);
if (err < 0)
return SERIAL_ERROR;
scb->bufcnt = pb.ioReqCount;
scb->bufcnt--;
scb->bufp = scb->buf;
return *scb->bufp++;
}
else if (timeout == 0)
return SERIAL_TIMEOUT;
else if (timeout == -1)
;
else
{
time (&now);
if (now > start_time + timeout)
return SERIAL_TIMEOUT;
}
PROGRESS (1);
}
}
static serial_ttystate
mac_get_tty_state (serial_t scb)
{
struct mac_ttystate *state;
state = (struct mac_ttystate *) xmalloc (sizeof *state);
return (serial_ttystate) state;
}
static int
mac_set_tty_state (serial_t scb, serial_ttystate ttystate)
{
return 0;
}
static int
mac_noflush_set_tty_state (serial_t scb, serial_ttystate new_ttystate,
serial_ttystate old_ttystate)
{
return 0;
}
static void
mac_print_tty_state (serial_t scb,
serial_ttystate ttystate,
struct ui_file *stream)
{
return;
}
static struct
{
int real_rate;
int bits;
}
mac_baud_rate_table[] =
{
{
57600, baud57600
}
,
{
38400, 1
}
,
{
19200, baud19200
}
,
{
9600, baud9600
}
,
{
7200, baud7200
}
,
{
4800, baud4800
}
,
{
3600, baud3600
}
,
{
2400, baud2400
}
,
{
1800, baud1800
}
,
{
1200, baud1200
}
,
{
600, baud600
}
,
{
300, baud300
}
,
{
0, 0
}
};
static int
mac_set_baud_rate (serial_t scb, int rate)
{
int i, bits;
for (i = 0; mac_baud_rate_table[i].real_rate != 0; ++i)
{
if (mac_baud_rate_table[i].real_rate == rate)
{
bits = mac_baud_rate_table[i].bits;
break;
}
}
SerReset (input_refnum, stop10 | noParity | data8 | bits);
SerReset (output_refnum, stop10 | noParity | data8 | bits);
}
static int
mac_set_stop_bits (serial_t scb, int num)
{
return 0;
}
int first_mac_write = 0;
static int
mac_write (serial_t scb, const char *str, int len)
{
OSErr err;
IOParam pb;
if (first_mac_write++ < 4)
{
sleep (1);
}
pb.ioRefNum = output_refnum;
pb.ioBuffer = (Ptr) str;
pb.ioReqCount = len;
err = PBWrite ((ParmBlkPtr) & pb, 0);
if (err < 0)
{
return 1;
}
return 0;
}
static void
mac_close (serial_t scb)
{
if (input_refnum)
{
if (1 )
SerSetBuf (input_refnum, mac_input_buffer, 0);
CloseDriver (input_refnum);
input_refnum = 0;
}
if (output_refnum)
{
if (0 )
SerSetBuf (input_refnum, mac_output_buffer, 0);
CloseDriver (output_refnum);
output_refnum = 0;
}
}
static struct serial_ops mac_ops =
{
"hardwire",
0,
mac_open,
mac_close,
mac_readchar,
mac_write,
mac_noop,
mac_noop,
mac_noop,
mac_raw,
mac_get_tty_state,
mac_set_tty_state,
mac_print_tty_state,
mac_noflush_set_tty_state,
mac_set_baud_rate,
mac_set_stop_bits,
mac_noop,
};
void
_initialize_ser_mac (void)
{
serial_add_interface (&mac_ops);
}