minix/commands/mdb/mdb.c
Arun Thomas 1f9ce647cf Move archtypes.h, fpu.h, and stackframe.h
Move archtypes.h to include/ dir, since several servers require it. Move
fpu.h and stackframe.h to arch-specific header directory. Make source
files and makefiles aware of the new header locations.
2010-03-09 09:41:14 +00:00

1029 lines
22 KiB
C

/*
* mdb.c - MINIX program debugger
*
* Written by Bruce D. Szablak
*
* This free software is provided for non-commerical use. No warrantee
* of fitness for any use is implied. You get what you pay for. Anyone
* may make modifications and distribute them, but please keep this header
* in the distribution.
*/
/*
* Originally ported to MINIX-PC and MINIX-386 by Bruce Evans.
* NB: the original sym.c and mdbdis86.c come from his 'db'
*
* Added by Philip Murton:
*
* 2.0 'Core' file functions
* 2.1 Support for GNU exec
* 2.2 Changes for Minix 1.6.x Beta
* 2.3 Changes for Minix 1.7.0 and trace syscalls
* 2.4 Changes for Minix 1.7.2 and clean up
* 2.5.1 Add better help
* 2.5.2 Added io.c for logging options
* 2.5.3 Minor changes and tested with Minix 1.7.4
* 2.5.4 Command arguments processing improved (Thanks to Will Rose)
* 2.6.0 Final Version for MINIX CD (Sept/96)
*/
#define _MAIN_MDB
#include "mdb.h"
#include <minix/type.h>
#include <stdio.h>
#include <signal.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <ctype.h>
#include <errno.h>
#include <sys/wait.h>
#define ptrace mdbtrace
#include <sys/ptrace.h>
#include <setjmp.h>
#include "proto.h"
#include <machine/archtypes.h>
#include <kernel/const.h>
#include <kernel/type.h>
#include <kernel/proc.h>
/* buffer for proc and pointer to proc */
extern struct proc *prc;
#define MAXLINE 128
#define MAXARG 20
PRIVATE unsigned long lastexp = 0L; /* last expression and segment */
PRIVATE int lastseg = NOSEG;
PRIVATE char *prog; /* prog name */
PRIVATE char sbuf[MAXLINE];
PRIVATE char cbuf[MAXLINE];
PRIVATE char *cmd; /* current command */
PRIVATE char *cmdstart; /* start of command */
PRIVATE jmp_buf mainlp;
struct b_pnt {
struct b_pnt *nxt, *prv;
long addr;
long oldval;
char cmd[1];
} *b_head, *curpnt;
_PROTOTYPE( void main , (int argc, char *argv[]));
FORWARD _PROTOTYPE( void cleanup , (void));
FORWARD _PROTOTYPE( void freepnt , (struct b_pnt *pnt ));
FORWARD _PROTOTYPE( void findbpnt , (int verbose ));
FORWARD _PROTOTYPE( int exebpnt , (int restart ));
FORWARD _PROTOTYPE( void catch , (int sig ));
FORWARD _PROTOTYPE( int run , (char *name , char *argstr , int tflg ));
FORWARD _PROTOTYPE( int dowait , (void));
FORWARD _PROTOTYPE( void backtrace , (int all ));
FORWARD _PROTOTYPE( void modify , (long addr , int cnt , int verbose , int size ));
FORWARD _PROTOTYPE( void display , (long addr , int req ));
FORWARD _PROTOTYPE( void fill , (long addr , int req ));
FORWARD _PROTOTYPE( void dorun , (char *cmd ));
FORWARD _PROTOTYPE( void not_for_core , (void));
FORWARD _PROTOTYPE( void command , (void));
PRIVATE void cleanup()
{
curpid = 0;
curpnt = NULL;
while (b_head) freepnt(b_head);
}
PRIVATE void findbpnt(verbose)
int verbose;
{
for (curpnt = b_head; curpnt; curpnt = curpnt->nxt) {
if (curpnt->addr == PC_MEMBER(prc) - BREAKPOINT_ADVANCE) {
ptrace(T_SETINS, curpid, curpnt->addr, curpnt->oldval);
ptrace(T_SETUSER, curpid, PC_OFF, curpnt->addr);
#if SYSCALLS_SUPPORT
if( syscalls )
do_syscall(curpnt->addr);
else if (curpnt->cmd[0] != '\n')
#else
if (curpnt->cmd[0] != '\n')
#endif
cmd = strcpy(cbuf, curpnt->cmd);
else if (verbose)
Printf("Breakpoint hit.\n");
return;
}
}
if (verbose) Printf("Unknown breakpoint hit.\n");
}
PRIVATE int exebpnt(restart)
int restart;
{
ptrace(T_STEP, curpid, 0L, (long) restart);
if (dowait() == 0) return TRUE;
ptrace(T_SETINS, curpid, curpnt->addr, BREAK(curpnt->oldval));
curpnt = NULL;
return FALSE;
}
PRIVATE void freepnt(pnt)
struct b_pnt *pnt;
{
if (pnt->prv)
pnt->prv->nxt = pnt->nxt;
else
b_head = pnt->nxt;
if (pnt->nxt) pnt->nxt->prv = pnt->prv;
if (curpid > 0) ptrace(T_SETINS, curpid, pnt->addr, pnt->oldval);
free(pnt);
if (pnt == curpnt) curpnt = NULL;
}
PUBLIC long breakpt(addr, cmd)
long addr;
char *cmd;
{
struct b_pnt *new;
if (curpid <= 0) {
Printf("No active process.\n");
return 0L;
}
for (new = b_head; new; new = new->nxt)
if (new->addr == addr) {
Printf("Breakpoint already exists here.\n");
return 0L;
}
new = (struct b_pnt *) malloc(sizeof(struct b_pnt) + strlen(cmd));
if (new == NULL) {
Printf("No room for new breakpoint.\n");
return 0L;
}
new->nxt = b_head;
new->prv = 0;
if (b_head) b_head->prv = new;
b_head = new;
new->addr = addr;
strcpy(new->cmd, cmd);
new->oldval = ptrace(T_GETINS, curpid, addr, 0L);
ptrace(T_SETINS, curpid, addr, BREAK(new->oldval));
if (ptrace(T_GETINS, curpid, addr, 0L) != BREAK(new->oldval)) {
do_error("Can't set breakpoint");
freepnt(new);
return 0L;
}
return new->oldval;
}
PRIVATE void catch(sig)
int sig;
{
signal(sig, catch);
if (sig == SIGINT || sig == SIGQUIT) return;
tstart(T_EXIT, 0, sig, 0);
exit(0);
}
PRIVATE int dowait()
{
int stat;
if (corepid > 0) return cursig = 0;
while (wait(&stat) != curpid) {};
if ( WIFEXITED(stat) ) {
if (WEXITSTATUS(stat) != 127)
Printf("child exited with status %d\n", WEXITSTATUS(stat));
cleanup();
return 0;
}
if ( WIFSIGNALED(stat) ) {
Printf("child terminated by signal %d\n", WTERMSIG(stat) );
if (_LOW(stat) & 0x80) Printf("(core dumped)\n");
cleanup();
return 0;
}
return cursig = WSTOPSIG(stat);
}
PUBLIC void tstart(req, verbose, val, cnt)
int req, verbose, val, cnt;
{
if (curpid == 0) {
if (verbose) Printf("No active process.\n");
return;
}
if (req == T_EXIT) {
ptrace(T_EXIT, curpid, 0L, (long) val);
dowait();
return;
}
if (cnt == 0) cnt = 1;
do {
if (curpnt) {
if (exebpnt(val)) return;
if (req == T_RESUME) cnt++;
val = 0;
} else {
ptrace(req, curpid, 0L, (long) val);
if (dowait() == 0) return;
val = 0;
switch (cursig) {
case SIGEMT: /* breakpoint */
update();
findbpnt(cnt <= 1);
break;
case SIGTRAP: /* trace trap? */
if (req == T_STEP) break;
default: /* signal */
val = cursig;
break;
}
}
}
while (--cnt > 0);
update();
if ( verbose ) dasm((long) PC_MEMBER(prc), 1, 1);
}
PRIVATE int run(name, argstr, tflg)
char *name, *argstr;
int tflg;
{
int procid;
char *argv[MAXARG], *inf = NULL, *outf = NULL;
int argc;
if ((procid = fork()) == 0) {
/* trace me */
if (tflg) ptrace(T_OK, 0, 0L, 0L);
argv[0] = name;
for (argc = 1;;) {
argstr = skip(argstr);
if (*argstr == '\n' || *argstr == ';') {
argv[argc] = 0;
if (inf) freopen(inf, "r", stdin);
if (outf) freopen(outf, "w", stdout);
if (tflg) {
execv(name, argv);
do_error("execv");
} else {
execvp(name, argv);
do_error("execvp");
}
exit(127);
}
if (*argstr == '<')
inf = argstr + 1;
else if (*argstr == '>')
outf = argstr + 1;
else if (argc == MAXARG) {
Printf("Too many arguments.\n");
exit(127);
} else
argv[argc++] = argstr;
while (!isspace(*argstr)) argstr++;
if (*argstr == '\n') argstr[1] = '\n', argstr[2] = 0;
*argstr++ = 0;
}
}
if (procid < 0) do_error("Fork failed.\n");
return procid;
}
PRIVATE void dorun(cmd)
char *cmd;
{
if (curpid = run(prog, cmd, 1)) {
if (dowait()) {
ptrace(T_SETUSER, curpid, BP_OFF, 0L);
update();
Printf("Process stopped.\n");
}
}
}
/*
* backtrace - inspect the stack
*/
PRIVATE void backtrace(all)
int all;
{
unsigned long pc, bp, off, val, obp;
if (curpid <= 0) {
Printf("No process.\n");
return;
}
pc = get_reg(curpid,PC_OFF);
bp = get_reg(curpid,BP_OFF);
if (bp == 0) {
Printf("No active frame.\n");
return;
}
errno = 0;
do {
symbolic(pc, '(');
pc = (ptrace(T_GETDATA, curpid, bp + ADDRSIZE, 0L)
>> SHIFT(ADDRSIZE)) & MASK(ADDRSIZE);
off = ptrace(T_GETINS, curpid, pc, 0L);
#ifdef DEBUG
if(debug)
Printf("Return address %lx Value %lx\n",pc,off);
#endif
obp = bp;
bp += 2 * ADDRSIZE;
/* Check for various instruction used to restore the stack.
* Should gives us the number of arguments.
* This is obvious dependent on interal features of the
* compiler used.
*/
if (ADDQ(off)) off = ADDQ_CNT(off) + bp;
#ifdef __mc68000__
else if (LEA(off))
off = LEA_DISP(off) + bp;
#endif
else if (ADDA(off))
off = ADDA_CNT(ptrace(T_GETINS, curpid, pc + 2, 0L)) + bp;
#if (CHIP == INTEL)
else if (INCSP2(off))
off = bp + 2*INTSIZE;
else if (POPBX2(off))
off = bp + 2*INTSIZE;
else if (POPCX2(off))
off = bp + 2*INTSIZE;
else if (POPBX(off))
off = bp + INTSIZE;
else if (POPCX(off))
off = bp + INTSIZE;
#endif
else
goto skiplp;
#ifdef DEBUG
if (debug)
Printf("Number of arguments: %d\n",(off-bp)/INTSIZE);
#endif
for (;;) {
if (errno) return;
val = (ptrace(T_GETDATA, curpid, bp, 0L)
>> SHIFT(INTSIZE)) & MASK(INTSIZE);
Printf("0x%0*lx", 2 * INTSIZE, val);
bp += INTSIZE;
if (bp >= off) break;
Printf(",");
}
skiplp:
Printf(")\n");
bp = (long) ( (reg_t) ptrace(T_GETDATA, curpid, obp, 0L) );
#ifdef DEBUG
if(debug)
Printf("Old BP %lx New %lx\n",obp,bp);
#endif
}
while (all && (reg_t) bp);
}
PRIVATE void modify(addr, cnt, verbose, size)
long addr;
int cnt, verbose, size;
{
long curval, off;
if (curpid == 0) {
Printf("No active process.\n");
return;
}
curval = ptrace(T_GETDATA, curpid, addr, 0L) & MASK(size);
do {
if (cursig == SIGTRAP) cursig = 0;
if (verbose) {
off = get_reg(curpid, PC_OFF);
dasm(off, 1, 0);
}
if (curpnt && exebpnt(cursig))
return;
else {
ptrace(T_STEP, curpid, addr, 0L);
switch (dowait()) {
case 0:
return;
case SIGEMT:
update();
findbpnt(0);
break;
}
}
if (curval != ptrace(T_GETDATA, curpid, addr, 0L) & MASK(size)) {
Printf("Modification detected\n");
break;
}
}
while (--cnt);
update();
dasm((long) PC_MEMBER(prc), 1, 1);
return;
}
PRIVATE void display(addr, req)
long addr;
int req;
{
int count, size, out, shift;
long val, msk;
char fmt;
if (curpid == 0) {
Printf("No active process\n");
return;
}
if (req == T_GETDATA && seg == T) req = T_GETINS;
count = strtol(cmd, &cmd, 0);
if (count == 0) count = 1;
cmd = skip(cmd);
if (*cmd == 'i' || *cmd == 'I') {
dasm(addr, count, *cmd == 'i');
return;
}
if (*cmd == 'y') {
symbolic(addr, '\n');
return;
}
switch (*cmd++) {
case 'b': size = sizeof(char); break;
case 'h': size = sizeof(short); break;
case 'l': size = sizeof(long); break;
default:
size = sizeof(int);
--cmd;
break;
}
switch (fmt = *cmd) {
case 'X':
case 'D':
size = sizeof(long);
break;
case 's':
addr = ptrace(req, curpid, addr, 0L);
req = T_GETDATA;
/* Fallthrough */
case 'a':
case 'c':
size = sizeof(char);
break;
}
out = 0;
msk = MASK(size);
shift = SHIFT(size);
do {
val = (ptrace(req, curpid, addr, 0L) >> shift) & msk;
if (out == 0) Printf("\n0x%0*lx: ", 2 * ADDRSIZE,
(addr >> SHIFT(ADDRSIZE)) & MASK(ADDRSIZE));
switch (fmt) {
case 'c':
Printf(isprint((int) (UCHAR(val))) ? " %c " : "\\%03o ",
(int) (UCHAR(val)));
if (++out == 8) out = 0;
break;
case 'u':
Printf("%12lu ", val);
if (++out == 4) out = 0;
break;
case 'x':
case 'X':
Printf("%*lx ", 2 * size, val);
if (++out == (size == 4 ? 4 : 8)) out = 0;
break;
case 'o':
Printf("%*lo ", 3 * size, val);
if (++out == (size == 4 ? 4 : 8)) out = 0;
break;
case 's':
case 'a':
if (val)
Printf("%c",val);
else
goto exitlp;
if (++out == 64) out = 0;
break;
default:
case 'd':
case 'D':
Printf("%12ld ", val);
if (++out == 4) out = 0;
break;
}
addr += size;
}
while (--count > 0 || fmt == 's' || fmt == 'a');
exitlp:
Printf("\n");
}
PRIVATE void fill(addr, req)
long addr;
int req;
{
int count, size, shift;
long val, msk, nval;
if (curpid == 0) {
Printf("No active process\n");
return;
}
if (req == T_GETDATA && seg == T) {
req = T_GETINS;
Printf("mdb: warning - modifying text\n");
}
count = strtol(cmd, &cmd, 0);
if ( count == 0 ) count = 1;
switch (*cmd++) {
case 'b': size = sizeof(char); break;
case 'h': size = sizeof(short); break;
case 'l': size = sizeof(long); break;
default:
size = sizeof(int);
--cmd;
break;
}
shift = SHIFT(size);
msk = MASK(size);
cmd = getexp(cmd, &nval, &seg);
#ifdef DEBUG
if (debug)
Printf("Filling for Count=%d Size=%d val=%lx\n",count,size,nval);
#endif
nval <<= shift;
do {
val = ptrace(req, curpid, addr, 0L) | (nval & msk);
val &= (nval | ~msk);
ptrace(req + 3, curpid, addr, val);
addr += size;
}
while (--count > 0);
}
PRIVATE void not_for_core()
{
if (corepid > 0)
mdb_error("Illegal command for 'core' file\n");
}
PRIVATE void command()
{
char c, *p;
int i;
int size;
int stat;
long exp, lj, lk;
struct b_pnt *bp;
seg = NOSEG; /* don't restrict segment expressions are in */
cmdstart = cmd = skip(cmd);
cmd = getexp(cmd, &exp, &seg);
if (cmd == cmdstart) {
/* Not an expression */
if (corepid < 0) { /* default to pc for running processs */
seg = T;
exp = PC_MEMBER(prc);
} else {
seg = lastseg;
exp = lastexp;
}
/* Is it a help command */
cmd = skip(cmd+1);
if (*cmd == '?') {
help_on(*cmdstart);
*cmd = '\n';
return;
}
else
cmd = cmdstart;
}
if (seg == NOSEG) seg = T; /* Absolute becomes Text */
lastexp = exp; /* save last expression */
lastseg = seg;
#ifdef DEBUG
if(debug)
Printf("Current address 0x%0*lx and segment %d\n", 2 * ADDRSIZE, exp, seg);
#endif
/* Check commands */
switch (c = *cmd++) {
case 'r': /* illegal for 'core' files */
case 'R':
case 'k':
case 'B':
case 'd':
case 'D': not_for_core();
break;
case 'b': /* illegal for 'core' files */
case 'c': /* Otherwise run process first */
case 'C':
case 'm':
case 'M':
#if SYSCALLS_SUPPORT
case 'z':
#endif
case 'i':
case 'I': not_for_core();
if (curpid <= 0) dorun("\n");
break;
case 's': if (curpid <= 0) dorun("\n");
break;
default: break;
}
switch (c) {
case '!': /* escape to shell */
if (cmd == cmdstart + 1) {
cmd = skip(cmd);
if (*cmd == '\n' || *cmd == ';') {
i = run("/bin/sh", "\n", 0);
} else {
for (p = cmd + 1; *p && !isspace(*p); p++) {
};
*p++ = 0;
i = run(cmd, *p ? p : "\n", 0);
}
if (i > 0) while (wait(&stat) != i) {};
break;
}
if (corepid > 0) longjmp(mainlp, 0);
break;
case 'T': /* top line of backtrace */
backtrace(0);
break;
case 't': /* back trace */
backtrace(1);
break;
case '/': /* print variable value */
display(exp, T_GETDATA);
break;
case 'x': /* print registers and instruction */
if (disp_regs()) break;
/* FALLTHROUGH */
case 'X': /* print instruction - X n [, n] */
lj = strtol(cmd, &cmd, 0);
lk = 0;
if (*cmd != '\n')
lk = strtol(++cmd, &cmd, 0);
if (curpid > 0)
dasm(exp + lk, lj ? lj : 1, 1);
else
Printf("No active process.\n");
break;
case 'R': /* run program with no args */
case 'r': /* run program with args (possibly defaulted) */
tstart(T_EXIT, 0, 0, 0);
if (c == 'r') {
cmd = skip(cmd);
if (*cmd == '\n' || *cmd == ';')
cmd = sbuf;
else
strcpy(sbuf, cmd);
} else {
cmd = "\n";
}
dorun(cmd);
break;
case 'c': /* continue program - ignore signal */
cursig = 0;
case 'C': /* continue program - handle signal */
i = 0;
if (seg == T && curpnt == 0 && cmd != cmdstart + 1) {
breakpt(exp, "\n");
curpnt = b_head;
ptrace(T_SETINS, curpid, curpnt->addr, curpnt->oldval);
i = 1;
}
tstart(T_RESUME, 1, cursig, (int) strtol(cmd, &cmd, 0));
/* remove temporary bp */
if (i) freepnt(b_head);
if (cursig == SIGEMT) return;
if (curpid) Printf("Process stopped by signal %d\n", cursig);
break;
case 'i': /* single step - ignore signal */
tstart(T_STEP, 1, 0, (int) strtol(cmd, &cmd, 0));
break;
case 'I': /* single step - handle signal */
tstart(T_STEP, 1, cursig, (int) strtol(cmd, &cmd, 0));
break;
case 'm': /* single step until location modified */
case 'M': /* single step until location modified - verbose */
cmd = skip(cmd);
switch (*cmd++) {
case 'b': size = sizeof(char); break;
case 'h': size = sizeof(short); break;
case 'l': size = sizeof(long); break;
default:
size = sizeof(int);
--cmd;
break;
}
modify(exp, (int) strtol(cmd, &cmd, 0), c == 'M', size);
break;
case 'k': /* kill current program */
tstart(T_EXIT, 1, 0, 0);
break;
case 'b': /* set a breakpoint at the given line */
#ifdef MINIX_PC
if (seg != T || exp > end_addr ) {
#else
if (seg != T || exp < st_addr || exp > et_addr ) {
#endif
Printf("Address not in text space.\n");
return;
}
breakpt(exp, skip(cmd));
cmd = "\n";
return;
case 'B': /* print list of currently active breakpoints */
for (i = 1, bp = b_head; bp; bp = bp->nxt, i++) {
Printf("%2d: ", i);
symbolic((long) bp->addr, '\t');
Printf("(0x%lx)\t- %s", bp->addr, bp->cmd);
}
break;
case 'd': /* delete breakpoint */
if (seg == T) {
for (bp = b_head; bp && bp->addr != exp; bp = bp->nxt);
if (bp) {
freepnt(bp);
break;
}
}
Printf("No such breakpoint.\n");
break;
case 'D': /* delete all breakpoints */
while (b_head) freepnt(b_head);
break;
case 's':
dump_stack( strtol(cmd, &cmd, 0) );
break;
case 'P':
paging = !paging;
if (paging) Printf("Paging is ON\n");
break;
case 'l':
case 'L':
logging(c,skip(cmd));
break;
#if SYSCALLS_SUPPORT
case 'z':
start_syscall( strtol(cmd, &cmd, 0) );
if ( syscalls )
Printf("Break point set - use the 'c n' command\n");
break;
#endif
case 'q': /* quit */
tstart(T_EXIT, 0, 0, 0);
logging(c,cmd);
case 'Q':
exit(0);
break;
case '\n':
case ';':
if (isdigit(*cmdstart))
symbolic(exp, '\n');
else
Printf("0x%0*lx\n", 2 * ADDRSIZE, exp);
--cmd;
break;
#ifdef DEBUG
case 'v': /* toggle debug */
debug = !debug;
if (debug) Printf("Debug flag ON\n");
break;
#endif
case 'e': /* list symbols */
listsym(cmd);
break;
case 'y': /* print mapping */
prtmap();
break;
case '?': /* print help */
help_page();
break;
case 'V': /* print version info */
version_info();
break;
case '@': /* command file */
cmd = skip(cmd);
openin(cmd);
*cmd = '\n';
return;
case '#': /* set register or variable */
cmd = skip(cmd + 1);
if (*cmd == '$') {
cmd++;
i = reg_addr(cmd);
set_reg(curpid, i, strtol(cmd+2, &cmd, 0) );
update();
break;
}
cmd = getexp(cmd, &exp, &seg);
fill(exp, T_GETDATA);
break;
default:
help_page();
break;
}
while (*cmd != '\n' && *cmd != ';') ++cmd;
if (*cmd == ';') cmd = skip(cmd + 1);
}
PUBLIC void mdb_error(s)
char *s;
{
Printf("%s",s);
longjmp(mainlp, 0);
}
PUBLIC void main(argc, argv)
int argc;
char *argv[];
{
int i, c;
char *p, *q, *r;
int opt_c = FALSE; /* load core file */
int opt_f = FALSE; /* load object file */
int opt_l = FALSE; /* log to file */
int opt_L = FALSE; /* log to file and screen */
prc = (struct proc *) lbuf;
strcpy(sbuf, "\n");
corepid = -1; /* set to indicate none */
prog = p = q = r = NULL;
if ( argc == 1 )
{
help_page();
exit(0);
}
/* Possible combinations of arguments:
* A single file name:
* If the name is 'core', the coreonly flag is set.
* The -c flag: examine a core file.
* One filename is required with this flag.
* The -f flag: examine an object file.
* One file name is required with this flag.
* The -L or -l flag: write to a log file.
* One file name is required with these flags.
* The -x flag: turn on debugging.
* Used for debugging, and followed by an integer
* argument which is the debugging level.
*
* If any files remain on the argument list, the first
* file is an executable, and the second a core file.
* If any filename starts with '@' it is assumed to
* to be a command file. Only one command file is
* loaded.
*/
/* check for default file name and fake out getopt */
if (strcmp(argv[1], "core") == 0) {
for (i = argc ; i > 1 ; i--)
argv[i] = argv[i - 1];
argv[i] = "-c";
argc++;
}
/* parse options */
opterr = 0;
while ((i = getopt(argc, argv, "c:f:L:l:x:")) != EOF) {
switch (i & 0377) {
case 'c': /* examine a core file */
if (opt_c == TRUE || opt_f == TRUE) {
help_page();
exit(1);
}
p = optarg;
opt_c = TRUE;
break;
case 'f': /* examine an object file */
if (opt_c == TRUE || opt_f == TRUE) {
help_page();
exit(1);
}
p = optarg;
opt_f = TRUE;
break;
case 'l': /* start logging */
if (opt_l == TRUE || opt_L == TRUE) {
help_page();
exit(1);
}
opt_l = TRUE;
logging(i, optarg);
break;
case 'L': /* start logging */
if (opt_l == TRUE || opt_L == TRUE) {
help_page();
exit(1);
}
opt_L = TRUE;
logging(i, optarg);
break;
#ifdef DEBUG
case 'x': /* set debug level */
debug = atoi(optarg);
break;
#endif
case '?': /* default arguments arrive here */
default:
help_page();
exit(1);
}
}
/* can't cope without filenames */
if (!opt_c && !opt_f && optind >= argc) {
help_page();
exit(1);
}
/* any remaining arguments are (optional) file names */
for (i = optind ; i < argc ; i++) {
if (*argv[i] == '@') { /* command file */
if (r == NULL) r = argv[i] + 1;
}
/* you can't combine a -c or -f object file and a core file */
else if (!opt_c && !opt_f && p == NULL) p = argv[i];
else if (q == NULL) q = argv[i]; /* core file */
}
/* initialise stuff - fairly tricky logic */
coreonly = opt_c;
fileonly = opt_f;
/* when examining files, prog == NULL */
if (!opt_c && !opt_f) {
prog = p;
syminit(prog);
}
/* file_init is called for non-core files.
* It is very similar to core_init. It opens the file and set
* various pointers so that we can read it using the same routines
* as a core file.
* NB: Currently there is no special provision to handle object files.
*/
/* A comment from Will Rose:
* It would be nice to have
* symbol tables available when reading a core
* or a.out, either as part of the executable or
* as a separate file.
* At least three separate types of file structure
* may be used by mdb - core files, a.out files, and
* object files (which may have several flavours).
* A set of routines is needed for each type, with
* a function switch table initialised when mdb is
* started up.
*/
if (opt_c) lastexp = core_init(p);
if (opt_f) lastexp = file_init(p);
if (q != NULL) lastexp = core_init(q);
if (r != NULL) openin(r);
for (i = 1; i < _NSIG; i++) signal(i, catch);
setjmp(mainlp);
while (get_cmd( cbuf, MAXLINE ) != NULL) {
if (strlen(cbuf) == sizeof(cbuf) - 1) {
Printf("Command line too long.\n");
continue;
}
cmd = cbuf;
command();
while (*cmd != '\n') command();
}
tstart(T_EXIT, 0, 0, 0);
exit(0);
}