PLaneT compatability
This commit is contained in:
parent
9a73ec0215
commit
6f368ebdd4
4 changed files with 46 additions and 16 deletions
|
@ -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/
|
||||||
|
|
|
@ -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
29
info.ss
|
@ -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" ()))
|
|
||||||
|
|
|
@ -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
|
Loading…
Reference in a new issue