March 2007 - cl-prevalence-cvs@common-lisp.net

[cl-prevalence-cvs] CVS cl-prevalence/src
by scaekenberghe 29 Mar '07

29 Mar '07

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory clnet:/tmp/cvs-serv17951/src Modified Files: package.lisp Log Message: removed an export --- /project/cl-prevalence/cvsroot/cl-prevalence/src/package.lisp 2005/01/21 09:02:35 1.6 +++ /project/cl-prevalence/cvsroot/cl-prevalence/src/package.lisp 2007/03/29 11:53:37 1.7 @@ -1,6 +1,6 @@ ;;;; -*- Mode: LISP -*- ;;;; -;;;; $Id: package.lisp,v 1.6 2005/01/21 09:02:35 scaekenberghe Exp $ +;;;; $Id: package.lisp,v 1.7 2007/03/29 11:53:37 scaekenberghe Exp $ ;;;; ;;;; Package definitions for the CL-PREVALENCE project ;;;; @@ -66,7 +66,6 @@ #:id #:find-all-objects #:find-object-with-id - #:set-slot-values #:tx-create-id-counter #:tx-create-object #:tx-delete-object

1 0

[cl-prevalence-cvs] CVS public_html
by scaekenberghe 29 Mar '07

29 Mar '07

Update of /project/cl-prevalence/cvsroot/public_html In directory clnet:/tmp/cvs-serv17512 Modified Files: CL-PREVALENCE.html Log Message: documentation update --- /project/cl-prevalence/cvsroot/public_html/CL-PREVALENCE.html 2004/06/21 14:34:01 1.1 +++ /project/cl-prevalence/cvsroot/public_html/CL-PREVALENCE.html 2007/03/29 11:51:17 1.2 @@ -15,6 +15,8 @@ <blockquote>Copy the bytes from blob to binary-output-stream</blockquote> (destroy blob)   generic-function <blockquote>Completely destroy blob (removing its byte data file as well)</blockquote> +(drop-index-on system class &optional slots)   function +<blockquote>Drop indexes on each of the slots provided</blockquote> (execute system object)   generic-function <blockquote>Ask for a transaction object to be executed on system with ACID properties</blockquote> (execute-transaction transaction-call)   function @@ -27,6 +29,8 @@ <blockquote>Return an unordered collection of all objects in system that are instances of class</blockquote> (find-object-with-id system class id)   generic-function <blockquote>Find and return the object in system of class with id, null if not found</blockquote> +(find-object-with-slot system class slot value &optional test)   generic-function +<blockquote>Find and return the object in system of class with slot equal to value, null if not found</blockquote> (get-file blob)   generic-function <blockquote>Return the pathname to the bytes of blob</blockquote> (get-guard guarded-prevalence-system)   generic-function @@ -62,10 +66,12 @@ guarded-prevalence-system   class <blockquote>A Prevalence system with a guard thunk</blockquote> <blockquote>Class precedence list: <tt> guarded-prevalence-system prevalence-system standard-object t</tt></blockquote> -<blockquote>Class init args: <tt> :directory</tt></blockquote> +<blockquote>Class init args: <tt> :directory :serializer :deserializer :file-extension :transaction-hook</tt></blockquote> +(index-on system class &optional slots (test (quote equalp)))   function +<blockquote>Create indexes on each of the slots provided.</blockquote> (initiates-rollback condition)   generic-function <blockquote>Return true when a condition initiates a rollback when thrown from a transaction</blockquote> -(make-prevalence-system directory &key (prevalence-system-class (quote prevalence-system)))   function +(make-prevalence-system directory &key (prevalence-system-class (quote prevalence-system)) init-args)   function <blockquote>Create and return a new prevalence system on directory. When the directory contains a valid snapshot and/or transaction log file, the system will be restored. Optionally specify the prevalence system's @@ -85,37 +91,35 @@ prevalence-system   class <blockquote>Base Prevalence system implementation object</blockquote> <blockquote>Class precedence list: <tt> prevalence-system standard-object t</tt></blockquote> -<blockquote>Class init args: <tt> :directory</tt></blockquote> -(print-snapshot system)   function -<blockquote>Echo the XML making up the snapshot of system to t</blockquote> -(print-transaction-log system)   function -<blockquote>Echo the XML making up the transaction log of system to t</blockquote> +<blockquote>Class init args: <tt> :transaction-hook :file-extension :deserializer :serializer :directory</tt></blockquote> (query system function &rest args)   generic-function <blockquote>Ask for a query function to be executed on system with args</blockquote> (remove-root-object system name)   generic-function <blockquote>Remove the root object by symbol name from system</blockquote> (restore system)   generic-function <blockquote>Restore a system from permanent storage</blockquote> -(set-slot-values instance slots-and-values)   function -<blockquote>Set slots and values of instance</blockquote> -(show-transaction-log system)   function -<blockquote>Print the transaction objects making up the transaction log of system to t</blockquote> (snapshot system)   generic-function <blockquote>Take a snapshot of a system</blockquote> +(start-master-client prevalence-system &key (host localhost) (port 7651))   function +<blockquote>Start a connection to host:port to deliver transactions from prevalence-system</blockquote> +(start-slave-server prevalence-system &key (port 7651))   function +<blockquote>Start a server on port accepting transactions to be executed on prevalence-system</blockquote> +(stop-master-client prevalence-sytem)   function +<blockquote>Stop a connection from prevalence-system</blockquote> +(totally-destroy system &key abort)   generic-function +<blockquote>Totally destroy system from permanent storage by deleting any files that we find</blockquote> transaction   class <blockquote>A simple Transaction object joining a function and its arguments</blockquote> <blockquote>Class precedence list: <tt> transaction standard-object t</tt></blockquote> <blockquote>Class init args: <tt> :function :args</tt></blockquote> -(transaction-log-tail system &optional (count 8))   function -<blockquote>Return a list of the count last transaction objects of system</blockquote> (tx-change-object-slots system class id slots-and-values)   function <blockquote>Change some slots of the object of class with id in system using slots and values</blockquote> (tx-create-id-counter system)   function <blockquote>Initialize the id counter to 0</blockquote> -(tx-create-object system &optional class slots-and-values)   function +(tx-create-object system class &optional slots-and-values)   function <blockquote>Create a new object of class in system, assigning it a unique id, optionally setting some slots and values</blockquote> (tx-delete-object system class id)   function -<blockquote>Delete the object of class with if from the system</blockquote> +<blockquote>Delete the object of class with id from the system</blockquote> (tx-set-preference system key value)   function <blockquote>Set the value of the persistent preference key in system</blockquote> -Documentation generated by <a href="http://homepage.mac.com/svc/lispdoc/">lispdoc</a> running on LispWorks</body></html> +Documentation generated by <a href="http://homepage.mac.com/svc/lispdoc/">lispdoc</a> running on LispWorks</body></html> \ No newline at end of file

1 0

[cl-prevalence-cvs] CVS cl-prevalence/src
by scaekenberghe 16 Mar '07

16 Mar '07

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory clnet:/tmp/cvs-serv14547/src Modified Files: serialization.lisp Log Message: fixed a bug serializing empty hashtables in s-expr format (thx to Sacha De Vos for reporting this) --- /project/cl-prevalence/cvsroot/cl-prevalence/src/serialization.lisp 2006/01/31 12:41:48 1.10 +++ /project/cl-prevalence/cvsroot/cl-prevalence/src/serialization.lisp 2007/03/16 15:37:18 1.11 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: serialization.lisp,v 1.10 2006/01/31 12:41:48 scaekenberghe Exp $ +;;;; $Id: serialization.lisp,v 1.11 2007/03/16 15:37:18 scaekenberghe Exp $ ;;;; ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -379,8 +379,9 @@ (write-string " . " stream) (serialize-sexp-internal value stream serialization-state) (princ ")" stream)) - object)) - (write-string " ) )" stream))))) + object) + (write-string " )" stream)) + (write-string " )" stream))))) (defmethod serialize-xml-internal ((object structure-object) stream serialization-state) (let ((id (known-object-id serialization-state object)))

1 0

[cl-prevalence-cvs] CVS cl-prevalence/test
by scaekenberghe 16 Mar '07

16 Mar '07

Update of /project/cl-prevalence/cvsroot/cl-prevalence/test In directory clnet:/tmp/cvs-serv14547/test Modified Files: test-serialization.lisp Log Message: fixed a bug serializing empty hashtables in s-expr format (thx to Sacha De Vos for reporting this) --- /project/cl-prevalence/cvsroot/cl-prevalence/test/test-serialization.lisp 2006/01/31 12:41:48 1.5 +++ /project/cl-prevalence/cvsroot/cl-prevalence/test/test-serialization.lisp 2007/03/16 15:37:18 1.6 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: test-serialization.lisp,v 1.5 2006/01/31 12:41:48 scaekenberghe Exp $ +;;;; $Id: test-serialization.lisp,v 1.6 2007/03/16 15:37:18 scaekenberghe Exp $ ;;;; ;;;; Testing XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -277,4 +277,16 @@ (maphash #'(lambda (k v) (assert (equal v (gethash k h2)))) *hashtable*) (maphash #'(lambda (k v) (assert (equal v (gethash k *hashtable*)))) h2)) +(defparameter *empty-hashtable* (make-hash-table)) + +(let (h2) + (setf h2 (serialize-and-deserialize-xml *empty-hashtable*)) + (maphash #'(lambda (k v) (assert (equal v (gethash k h2)))) *empty-hashtable*) + (maphash #'(lambda (k v) (assert (equal v (gethash k *hashtable*)))) h2)) + +(let (h2) + (setf h2 (serialize-and-deserialize-sexp *empty-hashtable*)) + (maphash #'(lambda (k v) (assert (equal v (gethash k h2)))) *empty-hashtable*) + (maphash #'(lambda (k v) (assert (equal v (gethash k *hashtable*)))) h2)) + ;;; eof

1 0