44 lines
1.1 KiB
Markdown
44 lines
1.1 KiB
Markdown
|
|
||
|
|
# 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.
|
||
|
|
|
||
|
|
## 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. 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
|
||
|
|
|