/* This is file DEBUG.C */
/*
** Copyright (C) 1991 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954
**
** This file is distributed under the terms listed in the document
** "copying.dj", available from DJ Delorie at the address above.
** A copy of "copying.dj" should accompany this file; if not, a copy
** should be available from where this file was obtained.  This file
** may not be distributed without a verbatim copy of "copying.dj".
**
** This file is distributed WITHOUT ANY WARRANTY; without even the implied
** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*/

/* History:175,26 */
#include <stdio.h>
#include <setjmp.h>
#include <math.h>
#include <dos.h>

#include "build.h"
#include "types.h"
#include "gdt.h"
#include "tss.h"
#include "utils.h"
#include "unassmbl.h"
#include "syms.h"
#include "paging.h"
#include "npx.h"
#include "mono.h"

extern int was_exception, have_80387;
jmp_buf back_to_debugger;
int can_longjmp=0;

#if DEBUGGER

extern word32 dr[8];
extern word32 dr0, dr1, dr2, dr3, dr6, dr7;

typedef struct {
	char *cp;
	int t;
	} item;

my_getline(char *buf, char *lasttoken)
{
  int idx, i, ch;
  if (use_ansi)
    printf("\033[0;32m");
  mono_attr = MONO_NORMAL;
  printf(">> %s", lasttoken);
  for (i=0; lasttoken[i]; i++)
    mputchar(8);
  while (!kbhit());
  for (i=0; lasttoken[i]; i++)
    mputchar(' ');
  for (i=0; lasttoken[i]; i++)
    mputchar(8);
  idx = 0;
  if (use_ansi)
    printf("\033[1;33m");
  mono_attr = MONO_BOLD;
  while (1)
  {
    ch = getch();
    switch (ch)
    {
      case 10:
      case 13:
        buf[idx] = 0;
        if (!idx && lasttoken[0])
          printf("\r  \r");
        else
          mputchar('\n');
        if (use_ansi)
          printf("\033[0m");
        mono_attr = MONO_NORMAL;
        return;
      case 27:
        while (idx)
        {
          printf("\b \b");
          idx--;
        }
        break;
      case 8:
        if (idx)
        {
          printf("\b \b");
          idx--;
        }
        break;
      default:
        mputchar(ch);
        buf[idx++] = ch;
        break;
    }
  }
}

typedef enum { Zero, Unknown, CONT, STEP, NEXT, REGS, SET, HELP, LIST,
DUMP, QUIT, BREAK, STATUS, WHERE, DUMP_A, DUMP_B, DUMP_W, WHEREIS, XNPX,
CLS };

extern struct {
  char *name;
  int size;
  int ofs;
  } regs[];

item cmds[] = {
	"g", CONT,
	"go", CONT,
	"cont", CONT,
	"c", CONT,
	"step", STEP,
	"s", STEP,
	"next", NEXT,
	"n", NEXT,
	"regs", REGS,
	"r", REGS,
	"set", SET,
	"help", HELP,
	"h", HELP,
	"?", HELP,
	"list", LIST,
	"l", LIST,
	"u", LIST,
	"dump", DUMP,
	"d", DUMP,
	"da", DUMP_A,
	"db", DUMP_B,
	"dw", DUMP_W,
	"dd", DUMP,
	"quit", QUIT,
	"q", QUIT,
	"break", BREAK,
	"b", BREAK,
	"status", STATUS,
	"where", WHERE,
	"whereis", WHEREIS,
	"npx", XNPX,
	"cls", CLS,
	0, 0
	};

extern int debug_mode;

debugger()
{
  char buf[140], token[10];
  char buf2[140], *name, lasttoken[140];
  int i, n, s, len, rem_cmd, cmd, vstep, found;
  word32 vaddr, v, rem_v, olddr7;
  int32 delta;

  dr0 = dr1 = dr2 = ARENA;
  dr3 = syms_name2val("_main") + ARENA;
  if (undefined_symbol)
    dr3 = tss_ptr->tss_eip + ARENA;
  rem_cmd = Zero;
  lasttoken[0] = 0;
  setjmp(back_to_debugger);
  can_longjmp = 1;
  while (1)
  {
    if (debug_mode)
    {
      int found;
      my_getline(buf, lasttoken);
      token[0] = 0;
      if (sscanf(buf, "%s %[^\n]", token, buf) < 2)
        buf[0] = 0;
      if (token[0])
        strcpy(lasttoken, token);
      cmd = rem_cmd;
      found = 0;
      for (i=0; cmds[i].cp; i++)
        if (strcmp(cmds[i].cp, token) == 0)
        {
          cmd = cmds[i].t;
          found = 1;
        }
      if (!found && token[0])
        cmd = Unknown;
      if (rem_cmd != cmd)
        vaddr = tss_ptr->tss_eip;
    }
    else
    {
      cmd = CONT;
      debug_mode = 1;
    }
    switch (cmd)
    {
      case HELP:
        printf("Commands:\n"
               "go <v>\tg\tgo, stop at <v>\n"
               "cont\tc\tcontinue execution\n"
               "step\ts\tstep through current instruction\n"
               "next\tn\tstep to next instruction\n"
               "list\tl u\tlist instructions (takes addr, count)\n"
               "dump\td\tdump memory (takes addr, count)\n"
               "break\tb\tset breakpoint (takes which, addr)\n"
               "status\t\tbreakpoint status\n"
               "regs\tr\tprint registers\n"
               "set\t\tset register/memory\n"
               "npx\t\tdisplay 80387 contents\n"
               "cls\t\tclear screen\n"
               "help\th,?\tprint help\n"
               "quit\tq\tquit\n"
               );
        break;
      case CONT:
        sscanf(buf, "%s", buf);
        if (buf[0])
        {
          v = syms_name2val(buf);
          if (undefined_symbol)
            break;
          dr3 = v+ARENA;
          dr7 |= 0xc0;
        }
        else
          dr7 &= ~0xc0;
        olddr7 = dr7;
        dr7 = 0;
        tss_ptr->tss_eflags |= 0x0100;
        go_til_stop();
        dr7 = olddr7;
        if (tss_ptr->tss_irqn == 1)
        {
          tss_ptr->tss_eflags &= ~0x0100;
          tss_ptr->tss_eflags |= 0x10000;
          go_til_stop();
          if (tss_ptr->tss_irqn == 1)
            tssprint(tss_ptr);
        }
        print_reason();
        dr3 = unassemble(tss_ptr->tss_eip, 1) + ARENA;
        break;
      case STEP:
        if (rem_cmd != cmd)
          n = 1;
        sscanf(buf, "%d", &n);
        tss_ptr->tss_eflags |= 0x0100;
        for (i=0; i<n; i++)
        {
          olddr7 = dr7;
          dr7 = 0;
          go_til_stop();
          dr7 = olddr7;
          print_reason();
          dr3 = unassemble(tss_ptr->tss_eip, 1) + ARENA;
          if (tss_ptr->tss_irqn != 1)
            break;
        }
        tss_ptr->tss_eflags &= ~0x0100;
        break;
      case NEXT:
        if (rem_cmd != cmd)
          n = 1;
        sscanf(buf, "%d", &n);
        for (i=0; i<n; i++)
        {
          olddr7 = dr7;
          dr7 &= ~0xc0;
          dr7 |= 0xc0;
          if (last_unassemble_unconditional ||
              last_unassemble_jump)
            tss_ptr->tss_eflags |= 0x0100; /* step */
          else
            tss_ptr->tss_eflags &= ~0x0100;
          go_til_stop();
          dr7 = olddr7;
          print_reason();
          dr3 = unassemble(tss_ptr->tss_eip, 1) + ARENA;
          if (tss_ptr->tss_irqn != 1)
            break;
        }
        tss_ptr->tss_eflags &= ~0x0100;
        break;
      case WHERE:
        v = tss_ptr->tss_ebp;
        vaddr = tss_ptr->tss_eip;
        printf("0x%08lx %s", vaddr, syms_val2name(vaddr, &delta));
        name = syms_val2line(vaddr, &i, 0);
        if (name)
          printf(", line %d in file %s", i, name);
        else if (delta)
          printf("%+ld", delta);
        mputchar('\n');
        do {
          if (v == 0)
            break;
          rem_v = peek32(v+ARENA);
          if (rem_v == 0)
            break;
          vaddr = peek32(v+ARENA+4);
          printf("0x%08lx %s", vaddr, syms_val2name(vaddr, &delta));
          name = syms_val2line(vaddr, &i, 0);
          if (name)
            printf(", line %d in file %s", i, name);
          else if (delta)
            printf("%+ld", delta);
          mputchar('\n');
          v = rem_v;
        } while ((v>=tss_ptr->tss_esp) && (v<0x90000000L));
        break;
      case WHEREIS:
        sscanf(buf, "%s", buf2);
        if (strpbrk(buf2, "*?"))
        {
          syms_listwild(buf2);
          break;
        }
        if (buf2[0])
          vaddr = syms_name2val(buf2);
        if (undefined_symbol)
          break;
        name = syms_val2name(vaddr, &delta);
        printf("0x%08lx %s", vaddr, name);
        if (delta)
          printf("+%lx", delta);
        name = syms_val2line(vaddr, &i, 0);
        if (name)
          printf(", line %d in file %s", i, name);
        mputchar('\n');
        break;
      case LIST:
        if (rem_cmd != cmd)
          n = 10;
        buf2[0] = 0;
        sscanf(buf, "%s %d", buf2, &n);
        if (buf2[0] && strcmp(buf2, "."))
          vaddr = syms_name2val(buf2);
        if (undefined_symbol)
          break;
        for (i=0; i<n; i++)
        {
          vaddr = unassemble(vaddr, 0);
          i += last_unassemble_extra_lines;
/*          if (last_unassemble_unconditional)
            break; */
        }
        break;
      case DUMP_A:
        buf2[0] = 0;
        sscanf(buf, "%s %d", buf2, &n);
        if (buf2[0])
          vaddr = syms_name2val(buf2);
        if (undefined_symbol)
          break;
        while (1)
        {
          word8 ch;
          if (!page_is_valid(vaddr+ARENA))
          {
            printf("<bad address>\n");
            break;
          }
          ch = peek8(vaddr+ARENA);
          if (ch == 0)
          {
            mputchar('\n');
            break;
          }
          if (ch < ' ')
            printf("^%c", ch+'@');
          else if ((ch >= ' ') && (ch < 0x7f))
            mputchar(ch);
          else if (ch == 0x7f)
            printf("^?");
          else if ((ch >= 0x80) && (ch < 0xa0))
            printf("M-^%c", ch-0x80+'@');
          else if (ch >= 0xa0)
            printf("M-%c", ch-0x80);
          vaddr++;
        }
        break;
      case DUMP:
      case DUMP_B:
      case DUMP_W:
        if (rem_cmd != cmd)
          n = 4;
        buf2[0] = 0;
        sscanf(buf, "%s %d", buf2, &n);
        if (buf2[0])
          vaddr = syms_name2val(buf2);
        if (undefined_symbol)
          break;
        s = 0;
        len = n + (~((vaddr&15)/4-1) & 3);
        for (i=-(vaddr&15)/4; i<len; i++)
        {
          if ((s&3) == 0)
            printf("0x%08lx:", vaddr+i*4);
          if ((i>=0) && (i<n))
            printf(" 0x%08lx", peek32(vaddr+i*4+ARENA));
          else
            printf("           ");
          if ((s & 3) == 3)
          {
            int j, c;
            printf("  ");
            for (j=0; j<16; j++)
              if ((j+i*4-12>=0) && (j+i*4-12 < n*4))
              {
                c = peek8(vaddr+j+i*4-12+ARENA);
                if (c<' ')
                  mputchar('.');
                else
                  mputchar(c);
              }
              else
                mputchar(' ');
            printf("\n");
          }
          s++;
        }
        if (s & 3)
          printf("\n");
        vaddr += n*4;
        break;
      case BREAK:
        vaddr = n = 0;
        buf2[0] = 0;
        sscanf(buf, "%d %s", &n, buf2);
        if (buf2[0])
          vaddr = syms_name2val(buf2);
        if (undefined_symbol)
          break;
        dr[n] = vaddr + ARENA;
        if (vaddr == 0)
          dr7 &= ~(2 << (n*2));
        else
          dr7 |= 2 << (n*2);
      case STATUS:
        s = 0;
        for (n=0; n<4; n++)
        {
          s = 1;
          name = syms_val2name(dr[n]-ARENA, &delta);
          printf("  dr%d  %s", n, name);
          if (delta)
            printf("+%#lx", delta);
          if (name[0] != '0')
            printf(" (0x%lx)", dr[n] - ARENA);
          if (~dr7 & (3 << (n*2)))
            printf(" (disabled)");
          mputchar('\n');
        }
        if (s == 0)
          printf("  No breakpoints set\n");
        break;
      case REGS:
        tssprint(tss_ptr);
        unassemble(tss_ptr->tss_eip, 0);
        break;
      case SET:
        cmd = Zero;
        lasttoken[0] = 0;
        buf2[0] = 0;
        len = sscanf(buf, "%s %s", buf2, buf);
        if (buf2[0] == 0)
        {
          break;
        }
        if (len > 1)
        {
          v = syms_name2val(buf);
          if (undefined_symbol)
            break;
        }
        found = 0;
        for (i=0; regs[i].name; i++)
          if (strcmp(regs[i].name, buf2) == 0)
          {
            found = 1;
            if (len > 1)
            {
              switch (regs[i].size)
              {
                case 1:
                  *(word8 *)((word8 *)tss_ptr + regs[i].ofs) = v;
                  break;
                case 2:
                  *(word16 *)((word8 *)tss_ptr + regs[i].ofs) = v;
                  break;
                case 4:
                  *(word32 *)((word8 *)tss_ptr + regs[i].ofs) = v;
                  break;
              }
            }
            else
            {
              switch (regs[i].size)
              {
                case 1:
                  printf("%02x ", *(word8 *)((word8 *)tss_ptr + regs[i].ofs));
                  my_getline(buf, "");
                  if (buf[0])
                  {
                    v = syms_name2val(buf);
                    if (undefined_symbol)
                      break;
                    *(word8 *)((word8 *)tss_ptr + regs[i].ofs) = v;
                  }
                  break;
                case 2:
                  printf("%04x ", *(word16 *)((word16 *)tss_ptr + regs[i].ofs));
                  my_getline(buf, "");
                  if (buf[0])
                  {
                    v = syms_name2val(buf);
                    if (undefined_symbol)
                      break;
                    *(word16 *)((word16 *)tss_ptr + regs[i].ofs) = v;
                  }
                  break;
                case 4:
                  printf("%08lx ", *(word32 *)((word32 *)tss_ptr + regs[i].ofs));
                  my_getline(buf, "");
                  if (buf[0])
                  {
                    v = syms_name2val(buf);
                    if (undefined_symbol)
                      break;
                    *(word32 *)((word32 *)tss_ptr + regs[i].ofs) = v;
                  }
                  break;
              }
            }
            break;
          }
        if (found)
          break;
        vaddr = syms_name2val(buf2);
        if (undefined_symbol)
          break;
        if (len < 2)
        {
          v = syms_name2val(buf);
          if (undefined_symbol)
            break;
          poke32(vaddr, v);
        }
        while (1)
        {
          printf("0x%08lx 0x%08lx", vaddr, peek32(vaddr+ARENA));
          my_getline(buf, "");
          if (buf[0])
          {
            if (strcmp(buf, ".") == 0)
              break;
            poke32(vaddr+ARENA, syms_name2val(buf));
          }
          vaddr += 4;
        }
        break;
      case XNPX:
        if (!have_80387)
        {
          printf("No 80387 present\n");
          break;
        }
        save_npx();
        printf("Control: 0x%04lx  Status: 0x%04lx  Tag: 0x%04lx\n",
               npx.control, npx.status, npx.tag);
        for (i=0; i<8; i++)
        {
          double d;
          int tag;
          int tos = (npx.status >> 11) & 7;
          printf("st(%d)  ", i);
          if (npx.reg[i].sign)
            mputchar('-');
          else
            mputchar('+');
          printf(" %04x %04x %04x %04x e %04x    ",
                 npx.reg[i].sig3,
                 npx.reg[i].sig2,
                 npx.reg[i].sig1,
                 npx.reg[i].sig0,
                 npx.reg[i].exponent);
          tag = (npx.tag >> (((i+tos)%8)*2)) & 3;
          switch (tag)
          {
            case 0:
              printf("Valid");
              if (((int)npx.reg[i].exponent-16382 < 1000) &&
                  ((int)npx.reg[i].exponent-16382 > -1000))
              {
                d = npx.reg[i].sig3/65536.0 + npx.reg[i].sig2/65536.0/65536.0
                  + npx.reg[i].sig1/65536.0/65536.0/65536.0;
                d = ldexp(d,(int)npx.reg[i].exponent-16382);
                if (npx.reg[i].sign)
                  d = -d;
                printf("  %.16lg", d);
              }
              else
                printf("  (too big to display)");
              mputchar('\n');
              break;
            case 1:
              printf("Zero\n");
              break;
            case 2:
              printf("Special\n");
              break;
            case 3:
              printf("Empty\n");
              break;
          }
        }
        break;
      case CLS:
        if (use_mono)
          mputchar(12);
        else
        {
          _AH=15;
          geninterrupt(0x10);
          _AH = 0;
          geninterrupt(0x10);
          mputchar('\n');
        }
        break;
      case QUIT:
        return;
      case Zero:
        break;
      default:
        printf("Unknown command\n");
        lasttoken[0] = 0;
        cmd = Zero;
        break;
    }
    if (undefined_symbol)
    {
      lasttoken[0] = 0;
      cmd = Zero;
      undefined_symbol = 0;
    }
    rem_cmd = cmd;
    debug_mode = 1;
  }
}
#endif /* DEBUGGER */

go_til_stop()
{
  while (1)
  {
    go32();
    if (!was_exception)
      return;
    if (exception_handler())
      return;
  }
}

#if DEBUGGER
print_reason()
{
  int n, i;
  i = tss_ptr->tss_irqn;
  if ((i == 0x21) && ((tss_ptr->tss_eax & 0xff00) == 0x4c00))
  {
    tss_ptr->tss_eip -= 2; /* point to int 21h */
    return;
  }
  if (use_ansi)
    printf("\033[1;34m");
  mono_attr = MONO_BOLD;
  if (i != 1)
  {
    tssprint(tss_ptr);
    if (tss_ptr != &a_tss)
    {
      printf("NOT a_tss\n");
    }
    if (i == 0x79)
      printf("Keyboard interrupt\n");
    else if (i == 0x75)
    {
      save_npx();
      printf("Numeric Exception (");
      if ((npx.status & 0x0241) == 0x0241)
        printf("stack overflow");
      else if ((npx.status & 0x0241) == 0x0041)
        printf("stack underflow");
      else if (npx.status & 1)
        printf("invalid operation");
      else if (npx.status & 2)
        printf("denormal operand");
      else if (npx.status & 4)
        printf("divide by zero");
      else if (npx.status & 8)
        printf("overflow");
      else if (npx.status & 16)
        printf("underflow");
      else if (npx.status & 32)
        printf("loss of precision");
      printf(") at eip=0x%08lx\n", npx.eip);
      unassemble(npx.eip, 0);
    }
    else
    {
      printf("exception %d (%#02x) occurred", i, i);
      if ((i == 8) || ((i>=10) && (i<=14)))
        printf(", error code=%#lx", tss_ptr->tss_error);
      mputchar('\n');
    }
  }
  for (n=0; n<3; n++)
    if ((dr6 & (1<<n)) && (dr7 & (3<<(n*2))))
      printf("breakpoint %d hit\n", n);
  if (use_ansi)
    printf("\033[0m");
  mono_attr = MONO_NORMAL;
}

#endif /* DEBUGGER */