November 2005 - cl-xmpp-cvs@common-lisp.net

[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp-tls.lisp cl-xmpp/cl-xmpp.lisp cl-xmpp/utility.lisp
by eenge＠common-lisp.net 14 Nov '05

14 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv25792 Modified Files: cl-xmpp-tls.lisp cl-xmpp.lisp utility.lisp Log Message: killing string-to-array and using ironclad:ascii-string-to-byte-array instead Date: Mon Nov 14 16:14:08 2005 Author: eenge Index: cl-xmpp/cl-xmpp-tls.lisp diff -u cl-xmpp/cl-xmpp-tls.lisp:1.3 cl-xmpp/cl-xmpp-tls.lisp:1.4 --- cl-xmpp/cl-xmpp-tls.lisp:1.3 Sat Nov 12 05:30:57 2005 +++ cl-xmpp/cl-xmpp-tls.lisp Mon Nov 14 16:14:06 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp-tls.lisp,v 1.3 2005/11/12 04:30:57 eenge Exp $ +;;;; $Id: cl-xmpp-tls.lisp,v 1.4 2005/11/14 15:14:06 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-tls.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -9,17 +9,24 @@ "Connect to the host and start a TLS stream." (let ((connection (apply #'connect args))) (send-starttls connection) - (convert-to-tls-stream connection) - connection)) + (let ((reply (receive-stanza connection))) + (case (name reply) + (:proceed (convert-to-tls-stream connection) + (values connection :proceed reply)) + (:failure (values connection :failure reply)) + (t (error "Unexpected reply from TLS negotiation: ~a." reply)))))) (defmethod send-starttls ((connection connection)) "Sends a request to start a TLS stream with the server." (with-xml-stream (stream connection) (xml-output stream "<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/>"))) -(defmethod convert-to-tls-stream ((connection connection)) +(defmethod convert-to-tls-stream ((connection connection) &key (begin-xml-stream t)) "Convert the existing stream to a TLS stream and issue -a stream:stream open tag to start the XML stream." +a stream:stream open tag to start the XML stream. + +Turn off sending XML stream start with :begin-xml-stream nil." (setf (server-stream connection) (cl+ssl:make-ssl-client-stream (server-stream connection))) - (begin-xml-stream connection)) + (when begin-xml-stream + (begin-xml-stream connection))) Index: cl-xmpp/cl-xmpp.lisp diff -u cl-xmpp/cl-xmpp.lisp:1.13 cl-xmpp/cl-xmpp.lisp:1.14 --- cl-xmpp/cl-xmpp.lisp:1.13 Sat Nov 12 05:20:21 2005 +++ cl-xmpp/cl-xmpp.lisp Mon Nov 14 16:14:06 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.13 2005/11/12 04:20:21 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.14 2005/11/14 15:14:06 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -316,7 +316,7 @@ (defun xml-output (stream string) "Write string to stream as a sequence of bytes and not characters." - (let ((sequence (string-to-array string :element-type '(unsigned-byte 8)))) + (let ((sequence (ironclad:ascii-string-to-byte-array string))) (write-sequence sequence stream) (finish-output stream) (when *debug-stream* Index: cl-xmpp/utility.lisp diff -u cl-xmpp/utility.lisp:1.7 cl-xmpp/utility.lisp:1.8 --- cl-xmpp/utility.lisp:1.7 Fri Nov 11 22:20:20 2005 +++ cl-xmpp/utility.lisp Mon Nov 14 16:14:07 2005 @@ -1,4 +1,4 @@ -;;;; $Id: utility.lisp,v 1.7 2005/11/11 21:20:20 eenge Exp $ +;;;; $Id: utility.lisp,v 1.8 2005/11/14 15:14:07 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/utility.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -14,12 +14,6 @@ ((typep (car list) 'atom) (cons (car list) (flatten (cdr list)))) ((typep (car list) 'list) (flatten (append (car list) (cdr list)))))) - -(defun string-to-array (string &rest args) - (let ((array (apply #'make-array (length string) args))) - (dotimes (position (length string)) - (setf (aref array position) (char-code (aref string position)))) - array)) (defun digestify-string (string) (ironclad:byte-array-to-hex-string

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp-tls.asd
by eenge＠common-lisp.net 14 Nov '05

14 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv22523 Modified Files: cl-xmpp-tls.asd Log Message: loading correct file Date: Mon Nov 14 15:26:47 2005 Author: eenge Index: cl-xmpp/cl-xmpp-tls.asd diff -u cl-xmpp/cl-xmpp-tls.asd:1.3 cl-xmpp/cl-xmpp-tls.asd:1.4 --- cl-xmpp/cl-xmpp-tls.asd:1.3 Sun Nov 13 03:36:10 2005 +++ cl-xmpp/cl-xmpp-tls.asd Mon Nov 14 15:26:47 2005 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp-tls.asd,v 1.3 2005/11/13 02:36:10 eenge Exp $ +;;;; $Id: cl-xmpp-tls.asd,v 1.4 2005/11/14 14:26:47 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-tls.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -17,5 +17,5 @@ :licence "MIT" :description "Common Lisp XMPP client implementation with TLS+SASL support" :depends-on (:cl-xmpp-sasl :cl+ssl) - :components ((:file "cl-xmpp-sasl"))) + :components ((:file "cl-xmpp-tls")))

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/test/cl-xmpp-test.lisp cl-xmpp/test/cl-xmpp-test.asd cl-xmpp/test/result-test.lisp
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory common-lisp.net:/tmp/cvs-serv29110/test Modified Files: cl-xmpp-test.asd result-test.lisp Added Files: cl-xmpp-test.lisp Log Message: more tests and updated README slightly Date: Sun Nov 13 03:55:47 2005 Author: eenge Index: cl-xmpp/test/cl-xmpp-test.asd diff -u cl-xmpp/test/cl-xmpp-test.asd:1.1 cl-xmpp/test/cl-xmpp-test.asd:1.2 --- cl-xmpp/test/cl-xmpp-test.asd:1.1 Sun Nov 13 03:36:11 2005 +++ cl-xmpp/test/cl-xmpp-test.asd Sun Nov 13 03:55:47 2005 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp-test.asd,v 1.1 2005/11/13 02:36:11 eenge Exp $ +;;;; $Id: cl-xmpp-test.asd,v 1.2 2005/11/13 02:55:47 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -21,5 +21,7 @@ (:file "utility-test" :depends-on ("package")) (:file "result-test" + :depends-on ("package")))) + (:file "cl-xmpp-test" :depends-on ("package")))) Index: cl-xmpp/test/result-test.lisp diff -u cl-xmpp/test/result-test.lisp:1.2 cl-xmpp/test/result-test.lisp:1.3 --- cl-xmpp/test/result-test.lisp:1.2 Sun Nov 13 03:45:41 2005 +++ cl-xmpp/test/result-test.lisp Sun Nov 13 03:55:47 2005 @@ -1,4 +1,4 @@ -;;;; $Id: result-test.lisp,v 1.2 2005/11/13 02:45:41 eenge Exp $ +;;;; $Id: result-test.lisp,v 1.3 2005/11/13 02:55:47 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/result-test.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -14,4 +14,4 @@ (deftest get-element.1 (xmpp:get-element *empty-element* :x) nil) (deftest get-element.2 (xmpp:get-element *element+subelement* :x) nil) -(deftest get-element.3 (xmpp:get-element *element+subelement* :subtest) #.*sub-element*) +(deftest get-element.3 (xmpp:name (xmpp:get-element *element+subelement* :subtest)) :subtest)

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/README cl-xmpp/result.lisp
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv29110 Modified Files: README result.lisp Log Message: more tests and updated README slightly Date: Sun Nov 13 03:55:46 2005 Author: eenge Index: cl-xmpp/README diff -u cl-xmpp/README:1.7 cl-xmpp/README:1.8 --- cl-xmpp/README:1.7 Sat Nov 12 05:22:03 2005 +++ cl-xmpp/README Sun Nov 13 03:55:46 2005 @@ -46,5 +46,5 @@ * (defmethod xmpp:handle ((connection xmpp:connection) (message xmpp:message)) (xmpp:message connection (xmpp:from message) - (format nil "reply to: ~a~%" (xmpp:message object)))) + (format nil "reply to: ~a" (xmpp:message object)))) Index: cl-xmpp/result.lisp diff -u cl-xmpp/result.lisp:1.7 cl-xmpp/result.lisp:1.8 --- cl-xmpp/result.lisp:1.7 Mon Oct 31 22:07:15 2005 +++ cl-xmpp/result.lisp Sun Nov 13 03:55:46 2005 @@ -1,4 +1,4 @@ -;;;; $Id: result.lisp,v 1.7 2005/10/31 21:07:15 eenge Exp $ +;;;; $Id: result.lisp,v 1.8 2005/11/13 02:55:46 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/result.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -32,10 +32,8 @@ ;;; In the end, I don't know if this will be sufficient. It is ;;; for me at present time as all I really wanted to do was play ;;; around with XMPP in CL. If you have an idea which you wish -;;; were implemented in this library or perhaps you know a better -;;; way of doing this please don't hesitate to speak up as I -;;; most likely won't have much to do with this library from -;;; now on. +;;; were implemented in this library or perhaps you know of a better +;;; way of doing this please don't hesitate to speak. (defclass xml-element () ((name

1 0

[cl-xmpp-cvs] CVS update: public_html/index.html
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv29070 Modified Files: index.html Log Message: updating docs in preparation for new release Date: Sun Nov 13 03:55:15 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.18 public_html/index.html:1.19 --- public_html/index.html:1.18 Fri Nov 11 15:38:09 2005 +++ public_html/index.html Sun Nov 13 03:55:15 2005 @@ -7,7 +7,7 @@ <body> <div class="header"> - <h1>cl-xmpp 0.5.0</h1> + <h1>cl-xmpp 0.6.0</h1> </div> <div class="body"> @@ -34,12 +34,16 @@ <li><a href="http://cliki.net/trivial-sockets">trivial-sockets</a></li> <li><a href="http://common-lisp.net/project/cxml">cxml</a></li> <li><a href="http://cliki.net/ironclad">Ironclad</a></li> + <li><a href="http://cliki.net/cl-base64">cl-base64</a> (if you are using cl-xmpp-{sasl|tls}.asd)</li> + <li><a href="http://cliki.net/cl-sasl">cl-sasl</a> (if you are using cl-xmpp-{sasl|tls}.asd)</li> + <li><a href="http://common-lisp.net/project/cl-plus-ssl">cl+ssl</a> (if you are using cl-xmpp-tls.asd</li> </ul> </div> <h2>News</h2> <div class="level"> <ul> + <li>Version 0.6.0 released (SASL and TLS support, better debugability + small test suite) <li>Version 0.5.0 released (Now depending on <a href="http://cliki.net/ironclad">Ironclad</a> for digest authentication)</li> <li>Version 0.4.0 released (Better support for JEP0030 (service discovery) and more exported symbols)</li> <li>Version 0.3.0 released (Added Allegro and LispWorks support)</li> @@ -92,16 +96,18 @@ <pre> * (require :cl-xmpp) - * (defvar connection (xmpp:connect :hostname "jabber.org")) - -;; initiate XML stream with server - * (xmpp:begin-xml-stream connection) + * (defvar connection (xmpp:connect "username" :hostname "jabber.org")) +;; or use xmpp:connect-tls with the exact same arguments to initiate +;; a TLS connection. there are operators in cl-xmpp-tls.lisp you +;; can use manually if you want to check that this host supports +;; TLS connections, first. ;; authenticate (or use xmpp:register to make an account) - * (xmpp:auth connection "username" "password" "resource") + * (xmpp:auth connection "password" "resource") +;; defaults to plain non-sasl authentication but sasl is also available ;; let the server know you want to receive/send presence information -;; (this makes you "come online" if others have a subscription with you +;; (this makes you "come online" if others have a subscription with you) * (xmpp:presence connection) ;; send someone a message @@ -109,8 +115,11 @@ ;; then sit back and watch the messages roll in: * (xmpp:receive-stanza-loop connection) -#<MESSAGE from=username@hostname to=me@myserver> +<MESSAGE from=username@hostname to=me@myserver> [....] +;; or use xmpp:receive-stanza if you're just wanting one stanza +;; (note it will still block until you have received a complete +;; stanza) ;; That's it. Interrupt the loop to issue other commands, eg: * (xmpp:get-roster connection) @@ -120,16 +129,16 @@ ;; If you wish to handle the incoming messages or other objects simply ;; specify an xmpp:handle method for the objects you are interested in -;; or (defmethod xmpp:handle (connection object) ...) to get them all. Or alternatively -;; specify :dom-repr t to receive-stanza-loop to get DOM-ish objects. +;; or (defmethod xmpp:handle (connection object) ...) to get them +;; all. Or alternatively specify :dom-repr t to receive-stanza-loop +;; to get DOM-ish objects. ;; For example, if you wanted to create an annoying reply bot: * (defmethod xmpp:handle ((connection xmpp:connection) (message xmpp:message)) (xmpp:message connection (xmpp:from message) - (format nil "reply to: ~a~%" (xmpp:message object)))) - - </pre> + (format nil "reply to: ~a" (xmpp:message object)))) + </pre> </div>

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/test/result-test.lisp
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory common-lisp.net:/tmp/cvs-serv28518/test Modified Files: result-test.lisp Log Message: more tests Date: Sun Nov 13 03:45:42 2005 Author: eenge Index: cl-xmpp/test/result-test.lisp diff -u cl-xmpp/test/result-test.lisp:1.1 cl-xmpp/test/result-test.lisp:1.2 --- cl-xmpp/test/result-test.lisp:1.1 Sun Nov 13 03:36:11 2005 +++ cl-xmpp/test/result-test.lisp Sun Nov 13 03:45:41 2005 @@ -1,10 +1,17 @@ -;;;; $Id: result-test.lisp,v 1.1 2005/11/13 02:36:11 eenge Exp $ +;;;; $Id: result-test.lisp,v 1.2 2005/11/13 02:45:41 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/result-test.lisp,v $ ;;;; See the LICENSE file for licensing information. (in-package :xmpp-test) -(defvar *empty-element* #.(make-instance 'xmpp:xml-element :name :test)) +(defvar *empty-element* (make-instance 'xmpp:xml-element :name :test)) +(defvar *sub-element* (make-instance 'xmpp:xml-element :name :subtest)) +(defvar *element+subelement* + (make-instance 'xmpp:xml-element + :name :test + :elements (list *sub-element*))) -(deftest get-element.1 (xmpp:get-element *empty-element* :x) nil) \ No newline at end of file +(deftest get-element.1 (xmpp:get-element *empty-element* :x) nil) +(deftest get-element.2 (xmpp:get-element *element+subelement* :x) nil) +(deftest get-element.3 (xmpp:get-element *element+subelement* :subtest) #.*sub-element*)

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/Makefile
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv28518 Modified Files: Makefile Log Message: more tests Date: Sun Nov 13 03:45:41 2005 Author: eenge Index: cl-xmpp/Makefile diff -u cl-xmpp/Makefile:1.3 cl-xmpp/Makefile:1.4 --- cl-xmpp/Makefile:1.3 Sun Nov 13 03:36:09 2005 +++ cl-xmpp/Makefile Sun Nov 13 03:45:41 2005 @@ -1,4 +1,8 @@ clean: - find ./ -name *.fasl -exec rm \{\} \; - find ./ -name *.nfasl -exec rm \{\} \; - find ./ -name *~ -exec rm \{\} \; + find ./ -name "*.fasl" \ + -o -name "*.faslmt" \ + -o -name "*~" \ + -o -name "*.err" \ + -o -name "*.x86f" \ + -o -name "*.nfasl" \ + | xargs rm

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/test/cl-xmpp-test.asd cl-xmpp/test/package.lisp cl-xmpp/test/result-test.lisp cl-xmpp/test/utility-test.lisp
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory common-lisp.net:/tmp/cvs-serv27919/test Added Files: cl-xmpp-test.asd package.lisp result-test.lisp utility-test.lisp Log Message: beginnings of test suite cleaned up .asd's a little Date: Sun Nov 13 03:36:11 2005 Author: eenge

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/Makefile cl-xmpp/cl-xmpp-sasl.asd cl-xmpp/cl-xmpp-tls.asd cl-xmpp/cl-xmpp.asd cl-xmpp/package.lisp
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv27919 Modified Files: Makefile cl-xmpp-sasl.asd cl-xmpp-tls.asd cl-xmpp.asd package.lisp Log Message: beginnings of test suite cleaned up .asd's a little Date: Sun Nov 13 03:36:10 2005 Author: eenge Index: cl-xmpp/Makefile diff -u cl-xmpp/Makefile:1.2 cl-xmpp/Makefile:1.3 --- cl-xmpp/Makefile:1.2 Sat Oct 29 19:25:04 2005 +++ cl-xmpp/Makefile Sun Nov 13 03:36:09 2005 @@ -1,2 +1,4 @@ clean: - rm *~ *.fasl *.nfasl + find ./ -name *.fasl -exec rm \{\} \; + find ./ -name *.nfasl -exec rm \{\} \; + find ./ -name *~ -exec rm \{\} \; Index: cl-xmpp/cl-xmpp-sasl.asd diff -u cl-xmpp/cl-xmpp-sasl.asd:1.2 cl-xmpp/cl-xmpp-sasl.asd:1.3 --- cl-xmpp/cl-xmpp-sasl.asd:1.2 Fri Nov 11 22:20:20 2005 +++ cl-xmpp/cl-xmpp-sasl.asd Sun Nov 13 03:36:10 2005 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp-sasl.asd,v 1.2 2005/11/11 21:20:20 eenge Exp $ +;;;; $Id: cl-xmpp-sasl.asd,v 1.3 2005/11/13 02:36:10 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-sasl.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -14,21 +14,8 @@ (defsystem cl-xmpp-sasl :name "cl-xmpp-sasl" :author "Erik Enge" - :version "0.0.1" :licence "MIT" :description "Common Lisp XMPP client implementation with SASL support" - :depends-on (#+sbcl :sb-bsd-sockets :trivial-sockets :cxml :ironclad :sasl :cl-base64) - :components ((:file "package") - (:file "variable" - :depends-on ("package")) - (:file "utility" - :depends-on ("variable")) - (:file "cxml" - :depends-on ("utility")) - (:file "result" - :depends-on ("cxml")) - (:file "cl-xmpp" - :depends-on ("result")) - (:file "cl-xmpp-sasl" - :depends-on ("cl-xmpp")))) + :depends-on (:cl-xmpp :cl-base64 :sasl) + :components ((:file "cl-xmpp-sasl"))) Index: cl-xmpp/cl-xmpp-tls.asd diff -u cl-xmpp/cl-xmpp-tls.asd:1.2 cl-xmpp/cl-xmpp-tls.asd:1.3 --- cl-xmpp/cl-xmpp-tls.asd:1.2 Fri Nov 11 22:20:20 2005 +++ cl-xmpp/cl-xmpp-tls.asd Sun Nov 13 03:36:10 2005 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp-tls.asd,v 1.2 2005/11/11 21:20:20 eenge Exp $ +;;;; $Id: cl-xmpp-tls.asd,v 1.3 2005/11/13 02:36:10 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-tls.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -14,24 +14,8 @@ (defsystem cl-xmpp-tls :name "cl-xmpp-tls" :author "Erik Enge" - :version "0.0.1" :licence "MIT" :description "Common Lisp XMPP client implementation with TLS+SASL support" - :depends-on (#+sbcl :sb-bsd-sockets :trivial-sockets :cxml - :ironclad :cl+ssl :sasl :cl-base64) - :components ((:file "package") - (:file "variable" - :depends-on ("package")) - (:file "utility" - :depends-on ("variable")) - (:file "cxml" - :depends-on ("utility")) - (:file "result" - :depends-on ("cxml")) - (:file "cl-xmpp" - :depends-on ("result")) - (:file "cl-xmpp-sasl" - :depends-on ("cl-xmpp")) - (:file "cl-xmpp-tls" - :depends-on ("cl-xmpp-sasl")))) + :depends-on (:cl-xmpp-sasl :cl+ssl) + :components ((:file "cl-xmpp-sasl"))) Index: cl-xmpp/cl-xmpp.asd diff -u cl-xmpp/cl-xmpp.asd:1.5 cl-xmpp/cl-xmpp.asd:1.6 --- cl-xmpp/cl-xmpp.asd:1.5 Fri Nov 11 18:21:56 2005 +++ cl-xmpp/cl-xmpp.asd Sun Nov 13 03:36:10 2005 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp.asd,v 1.5 2005/11/11 17:21:56 eenge Exp $ +;;;; $Id: cl-xmpp.asd,v 1.6 2005/11/13 02:36:10 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -14,7 +14,6 @@ (defsystem cl-xmpp :name "cl-xmpp" :author "Erik Enge" - :version "0.0.1" :licence "MIT" :description "Common Lisp XMPP client implementation" :depends-on (#+sbcl :sb-bsd-sockets :trivial-sockets :cxml :ironclad) Index: cl-xmpp/package.lisp diff -u cl-xmpp/package.lisp:1.8 cl-xmpp/package.lisp:1.9 --- cl-xmpp/package.lisp:1.8 Sat Nov 12 05:20:21 2005 +++ cl-xmpp/package.lisp Sun Nov 13 03:36:10 2005 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.8 2005/11/12 04:20:21 eenge Exp $ +;;;; $Id: package.lisp,v 1.9 2005/11/13 02:36:10 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -33,7 +33,7 @@ :get-privacy-lists :get-privacy-list ;; dom-ish interface :xml-element :name :elements :attributes :node :data - :xml-attribute :value + :xml-attribute :value :get-element :get-attribute ;; event interface :event :presence

1 0

[cl-xmpp-cvs] CVS update: Directory change: cl-xmpp/test
by eenge＠common-lisp.net 13 Nov '05

13 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory common-lisp.net:/tmp/cvs-serv25800/test Log Message: Directory /project/cl-xmpp/cvsroot/cl-xmpp/test added to the repository Date: Sun Nov 13 03:08:13 2005 Author: eenge New directory cl-xmpp/test added

1 0