summaryrefslogtreecommitdiff
path: root/src/clojure_sql
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure_sql')
-rw-r--r--src/clojure_sql/core.clj17
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