1 /* Test-driver for the remote-virtual-component simulator framework
2 for GDB, the GNU Debugger.
4 Copyright 2006, 2007 Free Software Foundation, Inc.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
23 /* Avoid any problems whatsoever building this program if we're not
24 also building hardware support. */
28 main (int argc, char *argv[])
40 #include "libiberty.h"
55 #ifdef HAVE_SYS_TYPES_H
56 #include <sys/types.h>
59 #ifdef HAVE_SYS_TIME_H
63 #ifdef HAVE_SYS_SELECT_H
64 #include <sys/select.h>
71 /* Not guarded in dv-sockser.c, so why here. */
72 #include <netinet/in.h>
73 #include <arpa/inet.h>
75 #include <sys/socket.h>
83 RV_MBOX_HANDLE_CMD = 5,
88 enum opts { OPT_PORT = 1, OPT_TIMEOUT, OPT_VERBOSE };
90 struct option longopts[] =
92 {"port", required_argument, NULL, OPT_PORT},
93 {"timeout", required_argument, NULL, OPT_TIMEOUT},
94 {"verbose", no_argument, NULL, OPT_VERBOSE},
99 time_t timeout = 30000;
100 char *progname = "(unknown)";
103 /* Required forward-declarations. */
104 static void handle_input_file (int, char *);
106 /* Set up a "server" listening to the port in PORT for a raw TCP
107 connection. Return a file descriptor for the connection or -1 on
110 int setupsocket (void)
115 struct sockaddr_in sa_in;
116 struct sockaddr_in from;
119 memset (&from, 0, len);
120 memset (&sa_in, 0, sizeof (sa_in));
122 s = socket (AF_INET, SOCK_STREAM, 0);
126 if (setsockopt (s, SOL_SOCKET, SO_REUSEADDR, &reuse, sizeof reuse) != 0)
129 sa_in.sin_port = htons (port);
130 sa_in.sin_family = AF_INET;
132 if (bind (s, (struct sockaddr *) & sa_in, sizeof sa_in) < 0)
135 if (listen (s, 1) < 0)
138 return accept (s, (struct sockaddr *) &from, &len);
141 /* Basic host-to-little-endian 32-bit value. Could use the BFD
142 machinery, but let's avoid it for this only dependency. */
145 h2le32 (unsigned char *dest, unsigned int val)
148 dest[1] = (val >> 8) & 255;
149 dest[2] = (val >> 16) & 255;
150 dest[3] = (val >> 24) & 255;
153 /* Send a blob of data. */
156 send_output (int fd, unsigned char *buf, int nbytes)
160 ssize_t written = write (fd, buf, nbytes);
163 fprintf (stderr, "%s: write to socket failed: %s\n",
164 progname, strerror (errno));
171 /* Receive a blob of data, NBYTES large. Compare to the first NCOMP
172 bytes of BUF; if not a match, write error message to stderr and
173 exit (2). Else put it in buf. */
176 expect_input (int fd, unsigned char *buf, int nbytes, int ncomp)
181 for (i = 0; i < nbytes; i++)
188 r = read (fd, &byt, 1);
190 while (r <= 0 && (r == 0 || errno == EAGAIN));
194 fprintf (stderr, "%s: read from socket failed: %s",
195 progname, strerror (errno));
199 if (i < ncomp && byt != buf[i])
202 fprintf (stderr, "%s: unexpected input,\n ", progname);
204 fprintf (stderr, "nothing,");
206 for (j = 0; j < i; j++)
207 fprintf (stderr, "%02x", buf[j]);
208 fprintf (stderr, "\nthen %02x instead of %02x\n", byt, buf[i]);
216 /* Handle everything about a nil-terminated line of input.
217 Call exit (2) on error with error text on stderr. */
220 handle_input (int fd, char *buf, char *fname, int lineno)
226 static unsigned char bytes[1024];
229 memset (bytes, 0, sizeof bytes);
237 /* Comment characters and empty lines. */
238 case 0: case '!': case '#':
241 /* Include another file. */
243 handle_input_file (fd, s);
246 /* Raw input (to be expected). */
251 sscanf (s, "%02x%n", &data, &n);
254 bytes[nbytes++] = data;
257 expect_input (fd, bytes, nbytes, nbytes);
261 for (i = 0; i < nbytes; i++)
262 printf ("%02x", bytes[i]);
267 /* Raw output (to be written). */
272 sscanf (s, "%02x%n", &data, &n);
276 bytes[nbytes++] = data;
282 send_output (fd, bytes, nbytes);
286 for (i = 0; i < nbytes; i++)
287 printf ("%02x", bytes[i]);
292 /* Read a register. */
296 sscanf (s, "%x,%x%n", &addr, &data, &n);
297 if (n < 0 || s[n] != 0)
301 bytes[2] = RV_READ_CMD;
302 h2le32 (bytes + 3, addr);
303 expect_input (fd, bytes, 11, 7);
304 h2le32 (bytes + 7, data);
305 send_output (fd, bytes, 11);
307 printf ("r,%x,%x\n", addr, data);
311 /* Write a register. */
315 sscanf (s, "%x,%x%n", &addr, &data, &n);
316 if (n < 0 || s[n] != 0)
320 bytes[2] = RV_WRITE_CMD;
321 h2le32 (bytes + 3, addr);
322 h2le32 (bytes + 7, data);
323 expect_input (fd, bytes, 11, 11);
324 send_output (fd, bytes, 11);
326 printf ("w,%x,%x\n", addr, data);
330 /* Wait for some milliseconds. */
335 sscanf (s, "%d%n", &del, &n);
336 if (n < 0 || s[n] != 0 || del == 0)
339 to.tv_sec = del / 1000;
340 to.tv_usec = (del % 1000) * 1000;
342 if (select (0, NULL, NULL, NULL, &to) != 0)
344 fprintf (stderr, "%s: problem waiting for %d ms:\n %s\n",
345 progname, del, strerror (errno));
349 printf ("t,%d\n", del);
353 /* Expect a watchdog command. */
359 bytes[2] = RV_WATCHDOG_CMD;
360 expect_input (fd, bytes, 3, 3);
365 /* Send an IRQ notification. */
367 sscanf (s, "%x%n", &data, &n);
368 if (n < 0 || s[n] != 0)
372 bytes[2] = RV_IRQ_CMD;
373 h2le32 (bytes + 3, data);
374 send_output (fd, bytes, 7);
376 printf ("I,%x\n", data);
379 /* DMA store (to CPU). */
383 sscanf (s, "%x,%n", &addr, &n);
385 if (n < 0 || s[n] == 0)
391 sscanf (s, "%02x%n", &data, &n);
395 bytes[11 + nbytes++] = data;
402 h2le32 (bytes, nbytes + 11);
403 bytes[2] = RV_MEM_WR_CMD;
404 h2le32 (bytes + 3, addr);
405 h2le32 (bytes + 7, nbytes);
406 send_output (fd, bytes, nbytes + 11);
409 printf ("s,%x,", addr);
410 for (i = 0; i < nbytes; i++)
411 printf ("%02x", bytes[i]);
417 /* DMA load (from CPU). */
421 sscanf (s, "%x,%n", &addr, &n);
423 if (n < 0 || s[n] == 0)
429 sscanf (s, "%02x%n", &data, &n);
433 bytes[11 + nbytes++] = data;
440 h2le32 (bytes, nbytes + 11);
443 bytes[2] = RV_MEM_RD_CMD;
444 h2le32 (bytes + 3, addr);
445 h2le32 (bytes + 7, nbytes);
446 send_output (fd, bytes, 11);
447 bytes[0] = (nbytes + 11) & 255;
448 bytes[1] = ((nbytes + 11) >> 8) & 255;
449 expect_input (fd, bytes, nbytes + 11, nbytes + 11);
452 printf ("l,%x,", addr);
453 for (i = 0; i < nbytes; i++)
454 printf ("%02x", bytes[i]);
462 fprintf (stderr, "%s: invalid command line in %s:%d:\n %s",
463 progname, fname, lineno, strerror (errno));
468 /* Loop over the contents of FNAME, using handle_input to parse each line.
469 Errors to stderr, exit (2). */
472 handle_input_file (int fd, char *fname)
474 static char buf[2048] = {0};
476 FILE *f = fopen (fname, "r");
480 fprintf (stderr, "%s: problem opening %s: %s\n",
481 progname, fname, strerror (errno));
485 /* Let's cut the buffer short, so we always get a newline. */
486 while (fgets (buf, sizeof (buf) - 1, f) != NULL)
488 buf[strlen (buf) - 1] = 0;
490 handle_input (fd, buf, fname, lineno);
497 main (int argc, char *argv[])
505 while ((optc = getopt_long (argc, argv, "", longopts, NULL)) != -1)
509 port = atoi (optarg);
513 timeout = (time_t) atoi (optarg);
524 fprintf (stderr, "%s: problem setting up the connection: %s\n",
525 progname, strerror (errno));
529 for (i = optind; i < argc; i++)
530 handle_input_file (fd, argv[i]);
532 /* FIXME: option-controlled test for remaining input? */