FEAT: Stabilize Unified Envelope Architecture & TUI UX
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
- Fixed background boot crash via --non-interactive flag. - Implemented robust protocol sanitization (stripped raw streams). - Refined TUI formatting to display human-readable tool results. - Fixed opencortex.sh variable shadowing and connection logic. - Resolved :target field schema validation errors.
This commit is contained in:
28
mock_daemon.lisp
Normal file
28
mock_daemon.lisp
Normal file
@@ -0,0 +1,28 @@
|
||||
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
|
||||
(push (truename "./") asdf:*central-registry*)
|
||||
(ql:quickload '(:usocket :bordeaux-threads :opencortex))
|
||||
|
||||
(defun handle-client (stream)
|
||||
(handler-case
|
||||
(progn
|
||||
(format stream "~a" (opencortex:frame-message (opencortex:make-hello-message "0.1.0")))
|
||||
(finish-output stream)
|
||||
(loop
|
||||
(let ((msg (opencortex:read-framed-message stream)))
|
||||
(when (or (eq msg :eof) (eq msg :error)) (return))
|
||||
(let ((text (getf (getf msg :payload) :text)))
|
||||
(format t "MOCK: Received ~s~%" text)
|
||||
(let ((resp (list :TYPE :REQUEST :PAYLOAD (list :ACTION :MESSAGE :TEXT (format nil "ECHO: ~a" text)))))
|
||||
(format stream "~a" (opencortex:frame-message resp))
|
||||
(finish-output stream))))))
|
||||
(error (c) (format t "MOCK ERROR: ~a~%" c))))
|
||||
|
||||
(let ((socket (usocket:socket-listen "127.0.0.1" 9105 :reuse-address t)))
|
||||
(format t "MOCK DAEMON LIVE ON 9105~%")
|
||||
(unwind-protect
|
||||
(loop (let ((client (usocket:socket-accept socket)))
|
||||
(bt:make-thread (lambda ()
|
||||
(unwind-protect
|
||||
(handle-client (usocket:socket-stream client))
|
||||
(usocket:socket-close client))))))
|
||||
(usocket:socket-close socket)))
|
||||
Reference in New Issue
Block a user