変数名の整理
[YACASL2.git] / src / cmd.c
1 #include "casl2.h"
2
3 CMD comet2cmd[] = {
4     { "NOP", NONE, 0x0 },
5     { "LD", R_ADR_X_, 0x1000 },
6     { "ST", R_ADR_X, 0x1100 },
7     { "LAD", R_ADR_X, 0x1200 },
8     { "LD", R1_R2, 0x1400 },
9     { "ADDA", R_ADR_X_, 0x2000 },
10     { "SUBA", R_ADR_X_, 0x2100 },
11     { "ADDL", R_ADR_X_, 0x2200 },
12     { "SUBL", R_ADR_X_, 0x2300 },
13     { "ADDA", R1_R2, 0x2400 },
14     { "SUBA", R1_R2, 0x2500 },
15     { "ADDL", R1_R2, 0x2600 },
16     { "SUBL", R1_R2, 0x2700 },
17     { "AND", R_ADR_X_, 0x3000 },
18     { "OR", R_ADR_X_, 0x3100 },
19     { "XOR", R_ADR_X_, 0x3200 },
20     { "AND", R1_R2, 0x3400 },
21     { "OR", R1_R2, 0x3500 },
22     { "XOR", R1_R2, 0x3600 },
23     { "CPA", R_ADR_X_, 0x4000 },
24     { "CPL", R_ADR_X_, 0x4100 },
25     { "CPA", R1_R2, 0x4400 },
26     { "CPL", R1_R2, 0x4500 },
27     { "SLA", R_ADR_X, 0x5000 },
28     { "SRA", R_ADR_X, 0x5100 },
29     { "SLL", R_ADR_X, 0x5200 },
30     { "SRL", R_ADR_X, 0x5300 },
31     { "JMI", ADR_X, 0x6100 },
32     { "JNZ", ADR_X, 0x6200 },
33     { "JZE", ADR_X, 0x6300 },
34     { "JUMP", ADR_X, 0x6400 },
35     { "JPL", ADR_X, 0x6500 },
36     { "JOV", ADR_X, 0x6600 },
37     { "PUSH", ADR_X, 0x7000 },
38     { "POP", R_, 0x7100 },
39     { "CALL", ADR_X, 0x8000 },
40     { "SVC", ADR_X, 0xF000 },
41     { "RET", NONE, 0x8100 },
42 };
43
44 int comet2cmdsize = ARRAYSIZE(comet2cmd);
45 int cmdtabsize;
46 CMDTAB **cmdtype_code, **code_type;
47
48 /* 命令と命令タイプからハッシュ値を生成する */
49 unsigned hash_cmdtype(const char *cmd, CMDTYPE type) {
50     HKEY *keys[2];
51
52     /* 命令をセット */
53     keys[0] = malloc_chk(sizeof(HKEY), "hash_cmdtype.key");
54     keys[0]->type = CHARS;
55     keys[0]->val.s = strdup(cmd);
56     /* 命令タイプをセット */
57     keys[1] = malloc_chk(sizeof(HKEY), "hash_cmdtype.key");
58     keys[1]->type = INT;
59     keys[1]->val.i = (int)(type & 070);
60     /* ハッシュ値を返す */
61     return hash(2, keys, cmdtabsize);
62 }
63
64 /* 命令と命令タイプがキーのハッシュ表を作成する */
65 bool create_cmdtype_code()
66 {
67     CMDTAB *np;
68     unsigned hashval;
69     int i;
70
71     cmdtabsize = comet2cmdsize;
72     cmdtype_code = malloc_chk(cmdtabsize * sizeof(CMDTAB *), "cmdtype_code");
73     for(i = 0; i < cmdtabsize; i++) {
74         *(cmdtype_code + i) = NULL;
75     }
76     for(i = 0; i < comet2cmdsize; i++) {
77         np = malloc_chk(sizeof(CMDTAB), "cmdtype_code.next");
78         np->cmd = NULL;
79         np->next = NULL;
80         /* ハッシュ値の生成 */
81         hashval = hash_cmdtype(comet2cmd[i].name, comet2cmd[i].type);
82         /* ハッシュ表に値を追加 */
83         np->next = cmdtype_code[hashval];
84         cmdtype_code[hashval] = np;
85         np->cmd = &(comet2cmd[i]);
86     }
87     return true;
88 }
89
90 /* 命令と命令タイプから、命令コードを取得する */
91 /* 無効な場合は0xFFFFを返す */
92 WORD getcmdcode(const char *cmd, CMDTYPE type)
93 {
94     CMDTAB *np;
95
96     assert(cmd != NULL);
97     for(np = cmdtype_code[hash_cmdtype(cmd, type)]; np != NULL; np = np->next){
98         if(strcmp(cmd, np->cmd->name) == 0 && type == np->cmd->type) {
99             return np->cmd->code;
100         }
101     }
102     return 0xFFFF;
103 }
104
105 /* 命令と命令タイプがキーのハッシュ表を解放する */
106 void free_cmdtype_code()
107 {
108     int i;
109     CMDTAB *np, *nq;
110
111     for(i = 0; i < cmdtabsize; i++) {
112         np = cmdtype_code[i];
113         while(np != NULL) {
114             nq = np->next;
115             free(np);
116             np = nq;
117         }
118     }
119     free(cmdtype_code);
120 }
121
122 /* 命令コードからハッシュ値を生成する */
123 unsigned hash_code(WORD code)
124 {
125     HKEY *keys[1];
126
127     /* 命令コードをセット */
128     keys[0] = malloc_chk(sizeof(HKEY), "hash_code.key");
129     keys[0]->type = INT;
130     keys[0]->val.i = (int)(code >> 8);
131     /* ハッシュ値を返す */
132     return hash(1, keys, cmdtabsize);
133 }
134
135 /* 命令コードがキーのハッシュ表を作成する */
136 bool create_code_type()
137 {
138     CMDTAB *np;
139     unsigned hashval;
140     int i;
141
142     cmdtabsize = comet2cmdsize;
143     code_type = malloc_chk(cmdtabsize * sizeof(CMDTAB *), "code_type");
144     for(i = 0; i < cmdtabsize; i++) {
145         *(code_type + i) = NULL;
146     }
147     for(i = 0; i < comet2cmdsize; i++) {
148         np = malloc_chk(sizeof(CMDTAB), "code_type.next");
149         np->cmd = NULL;
150         np->next = NULL;
151         /* ハッシュ値の生成 */
152         hashval = hash_code((&comet2cmd[i])->code);
153         /* ハッシュ表に値を追加 */
154         np->next = code_type[hashval];
155         code_type[hashval] = np;
156         np->cmd = &comet2cmd[i];
157     }
158     return true;
159 }
160
161 /* 命令コードから命令タイプを取得する */
162 /* 無効な場合はNONEを返す */
163 CMDTYPE getcmdtype(WORD code)
164 {
165     CMDTAB *np;
166     for(np = code_type[hash_code(code)]; np != NULL; np = np->next) {
167         if(code == np->cmd->code) {
168             return np->cmd->type;
169         }
170     }
171     return NONE;
172 }
173
174 /* 命令コードがキーのハッシュ表を解放する */
175 void free_code_type()
176 {
177     int i;
178     CMDTAB *np, *nq;
179     for(i = 0; i < cmdtabsize; i++) {
180         np = code_type[i];
181         while(np != NULL) {
182             nq = np->next;
183             free(np);
184             np = nq;
185         }
186     }
187     free(code_type);
188 }