PLaneT compatability

This commit is contained in:
nik gaffney 2009-04-03 10:48:50 +02:00
parent 9a73ec0215
commit 6f368ebdd4
4 changed files with 46 additions and 16 deletions

View file

@ -9,7 +9,11 @@ Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs
3920 and 3921. Progress toward supporting the full protocol is 3920 and 3921. Progress toward supporting the full protocol is
currently documented in the file 'xmpp.scm' currently documented in the file 'xmpp.scm'
## example chat client ## Installation
(require (planet "xmpp.scm" (zzkt gibberish 1 0)))
## Example Chat Client
(require xmpp) (require xmpp)
@ -28,6 +32,7 @@ currently documented in the file 'xmpp.scm'
(send (message to msg)) (send (message to msg))
(loop)))))) (loop))))))
## possiby interesting extensions to implement. ## possiby interesting extensions to implement.
see http://xmpp.org/extensions/ see http://xmpp.org/extensions/

View file

@ -3,7 +3,22 @@
@title{Gibberish} @title{Gibberish}
@title{Example chat client} 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.scm'
@section{Installation}
(require (planet "xmpp.scm" (zzkt gibberish 1 0)))
@section{Example Chat Client}
@schemeblock[ @schemeblock[
@ -13,7 +28,7 @@
(display prompt) (display prompt)
(read-line (current-input-port))) (read-line (current-input-port)))
(define (chat2) (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: ")))
@ -25,4 +40,4 @@
(loop)))))) (loop))))))
] ]
and chat away...

29
info.ss
View file

@ -1,20 +1,29 @@
#lang setup/infotab #lang setup/infotab
;; http://docs.plt-scheme.org/planet/Developing_Packages_for_PLaneT.html
(define name "gibberish") (define name
"gibberish")
(define 'blurb "A client library for the XMPP or Jabber protocol.") (define blurb
'("A client library for the XMPP or Jabber protocol."))
(define 'release-notes "") (define categories
'(xml net))
(define 'categories '(xml net)) (define homepage
"http://github.com/zzkt/gibberish/")
(define 'homepage "") (define primary-file
"xmpp.ss")
(define 'primary-file "xmpp.scm") (define repositories
'("4.x"))
(define 'repositories "4.x") (define required-core-version
"4.1.5")
(define 'required-core-version "4.1.5") (define release-notes
'(""))
;(define scribblings
; '(("gibberish.scrbl" ())))
(define scribblings '("gibberish.scrbl" ()))

View file

@ -53,6 +53,7 @@
;;; - rfc 3921 ;;; - rfc 3921
;;; ;;;
;;; bugs and/or improvements ;;; bugs and/or improvements
;;; - PLaneT installable
;;; - read-async & repsonse-handler ;;; - read-async & repsonse-handler
;;; - ssax:xml->sxml or lazy:xml->sxml ;;; - ssax:xml->sxml or lazy:xml->sxml
;;; - default handlers ;;; - default handlers