NetBSD/gnu/dist/toolchain/gdb/xmodem.c

286 lines
6.1 KiB
C

/* XMODEM support for GDB, the GNU debugger.
Copyright 1995 Free Software Foundation, Inc.
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 "target.h"
#include "xmodem.h"
/* These definitions are for xmodem protocol. */
#define SOH 0x01
#define STX 0x02
#define ACK 0x06
#define NAK 0x15
#define EOT 0x04
#define CANCEL 0x18
static int blknum; /* XMODEM block number */
static int crcflag; /* Sez we are using CRC's instead of cksums */
static int
readchar (desc, timeout)
serial_t desc;
int timeout;
{
int c;
c = SERIAL_READCHAR (desc, timeout);
if (remote_debug > 0)
fputc_unfiltered (c, gdb_stdlog);
if (c >= 0)
return c;
if (c == SERIAL_TIMEOUT)
error ("Timeout reading from remote system.");
perror_with_name ("xmodem.c:readchar()");
}
#define CRC16 0x1021 /* Generator polynomial (X^16 + X^12 + X^5 + 1) */
static unsigned short *crctab;
/* Call this to init the fast CRC-16 calculation table. */
static void
crcinit ()
{
static int crctab_inited = 0;
int val;
if (crctab_inited == 1)
return;
crctab = xmalloc (256 * sizeof (short));
for (val = 0; val <= 255; val++)
{
int i;
unsigned int crc;
crc = val << 8;
for (i = 0; i < 8; ++i)
{
crc <<= 1;
if (crc & 0x10000)
crc ^= CRC16;
}
crctab[val] = crc;
}
crctab_inited = 1;
}
/* Calculate a CRC-16 for the LEN byte message pointed at by P. */
static unsigned short
docrc (p, len)
unsigned char *p;
int len;
{
unsigned short crc = 0;
while (len-- > 0)
crc = (crc << 8) ^ crctab[(crc >> 8) ^ *p++];
return crc;
}
/* Start up the transmit process. Reset state variables. Wait for receiver to
send NAK or CRC request. */
int
xmodem_init_xfer (desc)
serial_t desc;
{
int c;
int i;
blknum = 1;
crcflag = 0;
crcinit ();
for (i = 1; i <= 10; i++)
{
c = readchar (desc, 6);
switch (c)
{
case 'C':
crcflag = 1;
case NAK:
return 0;
default:
fprintf_unfiltered (gdb_stderr, "xmodem_init_xfer: Got unexpected character %c (0%o)\n", c, c);
continue;
case CANCEL: /* target aborted load */
fprintf_unfiltered (gdb_stderr, "Got a CANCEL from the target.\n");
continue;
}
}
error ("xmodem_init_xfer: Too many unexpected characters.");
}
/* Take 128 bytes of data and make a packet out of it.
* Each packet looks like this:
* +-----+-------+-------+------+-----+
* | SOH | Seq1. | Seq2. | data | SUM |
* +-----+-------+-------+------+-----+
* SOH = 0x01
* Seq1 = The sequence number.
* Seq2 = The complement of the sequence number.
* Data = A 128 bytes of data.
* SUM = Add the contents of the 128 bytes and use the low-order
* 8 bits of the result.
*
* send_xmodem_packet fills in the XMODEM fields of PACKET and sends it to the
* remote system. PACKET must be XMODEM_PACKETSIZE bytes long. The data must
* start 3 bytes after the beginning of the packet to leave room for the
* XMODEM header. LEN is the length of the data portion of the packet (and
* must be <= 128 bytes). If it is < 128 bytes, ^Z padding will be added.
*/
void
xmodem_send_packet (desc, packet, len, hashmark)
serial_t desc;
unsigned char *packet;
int len;
int hashmark;
{
int i;
int retries;
int pktlen;
int datasize;
/* build the packet header */
packet[1] = blknum;
packet[2] = ~blknum;
blknum++;
if (len <= XMODEM_DATASIZE)
{
packet[0] = SOH;
datasize = XMODEM_DATASIZE;
}
else if (len <= XMODEM_1KDATASIZE)
{
packet[0] = STX;
datasize = XMODEM_1KDATASIZE;
}
else
abort (); /* Packet way too large */
/* Add ^Z padding if packet < 128 (or 1024) bytes */
memset (packet + 3 + len, '\026', datasize - len);
if (crcflag)
{
int crc;
crc = docrc (packet + 3, datasize);
packet[3 + datasize] = crc >> 8;
packet[3 + datasize + 1] = crc;
pktlen = datasize + 5;
}
else
{
int sum;
sum = 0;
for (i = 3; i < datasize + 3; i++)
sum += packet[i];
packet[3 + datasize] = sum; /* add the checksum */
pktlen = datasize + 4;
}
for (retries = 3; retries >= 0; retries--)
{
int c;
SERIAL_WRITE (desc, packet, pktlen);
c = readchar (desc, 3);
switch (c)
{
case ACK:
return;
case NAK:
if (!hashmark)
continue;
putchar_unfiltered ('-');
gdb_flush (gdb_stdout);
continue;
case CANCEL:
error ("xmodem_send_packet: Transfer aborted by receiver.");
default:
fprintf_unfiltered (gdb_stderr, "xmodem_send_packet: Got unexpected character %c (0%o)\n", c, c);
continue;
}
}
SERIAL_WRITE (desc, "\004", 1); /* Send an EOT */
error ("xmodem_send_packet: Excessive retries.");
}
/* Finish off the transfer. Send out the EOT, and wait for an ACK. */
void
xmodem_finish_xfer (desc)
serial_t desc;
{
int retries;
for (retries = 10; retries >= 0; retries--)
{
int c;
SERIAL_WRITE (desc, "\004", 1); /* Send an EOT */
c = readchar (desc, 3);
switch (c)
{
case ACK:
return;
case NAK:
continue;
case CANCEL:
error ("xmodem_finish_xfer: Transfer aborted by receiver.");
default:
fprintf_unfiltered (gdb_stderr, "xmodem_send_packet: Got unexpected character %c (0%o)\n", c, c);
continue;
}
}
error ("xmodem_finish_xfer: Excessive retries.");
}