From 56760f0517c646f41dd179e1f365d3268df3ec50 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Thu, 9 Feb 2023 10:30:55 -0500 Subject: initial commit --- corewords.hpp | 88 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 88 insertions(+) create mode 100644 corewords.hpp (limited to 'corewords.hpp') diff --git a/corewords.hpp b/corewords.hpp new file mode 100644 index 0000000..08f172b --- /dev/null +++ b/corewords.hpp @@ -0,0 +1,88 @@ +/** + * Alee Forth: A portable and concise Forth implementation in modern C++. + * Copyright (C) 2023 Clyne Sullivan + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public License + * along with this program. If not, see . + */ + +#ifndef ALEEFORTH_COREWORDS_HPP +#define ALEEFORTH_COREWORDS_HPP + +#include "types.hpp" +#include "state.hpp" + +int user_sys(State&); + +class CoreWords +{ +public: + constexpr static std::size_t VisibleWordCount = 30; // size + constexpr static std::size_t HiddenWordLiteral = 30; // index + constexpr static std::size_t HiddenWordJump = 31; // index + constexpr static std::size_t WordCount = 32; // size + + constexpr static Cell Immediate = (1 << 5); + + static int findi(std::string_view str); + static Func find(std::string_view str); + static void run(int i, State& state); + +private: + constexpr static char wordsarr[] = + "drop\0dup\0swap\0pick\0sys\0" + "+\0-\0*\0/\0%\0" + "@\0!\0rot\0>r\0r>\0" + "=\0<\0allot\0&\0|\0" + "^\0<<\0>>\0(\0:\0" + ";\0here\0exit\0imm\0const\0"; + // lit, jmp, jmp0, ', lits + + static Func get(int index); + + static int op_drop(State& state); + static int op_dup(State& state); + static int op_swap(State& state); + static int op_pick(State& state); + static int op_sys(State& state); + static int op_add(State& state); + static int op_sub(State& state); + static int op_mul(State& state); + static int op_div(State& state); + static int op_mod(State& state); + static int op_peek(State& state); + static int op_poke(State& state); + static int op_rot(State& state); + static int op_pushr(State& state); + static int op_popr(State& state); + static int op_eq(State& state); + static int op_lt(State& state); + static int op_allot(State& state); + static int op_and(State& state); + static int op_or(State& state); + static int op_xor(State& state); + static int op_shl(State& state); + static int op_shr(State& state); + static int op_comment(State& state); + static int op_colon(State& state); + static int op_semic(State& state); + static int op_here(State& state); + static int op_exit(State& state); + static int op_imm(State& state); + static int op_const(State& state); + static int op_literal(State& state); + static int op_jump(State& state); +}; + +#endif // ALEEFORTH_COREWORDS_HPP + -- cgit v1.2.3