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

add nip

Browse Source
This commit is contained in:
MightyPork
2021-11-13 21:02:28 +01:00
parent d6c30d5414
commit 3eae9abada
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/fh_builtins.c
+14
View File
@@ -306,6 +306,17 @@ static enum fh_error w_dupe(struct fh_thread_s *fh, const struct fh_word_s *w)
return FH_OK;
}
static enum fh_error w_nip(struct fh_thread_s *fh, const struct fh_word_s *w)
{
(void) w;
enum fh_error rv;
uint32_t a = 0, discard = 0;
TRY(ds_pop(fh, &a));
TRY(ds_pop(fh, &discard));
TRY(ds_push(fh, a));
return FH_OK;
}
static enum fh_error w_question_dupe(struct fh_thread_s *fh, const struct fh_word_s *w)
{
(void) w;
@@ -752,6 +763,8 @@ enum fh_error register_builtin_words(struct fh_thread_s *fh)
{"decimal", wp_setbase, 0, 10},
{"hex", wp_setbase, 0, 16},
{"base", wp_const, 0, MAGICADDR_BASE},
{"false", wp_const, 0, 0},
{"true", wp_const, 0, 0xFFFFFFFF},
{"depth", w_depth, 0, 0},
{"+", w_plus, 0, 0},
{"-", w_minus, 0, 0},
@@ -781,6 +794,7 @@ enum fh_error register_builtin_words(struct fh_thread_s *fh)
/* Stack manip */
{"drop", w_drop, 0, 0},
{"dup", w_dupe, 0, 0},
{"nip", w_nip, 0, 0},
{"?dup", w_question_dupe, 0, 0},
{"over", w_over, 0, 0},
{"swap", w_swap, 0, 0},