X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fcmd.c;h=effe26e7267dafebf3372184578ab0d6a19f76b4;hp=7e2b7fa6e01892d2a4541dee977ea3edff371311;hb=02d7b9b5209b2cb08151f7d1c160e2d18bc7c0d0;hpb=1e636c95bf237645b6c9117e3eb64aa2d8aa4c90

diff --git a/src/cmd.c b/src/cmd.c
index 7e2b7fa..effe26e 100644
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -1,6 +1,14 @@
-#include "casl2.h"
+#include <stdio.h>
+#include <assert.h>
+#include <string.h>
+#include "hash.h"
+#include "struct.h"
+#include "cmem.h"
 
-CMDCODEARRAY cmdcodearray[] = {
+/**
+ * 機械語命令のリスト
+ */
+static CMD comet2cmd[] = {
     { "NOP", NONE, 0x0 },
     { "LD", R_ADR_X_, 0x1000 },
     { "ST", R_ADR_X, 0x1100 },
@@ -38,158 +46,172 @@ CMDCODEARRAY cmdcodearray[] = {
     { "POP", R_, 0x7100 },
     { "CALL", ADR_X, 0x8000 },
     { "SVC", ADR_X, 0xF000 },
-    { "RET", NONE, 0x8100 }
+    { "RET", NONE, 0x8100 },
 };
 
-int cmdcodesize = ARRAYSIZE(cmdcodearray);
-CMDCODETAB *cmdtype_code[ARRAYSIZE(cmdcodearray)], *code_type[ARRAYSIZE(cmdcodearray)];
+/**
+ * 命令コード配列のサイズ
+ */
+static int comet2cmdsize = ARRAYSIZE(comet2cmd);
 
-/* 命令と命令タイプがキーのハッシュ表を作成する */
-bool create_cmdtype_code()
+/**
+ * ハッシュ表のサイズ
+ */
+static int cmdtabsize;
+
+/**
+ * ハッシュ表
+ */
+static CMDTAB **cmdtype_code, **code_type;
+
+/**
+ * 命令の名前とタイプからハッシュ値を生成する
+ */
+unsigned hash_cmdtype(const char *cmd, CMDTYPE type)
 {
-    CMDCODETAB *np;
+    HKEY *keys[2];
     unsigned hashval;
-    int i;
-    
-    for(i = 0; i < cmdcodesize; i++) {
-        np = (CMDCODETAB *) malloc(sizeof(*np));
-        if(np == NULL) {
-            setcerr(122, NULL);    /* cannot create hash table */
-            return false;
-        }
-        /* ハッシュ値の生成 */
-        hashval = hash_cmdtype((&cmdcodearray[i])->cmd, (&cmdcodearray[i])->type);
-        /* ハッシュ表に値を追加 */
-        np->next = cmdtype_code[hashval];
-        cmdtype_code[hashval] = np;
-        np->cca = &(cmdcodearray[i]);
-    }
-    return true;
+
+    /* 命令名を設定 */
+    keys[0] = malloc_chk(sizeof(HKEY), "hash_cmdtype.keys[0]");
+    keys[0]->type = CHARS;
+    keys[0]->val.s = strdup_chk(cmd, "keys[0].val.s");
+    /* 命令タイプを設定 */
+    keys[1] = malloc_chk(sizeof(HKEY), "hash_cmdtype.keys[1]");
+    keys[1]->type = INT;
+    keys[1]->val.i = (int)(type & 070);
+    /* ハッシュ値の計算 */
+    hashval = hash(2, keys, cmdtabsize);
+    FREE(keys[0]->val.s);
+    FREE(keys[0]);
+    FREE(keys[1]);
+    /* ハッシュ値を返す */
+    return hashval;
 }
 
-/* 命令と命令タイプからハッシュ値を生成する */
-unsigned hash_cmdtype(const char *cmd, CMDTYPE type) {
+/**
+ * 名前とタイプがキーの命令ハッシュ表を作成する
+ */
+bool create_cmdtype_code()
+{
+    CMDTAB *p;
+    unsigned hashval;
     int i;
-    unsigned hashval = 0;
-    for(i = 0; *cmd != '\0'; cmd++) {
-        hashval = *cmd + 31 * hashval;
+
+    cmdtabsize = comet2cmdsize;                                            /* ハッシュ表のサイズ */
+    cmdtype_code = calloc_chk(cmdtabsize, sizeof(CMDTAB), "cmdtype_code");
+    for(i = 0; i < comet2cmdsize; i++) {
+        p = malloc_chk(sizeof(CMDTAB), "create_cmdtype_code.p");
+        hashval = hash_cmdtype(comet2cmd[i].name, comet2cmd[i].type);    /* ハッシュ値の生成 */
+        p->next = cmdtype_code[hashval];                                 /* ハッシュ表に値を追加 */
+        p->cmd = &comet2cmd[i];
+        cmdtype_code[hashval] = p;
     }
-    hashval = (int)(type & 070) + 31 * hashval;
-    return hashval % cmdcodesize;
+    return true;
 }
 
-/* 命令と命令タイプから、命令コードを取得する。
-   無効な場合は0xFFFFを返す */
+/**
+ * 命令の名前とタイプから、命令コードを返す
+ * 無効な場合は0xFFFFを返す
+ */
 WORD getcmdcode(const char *cmd, CMDTYPE type)
 {
-    CMDCODETAB *np;
+    CMDTAB *p;
+    WORD w = 0xFFFF;
+
     assert(cmd != NULL);
-    for(np = cmdtype_code[hash_cmdtype(cmd, type)]; np != NULL; np = np->next){
-        if(strcmp(cmd, np->cca->cmd) == 0 && type == np->cca->type) {
-            return np->cca->code;
+    for(p = cmdtype_code[hash_cmdtype(cmd, type)]; p != NULL; p = p->next) {
+        if(strcmp(cmd, p->cmd->name) == 0 && type == p->cmd->type) {
+            w = p->cmd->code;
+            break;
         }
     }
-    return 0xFFFF;
+    return w;
 }
 
-/* 命令と命令タイプがキーのハッシュ表を表示する */
-void print_cmdtype_code()
+/**
+ * 名前とタイプがキーの命令ハッシュ表を解放する
+ */
+void free_cmdtype_code()
 {
     int i;
-    CMDCODETAB *np;
-    for(i = 0; i < cmdcodesize; i++){
-        np = cmdtype_code[i];
-        while(np != NULL) {
-            fprintf(stdout, "(%2d) - %s\t0%02o\t#%04X\n",
-                    i, np->cca->cmd, np->cca->type, np->cca->code);
-            np = np->next;
+    CMDTAB *p, *q;
+
+    for(i = 0; i < cmdtabsize; i++) {
+        for(p = cmdtype_code[i]; p != NULL; p = q) {
+            q = p->next;
+            FREE(p);
         }
     }
 }
 
-/* 命令と命令タイプがキーのハッシュ表を解放する */
-void free_cmdtype_code()
+/**
+ * 命令コードからハッシュ値を生成する
+ */
+unsigned hash_code(WORD code)
 {
-    int i;
-    CMDCODETAB *np, *nq;
-    for(i = 0; i < cmdcodesize; i++){
-        np = cmdtype_code[i];
-        while(np != NULL) {
-            nq = np->next;
-            free(np);
-            np = nq;
-        }
-    }
+    HKEY *keys[1];
+    unsigned h;
+
+    /* 命令コードを設定 */
+    keys[0] = malloc_chk(sizeof(HKEY), "hash_code.key");
+    keys[0]->type = INT;
+    keys[0]->val.i = (int)(code >> 8);
+    h = hash(1, keys, cmdtabsize);
+    FREE(keys[0]);
+    return h;
 }
 
-/* 命令コードがキーのハッシュ表を作成する */
+/**
+ * コードがキーの命令ハッシュ表を作成する
+ */
 bool create_code_type()
 {
-    CMDCODETAB *np;
+    CMDTAB *p;
     unsigned hashval;
     int i;
-    
-    for(i = 0; i < cmdcodesize; i++) {
-        np = (CMDCODETAB *) malloc(sizeof(*np));
-        if(np == NULL) {
-            setcerr(122, NULL);    /* cannot create hash table */
-            return false;
-        }
-        /* ハッシュ値の生成 */
-        hashval = hash_code((&cmdcodearray[i])->code);
-        /* ハッシュ表に値を追加 */
-        np->next = code_type[hashval];
-        code_type[hashval] = np;
-        np->cca = &cmdcodearray[i];
+
+    cmdtabsize = comet2cmdsize;                    /* ハッシュ表のサイズ */
+    code_type = calloc_chk(comet2cmdsize, sizeof(CMDTAB), "code_type");
+    for(i = 0; i < comet2cmdsize; i++) {
+        p = malloc_chk(sizeof(CMDTAB), "code_type.p");
+        hashval = hash_code((&comet2cmd[i])->code);    /* ハッシュ値の生成 */
+        p->next = code_type[hashval];                  /* ハッシュ表に値を追加 */
+        p->cmd = &comet2cmd[i];
+        code_type[hashval] = p;
     }
     return true;
 }
 
-/* 命令コードからハッシュ値を生成する */
-unsigned hash_code(WORD code)
-{
-    unsigned hashval = 0;
-    hashval = (code >> 8);
-    return hashval % cmdcodesize;
-}
-
-/* 命令コードから命令タイプを取得する。
-   無効な場合はNONEを返す */
+/**
+ * 命令コードから命令タイプを返す
+ * 無効な場合はNOTCMDを返す
+ */
 CMDTYPE getcmdtype(WORD code)
 {
-    CMDCODETAB *np;
-    for(np = code_type[hash_code(code)]; np != NULL; np = np->next) {
-        if(code == np->cca->code) {
-            return np->cca->type;
-        }
-    }
-    return NONE;
-}
+    CMDTAB *p;
+    CMDTYPE t = NOTCMD;
 
-/* 命令コードがキーのハッシュ表を表示する */
-void print_code_type()
-{
-    int i;
-    CMDCODETAB *np;
-    for(i = 0; i < cmdcodesize; i++){
-        for(np = code_type[i]; np != NULL; np = np->next) {
-            fprintf(stdout, "(%2d) - #%04X\t0%02o\t%s\n",
-                    i, np->cca->code, np->cca->type, np->cca->cmd);
+    for(p = code_type[hash_code(code)]; p != NULL; p = p->next) {
+        if(code == p->cmd->code) {
+            t = p->cmd->type;
+            break;
         }
     }
+    return t;
 }
 
-/* 命令コードがキーのハッシュ表を解放する */
+/**
+ * コードがキーの命令ハッシュ表を解放する
+ */
 void free_code_type()
 {
     int i;
-    CMDCODETAB *np, *nq;
-    for(i = 0; i < cmdcodesize; i++){
-        np = code_type[i];
-        while(np != NULL) {
-            nq = np->next;
-            free(np);
-            np = nq;
+    CMDTAB *p, *q;
+    for(i = 0; i < cmdtabsize; i++) {
+        for(p = code_type[i]; p != NULL; p = q) {
+            q = p->next;
+            FREE(p);
         }
     }
 }