1 files changed, 105 insertions, 0 deletions
diff --git a/bf.lang b/bf.lang
new file mode 100644
index 0000000..d9366fb
--- /dev/null
+++ b/bf.lang
@@ -0,0 +1,105 @@
+func putstr(char[] str) {
+	int i := 0;
+	while (str[i] != '\0') {
+		putc(str[i]);
+		i = i + 1;
+	}
+}
+
+func int strlen(char[] str) {
+	int i := 0;
+	char c := str[i];
+	while (c != '\0') {
+		i = i + 1;
+		c = str[i];
+	}
+	return i;
+}
+
+func int[] makejumpmap(char[] src, int srclen) {
+	int[] jm := new int[srclen];
+	int[] stack := new int[srclen];
+	int stkp := 0;
+	int i := 0;
+	while (i < srclen) {
+		putint(i); putc(' '); putint(stkp); putc(' '); putc(src[i]); putc('\n');
+		if (src[i] == '[') {
+			stack[stkp] = i;
+			stkp = stkp + 1;
+		}
+		if (src[i] == ']') {
+			stkp = stkp - 1;
+			int j := stack[stkp];
+			jm[i] = j;
+			jm[j] = i;
+		}
+		i = i + 1;
+	}
+	/*i = 0;
+	while (i < srclen) {
+		putint(jm[i]);
+		putc(' ');
+		i = i + 1;
+	}
+	putc('\n');*/
+	return jm;
+}
+
+func interpret(char[] src, int srclen) {
+	int[] jm := makejumpmap(src, srclen);
+	char[] mem := new char[4088];
+	int ip := 0;
+	int memp := 0;
+	while (src[ip] != '\0') {
+		// putint(ip); putc('\n');
+		char c := src[ip];
+		if (c == '+') {mem[memp] = mem[memp] + char(1);}
+		if (c == '-') {mem[memp] = mem[memp] - char(1);}
+		if (c == '>') {memp = memp + 1;}
+		if (c == '<') {memp = memp - 1;}
+		if (c == '.') {putc(mem[memp]);}
+		if (c == ',') {mem[memp] = char(getc());}
+		if (c == '[') {
+			if (mem[memp] == '\0') {
+				ip = jm[ip];
+			}
+		}
+		if (c == ']') {
+			if (mem[memp] != '\0') {
+				ip = jm[ip];
+			}
+		}
+		ip = ip + 1;
+	}
+
+	memp = 0;
+	while (memp < 10) {
+		putint(int(mem[memp])); putc(' ');
+		memp = memp + 1;
+	}
+	putc('\n');
+}
+
+func int main() {
+	int bufsize := 4088;
+	char[] source := new char[4088];
+
+	int sourcelen := 0;
+	int done := 0;
+	while (done != 1) {
+		int c := getc();
+		if (c < 0) {
+			done = 1;
+		} else {
+			source[sourcelen] = char(c);
+			sourcelen = sourcelen + 1;
+			if (sourcelen >= bufsize - 1) {
+				done = 1;
+			}
+		}
+	}
+	source[sourcelen] = '\0';
+
+	interpret(source, sourcelen);
+	return 0;
+}