sandbox/v1/defs.h

#ifndef __KF_DEFS_H__
#define __KF_DEFS_H__

#ifdef __linux__
#include "linux/defs.h"
#else
typedef int KF_INT;
typedef long KF_LONG;
constexpr uint8_t STACK_SIZE = 16;
#endif

constexpr size_t	MAX_TOKEN_LENGTH = 16;
constexpr size_t dshift = (sizeof(KF_INT) * 8) - 1;

static inline KF_INT
mask(size_t bits)
{
	KF_INT m = 0;

	for (size_t i = 0; i < bits; i++) {
		m += 1 << i;
	}
	
	return m;
}

#endif // __KF_DEFS_H__
misc/kforth: Initial import. 2018-02-22 19:38:27 +00:00			`#ifndef __KF_DEFS_H__`
			`#define __KF_DEFS_H__`

			`#ifdef __linux__`
			`#include "linux/defs.h"`
misc/kforth: Part 0x04 - parsing numerics. 2018-02-24 03:19:29 +00:00			`#else`
			`typedef int KF_INT;`
misc/kforth: Add system status, work on vocab, better write_num. - Now system structure includes a status variable and an associated function for writing the status out. - Adding more words to the builtin dictionary. - write_num round 3. - Include option to not print the stack each iteration. 2018-02-28 03:59:29 +00:00			`typedef long KF_LONG;`
misc/kforth: Part 0x04 - parsing numerics. 2018-02-24 03:19:29 +00:00			`constexpr uint8_t STACK_SIZE = 16;`
misc/kforth: Initial import. 2018-02-22 19:38:27 +00:00			`#endif`

misc/kforth: Finish parsing. 2018-02-23 22:01:52 +00:00			`constexpr size_t MAX_TOKEN_LENGTH = 16;`
misc/kforth: Starting work on writeup. 2018-03-02 04:04:34 +00:00			`constexpr size_t dshift = (sizeof(KF_INT) * 8) - 1;`

			`static inline KF_INT`
			`mask(size_t bits)`
			`{`
			`KF_INT m = 0;`

			`for (size_t i = 0; i < bits; i++) {`
			`m += 1 << i;`
			`}`

			`return m;`
			`}`
misc/kforth: Initial import. 2018-02-22 19:38:27 +00:00
			`#endif // __KF_DEFS_H__`