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

csys: start with defining programs

Browse source
This commit is contained in:
Helmut Merz 2026-04-07 09:51:50 +02:00
parent 429634dd82
commit b863763e9b
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
csys/csys.lisp
View file

@ -56,12 +56,12 @@
(defun update-neuron (proc state syns)
(actor:become (neuron proc state syns)))
(defun std-proc (msg state syns)
(defun std-proc (msg state syns &key (next #'std-proc))
;(util:lgi msg state syns env)
(destructuring-bind (nmsg nst nsyns)
(handle-action msg state syns :default #'remember)
(forward nmsg nsyns)
(update-neuron (next-proc nst) nst nsyns)))
(update-neuron (next-proc nst next) nst nsyns)))
;;;; neuron state methods
@ -71,6 +71,10 @@
(defgeneric value (state)
(:method (state) state))
(defun program (msg state syns)
(let ((stages (list #'std-proc)))
(funcall (car stages) msg state syns)))
;;;; sensors: neurons receiving messages from environment, addressable via message head
(defun send-message (head data &key customer)