From 47a7281403cd4cc3f1da860bbdb5319398243a64 Mon Sep 17 00:00:00 2001
From: drewc <drewc@tech.coop>
Date: Thu, 16 Jun 2005 19:55:09 -0700
Subject: [PATCH] added sync-instance method :

sync instance is used to properly syncronise a view-class with the database. It also support setting the default value from postgres, ie for SERIAL primary keys. this is so you can do :

(make-instance 'table :name "foo")
(sync-instance *)
(slot-value ** 'foo-id)

darcs-hash:20050617025509-39164-22a5aa8c49e33dd9423a10a34eefdc31cb134118.gz
---
 src/backend/clsql.lisp | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/src/backend/clsql.lisp b/src/backend/clsql.lisp
index 26e21cb..0295d6e 100644
--- a/src/backend/clsql.lisp
+++ b/src/backend/clsql.lisp
@@ -8,6 +8,24 @@
 (export 'def-view-class/meta)
 (export 'list-base-classes)
 
+
+
+(defmethod sync-instance ((view clsql:standard-db-object) &key (database *default-database*))
+  (labels ((sym->sql (sym) (string-downcase (substitute #\_ #\- (string sym))))
+           (get-def (slot) (caar (query
+                                  (format nil                                                             "SELECT DISTINCT adsrc from pg_attrdef join pg_attribute on attnum = adnum where adrelid = (select oid from pg_class where relname = '~A') and attname = '~A'" (sym->sql (class-name (class-of view))) (sym->sql slot)))))
+           (get-default-value (slot) (caar (query (format nil "SELECT ~A" (get-def slot))))))
+
+    (dolist (slot (list-slots view))
+      (when (and (primary-key-p view slot)
+                 (or (not (slot-boundp view slot))
+                     (equal (slot-value view slot) nil)))
+        (setf (slot-value view slot) (get-default-value slot)))))
+  (update-records-from-instance view :database database)
+  (update-instance-from-records view :database database))
+
+
+
 (defparameter *clsql-base-classes* (list) )
 
 (defmethod list-base-classes ((type (eql :clsql)))
@@ -60,9 +78,6 @@
     `(progn ,@defs)))
 
 
-
-
-
 (defun get-pkeys ()
   (let ((keys '()))
     (dolist (row (get-pkeys-query))
@@ -185,21 +200,6 @@ AND fa.attnum = ANY (pg_constraint.confkey)"))
 	       :target-slot ,name
 	       :set t))))
  
-(defmethod update-records-from-instance :before ((view clsql::standard-db-object) &key database)
-  (declare (ignorable database))
-  (labels ((sym->sql (sym) (string-downcase (substitute #\_ #\- (string sym))))
-	   (get-def (slot) (caar (query
-				  (format nil								  "SELECT DISTINCT adsrc from pg_attrdef join pg_attribute on attnum = adnum where adrelid = (select oid from pg_class where relname = '~A') and attname = '~A'" (sym->sql (class-name (class-of view))) (sym->sql slot)))))
-	   (get-default-value (slot) (caar (query (format nil "SELECT ~A" (get-def slot))))))
-
-    (dolist (slot (list-slots view))
-      (when (and (primary-key-p view slot)
-		 (or (not (slot-boundp view slot))
-		     (equal (slot-value view slot) nil)))
-	(setf (slot-value view slot) (get-default-value slot))))))
-
-;;;;
-
 (defmacro def-view-class/meta (name supers slots &rest args)  
     `(progn
 	(let* ((m (def-meta-model model-name ,supers ,slots ,args))
-- 
2.20.1