From 1f9c532ea9cfdb1e553e30f5f83568e4a73c80b9 Mon Sep 17 00:00:00 2001
From: Chris Barker <barker@kappa.(none)>
Date: Sun, 26 Sep 2010 12:42:38 -0400
Subject: [PATCH] added temps

---
 temp      | 13 +++++++++++
 temp.mdwn | 78 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 91 insertions(+)
 create mode 100644 temp
 create mode 100644 temp.mdwn

diff --git a/temp b/temp
new file mode 100644
index 00000000..46f37af2
--- /dev/null
+++ b/temp
@@ -0,0 +1,13 @@
+let empty = (\f (\z z)) in
+let ml = (\h (\t (\f (\z ((f h) ((t f) z)))))) in
+let list = ((ml a) ((ml b) ((ml c) ((ml d) ((ml e) empty))))) in
+let map = (\f (\l (l (\h (\t ((ml (f h)) t)))))) in
+
+(
+
+list
+
+((map (\x x)) list)
+
+)
+
diff --git a/temp.mdwn b/temp.mdwn
new file mode 100644
index 00000000..585e666c
--- /dev/null
+++ b/temp.mdwn
@@ -0,0 +1,78 @@
+<textarea id="INPUT" style="border: 2px solid black; color: black; font-family: monospace; height: 3in; overflow: auto; padding: 0.5em; width: 100%;">
+let true = \x y. x in
+let false = \x y. y in
+let and = \l r. l r false in
+(
+	(and true true yes no)
+	(and true false yes no)
+	(and false true yes no)
+	(and false false yes no)
+)
+</textarea>
+<input id="PARSE" value="Normalize" type="button">
+<input id="ETA" type="checkbox">do eta-reductions too
+<noscript><p>You may not see it because you have JavaScript turned off. Uffff!</p></noscript>
+<script src="/code/lambda.js"></script>
+<script src="/code/tokens.js"></script>
+<script src="/code/parse.js"></script>
+<script src="/code/json2.js"></script>
+<pre id="OUTPUT">
+</pre>
+<script>
+/*jslint evil: true */
+
+/*members create, error, message, name, prototype, stringify, toSource,
+    toString, write
+*/
+
+/*global JSON, make_parse, parse, source, tree */
+
+// Make a new object that inherits members from an existing object.
+
+if (typeof Object.create !== 'function') {
+    Object.create = function (o) {
+        function F() {}
+        F.prototype = o;
+        return new F();
+    };
+}
+
+// Transform a token object into an exception object and throw it.
+
+Object.prototype.error = function (message, t) {
+    t = t || this;
+    t.name = "SyntaxError";
+    t.message = message;
+    throw t;
+};
+
+
+(function () {
+    var parse = make_parse();
+
+    function go(source) {
+        var string, tree, expr, eta;
+        try {
+            tree = parse(source);
+ //           string = JSON.stringify(tree, ['key', 'name', 'message', 'value', 'arity', 'first', 'second', 'third', 'fourth'], 4);
+			expr = tree.handler();
+            // string = JSON.stringify(expr, ['key', 'name', 'message', 'value', 'arity', 'first', 'second', 'tag', 'variable', 'left', 'right', 'bound', 'body' ], 4);
+//			string = expr.to_string() + "\n\n~~>\n\n";
+			string = '';
+			eta = document.getElementById('ETA').checked;
+			string = string + reduce(expr, eta, false).to_string();
+        } catch (e) {
+            string = JSON.stringify(e, ['name', 'message', 'from', 'to', 'key',
+                    'value', 'arity', 'first', 'second', 'third', 'fourth'], 4);
+        }
+        document.getElementById('OUTPUT').innerHTML = string
+            .replace(/&/g, '&amp;')
+            .replace(/[<]/g, '&lt;');
+    }
+
+    document.getElementById('PARSE').onclick = function (e) {
+        go(document.getElementById('INPUT').value);
+    };
+}());
+
+</script>
-- 
2.11.0