diff options
author | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-08 19:57:26 -0500 |
---|---|---|
committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-08 19:57:26 -0500 |
commit | dcd5e792b1d84afd1bea9780781674b6e6ad8dc3 (patch) | |
tree | 6b841cd741c3d8df6cb7b22f1423a5c814e0add9 /corewords.hpp | |
parent | 1960aa8773e51a76f0a5a653c8a4eb4fbef5e4ba (diff) |
move libalee into folder
Diffstat (limited to 'corewords.hpp')
-rw-r--r-- | corewords.hpp | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/corewords.hpp b/corewords.hpp deleted file mode 100644 index 21a0951..0000000 --- a/corewords.hpp +++ /dev/null @@ -1,52 +0,0 @@ -/** - * Alee Forth: A portable and concise Forth implementation in modern C++. - * Copyright (C) 2023 Clyne Sullivan <clyne@bitgloo.com> - * - * 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 <https://www.gnu.org/licenses/>. - */ - -#ifndef ALEEFORTH_COREWORDS_HPP -#define ALEEFORTH_COREWORDS_HPP - -#include "types.hpp" -#include "state.hpp" - -void user_sys(State&); - -class CoreWords -{ -public: - constexpr static std::size_t WordCount = 32; - - constexpr static Cell Immediate = (1 << 5); - - constexpr static int Semicolon = 26; - - static int findi(const char *); - static int findi(State&, Word); - static void run(unsigned int, State&); - -private: - constexpr static char wordsarr[] = - "_lit\0drop\0dup\0swap\0pick\0sys\0" - "+\0-\0m*\0_/\0_%\0" - "_@\0_!\0>r\0r>\0=\0" - "<\0&\0|\0^\0" - "<<\0>>\0:\0_'\0execute\0" - "exit\0;\0_jmp0\0_jmp\0" - "depth\0_rdepth\0_in\0"; -}; - -#endif // ALEEFORTH_COREWORDS_HPP - |