Split all namespaces into sub-modules.

* Examples and tests have not been copied over.
* Clojure test/compile phases are commented out in parent POM.
* May require installing parent POM before full build.

107 files changed, 0 insertions, 19818 deletions

diff --git a/src/main/clojure/clojure/contrib/accumulators.clj b/src/main/clojure/clojure/contrib/accumulators.clj
deleted file mode 100644
index 55073e33..00000000
--- a/src/main/clojure/clojure/contrib/accumulators.clj
+++ /dev/null
@@ -1,324 +0,0 @@
-;; Accumulators
-
-;; by Konrad Hinsen
-;; last updated May 19, 2009
-
-;; This module defines various accumulators (list, vector, map,
-;; sum, product, counter, and combinations thereof) with a common
-;; interface defined by the multimethods add and combine.
-;; For each accumulator type, its empty value is defined in this module.
-;; Applications typically use this as a starting value and add data
-;; using the add multimethod.
-
-;; Copyright (c) Konrad Hinsen, 2009. 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 "Konrad Hinsen"
-     :doc "A generic accumulator interface and implementations of various
-           accumulators."}
-  clojure.contrib.accumulators
-  (:refer-clojure :exclude (deftype))
-  (:use [clojure.contrib.types :only (deftype)])
-  (:use [clojure.contrib.def :only (defvar defvar- defmacro-)])
-  (:require [clojure.contrib.generic.arithmetic :as ga]))
-
-(defmulti add
-  "Add item to the accumulator acc. The exact meaning of adding an
-   an item depends on the type of the accumulator."
-   {:arglists '([acc item])}
-  (fn [acc item] (type acc)))
-
-(defn add-items
-  "Add all elements of a collection coll to the accumulator acc."
-  [acc items]
-  (reduce add acc items))
-
-(defmulti combine
-  "Combine the values of the accumulators acc1 and acc2 into a
-   single accumulator of the same type."
-  {:arglists '([& accs])}
-  (fn [& accs] (type (first accs))))
-
-;
-; An ::accumulator type tag is attached to tbe built-in types
-; when used as accumulators, and new types are derived from it.
-; Multimethods add and combine for ::accumulator sub-dispatch on class.
-; We also define generic addition as the combine operation.
-;
-(let [meta-map {:type ::accumulator}]
-  (defn- with-acc-tag
-    [x]
-    (with-meta x meta-map)))
-
-(defmethod add ::accumulator
-  [a e]
-  ((get-method add (class a)) a e))
-
-(defmethod combine ::accumulator
-  [& as]
-  (apply (get-method combine (class (first as))) as))
-
-(defmethod ga/+ ::accumulator
-  [x y]
-  (combine x y))
-
-;
-; Vector accumulator
-;
-(defvar empty-vector (with-acc-tag [])
-  "An empty vector accumulator. Adding an item appends it at the end.")
-
-(defmethod combine clojure.lang.IPersistentVector
-  [& vs]
-  (with-acc-tag (vec (apply concat vs))))
-
-(defmethod add clojure.lang.IPersistentVector
-  [v e]
-  (with-acc-tag (conj v e)))
-
-;
-; List accumulator
-;
-(defvar empty-list (with-acc-tag '())
-  "An empty list accumulator. Adding an item appends it at the beginning.")
-
-(defmethod combine clojure.lang.IPersistentList
-  [& vs]
-  (with-acc-tag (apply concat vs)))
-
-(defmethod add clojure.lang.IPersistentList
-  [v e]
-  (with-acc-tag (conj v e)))
-
-;
-; Queue accumulator
-;
-(defvar empty-queue (with-acc-tag clojure.lang.PersistentQueue/EMPTY)
-  "An empty queue accumulator. Adding an item appends it at the end.")
-
-(defmethod combine clojure.lang.PersistentQueue
-  [& vs]
-  (add-items (first vs) (apply concat (rest vs))))
-
-(defmethod add clojure.lang.PersistentQueue
-  [v e]
-  (with-acc-tag (conj v e)))
-
-;
-; Set accumulator
-;
-(defvar empty-set (with-acc-tag #{})
-  "An empty set accumulator.")
-
-(defmethod combine (class empty-set)
-  [& vs]
-  (with-acc-tag (apply clojure.set/union vs)))
-
-(defmethod add (class empty-set)
-  [v e]
-  (with-acc-tag (conj v e)))
-
-;
-; String accumulator
-;
-(defvar empty-string ""
-  "An empty string accumulator. Adding an item (string or character)
-   appends it at the end.")
-
-(defmethod combine java.lang.String
-  [& vs]
-  (apply str vs))
-
-(defmethod add java.lang.String
-  [v e]
-  (str v e))
-
-;
-; Map accumulator
-;
-(defvar empty-map (with-acc-tag {})
-  "An empty map accumulator. Items to be added must be [key value] pairs.")
-
-(defmethod combine clojure.lang.IPersistentMap
-  [& vs]
-  (with-acc-tag (apply merge vs)))
-
-(defmethod add clojure.lang.IPersistentMap
-  [v e]
-  (with-acc-tag (conj v e)))
-
-;
-; Numerical accumulators: sum, product, minimum, maximum
-;
-(defmacro- defacc
-  [name op empty doc-string]
-  (let [type-tag (keyword (str *ns*) (str name))
-	empty-symbol (symbol (str "empty-" name))]
-  `(let [op# ~op]
-     (deftype ~type-tag ~name
-       (fn [~'x] {:value ~'x})
-       (fn [~'x] (list (:value ~'x))))
-     (derive ~type-tag ::accumulator)
-     (defvar ~empty-symbol (~name ~empty) ~doc-string)
-     (defm