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)) (util:lgw "proc not found" cat stg spec))
proc)))) 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)) (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))) (msg (message:create (list domain :create) :data (list :addr addr)))
(scope (scope prg env :categ categ)) (scope (scope prg env :categ categ))
(zero (neuron scope))) (zero (neuron scope)))
@ -183,11 +183,11 @@
;;;; public shortcuts ;;;; public shortcuts
(defun send-create (cell &rest args &key (domain :csys) (cat :c00) name connect op) (defun send-create (cell &rest args &key (domain :csys) (cat :c00) loc connect op)
(let ((args+ (if name (let ((args+ (if loc
`(:addr ,(list domain cat name)) `(:addr ,(list domain cat loc))
`(:categ ,(list domain cat))))) `(: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 (actor:send cell
(message:create (list domain :create) :data (append args+ args))))) (message:create (list domain :create) :data (append args+ args)))))

4
csys/environ.lisp
View file

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

6
test/test-csys.lisp
View file

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