Various parts of the groworld multplayer communcation infrastructure
preliminary notes can be found online at ->
http://lib.fo.am/groworld_multiplayer_prototype#network_protocol
;; exmaple chat client
(require "xmpp.scm")
(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))))))
