30 lines
985 B
Common Lisp
30 lines
985 B
Common Lisp
;;;; cl-scopes/core/message
|
|
|
|
(defpackage :scopes/core/message
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:actor :scopes/core/actor)
|
|
(:shape :scopes/shape)
|
|
(:util :scopes/util))
|
|
(:export #:message-meta #:message #:create
|
|
#:head #:data))
|
|
|
|
(in-package :scopes/core/message)
|
|
|
|
;;;; message
|
|
|
|
(defun message-meta ()
|
|
(make-instance 'shape:record-meta :head-fields '(:domain :action :class :item)))
|
|
|
|
(defclass message (shape:record actor:message)
|
|
((shape:meta :initform (message-meta) :allocation :class)))
|
|
|
|
(defun create (head &key data customer)
|
|
(shape:create 'message :head head :data data :customer customer))
|
|
|
|
(defmethod print-object ((msg message) stream)
|
|
;(shape:print-slots msg stream 'shape:head 'actor:customer 'shape:data)
|
|
(format stream "#<message ~a ~a ~a>"
|
|
(shape:head msg) (actor:customer msg) (shape:data msg)))
|
|
|
|
(defmethod actor:content ((msg message))
|
|
(list (shape:head-plist msg) (shape:data msg)))
|