X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fdebugger.c;h=d86cc66779908ee8daf1a23a0553a5f46d617443;hp=119c02f35d41a0bb6c382ef0dea526a78b3b2214;hb=aac61489b663d7156faba49d9c3e99702dcf9b8c;hpb=9920700ecb14b9c31938c19c7474173585166563

diff --git a/src/debugger.c b/src/debugger.c
index 119c02f..d86cc66 100644
--- a/src/debugger.c
+++ b/src/debugger.c
@@ -1,21 +1,274 @@
+#include <stdio.h>
+#include <string.h>
+#include <assert.h>
+#include "debugger.h"
+#include "hash.h"
+#include "cmem.h"
+#include "cerr.h"
 #include "exec.h"
 
+/**
+ * アドレスに対応するハッシュ値を返す
+ *
+ * @return ハッシュ値
+ *
+ * @param adr アドレス
+ */
+unsigned adrhash(WORD adr);
+
+/**
+ * @brief ブレークポイント数
+ */
+static int bpscnt = 0;
+
+/**
+ * @brief ブレークポイント表
+ */
+static BPSTAB *bps[BPSTABSIZE];
+
+/**
+ * @brief ブレークポイントのエラー
+ */
+static CERR cerr_bps[] = {
+    { 101, "break point already defined" },
+    { 102, "break point table is full" },
+    { 103, "break point not found" },
+};
+
+/**
+ * @brief アドレスのハッシュ値を返す
+ *
+ * @return ハッシュ値
+ *
+ * @param adr アドレス
+ */
+unsigned adrhash(WORD adr);
+
+/**
+ * @brief ブレークポイントのエラーをエラーリストに追加する
+ *
+ * @return なし
+ */
+void addcerrlist_bps();
+
+
+unsigned adrhash(WORD adr)
+{
+    HKEY *key[1];
+    unsigned h;
+    key[0] = malloc_chk(sizeof(HKEY), "adrhash.key");
+    key[0]->type = INT;
+    key[0]->val.i = adr;
+    h = hash(1, key, BPSTABSIZE);
+    FREE(key[0]);
+    return h;
+}
+
+void addcerrlist_bps()
+{
+    addcerrlist(ARRAYSIZE(cerr_bps), cerr_bps);
+}
+
+bool getbps(WORD adr)
+{
+    BPSTAB *p;
+
+    for(p = bps[adrhash(adr)]; p != NULL; p = p->next) {
+        if(p->adr == adr) {
+            return true;
+        }
+    }
+    return false;
+}
+
+bool addbps(WORD adr)
+{
+    BPSTAB *p;
+    unsigned h;
+
+    /* 登録されたラベルを検索。すでに登録されている場合はエラー発生 */
+    if(getbps(adr) == true) {
+        setcerr(101, "");    /* breakpoint already defined */
+        return false;
+    }
+    /* メモリを確保 */
+    p = malloc_chk(sizeof(BPSTAB), "bps.next");
+    /* アドレスを設定 */
+    p->adr = adr;
+    /* ブレークポイント数を設定 */
+    bpscnt++;
+    /* ハッシュ表へ追加 */
+    p->next = bps[h = adrhash(adr)];
+    bps[h] = p;
+    return true;
+}
+
+bool delbps(WORD adr)
+{
+    BPSTAB *p, *q;
+    unsigned h;
+
+    p = bps[h = adrhash(adr)];
+    if(p->adr == adr && p->next != NULL) {
+        bps[h] = p->next;
+        FREE(p);
+        return true;
+    } else {
+        for(; p != NULL; p = p->next) {
+            if(p->adr == adr) {
+                q = p->next;
+                p->next = q->next;
+                FREE(p);
+                return true;
+            }
+        }
+    }
+    return false;
+}
+
+void printbps()
+{
+    int i;
+    BPSTAB *p;
+
+    fprintf(stdout, "breakpoints list\n");
+    for(i = 0; i < BPSTABSIZE; i++) {
+        for(p = bps[i]; p != NULL; p = p->next) {
+            fprintf(stdout, "#%04X\n", p->adr);
+        }
+    }
+}
+
+void freebps()
+{
+    int i;
+    BPSTAB *p, *q;
+
+    for(i = 0; i < BPSTABSIZE; i++) {
+        for(p = bps[i]; p != NULL; p = q) {
+            q = p->next;
+            FREE(p);
+        }
+    }
+}
+
+DBARGS *dbargstok(const char *str)
+{
+    DBARGS *args = malloc_chk(sizeof(DBARGS), "args");
+    char *p, *q, *r, *sepp;     /* pは文字列全体の先頭位置、qはトークンの先頭位置、rは文字の位置 */
+    int sepc = ' ';
+
+    args->argc = 0;
+    if(str == NULL) {
+        return args;
+    }
+    p = q = r = strdup_chk(str, "argstok.p");
+    do {
+        while(*q == ' ' || *q == '\t'){
+            q = ++r;
+        }
+        sepp = r + strcspn(r, " ");
+        sepc = *sepp;
+        *sepp = '\0';
+        args->argv[(++args->argc)-1] = strdup_chk(q, "args.argv[]");
+        q = r = sepp + 1;
+    } while(sepc == ' ');
+    FREE(p);
+    return args;
+}
+
+DBCMDLINE *dblinetok(const char *line)
+{
+    char *tokens, *p, *sepp;
+    DBCMDLINE *dbcmdl = NULL;
+
+    if(*line == '\0') {
+        return NULL;
+    }
+    tokens = strdup_chk(line, "tokens");
+    p = tokens;
+    dbcmdl = malloc_chk(sizeof(DBCMDLINE), "dbcmdl");
+    /* コマンドと引数の取得 */
+    if(*p == '\n' || *p == '\0') {        /* コマンドがない場合は、終了 */
+        dbcmdl->dbcmd = '\0';
+    } else {
+        /* コマンドの取得 */
+        sepp = p + strcspn(p, " \t\n");
+        *sepp = '\0';
+        dbcmdl->dbcmd = strdup_chk(p, "dbcmdl.dbcmd");
+        p = sepp + 1;
+        /* コマンドと引数の間の空白をスキップ */
+        while(*p == ' ' || *p == '\t') {
+            p++;
+        }
+        /* 改行までの文字列を取得 */
+        if((sepp = p + strcspn(p, "\n")) > p) {
+            *sepp = '\0';
+            dbcmdl->dbargs = dbargstok(p);
+        } else {
+            dbcmdl->dbargs = malloc_chk(sizeof(DBARGS), "dbcmdl.dbargs");
+            dbcmdl->dbargs->argc = 0;
+        }
+    }
+    FREE(tokens);
+    return dbcmdl;
+}
+
+bool stracmp(char *str1, int str2c, char *str2v[])
+{
+    int i;
+    for(i = 0; i < str2c; i++) {
+        if(strcmp(str1, str2v[i]) == 0) {
+            return true;
+        }
+    }
+    return false;
+}
+
 void debugger()
 {
-    char *buf = malloc_chk(DBINSIZE + 1, "debugger.buf");
+    char *buf = malloc_chk(DBINSIZE + 1, "debugger.buf"), *cmd;
+    DBCMDLINE *dbcmdl =  malloc_chk(sizeof(DBCMDLINE), "dbcmdl");
+    DBARGS *arg;
     for( ; ;) {
         fprintf(stdout, "COMET II (Type ? for help) > ");
         fgets(buf, DBINSIZE, stdin);
-        if(*buf == '\n' || *buf == 's') {
+        dbcmdl = dblinetok(buf);
+        cmd = dbcmdl->dbcmd;
+        arg = dbcmdl->dbargs;
+        if(*buf == '\n' || stracmp(cmd, 2, (char* []){"s", "step"})) {
             break;
-        } else if(*buf == 'c') {
+        } else if(stracmp(cmd, 2, (char* []){"c", "continue"})) {
             execmode.debugger = false;
             break;
-        } else if(*buf == 't') {
-            fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
-            dspregister();
-        } else if(*buf == 'd') {
-            dumpmemory();
+        } else if(stracmp(cmd, 2, (char* []){"t", "trace"})) {
+            if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"a", "auto"})) {
+                execmode.logical = false;
+                execmode.trace = true;
+            } else if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"no", "noauto"})) {
+                execmode.trace = false;
+            } else {
+                fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
+                dspregister();
+            }
+        } else if(stracmp(cmd, 2, (char* []){"T", "tracelogical"})) {
+            if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"a", "auto"})) {
+                execmode.logical = true;
+                execmode.trace = true;
+            } else if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"no", "noauto"})) {
+                execmode.trace = false;
+            } else {
+                fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
+                dspregister();
+            }
+        } else if(stracmp(cmd, 2, (char* []){"d", "dump"})) {
+            if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"a", "auto"})) {
+                execmode.dump = true;
+            } else if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"no", "noauto"})) {
+                execmode.dump = false;
+            } else {
+                dumpmemory();
+            }
         } else if(*buf == '?') {
             fprintf(stdout, "s (default) -- Step by step running your program until next interaction.\n");
             fprintf(stdout, "c -- Continue running your program.\n");