You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
1.5 KiB
53 lines
1.5 KiB
/**
|
|
* Forth stack operations
|
|
*
|
|
* Created on 2021/11/13.
|
|
*/
|
|
|
|
#ifndef FORTH_FH_STACK_H
|
|
#define FORTH_FH_STACK_H
|
|
|
|
enum fh_error ds_roll(struct fh_thread_s *fh, int n);
|
|
|
|
/** Peek n-th element of data stack, 0=topmost */
|
|
enum fh_error ds_peek_n(struct fh_thread_s *fh, uint32_t *out, int n);
|
|
/** Peek n-th element of return stack, 0=topmost */
|
|
enum fh_error rs_peek_n(struct fh_thread_s *fh, uint32_t *out, int n);
|
|
/** Peek n-th element of control stack, 0=topmost */
|
|
static inline enum fh_error cs_peek_n(struct fh_thread_s *fh, uint32_t *out, int n) {
|
|
return ds_peek_n(fh, out, n);
|
|
}
|
|
|
|
enum fh_error rs_poke_n(struct fh_thread_s *fh, uint32_t value, int n);
|
|
|
|
/** Peek top of data stack */
|
|
static inline enum fh_error ds_peek(struct fh_thread_s *fh, uint32_t *out)
|
|
{
|
|
return ds_peek_n(fh, out, 0);
|
|
}
|
|
|
|
/** Peek top of return stack */
|
|
static inline enum fh_error rs_peek(struct fh_thread_s *fh, uint32_t *out)
|
|
{
|
|
return rs_peek_n(fh, out, 0);
|
|
}
|
|
|
|
/** Peek top of control stack */
|
|
static inline enum fh_error cs_peek(struct fh_thread_s *fh, uint32_t *out)
|
|
{
|
|
return cs_peek_n(fh, out, 0);
|
|
}
|
|
|
|
enum fh_error ds_pop(struct fh_thread_s *fh, uint32_t *out);
|
|
enum fh_error rs_pop(struct fh_thread_s *fh, uint32_t *out);
|
|
static inline enum fh_error cs_pop(struct fh_thread_s *fh, uint32_t *out) {
|
|
return ds_pop(fh, out);
|
|
}
|
|
|
|
enum fh_error ds_push(struct fh_thread_s *fh, uint32_t in);
|
|
enum fh_error rs_push(struct fh_thread_s *fh, uint32_t in);
|
|
static inline enum fh_error cs_push(struct fh_thread_s *fh, uint32_t in) {
|
|
return ds_push(fh, in);
|
|
}
|
|
|
|
#endif //FORTH_FH_STACK_H
|
|
|