123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953 |
- /* $Id$ */
- /* Implementation of the do_ routines */
- #include <stdio.h>
- #include <assert.h>
- #include <alloc.h>
- #include "operator.h"
- #include "position.h"
- #include "tree.h"
- #include "idf.h"
- #include "Lpars.h"
- #include "type.h"
- #include "expr.h"
- #include "symbol.h"
- #include "scope.h"
- #include "file.h"
- #include "misc.h"
- extern FILE *db_out;
- extern t_lineno listline, currline;
- extern int interrupted;
- extern int stack_offset;
- p_tree print_command;
- extern void set_bytes();
- /*ARGSUSED*/
- do_noop(p)
- p_tree p;
- {
- }
- /* ------------------------------------------------------------- */
- /* implementation of the help command */
- do_help(p)
- p_tree p;
- {
- p = p->t_args[0];
- if (p && p->t_idf) switch(p->t_idf->id_reserved) {
- case HELP:
- fputs("help [ <commandname> ]\n", db_out);
- fputs("? [ <commandname> ]\n", db_out);
- fputs(" Print a command summary, or some more help on <commandname>.\n", db_out);
- return;
- case LIST:
- fputs("list [ <start> | <func> ] [ , <cnt> | - [ <end> ] ]\n", db_out);
- fputs("l [ <start> | <func> ] [ , <cnt> | - [ <end> ] ]\n", db_out);
- fputs(" List lines from the current source file, starting with either\n", db_out);
- fputs(" line <start> or some lines before the first statement of <func> or\n", db_out);
- fputs(" the current line. Either list <cnt> lines or <wsize> lines,\n", db_out);
- fputs(" except when a range is given.\n", db_out);
- fputs(" <wsize> is the last <cnt> given, or 10.\n", db_out);
- return;
- case XFILE:
- fputs("file [ <name> | ? ]\n", db_out);
- fputs(" Print the name of the current source file, or change the\n", db_out);
- fputs(" current source file to <name>, or print the files that\n", db_out);
- fputs(" the debugger knows about.\n", db_out);
- return;
- case SOURCE:
- fputs("source <filename>\n", db_out);
- fputs(" Read commands from the file <filename>\n", db_out);
- return;
- case FRAME:
- fputs("frame [ [ + | - ] <num> ]\n", db_out);
- fputs(" Sets the 'current' frame to frame <num>. The currently active\n", db_out);
- fputs(" procedure has frame 0. If <num> is not given, print the 'current' frame.\n", db_out);
- fputs(" If <num> is given with a + or -, go up or down <num> frames relative\n", db_out);
- fputs(" to the current one.\n", db_out);
- return;
- case LOG:
- fputs("log [ <name> | off ]\n", db_out);
- fputs(" Creates a logfile <name> of the commands given.\n", db_out);
- fputs(" When no argument is given, the current logfile is printed.\n", db_out);
- fputs(" If the argument is 'off', logging is turned off.\n", db_out);
- return;
- case RUN:
- fputs("run [ <args> ] [ < <infile> ] [ > <outfile> ]\n", db_out);
- fputs(" Start executing debuggee with command line arguments <args> and\n", db_out);
- fputs(" possible redirection of standard input and/or standard output.\n", db_out);
- return;
- case RERUN:
- fputs("rerun [ ? ]\n", db_out);
- fputs(" If the ? is given, prints the last run command;\n", db_out);
- fputs(" otherwise repeats the last run command.\n", db_out);
- return;
- case STOP:
- fputs("stop [ <pos> ] [ if <cond> ]\n", db_out);
- fputs(" Stop execution when position <pos> is reached, and then when\n", db_out);
- fputs(" <cond> becomes true. If no <pos> is given, stop when <cond>\n", db_out);
- fputs(" becomes true. If no <cond> is given, stop when <pos> is reached.\n", db_out);
- fputs(" Either a position or a condition (or both) must be given.\n", db_out);
- return;
- case WHEN:
- fputs("when [ <pos> ] [ if <cond> ] { <command> [ ; <command> ] ... } \n", db_out);
- fputs(" Execute the <command>s when position <pos> is reached, and then when\n", db_out);
- fputs(" <cond> becomes true. If no <pos> is given, do this when <cond>\n", db_out);
- fputs(" becomes true. If no <cond> is given, do this when <pos> is reached.\n", db_out);
- fputs(" Either a position or a condition (or both) must be given.\n", db_out);
- return;
- case CONT:
- fputs("cont [ <cnt> ] [ at <line> ]\n", db_out);
- fputs("c [ <cnt> ] [ at <line> ]\n", db_out);
- fputs(" Continue execution, skipping <cnt> or 1 breakpoints;a\n", db_out);
- fputs(" if <line> is given, continue at <line>.\n", db_out);
- return;
- case STEP:
- case NEXT:
- fputs("step [ <cnt> ]\n", db_out);
- fputs("s [ <cnt> ]\n", db_out);
- fputs("next [ <cnt> ]\n", db_out);
- fputs("n [ <cnt> ]\n", db_out);
- fputs(" Execute the next <cnt> or 1 source line(s).\n", db_out);
- fputs(" Step (s) steps into function-calls.\n", db_out);
- fputs(" Next (n) steps past function-calls.\n", db_out);
- return;
- case WHERE:
- fputs("where [ <cnt> ]\n", db_out);
- fputs("w [ <cnt> ]\n", db_out);
- fputs(" List all, or the top <cnt> or the bottom -<cnt> active functions.\n", db_out);
- return;
- case STATUS:
- fputs("status\n", db_out);
- fputs(" display active traces, stops, whens, displays, and dumps.\n", db_out);
- return;
- case DELETE:
- fputs("delete [ <num> [ , <num> ] ... ]\n", db_out);
- fputs("d [ <num> [ , <num> ] ...] \n", db_out);
- fputs(" Remove the command(s) corresponding to <num> (as displayed by 'status').\n", db_out);
- fputs(" If no <num> is given, remove the current stopping point.\n", db_out);
- return;
- case SET:
- fputs("set <desig> to <exp>\n", db_out);
- fputs(" Assign the value of <exp> to <desig>.\n", db_out);
- return;
- case PRINT:
- fputs("print [ <exp> [ , <exp> ] ...]\n", db_out);
- fputs("p [ <exp> [ , <exp> ] ...]\n", db_out);
- fputs(" Print the value of each <exp>, or repeat the last print command\n", db_out);
- return;
- case DISPLAY:
- fputs("display <exp> [ , <exp> ] ...\n", db_out);
- fputs(" Print the value of each <exp> whenever the debuggee stops.\n", db_out);
- return;
- case DUMP:
- fputs("dump\n", db_out);
- fputs(" Saves the state of the debuggee; it can be restored with the restore command.\n", db_out);
- return;
- case RESTORE:
- fputs("restore [ <num> ]\n", db_out);
- fputs("r [ <num> ]\n", db_out);
- fputs(" Restore the state of the dump associated with <num>,\n", db_out);
- fputs(" or restore the state of the last dump.\n", db_out);
- return;
- case TRACE:
- fputs("trace [ on <exp> ] [ <pos> ] [ if <cond> ]\n", db_out);
- fputs("t [ on <exp> ] [ <pos> ] [ if <cond> ]\n", db_out);
- fputs(" Without args, display each source line before execution.\n", db_out);
- fputs(" In addition, display <exp> in the on-clause.\n", db_out);
- fputs(" If <pos> is given and indicates a function, only display\n", db_out);
- fputs(" tracing information while executing this function.\n", db_out);
- fputs(" If it indicates a line number, only display tracing information\n", db_out);
- fputs(" whenever the source line is reached.\n", db_out);
- fputs(" If <cond> is given, only display tracing info when it evaluates to non-zero.\n", db_out);
- return;
- case FIND:
- fputs("find <name>\n", db_out);
- fputs(" Prints the fully qualified name of all symbols matching <name>.\n", db_out);
- return;
- case WHICH:
- fputs("which <name>\n", db_out);
- fputs(" Prints the fully qualified name of <name>.\n", db_out);
- return;
- case DISABLE:
- fputs("disable [ <num> [ , <num> ] ... ]\n", db_out);
- fputs(" Disable the command(s) corresponding to <num> (as displayed by 'status').\n", db_out);
- fputs(" If no <num> is given, disable the current stopping point.\n", db_out);
- return;
- case ENABLE:
- fputs("enable [ <num> [ , <num> ] ... ]\n", db_out);
- fputs(" Enable the command(s) corresponding to <num> (as displayed by 'status'.)\n", db_out);
- fputs(" If no <num> is given, enable the current stopping point (not effective).\n", db_out);
- return;
- }
- else if (p && p->t_str) {
- if (! strcmp(p->t_str, "!")) {
- fputs("! <shell command>\n", db_out);
- fputs(" Execute the given shell command.\n", db_out);
- return;
- }
- }
- fputs("cont [ <cnt> ] [ at <line> ]\n", db_out);
- fputs("delete [ <num> [ , <num> ] ... ]\n", db_out);
- fputs("disable [ <num> [ , <num> ] ... ]\n", db_out);
- fputs("display <exp> [ , <exp> ] ...\n", db_out);
- fputs("dump\n", db_out);
- fputs("enable [ <num> [ , <num> ] ... ]\n", db_out);
- fputs("file [ <name> | ? ]\n", db_out);
- fputs("find <name>\n", db_out);
- fputs("frame [ [ + | - ] <num> ]\n", db_out);
- fputs("help [ <commandname> ]\n", db_out);
- fputs("list [ <start> | <func> ] [ , <cnt> | - [ <end> ] ]\n", db_out);
- fputs("log [ <name> | off ]\n", db_out);
- fputs("next [ <cnt> ]\n", db_out);
- fputs("print [ <exp> [ , <exp> ] ... ]\n", db_out);
- fputs("rerun [ ? ]\n", db_out);
- fputs("restore [ <num> ]\n", db_out);
- fputs("run [ <args> ] [ < <infile> ] [ > <outfile> ]\n", db_out);
- fputs("set <desig> to <exp>\n", db_out);
- fputs("source <filename>\n", db_out);
- fputs("status\n", db_out);
- fputs("step [ <cnt> ]\n", db_out);
- fputs("stop [ <pos> ] [ if <cond> ]\n", db_out);
- fputs("trace [ on <exp> ] [ <pos> ] [ if <cond> ]\n", db_out);
- fputs("when [ <pos> ] [ if <cond> ] { <command> [ ; <command> ] ... } \n", db_out);
- fputs("where [ <cnt> ]\n", db_out);
- fputs("which <name>\n", db_out);
- fputs("! <shell command>\n", db_out);
- }
- /* ------------------------------------------------------------- */
- /* implementation of dump/restore commands */
- extern p_tree get_from_item_list();
- extern t_addr get_dump();
- struct dump {
- char *globals, *stack;
- struct dump *next;
- };
- static struct dump *last_dump;
- do_dump(p)
- p_tree p;
- {
- struct dump *d = (struct dump *) malloc(sizeof(struct dump));
- if (! d) {
- error("could not allocate enough memory");
- return;
- }
- p->t_address = get_dump(&d->globals, &d->stack);
- if (! p->t_address) {
- free((char *) d);
- return;
- }
- p->t_args[0] = (struct tree *) d;
- add_to_item_list(p);
- d->next = last_dump;
- last_dump = d;
- }
- do_restore(p)
- p_tree p;
- {
- struct dump *d;
-
- if (p->t_args[0]) {
- p = get_from_item_list((int) p->t_args[0]->t_ival);
- if (!p || p->t_oper != OP_DUMP) {
- error("no such dump");
- return;
- }
- d = (struct dump *) p->t_args[0];
- }
- else d = last_dump;
- if (! d) {
- error("no dumps");
- return;
- }
- if (! put_dump(d->globals, d->stack)) {
- error("restoring failed");
- }
- perform_items();
- }
- free_dump(p)
- p_tree p;
- {
- struct dump *d = (struct dump *) p->t_args[0];
- free(d->globals);
- free(d->stack);
- if (d == last_dump) last_dump = d->next;
- else {
- register struct dump *d1 = last_dump;
- while (d1->next != d) d1 = d1->next;
- d1->next = d->next;
- }
- free((char *) d);
- }
- /* ------------------------------------------------------------- */
- /* implementation of the find command */
- do_find(p)
- p_tree p;
- {
- /* Print all identifications of p->t_args[0]. */
- register p_symbol s;
- p_tree arg;
- p = p->t_args[0];
- switch(p->t_oper) {
- case OP_NAME:
- s = p->t_idf->id_def;
- while (s) {
- pr_sym(s);
- s = s->sy_next;
- }
- break;
- case OP_SELECT:
- arg = p->t_args[1];
- assert(arg->t_oper == OP_NAME);
- s = arg->t_idf->id_def;
- while (s) {
- if (consistent(p, s->sy_scope)) {
- pr_sym(s);
- }
- s = s->sy_next;
- }
- break;
- default:
- assert(0);
- }
- }
- /* ------------------------------------------------------------- */
- /* implementation of the which command */
- do_which(p)
- p_tree p;
- {
- p_symbol sym = identify(p->t_args[0], 0xffff);
- if ( sym) pr_sym(sym);
- }
- /* ------------------------------------------------------------- */
- /* implementation of the list command */
- extern t_addr get_addr_from_node();
- do_list(p)
- p_tree p;
- {
- int l1, l2;
- static int wsize = 10;
- if (p->t_args[1]) {
- l2 = p->t_args[1]->t_ival;
- if (l2 >= 0) {
- if (l2 == 0) l2 = 1;
- wsize = l2;
- }
- }
- else l2 = wsize;
- if (! p->t_args[0]) {
- l1 = listline;
- if (! l1) {
- listline = currline - (wsize/2);
- l1 = listline;
- }
- }
- else {
- if (p->t_args[0]->t_oper == OP_AT) {
- l1 = p->t_args[0]->t_lino;
- if (p->t_args[0]->t_filename) {
- newfile(str2idf(p->t_args[0]->t_filename, 0));
- }
- }
- else {
- t_addr a = get_addr_from_node(p->t_args[0]);
- p_position pos;
- p_symbol oldlistfile = listfile;
- if (a == ILL_ADDR) {
- return;
- }
- pos = get_position_from_addr(a);
- newfile(str2idf(pos->filename, 1));
- if (listfile != oldlistfile) {
- warning("switching to file %s", listfile->sy_idf->id_text);
- }
- l1 = pos->lineno - (l2 > 0 ? l2 : wsize)/2;
- if (l1 < 1) l1 = 1;
- }
- }
- if (listfile) {
- if (l2 < 0) {
- l2 = -l2;
- if (l1 > l2) l2 = 1;
- else l2 -= l1 - 1;
- }
- lines(listfile->sy_file, l1, l2);
- listline = l1 + l2;
- }
- else error("no current file");
- }
- /* ------------------------------------------------------------- */
- /* implementation of the file command */
- do_file(p)
- p_tree p;
- {
- FILE *f;
- if (p->t_args[0]) {
- if (! strcmp(p->t_args[0]->t_str, "?")) {
- register p_symbol sym = PervasiveScope->sc_symbs;
- while (sym) {
- if (sym->sy_class == FILESYM) {
- fprintf(db_out, "%s\n", sym->sy_idf->id_text);
- }
- sym = sym->sy_prev_sc;
- }
- return;
- }
- if ((f = fopen(p->t_args[0]->t_str, "r")) == NULL) {
- error("could not open %s", p->t_args[0]->t_str);
- return;
- }
- fclose(f);
- newfile(p->t_args[0]->t_idf);
- }
- else if (listfile) fprintf(db_out, "%s\n", listfile->sy_idf->id_text);
- else error("no current file");
- }
- /* ------------------------------------------------------------- */
- /* implementation of stop/when command */
- setstop(p, kind)
- p_tree p;
- int kind;
- {
- t_addr a = get_addr_from_node(p->t_args[0]);
- if (a == ILL_ADDR) return 0;
- p->t_address = a;
- if (a != NO_ADDR) {
- if (! set_or_clear_breakpoint(a, kind)) {
- return 0;
- }
- }
- return 1;
- }
- do_stop(p)
- p_tree p;
- {
- if (! setstop(p, 1)) {
- return;
- }
- add_to_item_list(p);
- }
- /* ------------------------------------------------------------- */
- /* implementation of the trace command */
- settrace(p, kind)
- p_tree p;
- int kind;
- {
- t_addr a, e;
- a = get_addr_from_node(p->t_args[0]);
- if (a == NO_ADDR) return 1;
- if (a == ILL_ADDR) return 0;
- if (p->t_args[0]->t_oper == OP_AT) {
- e = a;
- p->t_address = a;
- }
- else {
- p_scope sc = get_next_scope_from_addr(a+1);
- if (sc) e = sc->sc_start - 1;
- else e = 0xffffffff;
- }
- return set_or_clear_trace(a, e, kind);
- }
- do_trace(p)
- p_tree p;
- {
- p->t_address = NO_ADDR;
- if (! settrace(p, 1)) {
- return;
- }
- add_to_item_list(p);
- }
- /* ------------------------------------------------------------- */
- /* implementation of the enable/disable commands */
- static
- able(p, kind)
- p_tree p;
- int kind;
- {
- if (!p) {
- able_item(0, kind);
- return;
- }
- switch(p->t_oper) {
- case OP_LINK:
- able(p->t_args[0], kind);
- able(p->t_args[1], kind);
- break;
- case OP_INTEGER:
- able_item((int)p->t_ival, kind);
- break;
- default:
- assert(0);
- }
- }
- do_enable(p)
- p_tree p;
- {
- able(p->t_args[0], 0);
- }
- do_disable(p)
- p_tree p;
- {
- able(p->t_args[0], 1);
- }
- /* ------------------------------------------------------------- */
- /* implementation of the cont command */
- do_continue(p)
- p_tree p;
- {
- int count;
- if (p) {
- count = p->t_args[0]->t_ival;
- if (p->t_args[1]) {
- t_addr a = get_addr_from_position(&(p->t_args[1]->t_pos));
- p_scope sc = get_scope_from_addr(a);
- if (a == ILL_ADDR || base_scope(sc) != base_scope(CurrentScope)) {
- error("cannot continue at line %d",
- p->t_args[1]->t_lino);
- return;
- }
- if (! set_pc(a)) {
- return;
- }
- }
- }
- else count = 1;
- while (count--) {
- if (! send_cont(count==0)) {
- break;
- }
- }
- if (count > 0) {
- fprintf(db_out, "Only %ld breakpoints skipped\n",
- p->t_args[0]->t_ival - count);
- }
- }
- /* ------------------------------------------------------------- */
- /* implementation of the step command */
- do_step(p)
- p_tree p;
- {
- p = p->t_args[0];
- if (! singlestep(0, p ? p->t_ival : 1L)) {
- }
- }
- /* ------------------------------------------------------------- */
- /* implementation of the next command */
- do_next(p)
- p_tree p;
- {
- p = p->t_args[0];
- if (! singlestep(1, p? p->t_ival : 1L)) {
- }
- }
- extern t_addr *get_EM_regs();
- /* ------------------------------------------------------------- */
- /* implementation of the regs command (temporarily) */
- do_regs(p)
- p_tree p;
- {
- t_addr *buf;
- int n = 0;
- p = p->t_args[0];
- if (p) n = p->t_ival;
- if (! (buf = get_EM_regs(n))) {
- return;
- }
- fprintf(db_out, "EM registers %d levels back:\n", n);
- fprintf(db_out, "\tLocalBase =\t0x%lx\n\tArgumentBase =\t0x%lx\n",
- (long) buf[0], (long) buf[1]);
- fprintf(db_out, "\tProgramCounter=\t0x%lx\n\tHeapPointer = \t0x%lx\n",
- (long) buf[2],
- (long) buf[3]);
- fprintf(db_out, "\tStackPointer =\t0x%lx\n", (long) buf[4]);
- }
- /* ------------------------------------------------------------- */
- /* implementation of the where command */
- static t_addr where_PC;
- static int
- where_entry(num)
- int num;
- {
- t_addr *buf;
- t_addr AB;
- p_scope sc;
- if (! (buf = get_EM_regs(num))) return 0;
- AB = buf[1];
- where_PC = buf[2];
- if (! AB) return 0;
- sc = base_scope(get_scope_from_addr(where_PC));
- if (! sc || sc->sc_start > where_PC) return 0;
- fprintf(db_out, "%s(", sc->sc_definedby->sy_idf->id_text);
- print_params(sc->sc_definedby->sy_type, AB, has_static_link(sc));
- fputs(") ", db_out);
- (void) print_position(where_PC, 0);
- fputs("\n", db_out);
- return 1;
- }
- /*ARGSUSED*/
- do_where(p)
- p_tree p;
- {
- int i = 0;
- unsigned int cnt;
- unsigned int maxcnt = 0xffff;
- p_scope sc;
- t_addr *buf;
- t_addr PC;
- p = p->t_args[0];
- if (p && p->t_ival < 0) {
- for (;;) {
- buf = get_EM_regs(i++);
- if (! buf || ! buf[1]) break;
- PC = buf[2];
- sc = base_scope(get_scope_from_addr(PC));
- if (! sc || sc->sc_start > PC) break;
- if (interrupted) return;
- }
- i--;
- maxcnt = - p->t_ival;
- i -= maxcnt;
- if (i < 0) i = 0;
- }
- else if (p) maxcnt = p->t_ival;
- for (cnt = maxcnt; cnt != 0; cnt--) {
- if (interrupted) return;
- if (! where_entry(i++)) return;
- }
- }
- /* ------------------------------------------------------------- */
- /* implementation of the delete command */
- do_delete(p)
- p_tree p;
- {
- switch(p->t_oper) {
- case OP_DELETE:
- if (! p->t_args[0]) {
- remove_from_item_list(0);
- }
- else do_delete(p->t_args[0]);
- break;
- case OP_LINK:
- do_delete(p->t_args[0]);
- do_delete(p->t_args[1]);
- break;
- case OP_INTEGER:
- remove_from_item_list((int) p->t_ival);
- break;
- default:
- assert(0);
- }
- }
- /* ------------------------------------------------------------- */
- /* implementation of the print command */
- do_print(p)
- p_tree p;
- {
- char *buf = 0;
- char *format = 0;
- long size;
- p_type tp;
- switch(p->t_oper) {
- case OP_PRINT:
- if (p->t_args[0] == 0) {
- p = print_command;
- if (p == 0) {
- error("no previous print command");
- break;
- }
- }
- else if (p != print_command) {
- /* freenode(print_command); No, could be in when-list */
- print_command = p;
- }
- /* fall through */
- case OP_DISPLAY:
- do_print(p->t_args[0]);
- break;
- case OP_LINK:
- do_print(p->t_args[0]);
- do_print(p->t_args[1]);
- break;
- default:
- if (interrupted || ! eval_expr(p, &buf, &size, &tp)) return;
- print_node(db_out, p, 0);
- fputs(" = ", db_out);
- if (p->t_oper == OP_FORMAT) {
- format = p->t_args[1]->t_str;
- }
- print_val(tp, size, buf, 0, 0, format);
- if (buf) free(buf);
- fputs("\n", db_out);
- break;
- }
- }
- /* ------------------------------------------------------------- */
- /* implementation of the set command */
- do_set(p)
- p_tree p;
- {
- char *buf = 0;
- long size, size2;
- p_type tp, tp2;
- t_addr a;
- if (interrupted || ! eval_desig(p->t_args[0], &a, &size, &tp) ||
- ! eval_expr(p->t_args[1], &buf, &size2, &tp2) ||
- ! convert(&buf, &size2, &tp2, tp, size)) {
- if (buf) free(buf);
- return;
- }
- if (interrupted) {
- free(buf);
- return;
- }
- set_bytes(size, buf, a);
- free(buf);
- }
- /* ------------------------------------------------------------- */
- /* implementation of the source command */
- extern FILE *db_in;
- do_source(p)
- p_tree p;
- {
- FILE *old_db_in = db_in;
- p = p->t_args[0];
- if ((db_in = fopen(p->t_str, "r")) == NULL) {
- db_in = old_db_in;
- error("could not open %s", p->t_str);
- return;
- }
- Commands();
- fclose(db_in);
- db_in = old_db_in;
- }
- /* ------------------------------------------------------------- */
- do_prcomm(p)
- p_tree p;
- {
- print_node(db_out, p->t_args[0], 1);
- }
- /* ------------------------------------------------------------- */
- /* stack frame commands: frame, down, up */
- extern int stack_offset;
- static
- frame_pos(diff)
- int diff;
- {
- if (stack_offset+diff < 0) diff = - stack_offset;
- if (! where_entry(stack_offset+diff)) {
- error("no frame %d", stack_offset+diff);
- return;
- }
- stack_offset += diff;
- list_position(get_position_from_addr(where_PC));
- CurrentScope = get_scope_from_addr(where_PC);
- }
- do_frame(p)
- p_tree p;
- {
- if (p->t_args[0]) {
- frame_pos((int) p->t_args[0]->t_ival - stack_offset);
- }
- else frame_pos(0);
- }
- do_up(p)
- p_tree p;
- {
- if (p->t_args[0]) {
- frame_pos((int) p->t_args[0]->t_ival);
- }
- else frame_pos(1);
- }
- do_down(p)
- p_tree p;
- {
- if (p->t_args[0]) {
- frame_pos(-(int) p->t_args[0]->t_ival);
- }
- else frame_pos(-1);
- }
- /* ------------------------------------------------------------- */
- /* log command */
- static char *logfile;
- static FILE *logfd;
- do_log(p)
- p_tree p;
- {
- p = p->t_args[0];
- if (p) {
- if (logfd && ! strcmp(p->t_str, "off")) {
- fprintf(db_out, "stopped logging on %s\n", logfile);
- fclose(logfd);
- logfd = NULL;
- return;
- }
- if (logfd) {
- error("already logging on %s", logfile);
- return;
- }
- logfile = p->t_str;
- if ((logfd = fopen(logfile, "w")) == NULL) {
- error("could not open %s", logfile);
- return;
- }
- fprintf(db_out, "started logging on %s\n", logfile);
- }
- else if (logfd) {
- fprintf(db_out, "the current logfile is %s\n", logfile);
- }
- else {
- error("no current logfile");
- }
- }
- extern int item_count;
- extern int in_wheninvoked;
- enterlog(p)
- p_tree p;
- {
- register p_tree p1;
- if (logfd && ! in_wheninvoked) {
- switch(p->t_oper) {
- case OP_SOURCE:
- case OP_LOG:
- break;
- case OP_DELETE:
- case OP_ENABLE:
- case OP_DISABLE:
- case OP_RESTORE:
- /* Change absolute item numbers into relative ones
- for safer replay
- */
- p1 = p->t_args[0];
- while (p1 && p1->t_oper == OP_LINK) {
- register p_tree p2 = p1->t_args[0];
- if (p2->t_ival > 0 && p2->t_ival <= item_count) {
- p2->t_ival = p2->t_ival - item_count - 1;
- }
- p1 = p1->t_args[1];
- }
- if (p1 && p1->t_ival > 0 && p1->t_ival <= item_count) {
- p1->t_ival = p1->t_ival - item_count - 1;
- }
- /* Fall through */
- default:
- print_node(logfd, p, 1);
- fflush(logfd);
- break;
- }
- }
- }
|