From 3169070063b2cb877200117ebb384269d73bcb93 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Mon, 24 Mar 2014 16:32:24 -0500
Subject: Current state of mal for Clojure West lighting talk.

---
 php/step1_read_print.php | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 php/step1_read_print.php

(limited to 'php/step1_read_print.php')

diff --git a/php/step1_read_print.php b/php/step1_read_print.php
new file mode 100644
index 0000000..01334e0
--- /dev/null
+++ b/php/step1_read_print.php
@@ -0,0 +1,42 @@
+<?php
+
+require_once 'readline.php';
+require_once 'types.php';
+require_once 'reader.php';
+
+// read
+function READ($str) {
+    return read_str($str);
+}
+
+// eval
+function MAL_EVAL($ast, $env) {
+    return $ast;
+}
+
+// print
+function MAL_PRINT($exp) {
+    return _pr_str($exp, True) . "\n";
+}
+
+// repl
+function rep($str) {
+    return MAL_PRINT(MAL_EVAL(READ($str), array()));
+}
+
+do {
+    try {
+        $line = mal_readline("user> ");
+        if ($line === NULL) { break; }
+        if ($line !== "") {
+            print(rep($line));
+        }
+    } catch (BlankException $e) {
+        continue;
+    } catch (Exception $e) {
+        echo "Error: " . $e->getMessage() . "\n";
+        echo $e->getTraceAsString() . "\n";
+    }
+} while (true);
+
+?> 
-- 
cgit v1.2.3