Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 53 lines (36 sloc) 1.369 kb
c45064a @zzkt seed
authored
1
a369064 @zzkt PLaneT fixes & renames
authored
2 # XMPP
c45064a @zzkt seed
authored
3
4 A basic module for IM using the Jabber/XMPP protocol with PLT Scheme.
5
6 ## Protocol Support
7
9a73ec0 @zzkt formatting
authored
8 Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs
9 3920 and 3921. Progress toward supporting the full protocol is
541893e @zzkt more PLaneT compatability changes
authored
10 currently documented in the file 'xmpp.ss'
6f368eb @zzkt PLaneT compatability
authored
11
12 ## Installation
13
a369064 @zzkt PLaneT fixes & renames
authored
14 (require (planet zzkt/xmpp:1:0/xmpp))
9a73ec0 @zzkt formatting
authored
15
6f368eb @zzkt PLaneT compatability
authored
16 ## Example Chat Client
c45064a @zzkt seed
authored
17
9a73ec0 @zzkt formatting
authored
18 (require xmpp)
c45064a @zzkt seed
authored
19
9a73ec0 @zzkt formatting
authored
20 (define (read-input prompt)
21 (display prompt)
22 (read-line (current-input-port)))
c45064a @zzkt seed
authored
23
9a73ec0 @zzkt formatting
authored
24 (define (chat)
25 (let ((jid (read-input "jid: "))
26 (pass (read-input "password: "))
27 (to (read-input "chat with: ")))
28 (with-xmpp-session jid pass
29 (set-xmpp-handler 'message print-message)
30 (let loop ()
31 (let ((msg (read-line (current-input-port))))
32 (send (message to msg))
33 (loop))))))
c45064a @zzkt seed
authored
34
6f368eb @zzkt PLaneT compatability
authored
35
59f0da8 @zzkt formatting
authored
36 ## possiby interesting extensions to implement.
37
38 see http://xmpp.org/extensions/
c45064a @zzkt seed
authored
39
40 * XEP-0047: In-Band Bytestreams
41 * XEP-0066: Out of Band Data
42 * XEP-0030: Service Discovery
43 * XEP-0060: Publish-Subscribe
44 * XEP-0045: Multi-User Chat
45 * XEP-0149: Time Periods
46 * XEP-0166: Jingle
47 * XEP-0174: Serverless Messaging
48 * XEP-0199: XMPP Ping
49 * XEP-0224: Attention
50 * XEP-0077: In-Band Registration
51
9a73ec0 @zzkt formatting
authored
52
Something went wrong with that request. Please try again.