287 lines
7.3 KiB
C
287 lines
7.3 KiB
C
|
/* 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 <stdio.h>
|
|||
|
|
#include <sys/types.h>
|
|||
|
|
#include <sys/time.h>
|
|||
|
|
#include <sys/param.h>
|
|||
|
|
#include <connection.h>
|
|||
|
|
#include <genericreq.h>
|
|||
|
|
#include <debuggerreq.h>
|
|||
|
|
#include <debuggerconn.h>
|
|||
|
|
#include <ttyconn.h>
|
|||
|
|
|
|||
|
|
/* 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);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|