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

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

10 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv19731 Modified Files: index.html Log Message: note about support for OpenMCL Date: Thu Nov 10 22:17:59 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.16 public_html/index.html:1.17 --- public_html/index.html:1.16 Thu Nov 10 22:17:13 2005 +++ public_html/index.html Thu Nov 10 22:17:59 2005 @@ -30,7 +30,7 @@ <h2>Requirements</h2> <div class="level"> <ul> - <li>A recent SBCL (need 16bit wide characters), LispWorks or Allegro (patches welcome for others)</li> + <li>SBCL, LispWorks, OpenMCL and Allegro (patches welcome for others)</li> <li><a href="http://common-lisp.net/project/cxml">cxml</a></li> <li><a href="http://cliki.net/ironclad">Ironclad</a></li> </ul>

1 0

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

10 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv19710 Modified Files: index.html Log Message: adding link to mailinglist archives Date: Thu Nov 10 22:17:14 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.15 public_html/index.html:1.16 --- public_html/index.html:1.15 Mon Oct 31 22:10:34 2005 +++ public_html/index.html Thu Nov 10 22:17:13 2005 @@ -82,7 +82,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>.</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: cl-xmpp/utility.lisp
by eenge＠common-lisp.net 10 Nov '05

10 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv16485 Modified Files: utility.lisp Log Message: deleted some functions from utility.lisp which are now in ironclad 0.10 Date: Thu Nov 10 21:41:28 2005 Author: eenge Index: cl-xmpp/utility.lisp diff -u cl-xmpp/utility.lisp:1.5 cl-xmpp/utility.lisp:1.6 --- cl-xmpp/utility.lisp:1.5 Mon Oct 31 22:07:15 2005 +++ cl-xmpp/utility.lisp Thu Nov 10 21:41:28 2005 @@ -1,4 +1,4 @@ -;;;; $Id: utility.lisp,v 1.5 2005/10/31 21:07:15 eenge Exp $ +;;;; $Id: utility.lisp,v 1.6 2005/11/10 20:41:28 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/utility.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -21,26 +21,10 @@ (setf (aref array position) (char-code (aref string position)))) array)) -(defun hex-array-to-ascii-string (array) - (let ((string (make-string 0))) - (dotimes (position (length array)) - (let ((element (aref array position)) - (*print-base* 16)) - (setq string (fmt "~a~a" string element)))) ; probably inefficient - string)) - -;;; borrowed from ironclad, so Copyright (C) 2004 Nathan Froyd -(defun ascii-string-to-byte-array (string) - (let ((vec (make-array (length string) :element-type '(unsigned-byte 8)))) - (dotimes (i (length string) vec) - (let ((byte (char-code (char string i)))) - (assert (< byte 256)) - (setf (aref vec i) byte))))) - (defun digestify-string (string) - (hex-array-to-ascii-string + (ironclad:byte-array-to-hex-string (ironclad:digest-sequence - :sha1 (ascii-string-to-byte-array string)))) + :sha1 (ironclad:ascii-string-to-byte-array string)))) (defun make-digest-password (stream-id password) (string-downcase (digestify-string (fmt "~a~a" stream-id password))))

1 0

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

07 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv19888 Modified Files: package.lisp Log Message: nickname xmpp had gone missing, readded Date: Mon Nov 7 20:15:51 2005 Author: eenge Index: cl-xmpp/package.lisp diff -u cl-xmpp/package.lisp:1.4 cl-xmpp/package.lisp:1.5 --- cl-xmpp/package.lisp:1.4 Thu Nov 3 21:55:11 2005 +++ cl-xmpp/package.lisp Mon Nov 7 20:15:51 2005 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.4 2005/11/03 20:55:11 eenge Exp $ +;;;; $Id: package.lisp,v 1.5 2005/11/07 19:15:51 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -10,6 +10,7 @@ (:use :cl #+allegro :socket #+openmcl :ccl) + (:nicknames :xmpp) (:export ;; connection-related :connect :disconnect :socket :stream- :hostname :port :connectedp

1 0

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

03 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv2289 Modified Files: cl-xmpp.lisp package.lisp Log Message: adding openmcl support from lemonodor Date: Thu Nov 3 21:55:11 2005 Author: eenge Index: cl-xmpp/cl-xmpp.lisp diff -u cl-xmpp/cl-xmpp.lisp:1.7 cl-xmpp/cl-xmpp.lisp:1.8 --- cl-xmpp/cl-xmpp.lisp:1.7 Mon Oct 31 22:07:15 2005 +++ cl-xmpp/cl-xmpp.lisp Thu Nov 3 21:55:10 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.7 2005/10/31 21:07:15 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.8 2005/11/03 20:55:10 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -63,7 +63,8 @@ :socket socket :hostname hostname :port port)) - #+allegro (let ((socket (socket:make-socket :remote-host hostname :remote-port port))) + #+(or allegro openmcl) + (let ((socket (socket:make-socket :remote-host hostname :remote-port port))) ;; fixme: (setf (sb-bsd-sockets:non-blocking-mode socket) t) (make-instance 'connection :server-stream socket @@ -95,7 +96,7 @@ (defmethod disconnect ((connection connection)) "Disconnect TCP connection." #+sbcl (sb-bsd-sockets:socket-close (socket connection)) - #+(or allegro lispworks) (close (socket connection)) + #+(or allegro openmcl lispworks) (close (socket connection)) connection) ;; Index: cl-xmpp/package.lisp diff -u cl-xmpp/package.lisp:1.3 cl-xmpp/package.lisp:1.4 --- cl-xmpp/package.lisp:1.3 Sat Oct 29 19:25:04 2005 +++ cl-xmpp/package.lisp Thu Nov 3 21:55:11 2005 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.3 2005/10/29 17:25:04 eenge Exp $ +;;;; $Id: package.lisp,v 1.4 2005/11/03 20:55:11 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -7,8 +7,9 @@ (eval-when (:execute :load-toplevel :compile-toplevel) (defpackage :cl-xmpp - (:use :cl) - (:nicknames :xmpp) + (:use :cl + #+allegro :socket + #+openmcl :ccl) (:export ;; connection-related :connect :disconnect :socket :stream- :hostname :port :connectedp

1 0