refactor: Flatten directory structure library->harness, library/gen->skills

2026-04-27 08:41:26 -04:00
parent 43dbe3cf2d
commit 664ba8243d
68 changed files with 637 additions and 666 deletions
--- a/skills/org-skill-cli-gateway.lisp
+++ b/skills/org-skill-cli-gateway.lisp
@@ -0,0 +1,81 @@
+(defvar *cli-port* 9105)
+(defvar *cli-server-socket* nil)
+(defvar *cli-server-thread* nil)
+
+(defun execute-cli-action (action context)
+  "Sends a framed message back to the connected CLI client."
+  (let* ((payload (proto-get action :PAYLOAD))
+         (meta (getf context :meta))
+         (stream (getf meta :reply-stream)))
+    (handler-case
+        (if (and stream (open-stream-p stream))
+            (progn
+              (format stream "~a" (frame-message action))
+              (finish-output stream)
+              (format stream "~a" (frame-message '(:TYPE :STATUS :SCRIBE :IDLE :GARDENER :SLEEPING)))
+              (finish-output stream))
+            (harness-log "CLI ERROR: No active or open reply stream for signal."))
+      (error (c) (harness-log "CLI ACTUATOR ERROR: ~a" c)))))
+
+(defun handle-cli-slash-command (cmd stream)
+  (cond
+    ((string= cmd "/exit") (return-from handle-cli-slash-command :exit))
+    (t (format stream "~a" (frame-message (list :TYPE :REQUEST :PAYLOAD (list :ACTION :MESSAGE :TEXT (format nil "Unknown command: ~a" cmd))))))))
+
+(defun handle-cli-client (stream)
+  "Reads framed messages from a CLI client and injects them as stimuli."
+  (harness-log "CLI: Client connected.")
+  (handler-case
+      (progn
+        ;; 1. Send Handshake
+        (format stream "~a" (frame-message (make-hello-message "0.1.0")))
+        (finish-output stream)
+        (format stream "~a" (frame-message '(:TYPE :STATUS :SCRIBE :IDLE :GARDENER :SLEEPING)))
+        (finish-output stream)
+        
+        ;; 2. Communication Loop
+        (loop
+          (let ((msg (read-framed-message stream)))
+            (cond ((eq msg :eof) (return))
+                  ((eq msg :error) (return))
+                  (t (let* ((payload (proto-get msg :payload))
+                            (text (proto-get payload :text))
+                            (meta (proto-get msg :meta)))
+                       (if (and text (stringp text) (char= (char text 0) #\/))
+                           (when (eq (handle-cli-slash-command text stream) :exit) (return))
+                           (progn
+                             ;; Default meta if missing
+                             (unless meta
+                               (setf (getf msg :meta) (list :SOURCE :CLI :SESSION-ID "default")))
+                             (harness-log "CLI: Received input -> ~s" msg)
+                             (inject-stimulus msg :stream stream)))))))))
+    (error (c) (harness-log "CLI CLIENT DISCONNECT: ~a" c)))
+  (harness-log "CLI: Client disconnected."))
+
+(defun start-cli-gateway (&optional (port *cli-port*))
+  "Starts the TCP listener for local CLI clients."
+  (setf *cli-server-socket* (usocket:socket-listen "0.0.0.0" port :reuse-address t))
+  (setf *cli-server-thread*
+        (bt:make-thread
+         (lambda ()
+           (unwind-protect
+                (loop
+                  (let* ((socket (usocket:socket-accept *cli-server-socket*))
+                         (stream (usocket:socket-stream socket)))
+                    (bt:make-thread (lambda () 
+                                      (unwind-protect (handle-cli-client stream)
+                                        (usocket:socket-close socket)))
+                                    :name "opencortex-cli-client-handler")))
+             (usocket:socket-close *cli-server-socket*)))
+         :name "opencortex-cli-gateway"))
+  (harness-log "CLI: Gateway listening on port ~a" port))
+
+(register-actuator :CLI #'execute-cli-action)
+
+(defskill :skill-gateway-cli
+  :priority 200
+  :trigger (lambda (ctx) (declare (ignore ctx)) nil)
+  :probabilistic nil
+  :deterministic (lambda (action ctx) (declare (ignore ctx)) action))
+
+(start-cli-gateway)