X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fclsql-tutorial.lisp;h=118ea2023ddb2f95756e6998460ef4ffce27e8a7;hb=d9f41af62750c622945bb17b622a39689ee5b840;hp=bb976a7883f64c085c81cb43c72e170fdc1040a1;hpb=9dd1aaa4e36d0d9a13e68cb501f1d17dbb10c209;p=clsql.git

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index bb976a7..118ea20 100644
--- a/examples/clsql-tutorial.lisp
+++ b/examples/clsql-tutorial.lisp
@@ -4,8 +4,9 @@
 
 ;; You must set these variables to appropriate values. 
 (defvar *tutorial-database-type* nil 
-  "Possible values are :postgresql,:postgresql-socket :mysql or :sqlite")
-(defvar *tutorial-database-name* ""
+  "Possible values are :postgresql,:postgresql-socket :mysql,
+:oracle, :odbc, :aodbc or :sqlite")
+(defvar *tutorial-database-name* "clsqltut"
   "The name of the database we will work in.")
 (defvar *tutorial-database-user* "" 
   "The name of the database user we will work as.")
@@ -18,7 +19,6 @@
   ((emplid
     :db-kind :key
     :db-constraints :not-null
-    :nulls-ok nil
     :type integer
     :initarg :emplid)
    (first-name
@@ -32,10 +32,10 @@
    (email
     :accessor employee-email
     :type (string 100)
-    :nulls-ok t
     :initarg :email)
    (companyid
-    :type integer)
+    :type integer
+    :initarg :companyid)
    (company
     :accessor employee-company
     :db-kind :join
@@ -45,7 +45,7 @@
 			  :set nil))
    (managerid
     :type integer
-    :nulls-ok t)
+    :initarg :managerid)
    (manager
     :accessor employee-manager
     :db-kind :join
@@ -65,7 +65,8 @@
     :type (string 100)
     :initarg :name)
    (presidentid
-    :type integer)
+    :type integer
+    :initarg :presidentid)
    (president
     :reader president
     :db-kind :join
@@ -84,11 +85,21 @@
 
 ;; Connect to the database (see the CLSQL documentation for vendor
 ;; specific connection specs).
-(clsql:connect `(,*tutorial-database-server* 
-	       ,*tutorial-database-name*
-	       ,*tutorial-database-user* 
-	       ,*tutorial-database-password*)
-	     :database-type *tutorial-database-type*)
+(case *tutorial-database-type*
+  ((:mysql :postgresql)
+   (clsql:connect `(,*tutorial-database-server* 
+		    ,*tutorial-database-name*
+		    ,*tutorial-database-user* 
+		    ,*tutorial-database-password*)
+		  :database-type *tutorial-database-type*))
+  ((:odbc :aodbc :oracle)
+   (clsql:connect `(,*tutorial-database-name* 
+		    ,*tutorial-database-user* 
+		    ,*tutorial-database-password*)
+		  :database-type *tutorial-database-type*))
+  (:sqlite
+   (clsql:connect `(,*tutorial-database-name*)
+		  :database-type *tutorial-database-type*)))
 
 ;; Record the sql going out, helps us learn what is going
 ;; on behind the scenes
@@ -105,42 +116,35 @@
 
 
 ;; Create some instances of our view classes
+(defvar company1 (make-instance 'company
+			      :companyid 1
+			      :name "Widgets Inc."
+			      ;; Lenin is president of Widgets Inc.
+			      :presidentid 1))
+
 (defvar employee1 (make-instance 'employee
 			       :emplid 1
 			       :first-name "Vladamir"
 			       :last-name "Lenin"
-			       :email "lenin@soviet.org"))
-
-(defvar company1 (make-instance 'company
-			      :companyid 1
-			      :name "Widgets Inc."))
-			      
+			       :email "lenin@soviet.org"
+			       :companyid 1))
 
 (defvar employee2 (make-instance 'employee
 			       :emplid 2
 			       :first-name "Josef"
 			       :last-name "Stalin"
-			       :email "stalin@soviet.org"))
-
-;; Lenin manages Stalin (for now)
-(clsql:add-to-relation employee2 'manager employee1)
-
-;; Lenin and Stalin both work for Widgets Inc.
-(clsql:add-to-relation company1 'employees employee1)
-(clsql:add-to-relation company1 'employees employee2)
-
-;; Lenin is president of Widgets Inc.
-(clsql:add-to-relation company1 'president employee1)
+			       :email "stalin@soviet.org"
+			       :companyid 1
+			       ;; Lenin manages Stalin (for now)
+			       :managerid 1))
 
 (clsql:update-records-from-instance employee1)
 (clsql:update-records-from-instance employee2)
 (clsql:update-records-from-instance company1)
 
-;; lets us use the functional
-;; sql interface 
+;; lets use the functional sql interface 
 (clsql:locally-enable-sql-reader-syntax)
 
-
 (format t "The email address of ~A ~A is ~A"
 	(first-name employee1)
 	(last-name employee1)
@@ -153,7 +157,8 @@
 
 (let ((new-lenin (car
 		  (clsql:select 'employee
-			      :where [= [slot-value 'employee 'emplid] 1]))))
+			      :where [= [slot-value 'employee 'emplid] 1]
+			      :flatp t))))
   (format t "His new email is ~A"
 	  (employee-email new-lenin)))