cl-xmpp-cvs

cl-xmpp-cvs@common-lisp.net

104 discussions

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

19 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv2908 Modified Files: cxml.lisp Log Message: fixing cvs tags Date: Sat Nov 19 00:14:36 2005 Author: eenge Index: cl-xmpp/cxml.lisp diff -u cl-xmpp/cxml.lisp:1.8 cl-xmpp/cxml.lisp:1.9 --- cl-xmpp/cxml.lisp:1.8 Fri Nov 18 23:52:48 2005 +++ cl-xmpp/cxml.lisp Sat Nov 19 00:14:35 2005 @@ -1,7 +1,7 @@ -;;;; cxml-stanza.lisp -- parser helper for RFC 3920 XML streams +;;;; $Id: cxml.lisp,v 1.9 2005/11/18 23:14:35 eenge Exp $ +;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cxml.lisp,v $ -;;; These are modifications to CXML which helps us deal with the -;;; incremental-style parsing required for the XML stanzas. +;;;; See the LICENSE file for licensing information. (in-package :xmpp)

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv1275 Modified Files: cl-xmpp.lisp Log Message: removing commented-out function call no longer needed Date: Fri Nov 18 23:53:02 2005 Author: eenge Index: cl-xmpp/cl-xmpp.lisp diff -u cl-xmpp/cl-xmpp.lisp:1.21 cl-xmpp/cl-xmpp.lisp:1.22 --- cl-xmpp/cl-xmpp.lisp:1.21 Fri Nov 18 23:29:27 2005 +++ cl-xmpp/cl-xmpp.lisp Fri Nov 18 23:53:02 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.21 2005/11/18 22:29:27 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.22 2005/11/18 22:53:02 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -359,7 +359,6 @@ (xml (gensym "xml"))) `(let ((,stream (server-stream ,connection))) (prog1 -; (cxml:with-xml-output (make-octet+character-debug-stream-sink ,stream) (let ((,xml (cxml:with-xml-output (cxml:make-octet-vector-sink) (cxml:with-element "iq" (when ,id

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv1252 Modified Files: cxml.lisp Log Message: removing unneeded functions Date: Fri Nov 18 23:52:48 2005 Author: eenge Index: cl-xmpp/cxml.lisp diff -u cl-xmpp/cxml.lisp:1.7 cl-xmpp/cxml.lisp:1.8 --- cl-xmpp/cxml.lisp:1.7 Fri Nov 18 22:43:52 2005 +++ cl-xmpp/cxml.lisp Fri Nov 18 23:52:48 2005 @@ -72,25 +72,6 @@ (declare (ignore input)) nil) -;; To facilitate writing to both an octet and a character stream -;; using CXML. - -(defclass octet+character-debug-stream-sink (cxml::octet-stream-sink) ()) - -(defun make-octet+character-debug-stream-sink (octet-stream &rest initargs) - (apply #'make-instance 'octet+character-debug-stream-sink - :target-stream octet-stream - initargs)) - -(defmethod cxml::write-octet (octet (sink octet+character-debug-stream-sink)) - (write-byte octet (slot-value sink 'cxml::target-stream)) - (when *debug-stream* - (write-char (code-char octet) *debug-stream*) - (force-output *debug-stream*))) - -;(defmethod write-octet-sequence (sequence (sink octet+character-debug-stream-sink)) -; (write-sequence sequence (slot-value sink 'cxml::target-stream))) - ;; I'd like to see what CXML is reading from the stream ;; and this code helps us in that regard by printing it ;; to the *debug-stream*

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv32616 Modified Files: index.html Log Message: .com -> .org Date: Fri Nov 18 23:39:55 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.24 public_html/index.html:1.25 --- public_html/index.html:1.24 Fri Nov 18 23:35:26 2005 +++ public_html/index.html Fri Nov 18 23:39:55 2005 @@ -60,7 +60,7 @@ <div class="level"> <ul> <li><a href="http://talk.google.com/">Google Talk</a></li> - <li><a href="http://jabberd.jabberstudio.com/">Jabberd 1.4</a> (ie not 2)</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>

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv32567 Modified Files: README Log Message: 0.7.0 Date: Fri Nov 18 23:35:50 2005 Author: eenge Index: cl-xmpp/README diff -u cl-xmpp/README:1.9 cl-xmpp/README:1.10 --- cl-xmpp/README:1.9 Fri Nov 18 23:01:08 2005 +++ cl-xmpp/README Fri Nov 18 23:35:50 2005 @@ -6,10 +6,17 @@ * (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. +;; if you loaded cl-xmpp-sasl or cl-xmpp-tls. ;; send someone a message * (xmpp:message connection "username@hostname" "what's going on?")

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv32549 Modified Files: index.html Log Message: 0.7.0 Date: Fri Nov 18 23:35:26 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.23 public_html/index.html:1.24 --- public_html/index.html:1.23 Fri Nov 18 23:32:35 2005 +++ public_html/index.html Fri Nov 18 23:35:26 2005 @@ -50,8 +50,9 @@ <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)</li> - <li><a href="http://cliki.net/cl-sasl">cl-sasl</a> (for cl-xmpp-sasl)</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> @@ -109,10 +110,17 @@ * (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. +;; if you loaded cl-xmpp-sasl or cl-xmpp-tls. ;; send someone a message * (xmpp:message connection "username@hostname" "what's going on?")

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv32519 Modified Files: index.html Log Message: 0.7.0 Date: Fri Nov 18 23:32:35 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.22 public_html/index.html:1.23 --- public_html/index.html:1.22 Fri Nov 18 23:10:02 2005 +++ public_html/index.html Fri Nov 18 23:32:35 2005 @@ -7,7 +7,7 @@ <body> <div class="header"> - <h1>cl-xmpp 0.6.0</h1> + <h1>cl-xmpp 0.7.0</h1> </div> <div class="body"> @@ -30,6 +30,19 @@ 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>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> @@ -42,15 +55,12 @@ </ul> </div> - <h2>News</h2> + <h2>Tested against</h2> <div class="level"> <ul> - <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> + <li><a href="http://talk.google.com/">Google Talk</a></li> + <li><a href="http://jabberd.jabberstudio.com/">Jabberd 1.4</a> (ie not 2)</li> + <li><a href="http://ejabberd.jabber.ru/">ejabberd</a></li> </ul> </div>

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv31460 Modified Files: cl-xmpp.lisp utility.lisp Log Message: tls now works (thanks david lichteblau!) Date: Fri Nov 18 23:29:28 2005 Author: eenge Index: cl-xmpp/cl-xmpp.lisp diff -u cl-xmpp/cl-xmpp.lisp:1.20 cl-xmpp/cl-xmpp.lisp:1.21 --- cl-xmpp/cl-xmpp.lisp:1.20 Fri Nov 18 22:43:52 2005 +++ cl-xmpp/cl-xmpp.lisp Fri Nov 18 23:29:27 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.20 2005/11/18 21:43:52 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.21 2005/11/18 22:29:27 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -355,17 +355,22 @@ (defmacro with-iq ((connection &key id to (type "get")) &body body) "Macro to make it easier to write IQ stanzas." - (let ((stream (gensym))) + (let ((stream (gensym "stream")) + (xml (gensym "xml"))) `(let ((,stream (server-stream ,connection))) (prog1 - (cxml:with-xml-output (make-octet+character-debug-stream-sink ,stream) - (cxml:with-element "iq" - (when ,id - (cxml:attribute "id" ,id)) - (when ,to - (cxml:attribute "to" ,to)) - (cxml:attribute "type" ,type) - ,@body)) +; (cxml:with-xml-output (make-octet+character-debug-stream-sink ,stream) + (let ((,xml (cxml:with-xml-output (cxml:make-octet-vector-sink) + (cxml:with-element "iq" + (when ,id + (cxml:attribute "id" ,id)) + (when ,to + (cxml:attribute "to" ,to)) + (cxml:attribute "type" ,type) + ,@body)))) + (write-sequence (vector-to-array ,xml) ,stream) + (when *debug-stream* + (write-sequence (map 'string #'code-char ,xml) *debug-stream*))) (force-output ,stream))))) (defmacro with-iq-query ((connection &key xmlns id to node (type "get")) &body body) Index: cl-xmpp/utility.lisp diff -u cl-xmpp/utility.lisp:1.10 cl-xmpp/utility.lisp:1.11 --- cl-xmpp/utility.lisp:1.10 Mon Nov 14 21:07:36 2005 +++ cl-xmpp/utility.lisp Fri Nov 18 23:29:27 2005 @@ -1,4 +1,4 @@ -;;;; $Id: utility.lisp,v 1.10 2005/11/14 20:07:36 eenge Exp $ +;;;; $Id: utility.lisp,v 1.11 2005/11/18 22:29:27 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/utility.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -52,4 +52,10 @@ (intern correct-case-thing :keyword))) ((typep thing 'array) (ensure-keyword (map 'string #'code-char thing))) ((eq thing nil) nil) - (t (error "Don't know how to make keyword out of: ~a (type: ~a)" thing (type-of thing))))) \ No newline at end of file + (t (error "Don't know how to make keyword out of: ~a (type: ~a)" thing (type-of thing))))) + +(defun vector-to-array (vector) + (let ((array (make-array (length vector) :element-type '(unsigned-byte 8)))) + (dotimes (position (length vector)) + (setf (aref array position) (aref vector position))) + array)) \ No newline at end of file

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv30271 Modified Files: index.html Log Message: fixed a missing paren Date: Fri Nov 18 23:10:03 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.21 public_html/index.html:1.22 --- public_html/index.html:1.21 Fri Nov 18 23:03:23 2005 +++ public_html/index.html Fri Nov 18 23:10:02 2005 @@ -89,7 +89,7 @@ <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> + cl-xmpp-devel(a)common-lisp.net</a></tt> (<a href="http://common-lisp.net/pipermail/cl-xmpp-devel/">archives</a>).</p> </div>

1 0

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

18 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv30172 Modified Files: index.html Log Message: *** empty log message *** Date: Fri Nov 18 23:03:24 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.20 public_html/index.html:1.21 --- public_html/index.html:1.20 Fri Nov 18 23:00:44 2005 +++ public_html/index.html Fri Nov 18 23:03:23 2005 @@ -37,8 +37,8 @@ <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)</li> - <li><a href="http://cliki.net/cl-sasl">cl-sasl</a> (if you loaded cl-xmpp-sasl)</li> + <li><a href="http://cliki.net/cl-base64">cl-base64</a> (for cl-xmpp-sasl)</li> + <li><a href="http://cliki.net/cl-sasl">cl-sasl</a> (for cl-xmpp-sasl)</li> </ul> </div>

1 0

← Newer
1
2
3
4
5
6
7
...
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