cl-xmpp-cvs

cl-xmpp-cvs@common-lisp.net

104 discussions

[cl-xmpp-cvs] CVS public_html
by eenge 07 Aug '06

07 Aug '06

Update of /project/cl-xmpp/cvsroot/public_html In directory clnet:/home/eenge/public_html/cl-xmpp Modified Files: index.shtml Log Message: ftp -> http --- /project/cl-xmpp/cvsroot/public_html/index.shtml 2006/03/29 16:40:50 1.1 +++ /project/cl-xmpp/cvsroot/public_html/index.shtml 2006/08/07 13:34:50 1.2 @@ -86,7 +86,7 @@ <pre>$ asdf-install cl-xmpp</pre> <p>cl-xmpp can manually be downloaded from here: - <tt><a href="ftp://common-lisp.net/pub/project/cl-xmpp/cl-xmpp_latest.tar.gz"> + <tt><a href="http://common-lisp.net/project/cl-xmpp/cl-xmpp_latest.tar.gz"> cl-xmpp_latest.tar.gz</a> </tt>.</p>

1 0

[cl-xmpp-cvs] CVS cl-xmpp
by eenge 12 May '06

12 May '06

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory clnet:/tmp/cvs-serv13890 Modified Files: README cl-xmpp.lisp Log Message: commiting fixes from Robert Brown, thanks! --- /project/cl-xmpp/cvsroot/cl-xmpp/README 2005/11/28 15:15:03 1.11 +++ /project/cl-xmpp/cvsroot/cl-xmpp/README 2006/05/12 17:45:49 1.12 @@ -14,15 +14,15 @@ ;; (defvar *connection* (xmpp:connect-tls :hostname "talk.google.com" :jid-domain-part "gmail.com")) - * (xmpp:auth connection "username" "password" "resource") + * (xmpp:auth *connection* "username" "password" "resource") ;; or pass :mechanism :sasl-plain, :digest-md5 or sasl-digest-md5 ;; if you loaded cl-xmpp-sasl or cl-xmpp-tls. ;; send someone a message - * (xmpp:message connection "username@hostname" "what's going on?") + * (xmpp:message *connection* "username@hostname" "what's going on?") ;; then sit back and watch the messages roll in: - * (xmpp:receive-stanza-loop connection) + * (xmpp:receive-stanza-loop *connection*) <MESSAGE from=username@hostname to=me@myserver> [....] ;; or use xmpp:receive-stanza if you're just wanting one stanza @@ -30,7 +30,7 @@ ;; stanza) ;; That's it. Interrupt the loop to issue other commands, eg: - * (xmpp:get-roster connection) + * (xmpp:get-roster *connection*) ;; or any of the other ones you may find by looking through cl-xmpp.lisp ;; and package.lisp to see which ones are exported. --- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/03/02 15:51:33 1.26 +++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/05/12 17:45:49 1.27 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.26 2006/03/02 15:51:33 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.27 2006/05/12 17:45:49 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -219,7 +219,7 @@ ((member id '(items1 items2 items3 items4)) (make-disco-items (get-element object :query))) (t ;; Assuming an error - (make-error (get-element object :error)))))))))) + (make-error (get-element object :error))))))))))) (defmethod xml-element-to-event ((connection connection) (object xml-element) (name (eql :error)))

1 0

[cl-xmpp-cvs] CVS cl-xmpp/test
by eenge 12 May '06

12 May '06

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory clnet:/tmp/cvs-serv13890/test Modified Files: cl-xmpp-test.asd Log Message: commiting fixes from Robert Brown, thanks! --- /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd 2005/12/14 19:04:07 1.4 +++ /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd 2006/05/12 17:45:50 1.5 @@ -1,5 +1,5 @@ -;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp-test.asd,v 1.4 2005/12/14 19:04:07 eenge Exp $ +;;;; $Id: cl-xmpp-test.asd,v 1.5 2006/05/12 17:45:50 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -16,7 +16,7 @@ :author "Erik Enge" :licence "MIT" :description "Common Lisp XMPP client implementation" - :depends-on (:cl-xmpp :rt) + :depends-on (:cl-xmpp #-sbcl :rt #+sbcl :sb-rt) :components ((:file "package") (:file "utility-test" :depends-on ("package")) @@ -25,5 +25,6 @@ (:file "cl-xmpp-test" :depends-on ("package")))) -(defmethod perform ((operation test-op) (component (eql (find-system 'cl-xmpp-test)))) - (cl-xmpp-test:do-tests)) +(defmethod perform ((operation test-op) + (component (eql (find-system 'cl-xmpp-test)))) + (funcall (intern "DO-TESTS" 'cl-xmpp-test)))

1 0

[cl-xmpp-cvs] CVS public_html
by eenge 29 Mar '06

29 Mar '06

Update of /project/cl-xmpp/cvsroot/public_html In directory clnet:/home/eenge/public_htmls/cl-xmpp Added Files: index.shtml Removed Files: index.html Log Message: renaming --- /project/cl-xmpp/cvsroot/public_html/index.shtml 2006/03/29 16:40:50 NONE +++ /project/cl-xmpp/cvsroot/public_html/index.shtml 2006/03/29 16:40:50 1.1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <link rel="stylesheet" href="style.css" type="text/css"> <title>cl-xmpp</title></head> <body> <div class="header"> <h1>cl-xmpp 0.7.2</h1> </div> <div class="body"> <p>cl-xmpp is a Common Lisp client implementation of the <a href="http://www.xmpp.org/">XMPP</a> RFCs. These are the RFCs which <a href="http://www.jabber.org">Jabber</a> clients and servers use to communicate with eachother (including <a href="http://talk.google.com/">Google Talk</a>). In addition cl-xmpp implements JEPs 0078, 0086, 0030 and 0070 which are all part of <a href="http://www.jabber.org/jeps/jep-0073.html">JEP-0073: Basic IM Protocol Suite</a>. The author considers the library feature complete but will happily accept patches for any other reasonably stable JEPs.</p> <p>Currently, you can chat, manage your contacts, roster and presence information using this library. You can now also use the service discovery protocol using the <code>xmpp:discover</code> operator.</p> <p>The code is released under an <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cl-xmpp/LICENSE?rev=HEAD&cvsroot…">MIT-style license</a>. </p> <h2>News</h2> <div class="level"> <ul> <li><em>2006-02-06</em>: Version 0.7.2 released (Bugfixes and updated for new CXML)</li> <li><em>2005-11-21</em>: Version 0.7.1 released (Bugfixes)</li> <li>Version 0.7.0 released (TLS support)</li> <li>Version 0.6.0 released (SASL support, tiny test suite and many small fixes and tweaks)</li> <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> <li>Version 0.2.0 released (JEP 0073 support)</li> <li>Version 0.1.0 released (Initial release)</li> </ul> </div> <h2>Requirements</h2> <div class="level"> <ul> <li>Any implementation which can run the dependencies</li> <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> (for cl-xmpp-{sasl,tls})</li> <li><a href="http://cliki.net/cl-sasl">cl-sasl</a> (for cl-xmpp-{sasl,tls})</li> <li><a href="http://common-lisp.net/project/cl-plus-ssl">cl+ssl</a> (for cl-xmpp-tls)</li> </ul> </div> <h2>Tested against</h2> <div class="level"> <ul> <li><a href="http://talk.google.com/">Google Talk</a></li> <li><a href="http://jabberd.jabberstudio.org/">Jabberd 1.4</a> (ie not 2)</li> <li><a href="http://ejabberd.jabber.ru/">ejabberd</a></li> </ul> </div> <h2>Features</h2> <div class="level"> <ul> <li>Implements most commands in the RFCs</li> <li>event driven model with hooks makes interfacing easy -- or</li> <li>access to DOM-ish structure with raw data from the server so you can do whatever you like</li> </ul> </div> <h2>Installation</h2> <div class="level"> <p>If you have <a href="http://www.cliki.net/asdf-install"> asdf-install</a>, just: </p> <pre>$ asdf-install cl-xmpp</pre> <p>cl-xmpp can manually be downloaded from here: <tt><a href="ftp://common-lisp.net/pub/project/cl-xmpp/cl-xmpp_latest.tar.gz"> cl-xmpp_latest.tar.gz</a> </tt>.</p> <p>There is also <a href="http://common-lisp.net/faq.shtml#checkout">anonymous CVS </a> and <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-xmpp"> ViewCVS </a>. </p> </div> <h2>Contact</h2> <div class="level"> <p>Questions, feature requests, and bug-reports are welcome on <tt><a href="mailto:cl-xmpp-devel@common-lisp.net"> cl-xmpp-devel(a)common-lisp.net</a></tt> (<a href="http://common-lisp.net/pipermail/cl-xmpp-devel/">archives</a>).</p> </div> <h2>Project members</h2> <div class="level"> <pre>  </pre> </div> <h2>Sample usage</h2> <div class="level"> <pre> * (require :cl-xmpp) * (defvar *connection* (xmpp:connect :hostname "jabber.org")) ;; or xmpp:connect-tls if you loaded cl-xmpp-tls ;; note that for XMPP servers which do not have the same hostname ;; as the domain-part of the user's JID you will have to pass that ;; in. eg for Google Talk: ;; (defvar *connection* (xmpp:connect-tls :hostname "talk.google.com" :jid-domain-part "gmail.com")) * (xmpp:auth connection "password" "resource") ;; or pass :mechanism :sasl-plain, :digest-md5 or sasl-digest-md5 ;; if you loaded cl-xmpp-sasl or cl-xmpp-tls. ;; send someone a message * (xmpp:message connection "username@hostname" "what's going on?") ;; then sit back and watch the messages roll in: * (xmpp:receive-stanza-loop connection) <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) ;; or any of the other ones you may find by looking through cl-xmpp.lisp ;; and package.lisp to see which ones are exported. ;; 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. ;; 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> </div> </div> </body> </html>

1 0

[cl-xmpp-cvs] CVS public_html
by eenge 29 Mar '06

29 Mar '06

Update of /project/cl-xmpp/cvsroot/public_html In directory clnet:/tmp/cvs-serv3171 Modified Files: index.html Log Message: project member listing --- /project/cl-xmpp/cvsroot/public_html/index.html 2006/02/06 15:51:32 1.30 +++ /project/cl-xmpp/cvsroot/public_html/index.html 2006/03/29 16:38:07 1.31 @@ -106,6 +106,13 @@ </div> + <h2>Project members</h2> + <div class="level"> + <pre> +  + </pre> + </div> + <h2>Sample usage</h2> <div class="level"> <pre>

1 0

[cl-xmpp-cvs] CVS cl-xmpp
by eenge 02 Mar '06

02 Mar '06

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory clnet:/tmp/cvs-serv13898 Modified Files: cl-xmpp.lisp Log Message: fixing error handling code --- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/01/23 16:41:11 1.25 +++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/03/02 15:51:33 1.26 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.25 2006/01/23 16:41:11 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.26 2006/03/02 15:51:33 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -196,26 +196,29 @@ (defmethod xml-element-to-event ((connection connection) (object xml-element) (name (eql :iq))) (let ((id (ensure-keyword (value (get-attribute object :id)))) - (type (ensure-keyword (value (get-attribute object :type))))) - (case id - (:error (make-error (get-element object :error))) - (:roster_1 (make-roster object)) - (:reg2 :registration-successful) - (:unreg_1 :registration-cancellation-successful) - (:change1 :password-changed-successfully) - (:auth2 :authentication-successful) - (:bind_2 :bind-successful) - (:session_1 :session-initiated) - (t - (case type - (:get (warn "Don't know how to handle IQ get yet.")) - (t - (cond - ((member id '(info1 info2 info3)) - (make-disco-info (get-element object :query))) - ((member id '(items1 items2 items3 items4)) - (make-disco-items (get-element object :query))) - (t ;; Assuming an error + (type (ensure-keyword (value (get-attribute object :type)))) + (errorp (get-element object :error))) + (if errorp + (make-error errorp) + (case id + (:error (make-error errorp)) + (:roster_1 (make-roster object)) + (:reg2 :registration-successful) + (:unreg_1 :registration-cancellation-successful) + (:change1 :password-changed-successfully) + (:auth2 :authentication-successful) + (:bind_2 :bind-successful) + (:session_1 :session-initiated) + (t + (case type + (:get (warn "Don't know how to handle IQ get yet.")) + (t + (cond + ((member id '(info1 info2 info3)) + (make-disco-info (get-element object :query))) + ((member id '(items1 items2 items3 items4)) + (make-disco-items (get-element object :query))) + (t ;; Assuming an error (make-error (get-element object :error)))))))))) (defmethod xml-element-to-event ((connection connection)

1 0

[cl-xmpp-cvs] CVS public_html
by eenge 06 Feb '06

06 Feb '06

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp:/home/eenge/tmp/cl-xmpp-public_html Modified Files: index.html Log Message: up'ing version --- /project/cl-xmpp/cvsroot/public_html/index.html 2006/02/06 15:48:38 1.29 +++ /project/cl-xmpp/cvsroot/public_html/index.html 2006/02/06 15:51:32 1.30 @@ -7,7 +7,7 @@ <body> <div class="header"> - <h1>cl-xmpp 0.7.1</h1> + <h1>cl-xmpp 0.7.2</h1> </div> <div class="body">

1 0

[cl-xmpp-cvs] CVS public_html
by eenge 06 Feb '06

06 Feb '06

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp:/home/eenge/tmp/cl-xmpp-public_html Modified Files: index.html Log Message: new release --- /project/cl-xmpp/cvsroot/public_html/index.html 2006/01/18 15:19:39 1.28 +++ /project/cl-xmpp/cvsroot/public_html/index.html 2006/02/06 15:48:38 1.29 @@ -33,6 +33,7 @@ <h2>News</h2> <div class="level"> <ul> + <li><em>2006-02-06</em>: Version 0.7.2 released (Bugfixes and updated for new CXML)</li> <li><em>2005-11-21</em>: Version 0.7.1 released (Bugfixes)</li> <li>Version 0.7.0 released (TLS support)</li> <li>Version 0.6.0 released (SASL support, tiny test suite and many small fixes and tweaks)</li>

1 0

[cl-xmpp-cvs] CVS cl-xmpp
by eenge 23 Jan '06

23 Jan '06

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp:/tmp/cvs-serv30108 Modified Files: cl-xmpp.lisp Log Message: adding patch from david, thanks\! --- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2005/12/31 20:15:06 1.24 +++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/01/23 16:41:11 1.25 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.24 2005/12/31 20:15:06 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.25 2006/01/23 16:41:11 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -316,7 +316,12 @@ (defun read-stanza (connection) (unless (server-xstream connection) (setf (server-xstream connection) - (cxml:make-xstream (make-slow-stream (server-stream connection))))) + (cxml:make-xstream (make-slow-stream (server-stream connection)) + :name + (cxml::make-stream-name + :entity-name "stanza" + :entity-kind :main + :uri nil)))) (force-output (server-stream connection)) (catch 'stanza (let ((cxml::*namespace-bindings*

1 0

[cl-xmpp-cvs] CVS cl-xmpp
by CVS User eenge 22 Jan '06

22 Jan '06

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp:/tmp/cvs-serv25220 Modified Files: TODO Log Message: testing new cvs log mailer --- /project/cl-xmpp/cvsroot/cl-xmpp/TODO 2005/11/18 21:43:52 1.11 +++ /project/cl-xmpp/cvsroot/cl-xmpp/TODO 2006/01/22 03:10:42 1.12 @@ -8,5 +8,6 @@ still writes into a stream. prerequisite for writing a test suite (which i should do). -- havent found a good use for IDs yet so right now they are - just what happen to be in the specs \ No newline at end of file +- avent found a good use for IDs yet so right now they are + just what happen to be in the specs +

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cl-xmpp-cvs