diff options
author | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-05-15 17:39:06 +1000 |
---|---|---|
committer | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-05-15 17:39:06 +1000 |
commit | 4101c8b9ddae51793296c99dcd90a01edae55d9d (patch) | |
tree | 65e7863f4f6d2114af6459ccabc7edaff3d65050 /src/clojure_sql | |
parent | cc7977c6319a8e20eebb0958d08e287b9f489b2a (diff) |
Update readme, add stubs, make two vars private.
Diffstat (limited to 'src/clojure_sql')
-rw-r--r-- | src/clojure_sql/core.clj | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/src/clojure_sql/core.clj b/src/clojure_sql/core.clj index 5d871c7..ae0eb75 100644 --- a/src/clojure_sql/core.clj +++ b/src/clojure_sql/core.clj @@ -8,11 +8,11 @@ (declare compile-query) -(def ^:dynamic *database-type* nil) +(def ^:private ^:dynamic *database-type* nil) (defn set-database-type! [new-type] (alter-var-root #'*database-type* (constantly new-type))) -(def ^:dynamic *query-deref-behaviour* #(compile-query *database-type* %)) +(def ^:private ^:dynamic *query-deref-behaviour* #(compile-query *database-type* %)) (defn set-query-deref-behaviour! [f] (alter-var-root #'*query-deref-behaviour* (constantly f))) @@ -364,6 +364,19 @@ [(resolve-field table-name (:fields query) field) :asc]))))) +(defn insert! [query & records] + {:pre [(empty? (:joins query))]} + ;; some code here + ) + +(defn update! [query & partial-records] + ;; some code here + ) + +(defn delete! [query] + ;; some code here + ) + (comment |