formatting

This commit is contained in:
nik gaffney 2009-04-02 18:02:30 +02:00
parent 59f0da8a12
commit 9a73ec0215

View file

@ -5,18 +5,19 @@ A basic module for IM using the Jabber/XMPP protocol with PLT Scheme.
## Protocol Support ## Protocol Support
Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs 3920 and 3921. Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs
3920 and 3921. Progress toward supporting the full protocol is
currently documented in the file 'xmpp.scm'
## example chat client ## example chat client
<code> (require xmpp)
(require xmpp)
(define (read-input prompt) (define (read-input prompt)
(display prompt) (display prompt)
(read-line (current-input-port))) (read-line (current-input-port)))
(define (chat) (define (chat)
(let ((jid (read-input "jid: ")) (let ((jid (read-input "jid: "))
(pass (read-input "password: ")) (pass (read-input "password: "))
(to (read-input "chat with: "))) (to (read-input "chat with: ")))
@ -26,8 +27,6 @@ Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs 3920 and
(let ((msg (read-line (current-input-port)))) (let ((msg (read-line (current-input-port))))
(send (message to msg)) (send (message to msg))
(loop)))))) (loop))))))
</code>
## possiby interesting extensions to implement. ## possiby interesting extensions to implement.
@ -45,3 +44,4 @@ see http://xmpp.org/extensions/
* XEP-0224: Attention * XEP-0224: Attention
* XEP-0077: In-Band Registration * XEP-0077: In-Band Registration