From a1149654d40752a16258412beb0995045c9d129f Mon Sep 17 00:00:00 2001
From: Kyle Isom <kyle@imap.cc>
Date: Fri, 2 Mar 2018 08:47:56 -0800
Subject: [PATCH] misc/kforth: Start over.

---
 Makefile          | 23 +++++++++++++++++++++++
 default/defs.h    | 14 ++++++++++++++
 defs.h            | 12 ++++++++++++
 doc/index.rst     |  1 +
 doc/part-0x08.rst | 18 ++++++++++++++++++
 pc/defs.h         | 14 ++++++++++++++
 stack.h           |  9 +++++++++
 7 files changed, 91 insertions(+)
 create mode 100644 Makefile
 create mode 100644 default/defs.h
 create mode 100644 defs.h
 create mode 100644 doc/part-0x08.rst
 create mode 100644 pc/defs.h
 create mode 100644 stack.h

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..ab9e689
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,23 @@
+CXXSTD :=	c++14
+CXXFLAGS :=	-std=$(CXXSTD) -Wall -Werror -O0 -g
+LDFLAGS :=	-static
+OBJS :=		linux/io.o	\
+		io.o		\
+		system.o	\
+		parser.o	\
+		word.o		\
+		dict.o		\
+		kforth.o
+TARGET :=	kforth
+
+all: $(TARGET)
+
+$(TARGET): $(OBJS)
+	$(CXX) $(LDFLAGS) -o $@ $(OBJS)
+
+clean:
+	rm -f $(OBJS) $(TARGET)
+
+install: $(TARGET)
+	cp $(TARGET) ~/bin
+	chmod 0755 ~/bin/$(TARGET)
diff --git a/default/defs.h b/default/defs.h
new file mode 100644
index 0000000..5ccb461
--- /dev/null
+++ b/default/defs.h
@@ -0,0 +1,14 @@
+#ifndef __KF_PLATFORM_DEFAULT_H__
+#define __KF_PLATFORM_DEFAULT_H__
+
+#include <stdint.h>
+
+typedef int KF_INT;
+typedef uintptr_t KF_ADDR;
+
+constexpr static size_t STACK_SIZE = 48 / sizeof(KF_INT);
+constexpr static size_t	DICT_SIZE  = 4096;
+constexpr static size_t	ARENA_SIZE = 256;
+
+
+#endif // __KF_PLATFORM_DEFAULT_H__
\ No newline at end of file
diff --git a/defs.h b/defs.h
new file mode 100644
index 0000000..d4847b8
--- /dev/null
+++ b/defs.h
@@ -0,0 +1,12 @@
+#ifndef __KF_DEFS_H__
+#define __KF_DEFS_H__
+
+
+#if PLATFORM == PC
+#include "pc/defs.h"
+#else
+#include "default/defs.h"
+#endif
+
+
+#endif __KF_DEFS_H__
\ No newline at end of file
diff --git a/doc/index.rst b/doc/index.rst
index 1792dca..07991af 100644
--- a/doc/index.rst
+++ b/doc/index.rst
@@ -13,6 +13,7 @@ Contents:
    part-0x05
    part-0x06
    part-0x07
+   part-0x08
 
 Indices and tables
 ==================
diff --git a/doc/part-0x08.rst b/doc/part-0x08.rst
new file mode 100644
index 0000000..bd437dc
--- /dev/null
+++ b/doc/part-0x08.rst
@@ -0,0 +1,18 @@
+Write You a Forth, 0x08
+-----------------------
+
+:date: 2018-03-01 19:31
+:tags: wyaf, forth
+
+After reading some more in Threaded Interpreted Languages (TIL_ from now on),
+I've decided to start over.
+
+.. _TIL: http://wiki.c2.com/?ThreadedInterpretiveLanguage
+
+Some design choices that didn't really work out:
+
++ the system structure
++ not making it easier to test building for different platforms
++ my linked list approach to the dictionary
++ my class-based approach to words
+
diff --git a/pc/defs.h b/pc/defs.h
new file mode 100644
index 0000000..050aded
--- /dev/null
+++ b/pc/defs.h
@@ -0,0 +1,14 @@
+#ifndef __KF_PLATFORM_PC_H__
+#define __KF_PLATFORM_PC_H__
+
+#include <stdint.h>
+
+typedef int32_t KF_INT;
+typedef uintptr_t KF_ADDR;
+
+constexpr static size_t STACK_SIZE = 65535;
+constexpr static size_t	DICT_SIZE  = 65535;
+constexpr static size_t	ARENA_SIZE = 65535;
+
+
+#endif // __KF_PLATFORM_PC_H__
\ No newline at end of file
diff --git a/stack.h b/stack.h
new file mode 100644
index 0000000..a41a1ce
--- /dev/null
+++ b/stack.h
@@ -0,0 +1,9 @@
+#ifndef __KF_STACK_H__
+#define __KF_STACK_H__
+
+
+
+static
+
+
+#endif // __KF_STACK_H__
\ No newline at end of file