From 0f1d6411d324b512aa8658d769f274b27b20bce0 Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Sun, 6 Aug 2006 18:17:13 +0000
Subject: added static collection funcs

---
 src/cli/runtime/RT.cs | 168 ++++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 134 insertions(+), 34 deletions(-)

(limited to 'src/cli')

diff --git a/src/cli/runtime/RT.cs b/src/cli/runtime/RT.cs
index eab52dfa..7b814154 100644
--- a/src/cli/runtime/RT.cs
+++ b/src/cli/runtime/RT.cs
@@ -81,17 +81,145 @@ static public int hashCombine(int seed, int hash){
     return seed;
 }
 
-static public ISeq seq(Object coll) {
-    if(coll == null || coll is ISeq)
-        return (ISeq) coll;
+static public ISeq seq(Object coll)  {
+    if(coll == null)
+        return null;
     else if(coll is IPersistentCollection)
         return ((IPersistentCollection) coll).seq();
-    else if(coll is IEnumerable)
-        return EnumeratorSeq.create(((IEnumerable) coll).GetEnumerator());
+	else if (coll is IEnumerable)
+		return EnumeratorSeq.create(((IEnumerable)coll).GetEnumerator());
     else if(coll is Object[])
         return ArraySeq.create((Object[]) coll);
     else
-        throw new ArgumentException("Don't know how to create ISeq from arg");
+		throw new ArgumentException("Don't know how to create ISeq from arg");
+}
+
+static public Object meta(Object x)
+	{
+	if (x == null)
+		return null;
+	return ((Obj)x).meta();
+	}
+
+public static int count(Object o)
+	{
+	if (o == null)
+		return 0;
+	return ((IPersistentCollection)o).count();
+	}
+
+static public IPersistentCollection cons(Object x, IPersistentCollection y)
+	{
+	if (y == null)
+		return new PersistentList(x);
+	return y.cons(x);
+	}
+
+static public ISeq cons(Object x, ISeq y)
+	{
+	if (y == null)
+		return new PersistentList(x);
+	return (ISeq)y.cons(x);
+	}
+
+static public Object first(Object x)
+	{
+	if (x == null)
+		return null;
+	return seq(x).first();
+	}
+
+static public ISeq rest(Object x)
+	{
+	if (x == null)
+		return null;
+	return seq(x).rest();
+	}
+
+static public Object peek(Object x)
+	{
+	if (x == null)
+		return null;
+	return ((IPersistentList)x).peek();
+	}
+
+static public Object pop(Object x)
+	{
+	if (x == null)
+		return null;
+	return ((IPersistentList)x).pop();
+	}
+
+static public Object get(Object key, Object coll)
+	{
+	if (coll == null)
+		return null;
+	return ((Associative)coll).get(key);
+	}
+
+static public Object assoc(Object key, Object val, Object coll)
+	{
+	if (coll == null)
+		return new MapEntry(key, val);
+	return ((Associative)coll).assoc(key, val);
+	}
+
+static public Object contains(Object key, Object coll)
+	{
+	if (coll == null)
+		return false;
+	return ((Associative)coll).contains(key);
+	}
+
+static public Object find(Object key, Object coll)
+	{
+	if (coll == null)
+		return null;
+	return ((Associative)coll).find(key);
+	}
+
+static public Object without(Object key, Object coll)
+	{
+	if (coll == null)
+		return null;
+	return ((IPersistentMap)coll).without(key);
+	}
+
+static public Object nth(int n, Object coll) {
+    if(coll == null)
+        return null;
+    else if(coll is IPersistentArray)
+        return ((IPersistentArray)coll).nth(n);
+    else if(coll is Object[])
+        return ((Object[])coll)[n];
+    else if(coll is Sequential)
+        {
+        ISeq seq = ((IPersistentCollection) coll).seq();
+        for(int i=0;i<=n && seq != null;++i, seq = seq.rest())
+            {
+            if(i == n)
+                return seq.first();
+            }
+        return null;
+        }
+    else
+        return null;
+}
+
+static public Object assocN(int n, Object val, Object coll) {
+    if(coll == null)
+        return null;
+    else if(coll is IPersistentArray)
+        return ((IPersistentArray)coll).assocN(n,val);
+    else if(coll is Object[])
+        {
+        //hmm... this is not persistent
+        Object[] array = ((Object[])coll);
+        array[n] = val;
+        return array;
+        }
+    else
+        return null;
 }
 
     static public Iter iter(Object coll)
@@ -193,29 +321,6 @@ static public ISeq seq(Object coll) {
         return Convert.ToDouble(x);
     }
 
-static public IPersistentCollection cons(Object x, IPersistentCollection y)
-	{
-	if (y == null)
-		return new PersistentList(x);
-	return y.cons(x);
-	}
-
-static public ISeq cons(Object x, ISeq y)
-	{
-	if (y == null)
-		return new PersistentList(x);
-	return (ISeq)y.cons(x);
-	}
-	
-
-static public Object first(Object x) {
-    return seq(x).first();
-}
-
-static public ISeq rest(Object x) {
-    return seq(x).rest();
-}
-
 static public ISeq list()
 	{
 	return null;
@@ -407,10 +512,5 @@ static public Object setValues(params Object[] vals)
     return null;
     }
 
-public static int count(Object o) {
-    if(o == null)
-        return 0;
-    return ((IPersistentCollection)o).count();
-}
 }
 }
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2