Initial creation of sourceware repository
This commit is contained in:
Stan Shebs
parent
cd946cff9e
commit
c906108c21
2470 changed files with 976797 additions and 0 deletions
362
gdb/ser-mac.c
Normal file
362
gdb/ser-mac.c
Normal file
|
|
@ -0,0 +1,362 @@
|
|||
/* Remote serial interface for local (hardwired) serial ports for Macintosh.
|
||||
Copyright 1994 Free Software Foundation, Inc.
|
||||
Contributed by Cygnus Support. Written by Stan Shebs.
|
||||
|
||||
This file is part of GDB.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||||
|
||||
#include "defs.h"
|
||||
#include "serial.h"
|
||||
|
||||
#include <Types.h>
|
||||
#include <Devices.h>
|
||||
/* This is the regular Mac Serial.h, but copied to a different name
|
||||
so as not to get confused with the GDB serial.h above. */
|
||||
#include "MacSerial.h"
|
||||
|
||||
/* This is unused for now. We just return a placeholder. */
|
||||
|
||||
struct mac_ttystate
|
||||
{
|
||||
int bogus;
|
||||
};
|
||||
|
||||
static int mac_open PARAMS ((serial_t scb, const char *name));
|
||||
static void mac_raw PARAMS ((serial_t scb));
|
||||
static int mac_readchar PARAMS ((serial_t scb, int timeout));
|
||||
static int mac_setbaudrate PARAMS ((serial_t scb, int rate));
|
||||
static int mac_write PARAMS ((serial_t scb, const char *str, int len));
|
||||
static void mac_close PARAMS ((serial_t scb));
|
||||
static serial_ttystate mac_get_tty_state PARAMS ((serial_t scb));
|
||||
static int mac_set_tty_state PARAMS ((serial_t scb, serial_ttystate state));
|
||||
static char *aptr PARAMS ((short p));
|
||||
|
||||
short input_refnum;
|
||||
short output_refnum;
|
||||
|
||||
char *mac_input_buffer;
|
||||
char *mac_output_buffer;
|
||||
|
||||
static int
|
||||
mac_open (scb, name)
|
||||
serial_t scb;
|
||||
const char *name;
|
||||
{
|
||||
OSErr err;
|
||||
|
||||
/* Alloc buffer space first - that way any allocation failures are
|
||||
intercepted before the serial driver gets involved. */
|
||||
if (mac_input_buffer == NULL)
|
||||
mac_input_buffer = (char *) xmalloc (4096);
|
||||
/* Match on a name and open a port. */
|
||||
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);
|
||||
}
|
||||
/* fake */
|
||||
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);
|
||||
}
|
||||
/* We got something open. */
|
||||
if (1 /* using custom buffer */)
|
||||
SerSetBuf (input_refnum, mac_input_buffer, 4096);
|
||||
/* Set to a GDB-preferred state. */
|
||||
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);
|
||||
}
|
||||
/* fake */
|
||||
scb->fd = 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
static int
|
||||
mac_noop (scb)
|
||||
serial_t scb;
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
|
||||
static void
|
||||
mac_raw (scb)
|
||||
serial_t scb;
|
||||
{
|
||||
/* Always effectively in raw mode. */
|
||||
}
|
||||
|
||||
/* Read a character with user-specified timeout. TIMEOUT is number of seconds
|
||||
to wait, or -1 to wait forever. Use timeout of 0 to effect a poll. Returns
|
||||
char if successful. Returns -2 if timeout expired, EOF if line dropped
|
||||
dead, or -3 for any other error (see errno in that case). */
|
||||
|
||||
static int
|
||||
mac_readchar (scb, timeout)
|
||||
serial_t scb;
|
||||
int timeout;
|
||||
{
|
||||
int status, n;
|
||||
/* time_t */ 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);
|
||||
}
|
||||
}
|
||||
|
||||
/* mac_{get set}_tty_state() are both dummys to fill out the function
|
||||
vector. Someday, they may do something real... */
|
||||
|
||||
static serial_ttystate
|
||||
mac_get_tty_state (scb)
|
||||
serial_t scb;
|
||||
{
|
||||
struct mac_ttystate *state;
|
||||
|
||||
state = (struct mac_ttystate *) xmalloc (sizeof *state);
|
||||
|
||||
return (serial_ttystate) state;
|
||||
}
|
||||
|
||||
static int
|
||||
mac_set_tty_state (scb, ttystate)
|
||||
serial_t scb;
|
||||
serial_ttystate ttystate;
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
|
||||
static int
|
||||
mac_noflush_set_tty_state (scb, new_ttystate, old_ttystate)
|
||||
serial_t scb;
|
||||
serial_ttystate new_ttystate;
|
||||
serial_ttystate old_ttystate;
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
|
||||
static void
|
||||
mac_print_tty_state (scb, ttystate)
|
||||
serial_t scb;
|
||||
serial_ttystate ttystate;
|
||||
{
|
||||
/* Nothing to print. */
|
||||
return;
|
||||
}
|
||||
|
||||
/* If there is a tricky formula to relate real baud rates
|
||||
to what the serial driver wants, we should use it. Until
|
||||
we get one, this table will have to do. */
|
||||
|
||||
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 (scb, 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 (scb, num)
|
||||
serial_t scb;
|
||||
int num;
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
|
||||
int first_mac_write = 0;
|
||||
|
||||
static int
|
||||
mac_write (scb, str, len)
|
||||
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 /* custom buffer */)
|
||||
SerSetBuf (input_refnum, mac_input_buffer, 0);
|
||||
CloseDriver (input_refnum);
|
||||
input_refnum = 0;
|
||||
}
|
||||
if (output_refnum)
|
||||
{
|
||||
if (0 /* custom buffer */)
|
||||
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, /* flush output */
|
||||
mac_noop, /* flush input */
|
||||
mac_noop, /* send break -- currently only for nindy */
|
||||
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, /* wait for output to drain */
|
||||
};
|
||||
|
||||
void
|
||||
_initialize_ser_mac ()
|
||||
{
|
||||
serial_add_interface (&mac_ops);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue