1 (asdf:operate 'asdf:load-op 'clsql)
3 (in-package #:clsql-user)
5 ;; You must set these variables to appropriate values.
6 (defvar *tutorial-database-type* nil
7 "Possible values are :postgresql,:postgresql-socket :mysql or :sqlite")
8 (defvar *tutorial-database-name* ""
9 "The name of the database we will work in.")
10 (defvar *tutorial-database-user* ""
11 "The name of the database user we will work as.")
12 (defvar *tutorial-database-server* ""
13 "The name of the database server if required")
14 (defvar *tutorial-database-password* ""
15 "The password if required")
17 (clsql:def-view-class employee ()
20 :db-constraints :not-null
33 :accessor employee-email
40 :accessor employee-company
42 :db-info (:join-class company
44 :foreign-key companyid
51 :accessor employee-manager
53 :db-info (:join-class employee
57 (:base-table employee))
59 (clsql:def-view-class company ()
62 :db-constraints :not-null
70 :initarg :presidentid)
74 :db-info (:join-class employee
79 :reader company-employees
81 :db-info (:join-class employee
83 :foreign-key companyid
85 (:base-table company))
87 ;; Connect to the database (see the CLSQL documentation for vendor
88 ;; specific connection specs).
89 (clsql:connect `(,*tutorial-database-server*
90 ,*tutorial-database-name*
91 ,*tutorial-database-user*
92 ,*tutorial-database-password*)
93 :database-type *tutorial-database-type*)
95 ;; Record the sql going out, helps us learn what is going
96 ;; on behind the scenes
97 (clsql:start-sql-recording)
99 ;; Create the tables for our view classes
100 ;; First we drop them, ignoring any errors
102 (clsql:drop-view-from-class 'employee)
103 (clsql:drop-view-from-class 'company))
105 (clsql:create-view-from-class 'employee)
106 (clsql:create-view-from-class 'company)
109 ;; Create some instances of our view classes
110 (defvar company1 (make-instance 'company
113 ;; Lenin is president of Widgets Inc.
116 (defvar employee1 (make-instance 'employee
118 :first-name "Vladamir"
120 :email "lenin@soviet.org"
123 (defvar employee2 (make-instance 'employee
127 :email "stalin@soviet.org"
129 ;; Lenin manages Stalin (for now)
132 (clsql:update-records-from-instance employee1)
133 (clsql:update-records-from-instance employee2)
134 (clsql:update-records-from-instance company1)
136 ;; lets use the functional sql interface
137 (clsql:locally-enable-sql-reader-syntax)
139 (format t "The email address of ~A ~A is ~A"
140 (first-name employee1)
141 (last-name employee1)
142 (employee-email employee1))
144 (setf (employee-email employee1) "lenin-nospam@soviets.org")
146 ;; Update the database
147 (clsql:update-records-from-instance employee1)
149 (let ((new-lenin (car
150 (clsql:select 'employee
151 :where [= [slot-value 'employee 'emplid] 1]))))
152 (format t "His new email is ~A"
153 (employee-email new-lenin)))
159 (clsql:select 'employee)
161 (clsql:select 'company)
163 ;; employees named Lenin
164 (clsql:select 'employee :where [= [slot-value 'employee 'last-name]
167 (clsql:select 'company :where [= [slot-value 'company 'name]
170 ;; Employees of Widget's Inc.
171 (clsql:select 'employee
172 :where [and [= [slot-value 'employee 'companyid]
173 [slot-value 'company 'companyid]]
174 [= [slot-value 'company 'name]
177 ;; Same thing, except that we are using the employee
178 ;; relation in the company view class to do the join for us,
179 ;; saving us the work of writing out the SQL!
180 (company-employees company1)
182 ;; President of Widgets Inc.
185 ;; Manager of Josef Stalin
186 (employee-manager employee2)