From 1744d4eb1c227c2352ecf328b4b1788efb99fc80 Mon Sep 17 00:00:00 2001 From: Stu Grossman Date: Mon, 9 Mar 1992 22:46:53 +0000 Subject: [PATCH] Interface routines for Lucid's tool protocol. --- gdb/cadillac.c | 286 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 286 insertions(+) create mode 100755 gdb/cadillac.c diff --git a/gdb/cadillac.c b/gdb/cadillac.c new file mode 100755 index 00000000000..936a4fc2004 --- /dev/null +++ b/gdb/cadillac.c @@ -0,0 +1,286 @@ +/* Cadillac interface routines. + Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ + +#include +#include +#include +#include +#include +#include +#include +#include +#include + +/* Connection block for debugger<=>kernel communications. */ +static Connection *conn = 0; + +/* fd for our socket to the kernel. */ +static int kerfd; + +/* The kernel's ID for this instance of the program. */ +static int program_id; + + +/* This routine redirects the output of fputs_filtered to the kernel so that + the user can see what's going on in his debugger window. */ + +void +cadillac_fputs(ptr) + char *ptr; +{ + CTtyRequest *req; + + if (conn) + { + req = CWriteTtyRequest (conn, TextIORType); + CWriteVstring0 (conn, ptr); + CWriteLength (conn); +/* CWriteRequestBuffer (conn); /* XXX - debugging only */ + } + else + fputs (ptr, stdout); +} + +/* This wrapper routine is needed because execute_command modifies the command + string that it's given. It also echos the commands. */ + +static void +execute_command_1 (cmd, from_tty) + char *cmd; + int from_tty; +{ + char buf[100]; + + printf_filtered("%s\n", cmd); + strcpy(buf, cmd); + execute_command(buf, from_tty); +} + +/* Establish contact with the kernel. */ + +void +cadillac_initialize(cadillac_id, execarg) + char *cadillac_id; + char *execarg; +{ + CTtyRequest *req; + char *ctmp; + extern long strtol(char *str, char **ptr, int base); + char pathname[MAXPATHLEN]; + + if (!execarg) execarg = ""; + + printf("gdb-debugger pid=%d\n", getpid()); /* XXX - debugging only */ + + /* First establish the connection with the kernel. */ + + kerfd = COpenClientSocket(NULL); + if (kerfd < 0) { + printf("COpenClientSocket() failed\n"); + exit(1); + } + + /* Setup connection buffering. */ + + CSetSocketBufferSize (kerfd, 12000); + + /* Generate a new connection control block. */ + + conn = NewConnection (0, kerfd, kerfd); + if (!conn) { + printf("NewConnection() failed\n"); + exit(1); + } + + /* Tell the kernel that we are the "debugger". */ + + req = CWriteTtyRequest (conn, QueryConnectionRType); + req->generic.queryconnection.major = 0; + req->generic.queryconnection.minor = 0; + req->generic.queryconnection.cadillacId1=strtol(cadillac_id, &ctmp, 16); + req->generic.queryconnection.cadillacId2 = strtol(++ctmp, NULL, 16); + req->generic.queryconnection.nProtocols = 1; + CWriteProtocol (conn, 0, 0, "debugger"); + CWriteLength (conn); + + /* Tell the kernel that we are actually running. */ + + /* KROCK ALERT!!! The kernel doesn't really care about the arguments to + the program at all! It only cares that argument 7 be the name of the + target program. So, we just fill in the rest of the slots with + padding. I hope the kernel never cares about this! */ + + req = CWriteTtyRequest (conn, RunningProgramRType); + req->runningprogram.argc = 8; + getwd (pathname); + CWriteVstring0 (conn, pathname); + + CWriteVstring0 (conn, "0"); + CWriteVstring0 (conn, "1"); + CWriteVstring0 (conn, "2"); + CWriteVstring0 (conn, "3"); + CWriteVstring0 (conn, "4"); + CWriteVstring0 (conn, "5"); + CWriteVstring0 (conn, "6"); + CWriteVstring0 (conn, execarg); + CWriteLength (conn); +} + +/* All requests from the Cadillac kernel eventually end up here. */ + +void +cadillac_main_loop(pprompt) + char **pprompt; +{ + CTtyRequest *req; + extern int cadillac; + + /* The actual event loop! */ + + while (1) + { + register CHeader *head; + fd_set readfds; + int numfds; + + fputs_filtered(*pprompt, stdout); /* Output the prompt */ + + /* Output all pending requests. */ + CWriteRequestBuffer (conn); + + /* Wait till there's some activity from the kernel. */ + while (1) + { + FD_ZERO (&readfds); + FD_SET (kerfd, &readfds); + numfds = select (sizeof(readfds)*8, &readfds, 0, 0, 0); + if (numfds > 0) break; + } + + head = (CHeader *)CPeekNextRequest (conn); + if (head == NULL) + { + fprintf (stderr, "EOF on kernel read!\n"); + exit (1); + } + + if (head->reqType < LastTtyRequestRType) + { + CTtyRequest* req = CReadTtyRequest (conn); + switch (req->head.reqType) + { + case AcceptConnectionRType: + CSkipRequest (conn); + /* Tell the rest of the world that cadillac is now set up */ + cadillac = 1; + break; + + case RefuseConnectionRType: + fprintf (stderr, "Debugger connection refused\n"); + exit (1); + + case KillProgramRType: + exit (0); + + default: + fprintf_filtered(stderr, "Unknown request type = %d\n", + req->head.reqType); + CSkipRequest (conn); + break; + } + } + else + { + CVDebuggerRequest *req = CVReadDebuggerRequest (conn); + if (!req) + { + fprintf (stderr, "CVReadDebuggerRequest returned NULL, type = %d\n", + head->reqType); + return; + } + + switch (req->head.request->reqType) + { + case OpenProgramInstanceRType: + { + char *arglist, buf[100]; /* XXX - Make buf dynamic! */ + int arglen; + /* XXX - should notice when program_id changes */ + program_id = req->openProgramInstance.request->programId; + arglist = req->openProgramInstance.progArglist.text; + arglen = req->openProgramInstance.progArglist.byteLen; + + execute_command_1("break main", 1); + if (arglist) + { + sprintf(buf, "set args %.*s", arglen, arglist); + fputs_filtered(*pprompt, stdout); /* Output the prompt */ + execute_command_1(buf, 1); + } + fputs_filtered(*pprompt, stdout); /* Output the prompt */ + execute_command_1("run", 1); + } + break; + case QuitDebuggerRType: + exit (0); + case RunRType: + execute_command_1("run", 1); + break; + case ContinueRType: + execute_command_1("continue", 1); + break; + case StepRType: + execute_command_1("step", 1); + break; + case NextRType: + execute_command_1("next", 1); + break; + case ChangeStackFrameRType: + printf_filtered("Got to ChangeStackFrame\n"); + break; + case BackTraceRType: + execute_command_1("backtrace", 1); + break; + case FinishRType: + execute_command_1("finish", 1); + break; + case TerminateProgramRType: + execute_command_1("quit", 1); + break; + case UserInputRType: + { + char *text; + long len; + + text = req->userInput.userInput.text; + len = req->userInput.userInput.byteLen; + + if (text[len-1] == '\n') text[len-1] = '\000'; + execute_command (text, 1); + break; + } + default: + fprintf_filtered(stderr, "Unknown request type = %d\n", + req->head.request->reqType); + break; + } + CVFreeDebuggerRequest (req); + } + } +} -- 2.30.2