added tld to IObj sigs, added TObj

1 files changed, 40 insertions, 0 deletions

diff --git a/src/cli/runtime/TObj.cs b/src/cli/runtime/TObj.cs
new file mode 100644
index 00000000..125960b5
--- /dev/null
+++ b/src/cli/runtime/TObj.cs
@@ -0,0 +1,40 @@
+/**

+ *   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.

+ **/

+

+using System;

+

+namespace org.clojure.runtime

+    {

+

+public class TObj : IObj{

+TRef attrs;

+

+public TObj(ThreadLocalData tld) {

+    this.attrs = Transaction.tref(tld,new RBTree());

+}

+

+public Object put(ThreadLocalData tld, IComparable key, Object val)  {

+    RBTree t = (RBTree) Transaction.get(tld, attrs);

+    t = t.put(key, val);

+    Transaction.set(tld,attrs,t);

+    return val;

+}

+

+public Object get(ThreadLocalData tld, IComparable key)  {

+    RBTree t = (RBTree) Transaction.get(tld, attrs);

+    return t.get(key);

+}

+

+public bool has(ThreadLocalData tld, IComparable key)  {

+    RBTree t = (RBTree) Transaction.get(tld, attrs);

+    return t.contains(key);

+}

+}

+}