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

csys: neuron addresses: rename name field to loc

Browse source
This commit is contained in:
Helmut Merz 2026-07-31 08:44:43 +02:00
parent e0384a9108
commit 8c33e4bbb6
3 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
csys/csys.lisp
View file

@ -70,9 +70,9 @@
(util:lgw "proc not found" cat stg spec))
proc))))
(defun create-zero (prg env &key (categ '(:csys :c00)) (name "0-0"))
(defun create-zero (prg env &key (categ '(:csys :c00)) (loc "0-0"))
(let* ((domain (car categ))
(addr (list domain (cadr categ) name))
(addr (list domain (cadr categ) loc))
(msg (message:create (list domain :create) :data (list :addr addr)))
(scope (scope prg env :categ categ))
(zero (neuron scope)))
@ -183,11 +183,11 @@
;;;; public shortcuts
(defun send-create (cell &rest args &key (domain :csys) (cat :c00) name connect op)
(let ((args+ (if name
`(:addr ,(list domain cat name))
(defun send-create (cell &rest args &key (domain :csys) (cat :c00) loc connect op)
(let ((args+ (if loc
`(:addr ,(list domain cat loc))
`(:categ ,(list domain cat)))))
(setf args (alx:remove-from-plist args :domain :cat :name))
(setf args (alx:remove-from-plist args :domain :cat :loc))
(actor:send cell
(message:create (list domain :create) :data (append args+ args)))))

4
csys/environ.lisp
View file

@ -48,8 +48,8 @@
;;;; public shortcuts
(defun send-value (env val &key (domain :csys) (cat :c00) (name ""))
(let ((head (list domain :value cat name)))
(defun send-value (env val &key (domain :csys) (cat :c00) (loc ""))
(let ((head (list domain :value cat loc)))
(actor:send env (message:create head :data `(:value ,val)))))
;;;; internal helpers

6
test/test-csys.lisp
View file

@ -77,7 +77,7 @@
(lambda (msg scope)
(let ((self actor:*self*))
(csys:send-create self :cat :e01 :connect :succ)
(csys:send-create self :cat :s01 :name "0-1" :connect :pred)
(csys:send-create self :cat :s01 :loc "0-1" :connect :pred)
(csys:send-connect self self :op (csys:multiply -1))
;; switch :active
nil)))
@ -89,7 +89,7 @@
(rcvr (tc:receiver t:*test-suite*)))
(sleep 0.1)
;(tc:expect rcvr (message:create '(:csys :effect :e01) :data '(:value 1)))
(environ:send-value env 1 :cat :s01 :name "0-1")
(environ:send-value env 2 :cat :s01 :name "0-1")
(environ:send-value env 1 :cat :s01 :loc "0-1")
(environ:send-value env 2 :cat :s01 :loc "0-1")
(sleep 0.1)
(core:shutdown)))