diff options
Diffstat (limited to 'src/cli/runtime/TObj.cs')
-rw-r--r-- | src/cli/runtime/TObj.cs | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/src/cli/runtime/TObj.cs b/src/cli/runtime/TObj.cs deleted file mode 100644 index 0fe6b471..00000000 --- a/src/cli/runtime/TObj.cs +++ /dev/null @@ -1,51 +0,0 @@ -/**
- * 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 clojure.lang
- {
-
-public class TObj : IObj{
-TRef _attrs;
-
-public TObj(){
- this._attrs = Transaction.tref(PersistentArrayMap.EMPTY);
-}
-
-
-public Object putAttr( Object key, Object val) {
- IPersistentMap t = (IPersistentMap) Transaction.get( _attrs);
- t = (IPersistentMap)t.assoc(key, val);
- Transaction.set(_attrs,t);
- return val;
-}
-
-public Object getAttr( Object key) {
- IPersistentMap t = (IPersistentMap) Transaction.get( _attrs);
- return t.get(key);
-}
-
-public bool hasAttr( Object key) {
- IPersistentMap t = (IPersistentMap) Transaction.get( _attrs);
- return t.contains(key);
-}
-
-public IPersistentMap attrs() {
- return (IPersistentMap) Transaction.get(_attrs);
-}
-
-public void removeAttr(Object key) {
- IPersistentMap t = (IPersistentMap) Transaction.get( _attrs);
- t = t.without(key);
- Transaction.set(_attrs,t);
-}
-}
-}
|