1 files changed, 36 insertions, 0 deletions
diff --git a/src/clojure/contrib/fnmap.clj b/src/clojure/contrib/fnmap.clj
new file mode 100644
index 00000000..f9cfc7c5
--- /dev/null
+++ b/src/clojure/contrib/fnmap.clj
@@ -0,0 +1,36 @@
+;;; fnmap.clj: maps that dispatch get/assoc to functions
+
+;; Copyright (c) Stuart Sierra, 2008. All rights reserved.  The use
+;; and distribution terms for this software are covered by the Eclipse
+;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+;; which can be found in the file epl-v10.html 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.
+
+
+(ns #^{:author "Stuart Sierra"
+       :doc "Maps that dispatch get/assoc to user-defined functions.
+
+  Note: requires AOT-compilation"}
+  clojure.contrib.fnmap
+  (:require clojure.contrib.fnmap.PersistentFnMap))
+
+(defn fnmap
+  "Creates a fnmap, or functional map.  A fnmap behaves like an
+  ordinary Clojure map, except that calls to get and assoc are
+  filtered through user-defined getter and setter functions, which
+  operate on an internal map.
+
+  (getter m key) should return a value for key.
+
+  (setter m key value) should assoc key with value and return a new
+  map for m.
+
+  All other map operations are passed through to the internal map."
+  ([getter setter] (clojure.contrib.fnmap.PersistentFnMap/create getter setter))
+  ([getter setter & keyvals]
+      (apply assoc
+             (clojure.contrib.fnmap.PersistentFnMap/create getter setter)
+             keyvals)))
+