MightyPork/forth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

wip DOES>, maybe working?

Browse Source
This commit is contained in:
MightyPork
2021-11-20 20:21:22 +01:00
parent 090cbd1fc5
commit 41f36400ed
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/fh_builtins_meta.c
+18
View File
@@ -31,6 +31,23 @@ static enum fh_error w_colon(struct fh_thread_s *fh, const struct fh_word_s *w)
return FH_OK;
}
static enum fh_error w_does(struct fh_thread_s *fh, const struct fh_word_s *w)
{
(void) w;
enum fh_error rv;
ENSURE_STATE(FH_STATE_INTERPRET);
fh_setstate(fh, FH_STATE_COMPILE, 0);
struct fh_word_s *last_word = fh_word_at(fh, fh->dict_last);
if (!last_word) return FH_ERR_INTERNAL;
last_word->handler = w_user_word;
last_word->param = fh->here;
last_word->flags = WORDFLAG_WORD;
return FH_OK;
}
static enum fh_error w_forget(struct fh_thread_s *fh, const struct fh_word_s *w)
{
(void) w;
@@ -551,6 +568,7 @@ const struct name_and_handler fh_builtins_meta[] = {
{"unused", w_unused, 0, 0},
{">in", w_to_in, 0, 0},
{":", w_colon, 0, 0},
{"does>", w_does, 1, 0},
{";", w_semicolon, 1, 0},
{"forget", w_forget, 1, 0},
{"\\", w_backslash, 1, 0}, // line comment