-#include "casl2.h"
-
-CMD comet2cmd[] = {
+#include <stdio.h>
+#include <assert.h>
+#include <string.h>
+#include "hash.h"
+#include "struct.h"
+#include "cmem.h"
+
+/**
+ * 機械語命令のリスト
+ */
+static CMD comet2cmd[] = {
{ "NOP", NONE, 0x0 },
{ "LD", R_ADR_X_, 0x1000 },
{ "ST", R_ADR_X, 0x1100 },
{ "RET", NONE, 0x8100 },
};
-int comet2cmdsize = ARRAYSIZE(comet2cmd);
-int cmdtabsize;
-CMDTAB **cmdtype_code, **code_type;
-
-/* 命令と命令タイプからハッシュ値を生成する */
-unsigned hash_cmdtype(const char *cmd, CMDTYPE type) {
+/**
+ * 命令コード配列のサイズ
+ */
+static int comet2cmdsize = ARRAYSIZE(comet2cmd);
+
+/**
+ * 命令表のサイズ
+ */
+static int cmdtabsize;
+
+/**
+ * ハッシュ表
+ */
+static CMDTAB **cmdtype_code, **code_type;
+
+/**
+ * 命令の名前とタイプからハッシュ値を生成する
+ */
+unsigned hash_cmdtype(const char *cmd, CMDTYPE type)
+{
HKEY *keys[2];
unsigned hashval;
- /* 命令をセット */
+ /* 命令名を設定 */
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);
return hashval;
}
-/* 命令と命令タイプがキーのハッシュ表を作成する */
+/**
+ * 名前とタイプがキーの命令ハッシュ表を作成する
+ */
bool create_cmdtype_code()
{
CMDTAB *np;
*(cmdtype_code + i) = NULL;
}
for(i = 0; i < comet2cmdsize; i++) {
- np = malloc_chk(sizeof(CMDTAB), "cmdtype_code.next");
+ np = malloc_chk(sizeof(CMDTAB), "cmdtype_code.np");
np->cmd = NULL;
np->next = NULL;
/* ハッシュ値の生成 */
return true;
}
-/* 命令と命令タイプから、命令コードを取得する */
-/* 無効な場合は0xFFFFを返す */
+/**
+ * 命令の名前とタイプから、命令コードを返す
+ * 無効な場合は0xFFFFを返す
+ */
WORD getcmdcode(const char *cmd, CMDTYPE type)
{
CMDTAB *np;
return 0xFFFF;
}
-/* 命令と命令タイプがキーのハッシュ表を解放する */
+/**
+ * 名前とタイプがキーの命令ハッシュ表を解放する
+ */
void free_cmdtype_code()
{
int i;
free_chk(cmdtype_code, "cmdtype_code");
}
-/* 命令コードからハッシュ値を生成する */
+/**
+ * 命令コードからハッシュ値を生成する
+ */
unsigned hash_code(WORD code)
{
HKEY *keys[1];
- /* 命令コードをセット */
+ /* 命令コードを設定 */
keys[0] = malloc_chk(sizeof(HKEY), "hash_code.key");
keys[0]->type = INT;
keys[0]->val.i = (int)(code >> 8);
return hash(1, keys, cmdtabsize);
}
-/* 命令コードがキーのハッシュ表を作成する */
+/**
+ * コードがキーの命令ハッシュ表を作成する
+ */
bool create_code_type()
{
CMDTAB *np;
*(code_type + i) = NULL;
}
for(i = 0; i < comet2cmdsize; i++) {
- np = malloc_chk(sizeof(CMDTAB), "code_type.next");
+ np = malloc_chk(sizeof(CMDTAB), "code_type.np");
np->cmd = NULL;
np->next = NULL;
/* ハッシュ値の生成 */
return true;
}
-/* 命令コードから命令タイプを取得する */
-/* 無効な場合はNONEを返す */
+/**
+ * 命令コードから命令タイプを返す
+ * 無効な場合はNONEを返す
+ */
CMDTYPE getcmdtype(WORD code)
{
CMDTAB *np;
return NONE;
}
-/* 命令コードがキーのハッシュ表を解放する */
+/**
+ * コードがキーの命令ハッシュ表を解放する
+ */
void free_code_type()
{
int i;
np = code_type[i];
while(np != NULL) {
nq = np->next;
- free(np);
+ free_chk(np, "code_type.np");
np = nq;
}
}
- free(code_type);
+ free_chk(code_type, "code_type");
}