#include "casl2.h"
-CMDCODEARRAY cmdcodearray[] = {
+CMD comet2cmd[] = {
{ "NOP", NONE, 0x0 },
{ "LD", R_ADR_X_, 0x1000 },
{ "ST", R_ADR_X, 0x1100 },
{ "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)];
+int comet2cmdsize = ARRAYSIZE(comet2cmd);
+int cmdtabsize;
+CMDTAB **cmdtype_code, **code_type;
+
+/* 命令と命令タイプからハッシュ値を生成する */
+unsigned hash_cmdtype(const char *cmd, CMDTYPE type) {
+ HKEY *keys[2];
+
+ /* 命令をセット */
+ keys[0] = malloc_chk(sizeof(HKEY), "hash_cmdtype.key");
+ keys[0]->type = CHARS;
+ keys[0]->val.s = strdup_chk(cmd, "keys[0].val");
+ /* 命令タイプをセット */
+ keys[1] = malloc_chk(sizeof(HKEY), "hash_cmdtype.key");
+ keys[1]->type = INT;
+ keys[1]->val.i = (int)(type & 070);
+ /* ハッシュ値を返す */
+ return hash(2, keys, cmdtabsize);
+}
/* 命令と命令タイプがキーのハッシュ表を作成する */
bool create_cmdtype_code()
{
- CMDCODETAB *np;
+ CMDTAB *np;
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;
- }
+
+ cmdtabsize = comet2cmdsize;
+ cmdtype_code = calloc_chk(cmdtabsize, sizeof(CMDTAB *), "cmdtype_code");
+ for(i = 0; i < cmdtabsize; i++) {
+ *(cmdtype_code + i) = NULL;
+ }
+ for(i = 0; i < comet2cmdsize; i++) {
+ np = malloc_chk(sizeof(CMDTAB), "cmdtype_code.next");
+ np->cmd = NULL;
+ np->next = NULL;
/* ハッシュ値の生成 */
- hashval = hash_cmdtype((&cmdcodearray[i])->cmd, (&cmdcodearray[i])->type);
+ hashval = hash_cmdtype(comet2cmd[i].name, comet2cmd[i].type);
/* ハッシュ表に値を追加 */
np->next = cmdtype_code[hashval];
cmdtype_code[hashval] = np;
- np->cca = &(cmdcodearray[i]);
+ np->cmd = &(comet2cmd[i]);
}
return true;
}
-/* 命令と命令タイプからハッシュ値を生成する */
-unsigned hash_cmdtype(const char *cmd, CMDTYPE type) {
- int i;
- unsigned hashval = 0;
- for(i = 0; *cmd != '\0'; cmd++) {
- hashval = *cmd + 31 * hashval;
- }
- hashval = (int)(type & 070) + 31 * hashval;
- return hashval % cmdcodesize;
-}
-
-/* 命令と命令タイプから、命令コードを取得する。
- 無効な場合は0xFFFFを返す */
+/* 命令と命令タイプから、命令コードを取得する */
+/* 無効な場合は0xFFFFを返す */
WORD getcmdcode(const char *cmd, CMDTYPE type)
{
- CMDCODETAB *np;
+ CMDTAB *np;
+
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;
+ if(strcmp(cmd, np->cmd->name) == 0 && type == np->cmd->type) {
+ return np->cmd->code;
}
}
return 0xFFFF;
}
-/* 命令と命令タイプがキーのハッシュ表を表示する */
-void print_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;
- }
- }
-}
-
/* 命令と命令タイプがキーのハッシュ表を解放する */
void free_cmdtype_code()
{
int i;
- CMDCODETAB *np, *nq;
- for(i = 0; i < cmdcodesize; i++){
+ CMDTAB *np, *nq;
+
+ for(i = 0; i < cmdtabsize; i++) {
np = cmdtype_code[i];
while(np != NULL) {
nq = np->next;
np = nq;
}
}
+ free(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()
{
- CMDCODETAB *np;
+ CMDTAB *np;
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;
- }
+
+ cmdtabsize = comet2cmdsize;
+ code_type = calloc_chk(cmdtabsize, sizeof(CMDTAB *), "code_type");
+ for(i = 0; i < cmdtabsize; i++) {
+ *(code_type + i) = NULL;
+ }
+ for(i = 0; i < comet2cmdsize; i++) {
+ np = malloc_chk(sizeof(CMDTAB), "code_type.next");
+ np->cmd = NULL;
+ np->next = NULL;
/* ハッシュ値の生成 */
- hashval = hash_code((&cmdcodearray[i])->code);
+ hashval = hash_code((&comet2cmd[i])->code);
/* ハッシュ表に値を追加 */
np->next = code_type[hashval];
code_type[hashval] = np;
- np->cca = &cmdcodearray[i];
+ np->cmd = &comet2cmd[i];
}
return true;
}
-/* 命令コードからハッシュ値を生成する */
-unsigned hash_code(WORD code)
-{
- unsigned hashval = 0;
- hashval = (code >> 8);
- return hashval % cmdcodesize;
-}
-
-/* 命令コードから命令タイプを取得する。
- 無効な場合はNONEを返す */
+/* 命令コードから命令タイプを取得する */
+/* 無効な場合はNONEを返す */
CMDTYPE getcmdtype(WORD code)
{
- CMDCODETAB *np;
+ CMDTAB *np;
for(np = code_type[hash_code(code)]; np != NULL; np = np->next) {
- if(code == np->cca->code) {
- return np->cca->type;
+ if(code == np->cmd->code) {
+ return np->cmd->type;
}
}
return NONE;
}
-/* 命令コードがキーのハッシュ表を表示する */
-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);
- }
- }
-}
-
/* 命令コードがキーのハッシュ表を解放する */
void free_code_type()
{
int i;
- CMDCODETAB *np, *nq;
- for(i = 0; i < cmdcodesize; i++){
+ CMDTAB *np, *nq;
+ for(i = 0; i < cmdtabsize; i++) {
np = code_type[i];
while(np != NULL) {
nq = np->next;
np = nq;
}
}
+ free(code_type);
}