summaryrefslogtreecommitdiff
path: root/src/clojure_sql
diff options
context:
space:
mode:
authorCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-05-15 17:39:06 +1000
committerCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-05-15 17:39:06 +1000
commit4101c8b9ddae51793296c99dcd90a01edae55d9d (patch)
tree65e7863f4f6d2114af6459ccabc7edaff3d65050 /src/clojure_sql
parentcc7977c6319a8e20eebb0958d08e287b9f489b2a (diff)
Update readme, add stubs, make two vars private.
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