#include "pforth.h"
#include "generators_run.h"

Macros
#define	_PRE_DEC

#define	_POST_DEC

#define	_EMBED_DECORATE(FUNC) _PRE_DEC FUNC _POST_DEC

#define	_PRECOMPILED_WORDS

#define	POP_WORD(TYPE) _EMBED_DECORATE(TYPE pop_ ## TYPE());

#define	PUSH_WORD(TYPE) _EMBED_DECORATE(void push_ ## TYPE(TYPE value));

#define	_MATH_OP(TYPE, NAME, OP) _EMBED_DECORATE(void M_CONC(_, M_CONC(NAME, M_CONC(_, TYPE))) ());

#define	_FIVE_MATH_OPS(TYPE)

#define	_COMPARE_OP(TYPE, NAME, OP) _EMBED_DECORATE(void M_CONC(_, M_CONC(NAME, M_CONC(_, TYPE))) ());

#define	_COMPARISON_OPS(TYPE)

#define	_TRUE_OP(TYPE) _EMBED_DECORATE(int M_CONC(_, M_CONC(true, M_CONC(_, TYPE))) ());

#define	PUSH_POP_WORD(TYPE) PUSH_WORD(TYPE) POP_WORD(TYPE)

#define	PUSH_POP_WORDS(...) PUSH_POP_WORD(__VA_ARGS__)

#define	EVAL0(...) __VA_ARGS__

#define	EVAL1(...) EVAL0(EVAL0(EVAL0(__VA_ARGS__)))

#define	EVAL2(...) EVAL1(EVAL1(EVAL1(__VA_ARGS__)))

#define	EVAL3(...) EVAL2(EVAL2(EVAL2(__VA_ARGS__)))

#define	EVAL4(...) EVAL3(EVAL3(EVAL3(__VA_ARGS__)))

#define	EVAL(...) EVAL4(EVAL4(EVAL4(__VA_ARGS__)))

#define	MAP_END(...)

#define	MAP_OUT

#define	MAP_GET_END() 0, MAP_END

#define	MAP_NEXT0(test, next, ...) next MAP_OUT

#define	MAP_NEXT1(test, next) MAP_NEXT0(test, next, 0)

#define	MAP_NEXT(test, next) MAP_NEXT1(MAP_GET_END test, next)

#define	MAP0(f, x, peek, ...) f(x) MAP_NEXT(peek, MAP1) (f, peek, __VA_ARGS__)

#define	MAP1(f, x, peek, ...) f(x) MAP_NEXT(peek, MAP0) (f, peek, __VA_ARGS__)

#define	MAP(f, ...) EVAL(MAP1(f, __VA_ARGS__, (), 0))

#define	M_CONC(A, B) M_CONC_(A, B)

#define	M_CONC_(A, B) A ## B

#define	_TYPED_GENERIC_WORD(TYPE, NAME) _EMBED_DECORATE(void M_CONC(_, M_CONC(NAME, M_CONC(_, TYPE))) ());

#define	_GENERIC_WORD(NAME) _TYPED_GENERIC_WORD(FORTH_TYPE, NAME)

#define	POP M_CONC(pop_, FORTH_TYPE) ();

Functions
FORTH_TYPE	_depth ()

void	_push (void *data, size_t size)

	_EMBED_DECORATE (void _push(void *data, size_t size))

	_EMBED_DECORATE (void _drop(size_t size))

void	register_precompiled ()

pforth_word_ptr	create_variable (const char *name)

Macro Definition Documentation

#define _COMPARE_OP	(	TYPE,
		NAME,
		OP
	)	_EMBED_DECORATE(void M_CONC(_, M_CONC(NAME, M_CONC(_, TYPE))) ());

#define _COMPARISON_OPS ( TYPE )

Value:

_COMPARE_OP(TYPE, gt,     >)   \
  _COMPARE_OP(TYPE, lt,   <)   \
  _COMPARE_OP(TYPE, ge,  >=)   \
  _COMPARE_OP(TYPE, le,  <=)   \
  _COMPARE_OP(TYPE, eq,  ==)   \
  _COMPARE_OP(TYPE, neq, !=)

#define _EMBED_DECORATE ( FUNC ) _PRE_DEC FUNC _POST_DEC

#define _FIVE_MATH_OPS ( TYPE )

Value:

_MATH_OP(TYPE, add, +)     \
  _MATH_OP(TYPE, sub, -)     \
  _MATH_OP(TYPE, mul, *)     \
  _MATH_OP(TYPE, div, /)     \
  _MATH_OP(TYPE, mod, %)

#define _GENERIC_WORD ( NAME ) _TYPED_GENERIC_WORD(FORTH_TYPE, NAME)

#define _MATH_OP	(	TYPE,
		NAME,
		OP
	)	_EMBED_DECORATE(void M_CONC(_, M_CONC(NAME, M_CONC(_, TYPE))) ());

#define _POST_DEC

#define _PRE_DEC

Decorating operations with attributes. It will work properly for target embeddable platform only anyway.

#define _PRECOMPILED_WORDS

#define _TRUE_OP ( TYPE ) _EMBED_DECORATE(int M_CONC(_, M_CONC(true, M_CONC(_, TYPE))) ());

#define _TYPED_GENERIC_WORD	(	TYPE,
		NAME
	)	_EMBED_DECORATE(void M_CONC(_, M_CONC(NAME, M_CONC(_, TYPE))) ());

#define EVAL ( ... ) EVAL4(EVAL4(EVAL4(__VA_ARGS__)))

#define EVAL0 ( ... ) __VA_ARGS__

#define EVAL1 ( ... ) EVAL0(EVAL0(EVAL0(__VA_ARGS__)))

#define EVAL2 ( ... ) EVAL1(EVAL1(EVAL1(__VA_ARGS__)))

#define EVAL3 ( ... ) EVAL2(EVAL2(EVAL2(__VA_ARGS__)))

#define EVAL4 ( ... ) EVAL3(EVAL3(EVAL3(__VA_ARGS__)))

#define M_CONC	(	A,
		B
	)	M_CONC_(A, B)

#define M_CONC_	(	A,
		B
	)	A ## B

#define MAP	(	f,
		...
	)	EVAL(MAP1(f, __VA_ARGS__, (), 0))

#define MAP0	(	f,
		x,
		peek,
		...
	)	f(x) MAP_NEXT(peek, MAP1) (f, peek, __VA_ARGS__)

#define MAP1	(	f,
		x,
		peek,
		...
	)	f(x) MAP_NEXT(peek, MAP0) (f, peek, __VA_ARGS__)

#define MAP_END ( ... )

#define MAP_GET_END ( ) 0, MAP_END

#define MAP_NEXT	(	test,
		next
	)	MAP_NEXT1(MAP_GET_END test, next)

#define MAP_NEXT0	(	test,
		next,
		...
	)	next MAP_OUT

#define MAP_NEXT1	(	test,
		next
	)	MAP_NEXT0(test, next, 0)

#define MAP_OUT

#define POP M_CONC(pop_, FORTH_TYPE) ();

#define POP_WORD ( TYPE ) _EMBED_DECORATE(TYPE pop_ ## TYPE());

#define PUSH_POP_WORD ( TYPE ) PUSH_WORD(TYPE) POP_WORD(TYPE)

#define PUSH_POP_WORDS ( ... ) PUSH_POP_WORD(__VA_ARGS__)

#define PUSH_WORD ( TYPE ) _EMBED_DECORATE(void push_ ## TYPE(TYPE value));

Function Documentation

FORTH_TYPE _depth ( )

_EMBED_DECORATE ( void _pushvoid *data, size_t size )

_EMBED_DECORATE ( void _dropsize_t size )

void _push	(	void *	data,
		size_t	size
	)

Push the data to global data stack and move the data_stack_top forward

The data must be valid pointer with at least size bytes inside

Parameters

data	data to push
size	size of data in bytes

pforth_word_ptr create_variable ( const char * name )

void register_precompiled ( )

Macros

Functions

Macro Definition Documentation

Function Documentation