diff options
Diffstat (limited to 'src')
| -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 |