Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

PLaneT fixes & renames

  • Loading branch information...
commit a369064269e8d9a8ebc8739f616bb6de602b91a7 1 parent 541893e
nik gaffney authored
Showing with 77 additions and 51 deletions.
  1. +2 −2 README.md
  2. +0 −44 gibberish.scrbl
  3. +4 −5 info.ss
  4. +71 −0 xmpp.scrbl
4 README.md
View
@@ -1,5 +1,5 @@
-# Gibberish
+# XMPP
A basic module for IM using the Jabber/XMPP protocol with PLT Scheme.
@@ -11,7 +11,7 @@ currently documented in the file 'xmpp.ss'
## Installation
- (require (planet zzkt/gibberish:1:0/xmpp))
+ (require (planet zzkt/xmpp:1:0/xmpp))
## Example Chat Client
44 gibberish.scrbl
View
@@ -1,44 +0,0 @@
-#lang scribble/doc
-@(require scribble/manual)
-
-@title{Gibberish}
-
-Gibberish is a module for using the Jabber/XMPP protocol.
-
-@table-of-contents[]
-
-@section{Protocol Support}
-
-It 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.ss'
-
-
-@section{Installation}
-
-(require (planet zzkt/gibberish:1:0/xmpp))
-
-
-@section{Example Chat Client}
-
-@schemeblock[
-
- (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))))))
- ]
-
-and chat away...
9 info.ss
View
@@ -1,10 +1,10 @@
#lang setup/infotab
(define name
- "gibberish")
+ "xmpp")
(define blurb
- '("A client library for the XMPP or Jabber protocol."))
+ '("A library for the XMPP or Jabber protocol."))
(define categories
'(xml net))
@@ -24,6 +24,5 @@
(define release-notes
'(""))
-;(define scribblings
-; '(("gibberish.scrbl" ())))
-
+(define scribblings
+ '(("xmpp.scrbl" ())))
71 xmpp.scrbl
View
@@ -0,0 +1,71 @@
+#lang scribble/doc
+@(require scribble/manual)
+
+@title{XMPP}
+
+A module for using the Jabber/XMPP protocol.
+
+@table-of-contents[]
+
+@section{Protocol Support}
+
+It 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.ss'
+
+
+@section{Installation}
+
+@schemeblock[(require (planet zzkt/xmpp:1:0/xmpp))]
+
+@section{Session}
+
+@schemeblock[
+(with-xmpp-session jid pass body)
+]
+
+@section{Mesaging}
+
+@schemeblock[
+(with-xmpp-session jid pass
+ (send (message to text)))
+]
+
+@section{Presence}
+
+@schemeblock[
+(with-xmpp-session jid pass
+ (send (presence)))
+]
+
+@section{Registration}
+
+@section{Response Handling}
+
+@schemeblock[
+(with-xmpp-session jid pass
+ (set-xmpp-handler 'message print-message))
+]
+
+@section{Example Chat Client}
+
+@schemeblock[
+(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))))))
+
+ ]
+
+and chat away...
Please sign in to comment.
Something went wrong with that request. Please try again.