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
32 :accessor employee-email
38 :accessor employee-company
40 :db-info (:join-class company
42 :foreign-key companyid
48 :accessor employee-manager
50 :db-info (:join-class employee
54 (:base-table employee))
56 (clsql:def-view-class company ()
59 :db-constraints :not-null
67 :initarg :presidentid)
71 :db-info (:join-class employee
76 :reader company-employees
78 :db-info (:join-class employee
80 :foreign-key companyid
82 (:base-table company))
84 ;; Connect to the database (see the CLSQL documentation for vendor
85 ;; specific connection specs).
86 (clsql:connect `(,*tutorial-database-server*
87 ,*tutorial-database-name*
88 ,*tutorial-database-user*
89 ,*tutorial-database-password*)
90 :database-type *tutorial-database-type*)
92 ;; Record the sql going out, helps us learn what is going
93 ;; on behind the scenes
94 (clsql:start-sql-recording)
96 ;; Create the tables for our view classes
97 ;; First we drop them, ignoring any errors
99 (clsql:drop-view-from-class 'employee)
100 (clsql:drop-view-from-class 'company))
102 (clsql:create-view-from-class 'employee)
103 (clsql:create-view-from-class 'company)
106 ;; Create some instances of our view classes
107 (defvar company1 (make-instance 'company
110 ;; Lenin is president of Widgets Inc.
113 (defvar employee1 (make-instance 'employee
115 :first-name "Vladamir"
117 :email "lenin@soviet.org"
120 (defvar employee2 (make-instance 'employee
124 :email "stalin@soviet.org"
126 ;; Lenin manages Stalin (for now)
129 (clsql:update-records-from-instance employee1)
130 (clsql:update-records-from-instance employee2)
131 (clsql:update-records-from-instance company1)
133 ;; lets use the functional sql interface
134 (clsql:locally-enable-sql-reader-syntax)
136 (format t "The email address of ~A ~A is ~A"
137 (first-name employee1)
138 (last-name employee1)
139 (employee-email employee1))
141 (setf (employee-email employee1) "lenin-nospam@soviets.org")
143 ;; Update the database
144 (clsql:update-records-from-instance employee1)
146 (let ((new-lenin (car
147 (clsql:select 'employee
148 :where [= [slot-value 'employee 'emplid] 1]))))
149 (format t "His new email is ~A"
150 (employee-email new-lenin)))
156 (clsql:select 'employee)
158 (clsql:select 'company)
160 ;; employees named Lenin
161 (clsql:select 'employee :where [= [slot-value 'employee 'last-name]
164 (clsql:select 'company :where [= [slot-value 'company 'name]
167 ;; Employees of Widget's Inc.
168 (clsql:select 'employee
169 :where [and [= [slot-value 'employee 'companyid]
170 [slot-value 'company 'companyid]]
171 [= [slot-value 'company 'name]
174 ;; Same thing, except that we are using the employee
175 ;; relation in the company view class to do the join for us,
176 ;; saving us the work of writing out the SQL!
177 (company-employees company1)
179 ;; President of Widgets Inc.
182 ;; Manager of Josef Stalin
183 (employee-manager employee2)