sandbox/misc/kforth/v1/system.h

#ifndef __KF_CORE_H__
#define __KF_CORE_H__

#include "defs.h"
#include "io.h"
#include "stack.h"

typedef enum _SYS_STATUS : uint8_t {
	STATUS_OK = 0,
	STATUS_STACK_OVERFLOW = 1,
	STATUS_STACK_UNDERFLOW = 2,
	STATUS_EXECUTION_FAILURE = 3,
	STATUS_UNKNOWN_WORD = 4,
	STATUS_RSTACK_OVERFLOW = 5,
	STATUS_RSTACK_UNDERFLOW = 6
} SYS_STATUS;

class Word;

typedef struct _System {
	Stack<KF_INT>	 dstack;
	Stack<KF_ADDR>	 rstack;
	IO		*interface;
	Word		*dict;
	SYS_STATUS	 status;
	uint8_t		 arena[ARENA_SIZE];
} System;

void	system_clear_error(System *sys);
void	system_write_status(System *sys);

#endif // __KF_CORE_H__