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);
+}
+}
+}