(defn create-table
"Creates a table on the open database connection given a table name and
specs. Each spec is either a column spec: a vector containing a column
name and optionally a type and other constraints, or a table-level
constraint: a vector containing words that express the constraint. All
words used to describe the table may be supplied as strings or keywords."
[name & specs]
(do-commands
(format "CREATE TABLE %s (%s)"
(as-str name)
(apply str
(map as-str
(apply concat
(interpose [", "]
(map (partial interpose " ") specs))))))))
Used in 0 other vars
Source
clojure/contrib/sql.clj:103
top
Comments top
No comments for create-table. Log in to add a comment.