ALIGN: Unified terminology to Harness Protocol
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user