diff options
author | scgilardi <scgilardi@gmail.com> | 2008-10-06 04:04:37 +0000 |
---|---|---|
committer | scgilardi <scgilardi@gmail.com> | 2008-10-06 04:04:37 +0000 |
commit | add96b1de658f1ec51f46f22cf532a15d8b47c34 (patch) | |
tree | aab372358946f98a58346dba7c5d6d28e48e6182 /src/clojure/contrib/sql/sql_internal.clj | |
parent | aaa467fd2eb6b2ca60b4bd7f2f1d6e0f7756a59c (diff) |
sql: move internal defs to their own proper namespace
Diffstat (limited to 'src/clojure/contrib/sql/sql_internal.clj')
-rw-r--r-- | src/clojure/contrib/sql/sql_internal.clj | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/clojure/contrib/sql/sql_internal.clj b/src/clojure/contrib/sql/sql_internal.clj deleted file mode 100644 index f58ad4be..00000000 --- a/src/clojure/contrib/sql/sql_internal.clj +++ /dev/null @@ -1,33 +0,0 @@ -;; Copyright (c) Stephen C. Gilardi. 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. -;; -;; internal definitions for 'clojure.contrib.sql -;; -;; scgilardi (gmail) -;; Created 3 October 2008 - -(defn properties - "Converts a Clojure map from keywords or symbols to values into a - java.util.Properties object that maps the names of the keywords or - symbols to the String representation of the values" - [m] - (let [p (java.util.Properties.)] - (when m - (loop [[key & keys] (keys m) - [val & vals] (vals m)] - (.setProperty p (name key) (str val)) - (when keys - (recur keys vals)))) - p)) - -(defn- the-str - "Returns the String represented by the String, Keyword, or Symbol x" - [x] - (if (instance? String x) - x - (name x))) |