PLaneT compatability
This commit is contained in:
parent
9a73ec0215
commit
6f368ebdd4
4 changed files with 46 additions and 16 deletions
|
@ -8,8 +8,12 @@ A basic module for IM using the Jabber/XMPP protocol with PLT Scheme.
|
|||
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
|
||||
## Example Chat Client
|
||||
|
||||
(require xmpp)
|
||||
|
||||
|
@ -28,6 +32,7 @@ currently documented in the file 'xmpp.scm'
|
|||
(send (message to msg))
|
||||
(loop))))))
|
||||
|
||||
|
||||
## possiby interesting extensions to implement.
|
||||
|
||||
see http://xmpp.org/extensions/
|
||||
|
|
|
@ -3,7 +3,22 @@
|
|||
|
||||
@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[
|
||||
|
||||
|
@ -13,7 +28,7 @@
|
|||
(display prompt)
|
||||
(read-line (current-input-port)))
|
||||
|
||||
(define (chat2)
|
||||
(define (chat)
|
||||
(let ((jid (read-input "jid: "))
|
||||
(pass (read-input "password: "))
|
||||
(to (read-input "chat with: ")))
|
||||
|
@ -25,4 +40,4 @@
|
|||
(loop))))))
|
||||
]
|
||||
|
||||
|
||||
and chat away...
|
31
info.ss
31
info.ss
|
@ -1,20 +1,29 @@
|
|||
#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" ()))
|
||||
|
|
|
@ -53,6 +53,7 @@
|
|||
;;; - rfc 3921
|
||||
;;;
|
||||
;;; bugs and/or improvements
|
||||
;;; - PLaneT installable
|
||||
;;; - read-async & repsonse-handler
|
||||
;;; - ssax:xml->sxml or lazy:xml->sxml
|
||||
;;; - default handlers
|
||||
|
@ -284,7 +285,7 @@
|
|||
,@body
|
||||
(close-output-port out)
|
||||
(close-input-port in))))
|
||||
|
||||
|
||||
|
||||
) ;; end module
|
||||
|
Loading…
Reference in a new issue