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

csys: creation of pred (sensor) and succ (effector) for zero OK

Browse source
This commit is contained in:
Helmut Merz 2026-07-27 22:18:30 +02:00
parent d27049230d
commit ff4b9d9800
2 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
csys/csys.lisp
View file

@ -193,5 +193,5 @@
(let ((data (shape:data msg)))
(actor:send rcvr
(message:create (list (message:domain msg) :connect)
:data (list :target (getf data :target)
:data (list :target target
:op (getf data :op))))))

18
test/test-csys.lisp
View file

@ -63,13 +63,11 @@
;;;; test-specific programs / actions
;;;; (move to scopes/csys/programs)
(defun test-program ()
(csys:make-program (csys:eff-proc :actions (actions-zero-initial))))
(defun prog-b0 ()
(csys:make-program
(list '(:c00 :initial) (csys:eff-proc :actions (actions-zero-initial))
':default (csys:std-proc))))
(list '(:c00 :initial) (csys:std-proc :actions (actions-zero-initial))
'(:e01 :initial) (csys:eff-proc :actions (csys:basic-actions))
':default (csys:std-proc :actions (csys:basic-actions)))))
(defun actions-zero-initial ()
(let ((acts (csys:basic-actions)))
@ -80,10 +78,10 @@
(lambda (msg scope)
(let ((head '(:csys :create :c00 "0-0")))
(actor:send actor:*self*
(message:create head :data '(:categ (:csys :e01))))
(message:create head :data '(:categ (:csys :e01) :connect :succ)))
(actor:send actor:*self*
(message:create head :data '(:addr (:csys :s01 "0-1"))))
;; create :succ :e01; create :pred :s01; connect *self* :op (multiply -1)
(message:create head :data '(:addr (:csys :s01 "0-1") :connect :pred)))
;; connect *self* :op (multiply -1)
;; switch :active
nil)))
@ -93,7 +91,7 @@
(let ((env (setup-test (prog-b0)))
(rcvr (tc:receiver t:*test-suite*)))
(sleep 0.1)
(tc:expect rcvr (message:create '(:csys :effect :c00) :data '(:value 1)))
(actor:send env (message:create '(:csys :value :c00 "0-0") :data '(:value 1)))
(tc:expect rcvr (message:create '(:csys :effect :e01) :data '(:value 1)))
(actor:send env (message:create '(:csys :value :s01 "0-1") :data '(:value 1)))
(sleep 0.1)
(core:shutdown)))