re-add debugger sources

1 files changed, 239 insertions, 0 deletions

diff --git a/ao-tools/ao-dbg/ao-dbg-main.c b/ao-tools/ao-dbg/ao-dbg-main.c
new file mode 100644
index 00000000..72249a6b
--- /dev/null
+++ b/ao-tools/ao-dbg/ao-dbg-main.c
@@ -0,0 +1,239 @@
+/*
+ * Copyright © 2008 Keith Packard <keithp@keithp.com>
+ *
+ * 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 "ao-dbg.h"
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <signal.h>
+#include <stdarg.h>
+#include <poll.h>
+
+static int s51_port = 0;
+static char *cpu = "8051";
+static double freq = 11059200;
+char *s51_prompt = "> ";
+struct ccdbg *s51_dbg;
+int s51_interrupted = 0;
+int s51_monitor = 0;
+
+static FILE *s51_input;
+static FILE *s51_output;
+
+static void
+usage(void)
+{
+	fprintf(stderr, "You're doing it wrong.\n");
+	exit(1);
+}
+
+void s51_sigint()
+{
+	s51_interrupted = 1;
+}
+
+int
+main(int argc, char **argv)
+{
+	int flags, opt;
+	char *endptr;
+	struct sigvec vec, ovec;
+
+	while ((opt = getopt(argc, argv, "PVvHhmt:X:c:r:Z:s:S:p:")) != -1) {
+		switch (opt) {
+		case 't':
+			cpu = optarg;
+			break;
+		case 'X':
+			freq = strtod(optarg, &endptr);
+			if (endptr == optarg)
+				usage();
+			if (endptr[0] != '\0') {
+				if (!strcmp(endptr, "k"))
+					freq *= 1000;
+				else if (!strcmp(endptr, "M") )
+					freq *= 1000000;
+				else
+					usage ();
+			}
+			break;
+		case 'c':
+			break;
+		case 'r':
+		case 'Z':
+			s51_port = strtol(optarg, &endptr, 0);
+			if (endptr == optarg || strlen(endptr) != 0)
+				usage();
+			break;
+		case 's':
+			break;
+		case 'S':
+			break;
+		case 'p':
+			s51_prompt = optarg;
+			break;
+		case 'P':
+			s51_prompt = NULL;
+			break;
+		case 'V':
+			break;
+		case 'v':
+			break;
+		case 'H':
+			exit (0);
+			break;
+		case 'h':
+			usage ();
+			break;
+		case 'm':
+			s51_monitor = 1;
+			break;
+		}
+	}
+	if (s51_port) {
+		int l, r, one = 1;
+		int s;
+		struct sockaddr_in in;
+
+		l = socket(AF_INET, SOCK_STREAM, 0);
+		if (l < 0) {
+			perror ("socket");
+			exit(1);
+		}
+		r = setsockopt(l, SOL_SOCKET, SO_REUSEADDR, &one, sizeof (int));
+		if (r) {
+			perror("setsockopt");
+			exit(1);
+		}
+		in.sin_family = AF_INET;
+		in.sin_port = htons(s51_port);
+		in.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
+		r = bind(l, (struct sockaddr *) &in, sizeof (in));
+		if (r) {
+			perror("bind");
+			exit(1);
+		}
+		r = listen(l, 5);
+		if (r) {
+			perror("listen");
+			exit(1);
+		}
+		for (;;) {
+			struct sockaddr_in client_addr;
+			socklen_t client_len = sizeof (struct sockaddr_in);
+
+			s = accept(l, (struct sockaddr *)
+				   &client_addr, &client_len);
+			if (s < 0) {
+				perror("accept");
+				exit(1);
+			}
+			s51_input = fdopen(s, "r");
+			s51_output = fdopen(s, "w");
+			if (!s51_input || !s51_output) {
+				perror("fdopen");
+				exit(1);
+			}
+			vec.sv_handler = SIG_IGN;
+			vec.sv_mask = 0;
+			vec.sv_flags = 0;
+			sigvec(SIGINT, &vec, &ovec);
+			command_read();
+			sigvec(SIGINT, &ovec, NULL);
+			fclose(s51_input);
+			fclose(s51_output);
+		}
+	} else {
+		s51_input = stdin;
+		s51_output = stdout;
+		vec.sv_handler = s51_sigint;
+		vec.sv_mask = 0;
+		vec.sv_flags = 0;
+		sigvec(SIGINT, &vec, &ovec);
+		command_read();
+	}
+	exit(0);
+}
+
+void
+s51_printf(char *format, ...)
+{
+	va_list	ap;
+
+	va_start(ap, format);
+	vfprintf(s51_output, format, ap);
+	if (s51_monitor)
+		vfprintf(stdout, format, ap);
+	va_end(ap);
+}
+
+void
+s51_putc(int c)
+{
+	putc(c, s51_output);
+}
+
+#include <readline/readline.h>
+#include <readline/history.h>
+
+int
+s51_read_line(char *line, int len)
+{
+	int ret;
+	if (s51_output == stdout && s51_input == stdin && s51_prompt) {
+		char *r;
+
+		r = readline(s51_prompt);
+		if (r == NULL)
+			return 0;
+		strncpy (line, r, len);
+		line[len-1] = '\0';
+		add_history(r);
+		return 1;
+	} else {
+		if (s51_prompt)
+			s51_printf("%s", s51_prompt);
+		else
+			s51_putc('\0');
+		fflush(s51_output);
+		ret = fgets(line, len, s51_input) != NULL;
+		if (s51_monitor)
+			printf("> %s", line);
+		fflush(stdout);
+	}
+	return ret;
+}
+
+int
+s51_check_input(void)
+{
+	struct pollfd	input;
+	int r;
+	int c;
+
+	input.fd = fileno(s51_input);
+	input.events = POLLIN;
+	r = poll(&input, 1, 0);
+	if (r > 0) {
+		char line[256];
+		(void) s51_read_line(line, sizeof (line));
+		return 1;
+	}
+	return 0;
+}