message-wants-reply
message-ref
- send-message send-message-wait
- reply-message reply-message-wait
-
<- <-wait <-reply <-reply-wait
ez-run-hive
(body message-body)
(in-reply-to message-in-reply-to)
(wants-reply message-wants-reply)
-
- ;; See XUDD source for these. Not use yet, maybe eventually will be?
- ;; XUDD uses them for autoreply.
- ;; Requiring mutation on message objects is clearly not great,
- ;; but it may be worth it...? Investigate!
(replied message-replied set-message-replied!)
(deferred-reply message-deferred-reply set-message-deferred-reply!))
args)))))
-(define (send-message from-actor to-id action . message-body-args)
+;;; See: https://web.archive.org/web/20081223021934/http://mumble.net/~jar/articles/oo-moon-weinreb.html
+;;; (also worth seeing: http://mumble.net/~jar/articles/oo.html )
+
+(define (<- from-actor to-id action . message-body-args)
"Send a message from an actor to another actor"
(let* ((hive (actor-hive from-actor))
(message (make-message (hive-gen-message-id hive) to-id
(actor-id from-actor) action
(kwarg-list-to-alist message-body-args))))
- (8sync-nowait (hive-process-message hive message))))
+ (8sync (hive-process-message hive message))))
-(define (send-message-wait from-actor to-id action . message-body-args)
+(define (<-wait from-actor to-id action . message-body-args)
"Send a message from an actor to another, but wait until we get a response"
(let* ((hive (actor-hive from-actor))
(abort-to (hive-prompt (actor-hive from-actor)))
;; not have an exception thrown and instead just have a message with
;; the appropriate '*error* message returned.
-(define (reply-message from-actor original-message
- . message-body-args)
+(define (<-reply from-actor original-message . message-body-args)
"Reply to a message"
(set-message-replied! original-message #t)
(let* ((hive (actor-hive from-actor))
(actor-id from-actor) '*reply*
(kwarg-list-to-alist message-body-args)
#:in-reply-to (message-id original-message))))
- (8sync-nowait (hive-process-message hive new-message))))
+ (8sync (hive-process-message hive new-message))))
-(define (reply-message-wait from-actor original-message
- . message-body-args)
+(define (<-reply-wait from-actor original-message . message-body-args)
"Reply to a messsage, but wait until we get a response"
(set-message-replied! original-message #t)
(let* ((hive (actor-hive from-actor))
(abort-to-prompt abort-to from-actor new-message)))
-;;; Aliases!
-;;; See: http://mumble.net/~jar/articles/oo-moon-weinreb.html
-;;; (also worth seeing: http://mumble.net/~jar/articles/oo.html )
-
-(define <- send-message)
-(define <-wait send-message-wait)
-(define <-reply reply-message)
-(define <-reply-wait reply-message-wait)
-
-
\f
;;; Main actor implementation
;;; =========================
(actor-id hive) '*error*
new-message-body
#:in-reply-to (message-id original-message))))
- (8sync-nowait (hive-process-message hive new-message))))
+ (8sync (hive-process-message hive new-message))))
(define-method (hive-process-message (hive <hive>) message)
"Handle one message, or forward it via an ambassador"
;; Possibly autoreply
(if (message-needs-reply message)
;; @@: Should we give *autoreply* as the action instead of *reply*?
- (reply-message actor message
- #:*auto-reply* #t)))
+ (<-reply actor message #:*auto-reply* #t)))
(define (resolve-actor-to)
"Get the actor the message was aimed at"
(define (call-catching-coroutine thunk)
(define (call-catching-errors)
- ;; TODO: maybe parameterize and use maybe-catch-all from agenda.scm
+ ;; TODO: maybe parameterize (or attach to hive) and use
+ ;; maybe-catch-all from agenda.scm
;; @@: Why not just use with-throw-handler and let the catch
;; happen at the agenda? That's what we used to do, but
;; it ended up with a SIGABRT. See:
(process-remote-message))))
(define-method (hive-actor-local? (hive <hive>) address)
- (hash-ref (hive-actor-registry hive) address))
+ (equal? (hive-id hive) (address-hive-id address)))
(define-method (hive-register-actor! (hive <hive>) (actor <actor>))
(hash-set! (hive-actor-registry hive) (actor-id actor) actor))
This is the method actors should call directly (unless they want
to supply an id-cookie, in which case they should use
create-actor*)."
- (8sync (%hive-create-actor (actor-hive from-actor) actor-class
- init #f)))
+ (%hive-create-actor (actor-hive from-actor) actor-class
+ init #f))
(define* (create-actor* from-actor actor-class id-cookie #:rest init)
"Create an instance of actor-class. Return the new actor's id.
Like create-actor, but permits supplying an id-cookie."
- (8sync (%hive-create-actor (actor-hive from-actor) actor-class
- init id-cookie)))
+ (%hive-create-actor (actor-hive from-actor) actor-class
+ init id-cookie))
(define (self-destruct actor)
(define (bootstrap-message hive to-id action . message-body-args)
(wrap
- (apply send-message hive to-id action message-body-args)))
+ (apply <- hive to-id action message-body-args)))
\f