118 lines
3.2 KiB
C
118 lines
3.2 KiB
C
// Copyright 2021 Bradley D. Nelson
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#define JMPW continue decode
|
|
#define SSMOD_FUNC SSMOD_FUNC
|
|
#define COMMA COMMA
|
|
|
|
#include "common/tier0_opcodes.h"
|
|
#include "common/tier1_opcodes.h"
|
|
#include "common/floats.h"
|
|
#include "common/bits.h"
|
|
|
|
#define VOCABULARY_LIST V(forth) V(internals)
|
|
|
|
#define PLATFORM_OPCODE_LIST \
|
|
X("CALL", CALL, sp = Call(sp|0, tos|0) | 0; DROP) \
|
|
FLOATING_POINT_LIST
|
|
|
|
enum {
|
|
#define Z(flags, name, op, code) OP_ ## op,
|
|
PLATFORM_OPCODE_LIST
|
|
TIER1_OPCODE_LIST
|
|
TIER0_OPCODE_LIST
|
|
#undef Z
|
|
};
|
|
|
|
enum {
|
|
#define V(name) VOC_ ## name,
|
|
VOCABULARY_LIST
|
|
#undef V
|
|
};
|
|
|
|
enum {
|
|
#define V(name) VOC_ ## name ## _immediate = VOC_ ## name + (IMMEDIATE << 8),
|
|
VOCABULARY_LIST
|
|
#undef V
|
|
};
|
|
|
|
|
|
int main(int argc, char *argv[]) {
|
|
if (argc == 2 && strcmp(argv[1], "cases") == 0) {
|
|
#define Z(flags, name, op, code) \
|
|
printf(" case %d: // %s\n %s; break;\n", OP_ ## op, name, #code);
|
|
PLATFORM_OPCODE_LIST
|
|
TIER1_OPCODE_LIST
|
|
TIER0_OPCODE_LIST
|
|
#undef Z
|
|
} else if (argc == 2 && strcmp(argv[1], "dict") == 0) {
|
|
#define V(name) \
|
|
printf(" Create(\"" #name "-builtins\", %d);\n", BUILTIN_FORK, OP_DOCREATE); \
|
|
printf(" COMMA(%d);\n", VOC_ ## name);
|
|
VOCABULARY_LIST
|
|
#undef V
|
|
#define Z(flags, name, op, code) \
|
|
printf(" Builtin(" #name ", %d, %d, %d);\n", \
|
|
((VOC_ ## flags >> 8) & 0xff) | BUILTIN_MARK, \
|
|
(VOC_ ## flags & 0xff), OP_ ## op);
|
|
PLATFORM_OPCODE_LIST
|
|
TIER1_OPCODE_LIST
|
|
TIER0_OPCODE_LIST
|
|
#undef Z
|
|
} else if (argc == 2 && strcmp(argv[1], "sys") == 0) {
|
|
G_SYS *g_sys = 0;
|
|
#define G_SYS 256
|
|
printf(" const g_sys = %d;\n", G_SYS);
|
|
#define EMITSYS(name) \
|
|
printf(" const g_sys_%s = %d;\n", #name, 256 + 4 * (((cell_t *) &g_sys->name) - (cell_t*) g_sys));
|
|
EMITSYS(heap);
|
|
EMITSYS(current);
|
|
EMITSYS(context);
|
|
EMITSYS(latestxt);
|
|
EMITSYS(notfound);
|
|
EMITSYS(heap_start);
|
|
EMITSYS(heap_size);
|
|
EMITSYS(stack_cells);
|
|
EMITSYS(boot);
|
|
EMITSYS(boot_size);
|
|
EMITSYS(tib);
|
|
EMITSYS(ntib);
|
|
EMITSYS(tin);
|
|
EMITSYS(state);
|
|
EMITSYS(base);
|
|
EMITSYS(argc);
|
|
EMITSYS(argv);
|
|
EMITSYS(runner);
|
|
EMITSYS(rp);
|
|
EMITSYS(DOLIT_XT);
|
|
EMITSYS(DOFLIT_XT);
|
|
EMITSYS(DOEXIT_XT);
|
|
EMITSYS(YIELD_XT);
|
|
EMITSYS(DOCREATE_OP);
|
|
EMITSYS(builtins);
|
|
printf(" const OP_DOCREATE = %d;\n", OP_DOCREATE);
|
|
printf(" const OP_DODOES = %d;\n", OP_DODOES);
|
|
printf(" const OP_DOCOL = %d;\n", OP_DOCOL);
|
|
printf(" const OP_DOVAR = %d;\n", OP_DOVAR);
|
|
printf(" const OP_DOCON = %d;\n", OP_DOCON);
|
|
} else {
|
|
fprintf(stderr, "USAGE: %s cases/dict/sys\n", argv[1]);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|