#include "u.h"
#include "../port/lib.h"
#include "mem.h"
#include "dat.h"
#include "fns.h"
#include "io.h"
#include "ureg.h"

#define DBG     if(0)scrprint
#pragma varargck argpos scrprint 1
static Ureg ureg;

static void
scrprint(char *fmt, ...)
{
       char buf[128];
       va_list va;
       int n;

       va_start(va, fmt);
       n = vseprint(buf, buf+sizeof buf, fmt, va)-buf;
       va_end(va);
       putstrn(buf, n);
}

static char*
getline(void)
{
       static char buf[128];
       int i, c;

       for(;;){
               for(i=0; i<nelem(buf) && (c=uartgetc()) != '\n'; i++){
                       DBG("%c...", c);
                       buf[i] = c;
               }

               if(i < nelem(buf)){
                       buf[i] = 0;
                       return buf;
               }
       }
}

static void*
addr(char *s, Ureg *ureg, char **p)
{
       ulong a;

       a = strtoul(s, p, 16);
       if(a < sizeof(Ureg))
               return ((uchar*)ureg)+a;
       return (void*)a;
}

static void
talkrdb(Ureg *ureg)
{
       uchar *a;
       char *p, *req;

       serialoq = nil;         /* turn off serial console */
       kprintoq = nil;         /* turn off /dev/kprint if active */
//      scrprint("Plan 9 debugger\n");
       iprint("Edebugger reset\n");
       for(;;){
               req = getline();
               switch(*req){
               case 'r':
                       a = addr(req+1, ureg, nil);
                       DBG("read %p\n", a);
                       iprint("R%.8lux %.2ux %.2ux %.2ux %.2ux\n",
                               strtoul(req+1, 0, 16), a[0], a[1], a[2], a[3]);
                       break;

               case 'w':
                       a = addr(req+1, ureg, &p);
                       *(ulong*)a = strtoul(p, nil, 16);
                       iprint("W\n");
                       break;
/*
*              case Tmput:
                       n = min[4];
                       if(n > 4){
                               mesg(Rerr, Ecount);
                               break;
                       }
                       a = addr(min+0);
                       scrprint("mput %.8lux\n", a);
                       memmove(a, min+5, n);
                       mesg(Rmput, mout);
                       break;
*
*/
               default:
                       DBG("unknown %c\n", *req);
                       iprint("Eunknown message\n");
                       break;
               }
       }
}

void
rdb(void)
{
       splhi();
       iprint("rdb...");
       callwithureg(talkrdb);
}