ALIGN: Unified terminology to Harness Protocol

This commit is contained in:
2026-04-13 13:18:53 -04:00
parent 5d48e808ae
commit dc90bfde20

View File

@@ -16,7 +16,7 @@ The *Emacs Bridge Agent* is the primary sensory and motor interface to Emacs. It
:END:
** 1. Purpose
Define the transport layer for Org-Agent Communication Protocol (OACP).
Define the transport layer for Org-Agent Communication Protocol (Harness Protocol).
** 2. User Needs
- *Isolation:* Kernel remains transport-agnostic.
@@ -26,7 +26,7 @@ Define the transport layer for Org-Agent Communication Protocol (OACP).
** 3. Success Criteria
*** TODO Socket Listener Initialization
*** TODO Multi-client Connection Handling
*** TODO OACP Message Framing Verification
*** TODO Harness Protocol Message Framing Verification
* Phase B: Blueprint (PROTOCOL)
:PROPERTIES:
@@ -34,12 +34,12 @@ Define the transport layer for Org-Agent Communication Protocol (OACP).
:END:
** 1. Architectural Intent
Interfaces for TCP I/O and protocol framing. Source of truth is the OACP specification.
Interfaces for TCP I/O and protocol framing. Source of truth is the Harness Protocol specification.
** 2. Semantic Interfaces
#+begin_src lisp
(defun start-emacs-server (&key (port 9105))
"Starts the OACP listener.")
"Starts the Harness Protocol listener.")
(defun broadcast-to-emacs (action-plist)
"Sends a framed message to all connected clients.")
@@ -50,14 +50,14 @@ Interfaces for TCP I/O and protocol framing. Source of truth is the OACP specifi
** TCP Sensory Layer
#+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp
(defun handle-emacs-client (stream)
;; Logic for parsing length-prefixed OACP messages
;; Logic for parsing length-prefixed Harness Protocol messages
(format nil "Handling client on stream: ~a" stream))
#+end_src
** Outbound Actuation
#+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp
(defun stream-to-emacs (stream action-plist)
"Streams a chunk of data to a specific Emacs client over OACP using framing."
"Streams a chunk of data to a specific Emacs client over Harness Protocol using framing."
(let* ((type (or (getf action-plist :type) :request))
(payload (getf action-plist :payload))
;; Ensure Emacs always receives a :payload drawer