date and time created 88/01/12 00:40:29 by donn

[unix-history] / usr / src / old / dbx / main.c

diff --git a/usr/src/old/dbx/main.c b/usr/src/old/dbx/main.c
index be281dd..9aa9abb 100644 (file)
--- a/usr/src/old/dbx/main.c
+++ b/usr/src/old/dbx/main.c
@@ -1,6 +1,20 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*
+ * Copyright (c) 1983 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1983 Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif not lint
+
+#ifndef lint
+static char sccsid[] = "@(#)main.c     5.3 (Berkeley) %G%";
+#endif not lint

 
 

-static char sccsid[] = "@(#)main.c     1.10 (Berkeley) %G%";
+static char rcsid[] = "$Header: main.c,v 1.5 84/12/26 10:40:16 linton Exp $";

 
 /*
  * Debugger main routine.
 
 /*
  * Debugger main routine.


@@ -11,13 +25,17 @@ static      char sccsid[] = "@(#)main.c     1.10 (Berkeley) %G%";
 #include <signal.h>
 #include <errno.h>
 #include "main.h"
 #include <signal.h>
 #include <errno.h>
 #include "main.h"

+#include "eval.h"
+#include "debug.h"

 #include "symbols.h"
 #include "scanner.h"
 #include "symbols.h"
 #include "scanner.h"

+#include "keywords.h"

 #include "process.h"
 #include "runtime.h"
 #include "source.h"
 #include "object.h"
 #include "mappings.h"
 #include "process.h"
 #include "runtime.h"
 #include "source.h"
 #include "object.h"
 #include "mappings.h"

+#include "coredump.h"

 
 #ifndef public
 
 
 #ifndef public
 


@@ -27,24 +45,25 @@ static      char sccsid[] = "@(#)main.c     1.10 (Berkeley) %G%";
 #include <fcntl.h>
 
 typedef struct {
 #include <fcntl.h>
 
 typedef struct {

-       struct sgttyb   sg;             /* standard sgttyb structure */
-       struct tchars   tc;             /* terminal characters */
-       struct ltchars  ltc;            /* local special characters */
-       int             ldisc;          /* line discipline */
-       int             local;          /* TIOCLGET */
-       int             fcflags;        /* fcntl(2) F_GETFL, F_SETFL */
+    struct sgttyb sg;          /* standard sgttyb structure */
+    struct tchars tc;          /* terminal characters */
+    struct ltchars ltc;                /* local special characters */
+    integer ldisc;             /* line discipline */
+    integer local;             /* TIOCLGET */
+    integer fcflags;           /* fcntl(2) F_GETFL, F_SETFL */

 } Ttyinfo;
 
 #endif
 
 } Ttyinfo;
 
 #endif
 

-public Boolean coredump;               /* true if using a core dump */
-public Boolean runfirst;               /* run program immediately */
-public Boolean interactive;            /* standard input IS a terminal */
-public Boolean lexdebug;               /* trace yylex return values */
-public Boolean tracebpts;              /* trace create/delete breakpoints */
-public Boolean traceexec;              /* trace process execution */
-public Boolean tracesyms;              /* print symbols as their read */
-public Boolean traceblocks;            /* trace blocks while reading symbols */
+public boolean coredump;               /* true if using a core dump */
+public boolean runfirst;               /* run program immediately */
+public boolean interactive;            /* standard input IS a terminal */
+public boolean lexdebug;               /* trace scanner return values */
+public boolean tracebpts;              /* trace create/delete breakpoints */
+public boolean traceexec;              /* trace execution */
+public boolean tracesyms;              /* print symbols are they are read */
+public boolean traceblocks;            /* trace blocks while reading symbols */
+public boolean vaddrs;                 /* map addresses through page tables */

 
 public File corefile;                  /* File id of core dump */
 
 
 public File corefile;                  /* File id of core dump */
 


@@ -52,10 +71,11 @@ public File corefile;                       /* File id of core dump */
 
 private Boolean initdone = false;      /* true if initialization done */
 private jmp_buf env;                   /* setjmp/longjmp data */
 
 private Boolean initdone = false;      /* true if initialization done */
 private jmp_buf env;                   /* setjmp/longjmp data */

+private char outbuf[BUFSIZ];           /* standard output buffer */

 private char namebuf[512];             /* possible name of object file */
 private char namebuf[512];             /* possible name of object file */

-private int firstarg;                  /* first program argument (for -r) */

 
 private Ttyinfo ttyinfo;
 
 private Ttyinfo ttyinfo;

+private String corename;               /* name of core file */

 
 private catchintr();
 
 
 private catchintr();
 


@@ -70,23 +90,29 @@ String argv[];
     register integer i;
     extern String date;
     extern integer versionNumber;
     register integer i;
     extern String date;
     extern integer versionNumber;

+    char **scanargs();
+
+    if (!(cmdname = rindex(*argv, '/')))
+       cmdname = *argv;
+    else
+       ++cmdname;

 
 

-    cmdname = argv[0];

     catcherrs();
     onsyserr(EINTR, nil);
     catcherrs();
     onsyserr(EINTR, nil);

-    setlinebuf(stderr);
-    printf("dbx version %d of %s.\nType 'help' for help.\n",
+    setbuf(stdout, outbuf);
+    printf("dbx version 3.%d of %s.\nType 'help' for help.\n",

        versionNumber, date);
     fflush(stdout);
        versionNumber, date);
     fflush(stdout);

-    scanargs(argc, argv);
+    argv = scanargs(argc, argv);

     language_init();
     language_init();

+    symbols_init();

     process_init();
     process_init();

+    optab_init();

     if (runfirst) {
        if (setjmp(env) == FIRST_TIME) {
            arginit();
     if (runfirst) {
        if (setjmp(env) == FIRST_TIME) {
            arginit();

-           for (i = firstarg; i < argc; i++) {
-               newarg(argv[i]);
-           }
+           while (*argv)
+               newarg(*argv++);

            run();
            /* NOTREACHED */
        } else {
            run();
            /* NOTREACHED */
        } else {


@@ -99,12 +125,6 @@ String argv[];
        restoretty(stdout, &ttyinfo);
     }
     signal(SIGINT, catchintr);
        restoretty(stdout, &ttyinfo);
     }
     signal(SIGINT, catchintr);

-    if (isterm(stdin)) {
-           printf("(%s) ", cmdname);
-           fflush(stdout);
-    }
-    endshellmode();            /* after an error longjmp */
-    startaliasing();

     yyparse();
     putchar('\n');
     quit(0);
     yyparse();
     putchar('\n');
     quit(0);


@@ -134,6 +154,10 @@ public init()
     printf("\n");
     fflush(stdout);
     if (coredump) {
     printf("\n");
     fflush(stdout);
     if (coredump) {

+       printf("[using memory image in %s]\n", corename);
+       if (vaddrs) {
+           coredump_getkerinfo();
+       }

        setcurfunc(whatblock(pc));
     } else {
        setcurfunc(program);
        setcurfunc(whatblock(pc));
     } else {
        setcurfunc(program);


@@ -187,7 +211,7 @@ String outfile;
     tmpfile = mktemp("/tmp/dbxXXXX");
     setout(tmpfile);
     status();
     tmpfile = mktemp("/tmp/dbxXXXX");
     setout(tmpfile);
     status();

-    print_alias(nil);
+    alias(nil, nil, nil);

     if (argv != nil) {
        printf("run");
        for (i = 1; argv[i] != nil; i++) {
     if (argv != nil) {
        printf("run");
        for (i = 1; argv[i] != nil; i++) {


@@ -204,6 +228,7 @@ String outfile;
     unsetout();
     bpfree();
     objfree();
     unsetout();
     bpfree();
     objfree();

+    symbols_init();

     process_init();
     enterkeywords();
     scanner_init();
     process_init();
     enterkeywords();
     scanner_init();


@@ -219,7 +244,8 @@ String outfile;
 }
 
 /*
 }
 
 /*

- * After a non-fatal error we jump back to command parsing.
+ * After a non-fatal error we skip the rest of the current input line, and
+ * jump back to command parsing.

  */
 
 public erecover()
  */
 
 public erecover()


@@ -236,6 +262,10 @@ public erecover()
 
 private catchintr()
 {
 
 private catchintr()
 {

+    if (isredirected()) {
+       fflush(stdout);
+       unsetout();
+    }

     putchar('\n');
     longjmp(env, 1);
 }
     putchar('\n');
     longjmp(env, 1);
 }


@@ -244,13 +274,16 @@ private catchintr()
  * Scan the argument list.
  */
 
  * Scan the argument list.
  */
 

-private scanargs(argc, argv)
+private char **scanargs(argc, argv)

 int argc;
 String argv[];
 {
 int argc;
 String argv[];
 {

+    extern char *optarg;
+    extern int optind;

     register int i, j;
     register Boolean foundfile;
     register File f;
     register int i, j;
     register Boolean foundfile;
     register File f;

+    int ch;

     char *tmp;
 
     runfirst = false;
     char *tmp;
 
     runfirst = false;


@@ -260,40 +293,68 @@ String argv[];
     traceexec = false;
     tracesyms = false;
     traceblocks = false;
     traceexec = false;
     tracesyms = false;
     traceblocks = false;

+    vaddrs = false;

     foundfile = false;
     corefile = nil;
     coredump = true;
     sourcepath = list_alloc();
     list_append(list_item("."), nil, sourcepath);
     foundfile = false;
     corefile = nil;
     coredump = true;
     sourcepath = list_alloc();
     list_append(list_item("."), nil, sourcepath);

-    i = 1;
-    while (i < argc and (not foundfile or corefile == nil)) {
-       if (argv[i][0] == '-') {
-           if (streq(argv[i], "-I")) {
-               ++i;
-               if (i >= argc) {
-                   fatal("missing directory for -I");
-               }
-               list_append(list_item(argv[i]), nil, sourcepath);
-           } else {
-               for (j = 1; argv[i][j] != '\0'; j++) {
-                   setoption(argv[i][j]);
-               }
-           }
-       } else if (not foundfile) {
-           objname = argv[i];
-           foundfile = true;
-       } else if (coredump and corefile == nil) {
-           corefile = fopen(argv[i], "r");
-           if (corefile == nil) {
+
+    while ((ch = getopt(argc, argv, "I:bc:eiklnrs")) != EOF)
+    switch((char)ch) {
+       case 'I':
+               list_append(list_item(optarg), nil, sourcepath);
+               break;
+       case 'b':
+               tracebpts = true;
+               break;
+       case 'c':
+               initfile = optarg;
+               break;
+       case 'e':
+               traceexec = true;
+               break;
+       case 'i':
+               interactive = true;
+               break;
+       case 'k':
+               vaddrs = true;
+               break;
+       case 'l':
+#ifdef LEXDEBUG
+               lexdebug = true;
+#else
+               fatal("\"-l\" only applicable when compiled with LEXDEBUG");
+#endif
+               break;
+       case 'n':
+               traceblocks = true;
+               break;
+       case 'r':       /* run program before accepting commands */
+               runfirst = true;

                coredump = false;
                coredump = false;

-           }
-       }
-       ++i;
+               break;
+       case 's':
+               tracesyms = true;
+               break;
+       case '?':
+       default:
+               fatal("unknown option");

     }
     }

-    if (i < argc and not runfirst) {
-       fatal("extraneous argument %s", argv[i]);
+    argv += optind;
+    if (*argv) {
+       objname = *argv;
+       foundfile = true;
+       if (*++argv && coredump) {
+               corename = *argv;
+               corefile = fopen(*argv, "r");
+               if (corefile == nil)
+                       coredump = false;
+               ++argv;
+       }

     }
     }

-    firstarg = i;
+    if (*argv and not runfirst)
+       fatal("extraneous argument %s", *argv);

     if (not foundfile and isatty(0)) {
        printf("enter object file name (default is `%s'): ", objname);
        fflush(stdout);
     if (not foundfile and isatty(0)) {
        printf("enter object file name (default is `%s'): ", objname);
        fflush(stdout);


@@ -314,53 +375,21 @@ String argv[];
        list_append(list_item(tmp), nil, sourcepath);
     }
     if (coredump and corefile == nil) {
        list_append(list_item(tmp), nil, sourcepath);
     }
     if (coredump and corefile == nil) {

-       corefile = fopen("core", "r");
-       if (corefile == nil) {
-           coredump = false;
+       if (vaddrs) {
+           corename = "/dev/mem";
+           corefile = fopen(corename, "r");
+           if (corefile == nil) {
+               panic("can't open /dev/mem");
+           }
+       } else {
+           corename = "core";
+           corefile = fopen(corename, "r");
+           if (corefile == nil) {
+               coredump = false;
+           }

        }
     }
        }
     }

-}
-
-/*
- * Take appropriate action for recognized command argument.
- */
-
-private setoption(c)
-char c;
-{
-    switch (c) {
-       case 'r':   /* run program before accepting commands */
-           runfirst = true;
-           coredump = false;
-           break;
-
-       case 'i':
-           interactive = true;
-           break;
-
-       case 'b':
-           tracebpts = true;
-           break;
-
-       case 'e':
-           traceexec = true;
-           break;
-
-       case 's':
-           tracesyms = true;
-           break;
-
-       case 'n':
-           traceblocks = true;
-           break;
-
-       case 'l':
-               lexdebug = true;
-           break;
-
-       default:
-           fatal("unknown option '%c'", c);
-    }
+    return(argv);

 }
 
 /*
 }
 
 /*