#include <windows.h>
#include <stdio.h>
#include <string.h>
#include "disasm.h"	/* wsprintf() */
#include "drwatson.h"

#define _lread(h, adr, cnt) _lread(h, (LPSTR)(adr), cnt)

/* Last entry in .SYM file */

typedef struct tagMAPEND {
   unsigned chnend;     /* end of map chain (0) */
   char	rel;	        /* release */
   char	ver;	        /* version */
} MAPEND;

/* Structure of .SYM file symbol entry */

typedef struct tagSYMDEF {
   unsigned sym_val;    /* 16 bit symbol addr or const */
   char	nam_len;        /*  8 bit symbol name length */
} SYMDEF;

/* Structure of a .SYM file segment entry */

typedef struct tagSEGDEF {
   unsigned nxt_seg;    /* 16 bit ptr to next segment(0 if end) */
   int sym_cnt;         /* 16 bit count of symbols in sym list  */
   unsigned sym_ptr;    /* 16 bit ptr to symbol list */
   unsigned seg_lsa;    /* 16 bit Load Segment address */
   unsigned seg_in0;    /* 16 bit instance 0 physical address */
   unsigned seg_in1;    /* 16 bit instance 1 physical address */
   unsigned seg_in2;    /* 16 bit instance 2 physical address */
   unsigned seg_in3;    /* 16 bit instance 3 physical address */
   unsigned seg_lin;    /* 16 bit ptr to line number record   */
   char	seg_ldd;        /*  8 bit boolean 0 if seg not loaded */
   char	seg_cin;        /*  8 bit current instance	      */
   char	nam_len;        /*  8 bit Segment name length	      */
} SEGDEF;

/* Structure of a .SYM file MAP entry */

typedef struct tagMAPDEF {
   unsigned map_ptr;    /* 16 bit ptr to next map (0 if end) */
   unsigned lsa	 ;      /* 16 bit Load Segment address */
   unsigned pgm_ent;    /* 16 bit entry point segment value */
   int abs_cnt;         /* 16 bit count of constants in map */
   unsigned abs_ptr;    /* 16 bit ptr to constant chain */
   int seg_cnt;         /* 16 bit count of segments in map */
   unsigned seg_ptr;    /* 16 bit ptr to segment chain */
   char	nam_max;        /*  8 bit Maximum Symbol name length */
   char	nam_len;        /*  8 bit Symbol table name length */
} MAPDEF;

/* should cache last 4 files, last 4 segments, last 4 symbol blocks */

void cdecl Show(char *foo, ...);

#define MAXSYM 64
char *FindSym(unsigned segIndex, unsigned offset, int h) {
  static char sym_name[MAXSYM+5];
  char name[MAXSYM+3];
  int i;
  MAPDEF mod;
  SEGDEF seg;
  SYMDEF sym, *sp;

  if (sizeof(mod) != _lread(h, &mod, sizeof(mod))) return 0;
  if (segIndex > (unsigned)mod.seg_cnt) return 0;
  seg.nxt_seg = mod.seg_ptr;
  for (i=0; i<mod.seg_cnt; i++) {
    _llseek(h, (long)seg.nxt_seg << 4, SEEK_SET);
    _lread(h, &seg, sizeof(seg));
    if (seg.seg_lsa == segIndex) break;
  }
  if (seg.seg_lsa != segIndex) return 0;
  _llseek(h, seg.nam_len, SEEK_CUR);
  sym_name[0] = 0;
  sym.sym_val = 0xffff;
  sym.nam_len = 0;
  for (i=0; i<seg.sym_cnt; i++) {
    unsigned len = sizeof(sym) + sym.nam_len;
    if (len >= sizeof(name)) return 0;
    if (len != _lread(h, name, len)) return 0;
    sp = (SYMDEF *)(name + sym.nam_len);
    if (sp->sym_val > offset)
      break;
    sym = *sp;
  }
  name[sym.nam_len] = 0;
  if (name[0] == 0) return 0;
  if (sym.sym_val == offset) strcpy(sym_name, name);
  else sprintf(sym_name, "%s+%04x", (FP)name, offset-sym.sym_val);
  return sym_name;
} /* FindSym */

char *NearestSym(int segIndex, unsigned offset, char *exeName) {
  char fName[80];
  /* OFSTRUCT reOpen; */
  char *s;
  int h;

  strcpy(fName, exeName);
  strcpy(fName+strlen(fName)-4, ".sym");

  h = _lopen(fName, OF_READ | OF_SHARE_DENY_WRITE);

  if (h == -1) return 0;
  s = FindSym(segIndex, offset, h);
  _lclose(h);
  return s;
} /* NearestSym */