32 lines
833 B
Common Lisp
32 lines
833 B
Common Lisp
;;;; decons/csys - cybernetic communication systems
|
|
|
|
(defpackage :decons/csys
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:actor :scopes/core/actor)
|
|
(:util :scopes/util))
|
|
(:export #:neuron #:synapse
|
|
#:forward
|
|
#:set-content))
|
|
|
|
(in-package :decons/csys)
|
|
|
|
(defun neuron (proc &key state syns env)
|
|
(actor:create
|
|
(lambda (msg) (funcall proc msg state syns env))))
|
|
|
|
(defun synapse (rcvr &optional (op #'identity))
|
|
(lambda (msg)
|
|
(actor:send rcvr (funcall op msg))))
|
|
|
|
;;;; simple default / example neuron processors
|
|
|
|
(defun forward (msg state syns env)
|
|
(dolist (s syns)
|
|
(funcall s msg)))
|
|
|
|
;;;; helpers for operating on messages
|
|
|
|
(defun set-content (fn)
|
|
(lambda (msg) (actor:message
|
|
(funcall fn (actor:content msg))
|
|
(actor:customer msg))))
|