/* 
 *  misc.c for mdb
 */

#include "mdb.h"
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/stat.h>
#define ptrace mdbtrace
#include <sys/ptrace.h>
#include "proto.h"

FORWARD _PROTOTYPE( void pr_ascii , (long val , int size ));

/* Print ascii */
PRIVATE void pr_ascii(val, size)
long val;
int size;
{
  int i;
  int v;
  int sh;

#ifdef	BYTES_SWAPPED
  sh = 8 * size;
#else
  sh = 0;
#endif

  for (i = 0; i < size; i++) {
	v = (int) (val >> sh) & 0xFF;
#ifdef	BYTES_SWAPPED
	sh -= 8;
#else
	sh += 8;
#endif
	Printf(isprint(v) ? "%c" : "\\%03o", v);
  }
  Printf("\n");
}

/* Dump stack */
PUBLIC void dump_stack(cnt)
long cnt;
{
  vir_bytes v, vi;
  long val, sp;
  int num, size, nmode;

  size = INTSIZE;		/* size of stack element */
  num = (int) cnt;
  if (num <= 0) num = 0;
  if (num > sk_size) num = (int) sk_size / size;
  nmode = num;			/* Save mode */

  /* Get current SP */
  sp = get_reg(curpid, reg_addr("sp"));

  /* Starting address is top of stack seg -1 */
  vi = (vir_bytes) sk_addr + (vir_bytes) sk_size - size;

  /* Ending address */
  v = (vir_bytes) end_addr;
  if (nmode == 0) v = MAX(v, sp);

  Printf("Stack Dump SP=%*lx\nAddr\tHex\tAscii\n", 2 * size, sp);
  do {
	val = (ptrace(T_GETDATA, curpid, (long) vi, 0L) >> SHIFT(size))
								& MASK(size);
	Printf("%*lx\t", 2 * ADDRSIZE, (vi >> SHIFT(ADDRSIZE))
						       & MASK(ADDRSIZE));
	Printf("%*lx\t", 2 * size, val);
	pr_ascii(val, size);
	num -= 1;
	vi -= size;
  } while (vi >= v && (nmode ? num > 0 : 1));

}


/* Get file size */ 
PUBLIC off_t file_size(fd)
int fd;
{
struct stat st;

  if(fstat(fd,&st) <0 ) {
	Printf("Cannot stat\n");
	return 0L;
  }
  else
	return st.st_size;
}

/* Print help page */
PUBLIC void help_page()
{
  outstr("\nHelp for mdb. For more details, type 'command ?'\n");
  outstr("!#\t- Shell escape / Set Variable or register\n");
  outstr("Tt\t- Current call / Backtrace all\n");
  outstr("/nsf\t- Display for n size s with format f\n");
  outstr("Xx [n]\t- Disasm / & display reg for n instructions\n");
  outstr("Rr a\t- Run / with arguments a\n");
  outstr("Cc [n]\t- Continue with current signal / no signal n times\n");
  outstr("Ii [n]\t- Single step with / no signal for n instructions\n");
  outstr("Mm t n\t- Trace until / Stop when modified t type for n instructions\n");
  outstr("k \t- Kill traced process\n");
  outstr("Bb\t- Display / Set Break-pt\n");
  outstr("Dd\t- Delete all / one break-points\n");
  outstr("P\t- Toggle Paging\n");
  outstr("Ll name\t- Log to file name / and to standard output\n");
#ifdef  DEBUG
  outstr("Vv\t- Version info / Toggle debug flag\n");
#else
  outstr("V\t- Version info\n");
#endif
  outstr("e [t]\t- List symbols for type t\n");
  outstr("y\t- Print segment mappings\n");
  outstr("s [n]\t- Dump stack for n words\n");
#if	SYSCALLS_SUPPORT
  outstr("z [a]\t- Trace syscalls with address a\n");
#endif
  outstr("? \t- Help - this screen\n");
  outstr("@ file\t- Execute commands from file\n");
  outstr("Qq\t- Quit / and kill traced process\n");
#ifdef DEBUG
  outstr("Usage: mdb -x debug-level [-Ll]logfile exec-file core-file @command-file\n");
#else
  outstr("Usage: mdb [-Ll]logfile exec-file core-file @command-file\n");
#endif
  outstr("       mdb [-fc] file\n");
}

PUBLIC void version_info()
{
	Printf("\nmdb version %s.%d for Minix", MDBVERSION, MDBBUILD );
	Printf(" %s.%s",  OS_RELEASE, OS_VERSION);
#ifdef MINIX_PC
#ifdef __i386
	Printf(" (32-bit)");
#else
	Printf(" (16-bit)");
#endif
#endif
#ifdef MINIX_ST
	Printf("-ST");
#endif
	Printf("\n");
}

/* Print help message on command */
PUBLIC void help_on(h)
int h;
{

  switch (h) {
  case '/':	
	outstr("<address> /nsf\t- Display for n items of size s with format f from address\n");
	outstr("\t  n defaults to 1\n");
	outstr("\t  s defaults to size of int\n");
	outstr("\t    can be b for byte h for short l for long\n");
	outstr("\t  f defaults to d for decimal\n");
	outstr("\t    can be x X o d D c s or u as in printf\n");
	outstr("\t    y treat value as address\n");
	outstr("\t    i disasm\n");
	break;
  case '@':	
	outstr("@ file\t- Execute commands from file\n");
	break;
  case '#':	
	outstr("# <address> cs value\t- Set Variable(s) at address to value\n");
	outstr("\t\t\t  for c count and size s\n");
 	outstr("\t\t\t  b for byte h for short or l for long\n");
	outstr("\t\t\t  Count or size must be specified\n");
	outstr("# $xx value\t\t- Set register $xx to value\n");
	break;
  case 'C':	
	outstr("C [n]\t- Continue with curent signal n times\n");
	outstr("\t  n defaults to 1\n");
	break;
  case 'c':	
	outstr("c [n]\t- Continue with no signal n times\n");
	outstr("\t  n defaults to 1\n");
	break;
  case 'e':
	outstr("e [t]\t- List symbols for type t\n");
	break;
  case 's':
	outstr("s [n]\t- Dump stack for n words\n");
	outstr("\t  n defaults to whole stack\n");
	break;
  case 'I':
	outstr("I n\t- Single step with signal for n instructions n defaults to 1\n");
	break;
  case 'i':
	outstr("i n\t- Single step with no signal for n instructions n defaults to 1\n");
	break;
  case 'M':
  case 'm':
	if ( h == 'M') 
		outstr("<address> M t n\t- Trace until\n");
	else
		outstr("<address> m t n\t- Stop when\n");
	outstr("\t\t<address> is modified t type for n instructions\n");
	outstr("\t\tn defaults to 1\n");
	outstr("\t\tb for byte h for short l for long defaults to size of int\n");
	break;
  case 'T':	
	outstr("T\t- Display current call\n");
	break;
  case 't':
	outstr("t\t- Backtrace all calls\n");
	break;
  case '!':
	outstr("![command]\t- Shell escape or spawn command\n");
	break;
  case 'R':	
	outstr("R\t- Run the exec-file\n");
	break;
  case 'r':
	outstr("r [arguments]\t- Run the exec-file with arguments\n");
	break;
  case 'k':
	outstr("k\t- Kill traced process\n");
	break;
  case 'B':
	outstr("B\t- Display all the Break points\n");
	break;
  case 'b':
	outstr("<address> b [commands]\t- Set Break-pt at address\n");
	outstr("\t\t\t  commands will be executed by mdb at break-pt\n");
	break;
  case 'D':
	outstr("D\t- Delete all break-points\n");
	break;
  case 'd':
	outstr("<address> d\t- Delete one break-point at address\n");
	break;
  case 'q':
	outstr("q\t- Quit mdb (and kill traced program)\n");
	break;
  case 'Q':
	outstr("Q\t- Quit mdb immediately\n");
	break;
  case 'P':
	outstr("P\t- Toggle Paging\n");
	outstr("\t  Defaults is OFF\n");
	break;
  case 'L':
	outstr("L name\t- Log to file name\n");
	outstr("L\t- Reset output to standard output\n");
	break;
  case 'l':
	outstr("l name\t- Log to file name and standard output\n");
	outstr("l\t- Reset output to standard output\n");
	outstr("\t  Defaults to none\n");
	break;
#ifdef  DEBUG
  case 'v':
	outstr("v\t- Toggle debug flag\n");
	break;
#endif
  case 'V':
	outstr("V\t- Print Version Information for mdb\n");
	break;
  case 'X':
	outstr("<address> X [n] [offset]\t- Disasm for n instructions\n");
	outstr("\t\t\t  Starting at address+offset\n");
	break;
  case 'x':
	outstr("<address> x [n] offset\t- Disasm & display registers for n instructions\n");
	outstr("\t\t\t  Starting at address+offset\n");
	break;
  case 'y':
	outstr("y\t- Print segment mappings\n");
	break;
#if	SYSCALLS_SUPPORT
  case 'z':
	outstr("z [address]\t- Trace system calls using address\n");
	outstr("\t\t  If the exec-file has symbols, mdb looks for __sendrec\n");
	break;
#endif
  default:
	Printf("No help on command '%c' is available\n",h);
	break;
  }
}