From 6c5fc421b270b15982cba7d2e2208c93fb7ed952 Mon Sep 17 00:00:00 2001 From: Dave Griffiths Date: Thu, 23 Jul 2009 13:06:59 +0100 Subject: [PATCH] oops, forgot to add client.ss --- plant-eyes/client.ss | 78 +++++++++++++++++++++++++++++++++++++++ plant-eyes/plant-eyes.scm | 4 +- 2 files changed, 80 insertions(+), 2 deletions(-) create mode 100644 plant-eyes/client.ss diff --git a/plant-eyes/client.ss b/plant-eyes/client.ss new file mode 100644 index 0000000..c2d676b --- /dev/null +++ b/plant-eyes/client.ss @@ -0,0 +1,78 @@ +#lang scheme +(require scheme/class "jabberer.ss" "message.ss" "list-utils.ss") +(provide (all-defined-out)) + +; the client listens to all the messages from the logic side +; and decides which ones to send out to the network +; it also listens to the network and pokes the logic with updates + +(define client% + (class object% + (init-field + (jid "none@nowhere") + (pass "xxxx")) + + (field + (all-plants + (list + "plant0000001@fo.am" + "plant0000002@fo.am" + "plant0000003@fo.am" + )) + (plants-present '()) + (msg-filter (list 'new-pickup 'pick-up-pickup)) ; messages we don't want to send across the network + (jab (make-object jabberer% jid pass))) + + (define/public (setup) + (send jab start) + (send-msg all-plants (make-object message% 'hello-world (list (list 'plant-id jid))))) + + (define/public (send-msg recipients msg) + (for-each + (lambda (plant) + (when (not (string=? plant jid)) ; dont send to ourselves! + (send jab send-msg plant (send msg to-string)))) + recipients)) + + (define (fetch-messages l game-logic) + (cond ((not (send jab msg-waiting?)) l) + (else + (let* ((msg (send jab get-msg)) + (from (car msg)) + (body (cadr msg))) + + ; build a message from the xmpp message + (let ((msg (make-object message%))) + (send msg from-string body) + (let ((name (send msg get-name))) + ; filter out the messages we need to respond to + ; (and don't need sending to the rest of the game) + (cond + ((eq? name 'hello-world) + (printf "received hello-world from ~a~n" (send msg get-data 'plant-id)) + (set! plants-present (cons (send msg get-data 'plant-id) plants-present)) + (send-msg (list from) (make-object message% 'i-am-here (list (list 'plant-id jid)))) + ; send out our plant description messages + (for-each + (lambda (msg) + (printf "sending plant info to ~a ~n" from) + (send-msg (list from) msg)) + (send game-logic get-player-plant-desc)) + (fetch-messages l game-logic)) + ((eq? name 'i-am-here) + (set! plants-present (cons (send msg get-data 'plant-id) plants-present)) + (printf "received i-am-here ~a~n" plants-present) + (fetch-messages l game-logic)) ; todo: send plant to view + (else + (fetch-messages (cons msg l) game-logic))))))))) + + (define/public (update messages game-logic) + (for-each + (lambda (msg) + (when (not (list-contains (send msg get-name) msg-filter)) + (send-msg all-plants msg))) ; todo - need to send to plants-present only + messages) + (fetch-messages messages game-logic)) ; add get messages from the network on + + (super-new))) + diff --git a/plant-eyes/plant-eyes.scm b/plant-eyes/plant-eyes.scm index f85a0c5..48f1d04 100644 --- a/plant-eyes/plant-eyes.scm +++ b/plant-eyes/plant-eyes.scm @@ -1,5 +1,5 @@ -#lang scheme/base -(require fluxus-016/drflux) +;#lang scheme/base +;(require fluxus-016/drflux) (require scheme/class "logic.ss" "view.ss" "controller.ss" "client.ss" "jabberer.ss") (define jid "plant0000001@fo.am")