cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

csys test: forward message to zero neuron => fixes

Browse source
This commit is contained in:
Helmut Merz 2026-07-21 17:22:51 +02:00
parent d316b73e93
commit 8cd2b882ee
3 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
csys/csys.lisp
View file

@ -103,7 +103,7 @@
(defun notify-created (msg new scope) (defun notify-created (msg new scope)
(let* ((head (list (message:domain msg) :created)) (let* ((head (list (message:domain msg) :created))
(data (util:plist-merge (shape:data msg) '(:new new :parent actor:*self*))) (data (util:plist-merge (shape:data msg) `(:new ,new :parent ,actor:*self*)))
(msg1 (message:create head :data data))) (msg1 (message:create head :data data)))
(notify msg1 scope)) (notify msg1 scope))
) )

8
csys/environ.lisp
View file

@ -25,7 +25,7 @@
(defun actions () (defun actions ()
(list :created #'cell-created (list :created #'cell-created
:default #'csys:no-op)) :default #'forward))
(defun cell-created (msg scope) (defun cell-created (msg scope)
(let* ((data (shape:data msg)) (let* ((data (shape:data msg))
@ -34,12 +34,10 @@
(register-cell (cells scope) addr (getf data :new))) (register-cell (cells scope) addr (getf data :new)))
(list msg scope))) (list msg scope)))
(defun forward-message (head scope &key data customer)
(forward (message:create head :data data :customer customer) scope))
(defun forward (msg scope) (defun forward (msg scope)
(dolist (cell (find-cells (cells scope) (message:addr msg))) (dolist (cell (find-cells (cells scope) (message:addr msg)))
(actor:send cell msg))) (actor:send cell msg))
(list msg scope))
;;;; helpers ;;;; helpers

9
test/test-csys.lisp
View file

@ -60,13 +60,14 @@
(setf (tc:receiver t:*test-suite*) recv) (setf (tc:receiver t:*test-suite*) recv)
;(csys:create-zero (test-program) env) ;(csys:create-zero (test-program) env)
(csys:create-zero (csys:make-program #'csys:std-proc) env) (csys:create-zero (csys:make-program #'csys:std-proc) env)
)) env))
(deftest test-basic-0 () (deftest test-basic-0 ()
(setup-test-basic-0) (let ((env (setup-test-basic-0)))
(sleep 0.1) (sleep 0.1)
(core:shutdown) (actor:send env (message:create '(:csys :value :c00 "0-0") :data '(:value 1)))
) (sleep 0.1)
(core:shutdown)))
(deftest x-test-init () (deftest x-test-init ()
;(csys:send-message '(:csys :sensor :init :zero) '(:std :s1)) ;(csys:send-message '(:csys :sensor :init :zero) '(:std :s1))