Initial commit of CLI runtime

1 files changed, 212 insertions, 0 deletions

diff --git a/src/cli/runtime/RT.cs b/src/cli/runtime/RT.cs
new file mode 100644
index 00000000..777c1299
--- /dev/null
+++ b/src/cli/runtime/RT.cs
@@ -0,0 +1,212 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
+ *   which can be found in the file CPL.TXT at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Mar 25, 2006 4:28:27 PM */
+
+using System;

+
+namespace org.clojure.runtime

+{
+
+public class RT

+{
+
+	static Object TRUE = true;
+    static public Object eq(Object arg1, Object arg2) {
+        return (arg1 == arg2)?TRUE:null;
+        }
+
+    static public Object eql(Object arg1, Object arg2) {
+        if(arg1 == arg2)
+        	return TRUE;
+        if(arg1 == null || arg2 == null)
+        	return null;
+        if(arg1 is Num
+        		&& arg1.GetType() == arg2.GetType()
+				&& arg1.Equals(arg2))
+        	return TRUE;
+        if(arg1 is Char
+        		&& arg2 is Char
+				&& arg1.Equals(arg2))
+        	return TRUE;
+        return null;
+        }
+
+    static public Object equal(Object arg1, Object arg2) {
+        if(arg1 == null)
+        	return arg2 == null ? TRUE : null;
+        else if(arg2 == null)
+            return null;
+    	return (eql(arg1,arg2) != null
+    			|| (arg1 is Cons
+    					&& arg2 is Cons
+						&& equal(((Cons)arg1).first,((Cons)arg2).first)!=null
+						&& equal(((Cons)arg1).rest,((Cons)arg2).rest)!=null))
+		?TRUE:null;
+    	}
+
+static public Cons cons(Object x, Cons y)
+	{
+	return new Cons(x, y);
+	}
+
+static public Cons list()
+	{
+	return null;
+	}
+
+static public Cons list(Object arg1)
+	{
+	return cons(arg1, null);
+	}
+
+static public Cons list(Object arg1, Object arg2)
+	{
+	return listStar(arg1, arg2, null);
+	}
+
+static public Cons list(Object arg1, Object arg2, Object arg3)
+	{
+	return listStar(arg1, arg2, arg3, null);
+	}
+
+static public Cons list(Object arg1, Object arg2, Object arg3, Object arg4)
+	{
+	return listStar(arg1, arg2, arg3, arg4, null);
+	}
+
+static public Cons list(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5)
+	{
+	return listStar(arg1, arg2, arg3, arg4, arg5, null);
+	}
+
+static public Cons listStar(Object arg1, Cons rest)
+	{
+	return cons(arg1, rest);
+	}
+
+static public Cons listStar(Object arg1, Object arg2, Cons rest)
+	{
+	return cons(arg1, cons(arg2, rest));
+	}
+
+static public Cons listStar(Object arg1, Object arg2, Object arg3, Cons rest)
+	{
+	return cons(arg1, cons(arg2, cons(arg3, rest)));
+	}
+
+static public Cons listStar(Object arg1, Object arg2, Object arg3, Object arg4, Cons rest)
+	{
+	return cons(arg1, cons(arg2, cons(arg3, cons(arg4, rest))));
+	}
+
+static public Cons listStar(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Cons rest)
+	{
+	return cons(arg1, cons(arg2, cons(arg3, cons(arg4, cons(arg5, rest)))));
+	}
+
+static public int length(Cons list)
+	{
+	int i = 0;
+	for(Cons c = list; c != null; c = c.rest)
+		{
+		i++;
+		}
+	return i;
+	}
+
+static public int boundedLength(Cons list, int limit)
+	{
+	int i = 0;
+	for(Cons c = list; c != null && i <= limit; c = c.rest)
+		{
+		i++;
+		}
+	return i;
+	}
+
+static public Object setValues(ThreadLocalData tld, Object arg1)
+	{
+	if(tld == null)
+		tld = ThreadLocalData.get();
+	tld.mvCount = 1;
+	tld.mvArray[0] = arg1;
+	return arg1;
+	}
+
+static public Object setValues(ThreadLocalData tld, Object arg1, Object arg2)
+	{
+	if(tld == null)
+		tld = ThreadLocalData.get();
+	tld.mvCount = 2;
+	tld.mvArray[0] = arg1;
+	tld.mvArray[1] = arg2;
+	return arg1;
+	}
+
+static public Object setValues(ThreadLocalData tld, Object arg1, Object arg2, Object arg3)
+	{
+	if(tld == null)
+		tld = ThreadLocalData.get();
+	tld.mvCount = 3;
+	tld.mvArray[0] = arg1;
+	tld.mvArray[1] = arg2;
+	tld.mvArray[2] = arg3;
+	return arg1;
+	}
+
+static public Object setValues(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4)
+	{
+	if(tld == null)
+		tld = ThreadLocalData.get();
+	tld.mvCount = 4;
+	tld.mvArray[0] = arg1;
+	tld.mvArray[1] = arg2;
+	tld.mvArray[2] = arg3;
+	tld.mvArray[3] = arg4;
+	return arg1;
+	}
+
+static public Object setValues(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4,
+                               Object arg5)
+	{
+	if(tld == null)
+		tld = ThreadLocalData.get();
+	tld.mvCount = 5;
+	tld.mvArray[0] = arg1;
+	tld.mvArray[1] = arg2;
+	tld.mvArray[2] = arg3;
+	tld.mvArray[3] = arg4;
+	tld.mvArray[4] = arg5;
+	return arg1;
+	}
+
+static public Object setValues(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4,
+                               Object arg5, Cons args) /*throws Exception*/
+	{
+	if(tld == null)
+		tld = ThreadLocalData.get();
+	tld.mvCount = 5;
+	tld.mvArray[0] = arg1;
+	tld.mvArray[1] = arg2;
+	tld.mvArray[2] = arg3;
+	tld.mvArray[3] = arg4;
+	tld.mvArray[4] = arg5;
+	for(int i = 5; args != null && i < ThreadLocalData.MULTIPLE_VALUES_LIMIT; i++, args = args.rest)
+		{
+		tld.mvArray[i] = args.first;
+		}
+	if(args != null)
+		throw new ArgumentException("Too many arguments to values (> ThreadLocalData.MULTIPLE_VALUES_LIMIT)");
+	return arg1;
+	}
+
+}
+}
\ No newline at end of file