1.4 KiB
1.4 KiB
Gibberish
A basic module for IM using the Jabber/XMPP protocol with PLT Scheme.
Protocol Support
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'
Installation
(require (planet "xmpp.scm" (zzkt gibberish 1 0)))
Example Chat Client
(require xmpp)
(define (read-input prompt)
(display prompt)
(read-line (current-input-port)))
(define (chat)
(let ((jid (read-input "jid: "))
(pass (read-input "password: "))
(to (read-input "chat with: ")))
(with-xmpp-session jid pass
(set-xmpp-handler 'message print-message)
(let loop ()
(let ((msg (read-line (current-input-port))))
(send (message to msg))
(loop))))))
possiby interesting extensions to implement.
see http://xmpp.org/extensions/
- XEP-0047: In-Band Bytestreams
- XEP-0066: Out of Band Data
- XEP-0030: Service Discovery
- XEP-0060: Publish-Subscribe
- XEP-0045: Multi-User Chat
- XEP-0149: Time Periods
- XEP-0166: Jingle
- XEP-0174: Serverless Messaging
- XEP-0199: XMPP Ping
- XEP-0224: Attention
- XEP-0077: In-Band Registration