From 4101c8b9ddae51793296c99dcd90a01edae55d9d Mon Sep 17 00:00:00 2001 From: Carlo Zancanaro Date: Wed, 15 May 2013 17:39:06 +1000 Subject: Update readme, add stubs, make two vars private. --- src/clojure_sql/core.clj | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) (limited to 'src/clojure_sql/core.clj') 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 -- cgit v1.2.3