January 2005 - cl-prevalence-cvs@common-lisp.net

[cl-prevalence-cvs] CVS update: cl-prevalence/test/test-serialization.lisp
by scaekenberghe＠common-lisp.net 24 Jan '05

24 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence/test In directory common-lisp.net:/tmp/cvs-serv28019/test Modified Files: test-serialization.lisp Log Message: added support for unprintable symbols in serialization Date: Mon Jan 24 02:04:20 2005 Author: scaekenberghe Index: cl-prevalence/test/test-serialization.lisp diff -u cl-prevalence/test/test-serialization.lisp:1.3 cl-prevalence/test/test-serialization.lisp:1.4 --- cl-prevalence/test/test-serialization.lisp:1.3 Sat Jan 22 11:24:00 2005 +++ cl-prevalence/test/test-serialization.lisp Mon Jan 24 02:04:18 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: test-serialization.lisp,v 1.3 2005/01/22 19:24:00 scaekenberghe Exp $ +;;;; $Id: test-serialization.lisp,v 1.4 2005/01/24 10:04:18 scaekenberghe Exp $ ;;;; ;;;; Testing XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -95,6 +95,14 @@ (assert (eq (serialize-and-deserialize-sexp 'room) 'room)) + +(assert + (eq (serialize-and-deserialize-xml '|Unprintable|) + '|Unprintable|)) + +(assert + (eq (serialize-and-deserialize-sexp '|Unprintable|) + '|Unprintable|)) (assert (equal (serialize-and-deserialize-xml "Hello")

1 0

[cl-prevalence-cvs] CVS update: cl-prevalence/src/serialization.lisp
by scaekenberghe＠common-lisp.net 24 Jan '05

24 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv28019/src Modified Files: serialization.lisp Log Message: added support for unprintable symbols in serialization Date: Mon Jan 24 02:04:16 2005 Author: scaekenberghe Index: cl-prevalence/src/serialization.lisp diff -u cl-prevalence/src/serialization.lisp:1.8 cl-prevalence/src/serialization.lisp:1.9 --- cl-prevalence/src/serialization.lisp:1.8 Sat Jan 22 11:23:54 2005 +++ cl-prevalence/src/serialization.lisp Mon Jan 24 02:04:15 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: serialization.lisp,v 1.8 2005/01/22 19:23:54 scaekenberghe Exp $ +;;;; $Id: serialization.lisp,v 1.9 2005/01/24 10:04:15 scaekenberghe Exp $ ;;;; ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -91,28 +91,36 @@ (setf (gethash object (get-hashtable serialization-state)) (incf (get-counter serialization-state)))) +;; when printing symbols we always add the package and treat the symbol as internal +;; so that the serialization is independent of future change in export status +;; we handling symbols in the common-lisp and keyword package more efficiently +;; some hacking to handle unprintable symbols is involved + (defconstant +cl-package+ (find-package :cl)) (defconstant +keyword-package+ (find-package :keyword)) (defun print-symbol-xml (symbol stream) (let ((package (symbol-package symbol)) - (name (symbol-name symbol))) + (name (prin1-to-string symbol))) (cond ((eq package +cl-package+) (write-string "CL:" stream)) ((eq package +keyword-package+) (write-char #\: stream)) (t (s-xml:print-string-xml (package-name package) stream) (write-string "::" stream))) - (s-xml:print-string-xml name stream))) + (if (char= (char name (1- (length name))) #\|) + (s-xml:print-string-xml name stream :start (position #\| name)) + (s-xml:print-string-xml name stream :start (1+ (or (position #\: name :from-end t) -1)))))) (defun print-symbol (symbol stream) (let ((package (symbol-package symbol)) - (name (symbol-name symbol))) + (name (prin1-to-string symbol))) (cond ((eq package +cl-package+) (write-string "CL:" stream)) ((eq package +keyword-package+) (write-char #\: stream)) - (t (write-string (package-name package) stream) + (t (s-xml:print-string-xml (package-name package) stream) (write-string "::" stream))) - ;; this is *NOT* correct for unprintable symbols !! - (write-string name stream))) + (if (char= (char name (1- (length name))) #\|) + (write-string name stream :start (position #\| name)) + (write-string name stream :start (1+ (or (position #\: name :from-end t) -1)))))) (defmethod serializable-slots ((object structure-object)) #+openmcl

1 0

[cl-prevalence-cvs] CVS update: cl-prevalence/ChangeLog
by scaekenberghe＠common-lisp.net 24 Jan '05

24 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence In directory common-lisp.net:/tmp/cvs-serv28019 Modified Files: ChangeLog Log Message: added support for unprintable symbols in serialization Date: Mon Jan 24 02:04:15 2005 Author: scaekenberghe Index: cl-prevalence/ChangeLog diff -u cl-prevalence/ChangeLog:1.1 cl-prevalence/ChangeLog:1.2 --- cl-prevalence/ChangeLog:1.1 Sat Jan 22 11:23:51 2005 +++ cl-prevalence/ChangeLog Mon Jan 24 02:04:14 2005 @@ -1,5 +1,6 @@ 2005-01-22 Sven Van Caekenberghe <svc(a)mac.com> * added serialization support for characters (suggested by ian eslick) + * added support for unprintable symbols

1 0

[cl-prevalence-cvs] CVS update: cl-prevalence/test/test-serialization.lisp
by scaekenberghe＠common-lisp.net 22 Jan '05

22 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence/test In directory common-lisp.net:/tmp/cvs-serv5673/test Modified Files: test-serialization.lisp Log Message: added serialization support for characters (suggested by ian eslick) Date: Sat Jan 22 11:24:00 2005 Author: scaekenberghe Index: cl-prevalence/test/test-serialization.lisp diff -u cl-prevalence/test/test-serialization.lisp:1.2 cl-prevalence/test/test-serialization.lisp:1.3 --- cl-prevalence/test/test-serialization.lisp:1.2 Mon Oct 4 07:52:52 2004 +++ cl-prevalence/test/test-serialization.lisp Sat Jan 22 11:24:00 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: test-serialization.lisp,v 1.2 2004/10/04 14:52:52 scaekenberghe Exp $ +;;;; $Id: test-serialization.lisp,v 1.3 2005/01/22 19:24:00 scaekenberghe Exp $ ;;;; ;;;; Testing XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -111,6 +111,22 @@ (assert (equal (serialize-and-deserialize-sexp "") "")) + +(assert + (equal (serialize-and-deserialize-xml #\A) + #\A)) + +(assert + (equal (serialize-and-deserialize-sexp #\A) + #\A)) + +(assert + (equal (serialize-and-deserialize-xml #\<) + #\<)) + +(assert + (equal (serialize-and-deserialize-sexp #\<) + #\<)) (assert (equal (serialize-and-deserialize-xml "Hello <foo> & </bar>!")

1 0

[cl-prevalence-cvs] CVS update: cl-prevalence/src/serialization.lisp
by scaekenberghe＠common-lisp.net 22 Jan '05

22 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv5673/src Modified Files: serialization.lisp Log Message: added serialization support for characters (suggested by ian eslick) Date: Sat Jan 22 11:23:55 2005 Author: scaekenberghe Index: cl-prevalence/src/serialization.lisp diff -u cl-prevalence/src/serialization.lisp:1.7 cl-prevalence/src/serialization.lisp:1.8 --- cl-prevalence/src/serialization.lisp:1.7 Fri Jan 21 01:05:01 2005 +++ cl-prevalence/src/serialization.lisp Sat Jan 22 11:23:54 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: serialization.lisp,v 1.7 2005/01/21 09:05:01 scaekenberghe Exp $ +;;;; $Id: serialization.lisp,v 1.8 2005/01/22 19:23:54 scaekenberghe Exp $ ;;;; ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -204,6 +204,12 @@ (s-xml:print-string-xml object stream) (write-string "</STRING>" stream)) +(defmethod serialize-xml-internal ((object character) stream serialization-state) + (declare (ignore serialization-state)) + (write-string "<CHARACTER>" stream) + (s-xml:print-string-xml (princ-to-string object) stream) + (write-string "</CHARACTER>" stream)) + (defmethod serialize-xml-internal ((object symbol) stream serialization-state) (declare (ignore serialization-state)) (write-string "<SYMBOL>" stream) @@ -222,6 +228,10 @@ (declare (ignore serialization-state)) (prin1 object stream)) +(defmethod serialize-sexp-internal ((object character) stream serialization-state) + (declare (ignore serialization-state)) + (prin1 object stream)) + (defmethod serialize-sexp-internal ((object symbol) stream serialization-state) (declare (ignore serialization-state)) (print-symbol object stream)) @@ -457,6 +467,7 @@ (:null nil) (:true t) (:string (or seed "")) + (:character (char seed 0)) (:key (car seed)) (:value (car seed)) (:entry (nreverse seed))

1 0

[cl-prevalence-cvs] CVS update: cl-prevalence/ChangeLog
by scaekenberghe＠common-lisp.net 22 Jan '05

22 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence In directory common-lisp.net:/tmp/cvs-serv5673 Added Files: ChangeLog Log Message: added serialization support for characters (suggested by ian eslick) Date: Sat Jan 22 11:23:53 2005 Author: scaekenberghe

1 0

[cl-prevalence-cvs] CVS update: cl-prevalence/src/serialization.lisp
by scaekenberghe＠common-lisp.net 21 Jan '05

21 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv30145 Modified Files: serialization.lisp Log Message: implemented sbcl versions of platform dependent mop code (thx to Peter Scott) Date: Fri Jan 21 01:05:02 2005 Author: scaekenberghe Index: cl-prevalence/src/serialization.lisp diff -u cl-prevalence/src/serialization.lisp:1.6 cl-prevalence/src/serialization.lisp:1.7 --- cl-prevalence/src/serialization.lisp:1.6 Mon Oct 4 08:13:15 2004 +++ cl-prevalence/src/serialization.lisp Fri Jan 21 01:05:01 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: serialization.lisp,v 1.6 2004/10/04 15:13:15 scaekenberghe Exp $ +;;;; $Id: serialization.lisp,v 1.7 2005/01/21 09:05:01 scaekenberghe Exp $ ;;;; ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -121,6 +121,8 @@ (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots)))) #+cmu (mapcar #'pcl:slot-definition-name (pcl:class-slots (class-of object))) + #+sbcl + (mapcar #'sb-pcl:slot-definition-name (sb-pcl:class-slots (class-of object))) #+lispworks (structure:structure-class-slot-names (class-of object)) #+allegro @@ -138,6 +140,8 @@ (class-of object))) #+cmu (mapcar #'pcl:slot-definition-name (pcl:class-slots (class-of object))) + #+sbcl + (mapcar #'sb-pcl:slot-definition-name (sb-pcl:class-slots (class-of object))) #+lispworks (mapcar #'hcl:slot-definition-name (hcl:class-slots (class-of object))) #+allegro

1 0

[cl-prevalence-cvs] CVS update: cl-prevalence/src/package.lisp
by scaekenberghe＠common-lisp.net 21 Jan '05

21 Jan '05

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv30121 Modified Files: package.lisp Log Message: added exports for index-related api Date: Fri Jan 21 01:02:36 2005 Author: scaekenberghe Index: cl-prevalence/src/package.lisp diff -u cl-prevalence/src/package.lisp:1.5 cl-prevalence/src/package.lisp:1.6 --- cl-prevalence/src/package.lisp:1.5 Mon Oct 4 07:25:13 2004 +++ cl-prevalence/src/package.lisp Fri Jan 21 01:02:35 2005 @@ -1,6 +1,6 @@ ;;;; -*- Mode: LISP -*- ;;;; -;;;; $Id: package.lisp,v 1.5 2004/10/04 14:25:13 scaekenberghe Exp $ +;;;; $Id: package.lisp,v 1.6 2005/01/21 09:02:35 scaekenberghe Exp $ ;;;; ;;;; Package definitions for the CL-PREVALENCE project ;;;; @@ -74,6 +74,9 @@ #:get-preference #:all-preferences-keys #:tx-set-preference + #:index-on + #:drop-index-on + #:find-object-with-slot #:start-master-client #:stop-master-client

1 0