Database: create-table

db.lisp

@@ -0,0 +1,87 @@
+(pushnew #P"/home/pvv/d/tirilane/clbuild/systems/" asdf:*central-registry*)
+(asdf:oos 'asdf:load-op :postmodern)
+(use-package :postmodern)
+
+(connect-toplevel "worblehat" "horace" "" "localhost")
+
+(:create-table book
+               ((isbn :type string :primary-key t)
+                (title :type string)
+                (year :type integer)
+                (publisher :type string)
+                (udc :type string)
+                (edition :type integer)
+                (picture :type string)
+                (description :type (or db-null text))
+                (language :type string)
+                (review :type integer :unique t)
+                (author :type integer :unique t))
+               (:foreign-key (review) (review id))
+               (:foreign-key (author) (author id)))
+
+(:create-table review
+               ((id :type integer :primary-key t :references (book :cascade :cascade))
+                (review :type text)
+                (grade :type integer)
+                (author :type string)))
+
+(:create-table author
+               ((id :type integer :primary-key t :references (book :cascade :cascade))
+                (surname :type string)
+                (lastname :type string)))
+
+(:create-table copy
+               ((id :type integer :primary-key t)
+                (shelf :type string)
+                (rented :type boolean)
+                (owner :type string)
+                (condition :type string)
+                (book :type string))
+               (:foreign-key (book) (book isbn)))
+
+
+;(defclass book ()
+;  ((isbn :col-type string
+;         :initarg :isbn
+;         :accessor book-isbn)
+;   (title :col-type string
+;          :initarg :title
+;          :accessor book-title)
+;   (year :col-type integer
+;         :initarg :year
+;         :accessor book-year)
+;   (publisher :col-type(or db-null string)
+;              :initarg :publisher
+;              :accessor book-publisher)
+;   (udc :col-type string
+;        :initarg udc
+;        :accessor book-udc)
+;   (edition :col-type integer
+;            :initarg :edition
+;            :accessor book-edition)
+;   (picture :col-type (or db-null string)
+;            :initarg :picture
+;            :accessor book-picture)
+;   (description :col-type (or db-null text)
+;                :initarg :description
+;                :accessor book-descripton)
+;   (language :col-type string
+;             :initarg :language
+;             :accessor book-language))
+;  (:metaclass dao-class)
+;  (:keys name))
+;
+;(defclass review ()
+;  ((review :col-type text
+;           :initarg :review
+;           :accessor review-review)
+;   (grade :col-type integer
+;          :initarg :grade
+;          :accessor review-grade)
+;   (author :col-type text
+;           :initarg :author
+;           :accessor review-author))
+;  (:metaclass dao-class)
+;  (:keys name))
+
+