cl-xmpp-cvs

cl-xmpp-cvs@common-lisp.net

104 discussions

[cl-xmpp-cvs] CVS update: cl-xmpp/cxml.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-serv13651 Modified Files: cxml.lisp utility.lisp Log Message: fixing character issues for lisps without 16 bit wide characters Date: Mon Nov 14 20:42:29 2005 Author: eenge Index: cl-xmpp/cxml.lisp diff -u cl-xmpp/cxml.lisp:1.5 cl-xmpp/cxml.lisp:1.6 --- cl-xmpp/cxml.lisp:1.5 Sat Nov 12 05:20:21 2005 +++ cl-xmpp/cxml.lisp Mon Nov 14 20:42:29 2005 @@ -19,7 +19,7 @@ (defmethod sax:start-element ((handler stanza-handler) uri lname qname attrs) (declare (ignore uri lname)) (when (eql (depth handler) 0) - (if (string-equal "stream:stream" qname) + (if (eq :stream\:stream (ensure-keyword qname)) ;; Create an element for DOM-TO-EVENT so we don't have to have ;; any specialized code just to handle stream:stream. (let* ((document (dom:create-document)) Index: cl-xmpp/utility.lisp diff -u cl-xmpp/utility.lisp:1.8 cl-xmpp/utility.lisp:1.9 --- cl-xmpp/utility.lisp:1.8 Mon Nov 14 16:14:07 2005 +++ cl-xmpp/utility.lisp Mon Nov 14 20:42:29 2005 @@ -1,4 +1,4 @@ -;;;; $Id: utility.lisp,v 1.8 2005/11/14 15:14:07 eenge Exp $ +;;;; $Id: utility.lisp,v 1.9 2005/11/14 19:42:29 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/utility.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -41,3 +41,9 @@ (defun add-auth-method (name operator) (push (list name operator) *auth-methods*)) + +(defun ensure-keyword (thing) + (cond + ((typep thing 'string) (intern thing :keyword)) + ((typep thing 'array) (ensure-keyword (map 'string #'code-char thing))) + (t (error "Don't know how to make keyword out of: ~a (type: ~a)" thing (type-of thing))))) \ No newline at end of file

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp-sasl.asd cl-xmpp/cl-xmpp-sasl.lisp cl-xmpp/cl-xmpp.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-serv12512 Modified Files: cl-xmpp-sasl.asd cl-xmpp-sasl.lisp cl-xmpp.lisp Log Message: cleaning up a little in the XML we output (removing newlines, etc.) Date: Mon Nov 14 20:21:06 2005 Author: eenge Index: cl-xmpp/cl-xmpp-sasl.asd diff -u cl-xmpp/cl-xmpp-sasl.asd:1.3 cl-xmpp/cl-xmpp-sasl.asd:1.4 --- cl-xmpp/cl-xmpp-sasl.asd:1.3 Sun Nov 13 03:36:10 2005 +++ cl-xmpp/cl-xmpp-sasl.asd Mon Nov 14 20:21:06 2005 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp-sasl.asd,v 1.3 2005/11/13 02:36:10 eenge Exp $ +;;;; $Id: cl-xmpp-sasl.asd,v 1.4 2005/11/14 19:21:06 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-sasl.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -16,6 +16,6 @@ :author "Erik Enge" :licence "MIT" :description "Common Lisp XMPP client implementation with SASL support" - :depends-on (:cl-xmpp :cl-base64 :sasl) + :depends-on (:cl-xmpp :cl-base64 :cl-sasl) :components ((:file "cl-xmpp-sasl"))) Index: cl-xmpp/cl-xmpp-sasl.lisp diff -u cl-xmpp/cl-xmpp-sasl.lisp:1.7 cl-xmpp/cl-xmpp-sasl.lisp:1.8 --- cl-xmpp/cl-xmpp-sasl.lisp:1.7 Mon Nov 14 17:08:42 2005 +++ cl-xmpp/cl-xmpp-sasl.lisp Mon Nov 14 20:21:06 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp-sasl.lisp,v 1.7 2005/11/14 16:08:42 eenge Exp $ +;;;; $Id: cl-xmpp-sasl.lisp,v 1.8 2005/11/14 19:21:06 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-sasl.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -59,11 +59,7 @@ (defmethod initiate-sasl-authentication ((connection connection) mechanism sasl-client) (with-xml-stream (stream connection) - (xml-output stream (fmt "<auth mechanism='~a' -xmlns='urn:ietf:params:xml:ns:xmpp-sasl'>~a</auth>" - mechanism - (base64:usb8-array-to-base64-string - (sasl:client-step sasl-client nil)))))) + (xml-output stream (fmt "<auth xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='~a'/>" mechanism)))) (defmethod send-challenge-response ((connection connection) response) (with-xml-stream (stream connection) Index: cl-xmpp/cl-xmpp.lisp diff -u cl-xmpp/cl-xmpp.lisp:1.14 cl-xmpp/cl-xmpp.lisp:1.15 --- cl-xmpp/cl-xmpp.lisp:1.14 Mon Nov 14 16:14:06 2005 +++ cl-xmpp/cl-xmpp.lisp Mon Nov 14 20:21:06 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.14 2005/11/14 15:14:06 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.15 2005/11/14 19:21:06 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -331,11 +331,8 @@ "Begin XML stream. This should be the first thing to happen on a newly connected connection." (with-xml-stream (stream connection) - (xml-output stream "<?xml version='1.0'?>") - (xml-output stream (fmt "<stream:stream to='~a' -xmlns='jabber:client' -xmlns:stream='http://etherx.jabber.org/streams' -version='1.0'>" (or (jid-domain-part connection) (hostname connection)))))) + (xml-output stream "<?xml version='1.0' ?>") + (xml-output stream (fmt "<stream:stream to='~a' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'>" (or (jid-domain-part connection) (hostname connection)))))) (defmethod end-xml-stream ((connection connection)) "Closes the XML stream. At this point you'd have to

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp-sasl.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-serv30186 Modified Files: cl-xmpp-sasl.lisp Log Message: TLS is now working Date: Mon Nov 14 17:08:42 2005 Author: eenge Index: cl-xmpp/cl-xmpp-sasl.lisp diff -u cl-xmpp/cl-xmpp-sasl.lisp:1.6 cl-xmpp/cl-xmpp-sasl.lisp:1.7 --- cl-xmpp/cl-xmpp-sasl.lisp:1.6 Sat Nov 12 05:20:21 2005 +++ cl-xmpp/cl-xmpp-sasl.lisp Mon Nov 14 17:08:42 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp-sasl.lisp,v 1.6 2005/11/12 04:20:21 eenge Exp $ +;;;; $Id: cl-xmpp-sasl.lisp,v 1.7 2005/11/14 16:08:42 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-sasl.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -12,7 +12,12 @@ (add-auth-method :sasl-plain #'%sasl-plain%) (defmethod %sasl-digest-md5% ((connection connection) username password resource) - (handle-challenge-response connection username (digestify-string password) "DIGEST-MD5")) + (handle-challenge-response connection + username + (make-digest-password + (stream-id connection) + password) + "DIGEST-MD5")) (add-auth-method :sasl-digest-md5 #'%sasl-digest-md5%) @@ -38,7 +43,8 @@ (if (eq usb8-response :failure) (values :failure initial-challenge) (let ((base64-response (base64:usb8-array-to-base64-string usb8-response))) - (format *debug-stream* "response: ~a~%" (map 'string #'code-char usb8-response)) + (format *debug-stream* "response: ~a~%" + (map 'string #'code-char usb8-response)) (force-output *debug-stream*) (send-challenge-response connection base64-response) (let ((second-challenge (receive-stanza connection))) @@ -46,7 +52,7 @@ (progn (send-second-response connection) (let ((final-reply (receive-stanza connection))) - ; This should return either :success or :failure. + ; name should be either :success or :failure. (values (name final-reply) final-reply))) (values :failure second-challenge)))))) (values :failure initial-challenge))))) @@ -67,4 +73,3 @@ (defmethod send-second-response ((connection connection)) (with-xml-stream (stream connection) (xml-output stream "<response xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>"))) -

1 0

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

14 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory common-lisp.net:/tmp/cvs-serv25792/test Modified Files: utility-test.lisp Log Message: killing string-to-array and using ironclad:ascii-string-to-byte-array instead Date: Mon Nov 14 16:14:10 2005 Author: eenge Index: cl-xmpp/test/utility-test.lisp diff -u cl-xmpp/test/utility-test.lisp:1.1 cl-xmpp/test/utility-test.lisp:1.2 --- cl-xmpp/test/utility-test.lisp:1.1 Sun Nov 13 03:36:11 2005 +++ cl-xmpp/test/utility-test.lisp Mon Nov 14 16:14:10 2005 @@ -1,4 +1,4 @@ -;;;; $Id: utility-test.lisp,v 1.1 2005/11/13 02:36:11 eenge Exp $ +;;;; $Id: utility-test.lisp,v 1.2 2005/11/14 15:14:10 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/utility-test.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -7,8 +7,6 @@ (deftest flatten.1 (xmpp::flatten '(1 2 3)) (1 2 3)) (deftest flatten.2 (xmpp::flatten '(1 (2 3) 4)) (1 2 3 4)) - -(deftest string-to-array.1 (xmpp::string-to-array "test") #(116 101 115 116)) (deftest digestify-string.1 (xmpp::digestify-string "test") "a94a8fe5ccb19ba61c4c0873d391e987982fbbd3")

1 0

[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

← Newer
1
2
3
4
5
6
7
8
9
10
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cl-xmpp-cvs