25 lines
767 B
Text
25 lines
767 B
Text
|
|
||
|
|
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))))))
|
||
|
|
|