passepartout/skills/org-skill-cli-gateway.org

SKILL: CLI Gateway (Universal Literate Note)

• Overview
• Phase A: Demand (PRD)
  • 1. Purpose
  • 2. Success Criteria
• Phase B: Blueprint (PROTOCOL)
  • 1. Architectural Intent
  • 2. Semantic Interfaces
• Phase D: Build (Implementation)
  • Package Context
  • State: Server Control
  • Actuator: CLI Response
  • Server: Client Handler
  • Server: Main Loop
  • Registration
  • Initialization
• Phase E: The Client (Scripts)
  • The Bash Client

Overview

The CLI Gateway is the primary interaction point for the Org-Agent MVP. It provides a lightweight TCP socket server that allows local terminal clients to communicate with the daemon. It ensures a frictionless "First Contact" experience immediately following installation.

Phase A: Demand (PRD)

1. Purpose

Provide a secure, local, and low-latency terminal interface for the Org-Agent.

2. Success Criteria

• Ingress: Accept plain-text messages over TCP port 9105.
• Normalisation: Inject messages into the harness as `:chat-message` signals.
• Egress: Implement the `:cli` actuator to route agent responses back to the correct client socket.
• Client: Provide a standalone client script for the user's host machine.

Phase B: Blueprint (PROTOCOL)

1. Architectural Intent

The gateway runs a multi-threaded TCP server. Each connection is handled in its own thread. Inbound lines are wrapped in a Signal and processed. The `:cli` actuator retrieves the `:reply-stream` from the signal context to send the response back to the specific connected client.

2. Semantic Interfaces

• Inbound: `(:sensor :chat-message :channel :cli :text "…")`
• Outbound: `(:type :REQUEST :target :cli :text "…")`

Phase D: Build (Implementation)

Package Context

(in-package :org-agent)

State: Server Control

(defvar *cli-server-thread* nil)
(defvar *cli-server-socket* nil)
(defvar *cli-port* 9105)

Actuator: CLI Response

The CLI actuator writes the agent's response back to the client's network stream. It applies a simple "Agent: " prefix for clarity.

(defun execute-cli-action (action context)
  "Sends a message back to the connected CLI client via its network stream."
  (let* ((payload (getf action :payload))
         (text (or (getf payload :text) (getf action :text)))
         (stream (getf context :reply-stream)))
    (if (and stream (open-stream-p stream))
        (progn
          (format stream "Agent: ~a~%" text)
          (finish-output stream))
        (harness-log "CLI ERROR: No active reply stream for signal."))))

Server: Client Handler

Handles an individual TCP connection. It reads lines until the connection is closed.

(defun handle-cli-client (stream)
  "Reads lines from a CLI client and injects them as stimuli."
  (handler-case
      (loop for line = (read-line stream nil nil)
            while line do
            (let ((trimmed (string-trim '(#\Space #\Tab #\Newline #\Return) line)))
              (when (> (length trimmed) 0)
                (harness-log "CLI: Received input -> ~a" trimmed)
                (inject-stimulus (list :type :EVENT 
                                       :payload (list :sensor :chat-message 
                                                      :channel :cli 
                                                      :text trimmed))
                                 :stream stream))))
    (error (c) (harness-log "CLI CLIENT ERROR: ~a" c))))

Server: Main Loop

Listens for new TCP connections on the configured port.

(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 "org-agent-cli-client-handler")))
             (usocket:socket-close *cli-server-socket*)))
         :name "org-agent-cli-gateway"))
  (harness-log "CLI: Gateway listening on port ~a" port))

Registration

(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))

Initialization

(start-cli-gateway)

Phase E: The Client (Scripts)

We tangle a lightweight client script that the user can run on their host machine.

The Bash Client

# org-agent-chat: The terminal mouthpiece for the Sovereign Brain.
PORT=9105
HOST=${1:-localhost}

echo "Connecting to org-agent at $HOST:$PORT..."
echo "Type your message and press Enter. Ctrl+C to exit."
echo "--------------------------------------------------"

# Uses netcat (nc) for a simple bidirectional pipe. 
# Requires an open connection. We use a simple loop for persistence.
while true; do
    read -p "User: " MESSAGE
    if [ -z "$MESSAGE" ]; then continue; fi
    # Send message and wait for one line of response from Agent
    echo "$MESSAGE" | nc -N $HOST $PORT
done