From 69b4abd6efc7c65e59f73158ca93f4aa9b73116d Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Sat, 4 Oct 2014 18:34:26 -0500
Subject: go: step0_repl

---
 go/Makefile      | 31 +++++++++++++++++++++++++++++++
 go/step0_repl.go | 41 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 72 insertions(+)
 create mode 100644 go/Makefile
 create mode 100644 go/step0_repl.go

(limited to 'go')

diff --git a/go/Makefile b/go/Makefile
new file mode 100644
index 0000000..85719bf
--- /dev/null
+++ b/go/Makefile
@@ -0,0 +1,31 @@
+#####################
+
+SOURCES_BASE = 
+SOURCES_LISP = step0_repl.go
+SOURCES = $(SOURCES_BASE) $(SOURCES_LISP)
+
+
+#####################
+
+SRCS = step0_repl.go
+BINS = $(SRCS:%.go=%)
+
+#####################
+
+all: $(BINS) mal
+
+mal: $(word $(words $(BINS)),$(BINS))
+	cp $< $@
+
+$(BINS): %: %.go
+	go build -o $@ $+ 
+
+clean:
+	rm -f $(BINS) mal
+
+.PHONY: stats stats-lisp
+
+stats: $(SOURCES)
+	@wc $^
+stats-lisp: $(SOURCES_LISP)
+	@wc $^
diff --git a/go/step0_repl.go b/go/step0_repl.go
new file mode 100644
index 0000000..6e559c9
--- /dev/null
+++ b/go/step0_repl.go
@@ -0,0 +1,41 @@
+package main
+
+import (
+    "bufio"
+    //"io"
+    "fmt"
+    "os"
+)
+
+// read
+func READ(str string) string {
+    return str
+}
+
+// eval
+func EVAL(ast string, env string) string {
+    return ast
+}
+
+// print
+func PRINT(exp string) string {
+    return exp
+}
+
+// repl
+func rep(str string) string {
+    return PRINT(EVAL(READ(str), ""))
+}
+
+func main() {
+    reader := bufio.NewReader(os.Stdin);
+    // repl loop
+    for {
+        fmt.Print("user> ");
+        text, err := reader.ReadString('\n');
+        if (err != nil) {
+            return
+        }
+        fmt.Println(rep(text))
+    }
+}
-- 
cgit v1.2.3