cco/decons
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

forward messages via and additional neuron

Browse source
This commit is contained in:
Helmut Merz 2025-06-05 09:03:33 +02:00
parent be91b6a446
commit 2fd468e109
2 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
csys.lisp
View file

@ -4,7 +4,8 @@
(:use :common-lisp) (:use :common-lisp)
(:local-nicknames (:actor :scopes/core/actor) (:local-nicknames (:actor :scopes/core/actor)
(:util :scopes/util)) (:util :scopes/util))
(:export #:neuron #:synapse)) (:export #:neuron #:synapse
#:forward))
(in-package :decons/csys) (in-package :decons/csys)
@ -14,4 +15,10 @@
(defun synapse (rcvr &optional (op #'identity)) (defun synapse (rcvr &optional (op #'identity))
(lambda (msg) (lambda (msg)
(actor:send rcvr (op msg)))) (actor:send rcvr (funcall op msg))))
;;;; simple default / example neuron processors
(defun forward (msg state syns env)
(dolist (s syns)
(funcall s msg)))

10
test-csys.lisp
View file

@ -9,11 +9,11 @@
)) ))
(deftest test-neuron () (deftest test-neuron ()
(let ((prb (csys:neuron #'probe (let* ((prb (csys:neuron #'probe :env t:*test-suite* :state '(42 43)))
:state '(42 43) (fw (csys:neuron #'csys:forward :syns (list (csys:synapse prb)))))
:env t:*test-suite*))) (actor:send fw (actor:message 42))
(actor:send prb (actor:message 42)) (actor:send fw (actor:message 43))
(actor:send prb (actor:message 43))
(sleep 0.1) (sleep 0.1)
(actor:stop prb) (actor:stop prb)
(actor:stop fw)
)) ))