amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(chaos): reset and standardize all tangle headers to clean relative paths

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 19:08:31 -04:00
parent 4669fcf22a
commit f465dcc59c
11 changed files with 32 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harness/act.org
View File

@@ -3,7 +3,7 @@
#+AUTHOR: Agent #+AUTHOR: Agent
#+FILETAGS: :harness:act: #+FILETAGS: :harness:act:
#+STARTUP: content #+STARTUP: content
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle act.lisp
* Overview * Overview
The Act stage is where cognition meets reality. After the Probabilistic engine proposes and the Deterministic engine verifies, Act executes the approved action. The Act stage is where cognition meets reality. After the Probabilistic engine proposes and the Deterministic engine verifies, Act executes the approved action.
@@ -166,7 +166,7 @@ The Act stage is where cognition meets reality. After the Probabilistic engine p
#+end_src #+end_src
* Test Suite * Test Suite
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle act.lisp
(defpackage :opencortex-pipeline-act-tests (defpackage :opencortex-pipeline-act-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:pipeline-act-suite)) (:export #:pipeline-act-suite))

6
harness/communication.org
View File

@@ -3,7 +3,7 @@
#+AUTHOR: Agent #+AUTHOR: Agent
#+FILETAGS: :harness:protocol: #+FILETAGS: :harness:protocol:
#+STARTUP: content #+STARTUP: content
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle communication.lisp
* Overview * Overview
The ~communication.lisp~ module defines the low-level transport and framing logic for OpenCortex stimuli. The ~communication.lisp~ module defines the low-level transport and framing logic for OpenCortex stimuli.
@@ -79,7 +79,7 @@ The ~communication.lisp~ module defines the low-level transport and framing logi
#+end_src #+end_src
** Structural Validation ** Structural Validation
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle communication.lisp
(in-package :opencortex) (in-package :opencortex)
(defun validate-communication-protocol-schema (msg) (defun validate-communication-protocol-schema (msg)
@@ -92,7 +92,7 @@ The ~communication.lisp~ module defines the low-level transport and framing logi
#+end_src #+end_src
* Test Suite * Test Suite
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle communication.lisp
(defpackage :opencortex-communication-tests (defpackage :opencortex-communication-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:communication-protocol-suite)) (:export #:communication-protocol-suite))

4
harness/context.org
View File

@@ -3,7 +3,7 @@
#+AUTHOR: Agent #+AUTHOR: Agent
#+FILETAGS: :harness:context: #+FILETAGS: :harness:context:
#+STARTUP: content #+STARTUP: content
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle context.lisp
* Overview * Overview
The *Context API* (Peripheral Vision) provides the opencortex with the ability to selectively prune and present its memory to the LLM. It implements a **Foveal-Peripheral model**, where the current task is shown in high detail (foveal), while the broader Memex structure is shown as a skeletal outline (peripheral). The *Context API* (Peripheral Vision) provides the opencortex with the ability to selectively prune and present its memory to the LLM. It implements a **Foveal-Peripheral model**, where the current task is shown in high detail (foveal), while the broader Memex structure is shown as a skeletal outline (peripheral).
@@ -155,7 +155,7 @@ The *Context API* (Peripheral Vision) provides the opencortex with the ability t
* Test Suite * Test Suite
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle context.lisp
(defpackage :opencortex-peripheral-vision-tests (defpackage :opencortex-peripheral-vision-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:vision-suite)) (:export #:vision-suite))

26
harness/doctor.org
View File

@@ -24,26 +24,26 @@ Common Lisp's `getenv` is strictly typed in SBCL. The Doctor must ensure that mi
* Phase B: Protocol (Success Criteria) * Phase B: Protocol (Success Criteria)
** Package Context ** Package Context
#+begin_src lisp :tangle package.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests) #+begin_src lisp :tangle doctor.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests)
(defpackage :opencortex-doctor-tests (defpackage :opencortex-doctor-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:doctor-suite)) (:export #:doctor-suite))
#+end_src #+end_src
#+begin_src lisp :tangle package.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests) #+begin_src lisp :tangle doctor.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests)
(in-package :opencortex-doctor-tests) (in-package :opencortex-doctor-tests)
#+end_src #+end_src
#+begin_src lisp :tangle package.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests) #+begin_src lisp :tangle doctor.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests)
(def-suite doctor-suite :description "Verification of the System Doctor diagnostic logic (def-suite doctor-suite :description "Verification of the System Doctor diagnostic logic
#+end_src #+end_src
#+begin_src lisp :tangle package.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests) #+begin_src lisp :tangle doctor.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests)
(in-suite doctor-suite) (in-suite doctor-suite)
#+end_src #+end_src
** Dependency Tests ** Dependency Tests
#+begin_src lisp :tangle package.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests) #+begin_src lisp :tangle doctor.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests)
(test test-dependency-check-fail (test test-dependency-check-fail
"Verify that missing binaries are correctly identified as failures." "Verify that missing binaries are correctly identified as failures."
(let ((opencortex::*doctor-required-binaries* '("non-existent-binary-123)) (let ((opencortex::*doctor-required-binaries* '("non-existent-binary-123))
@@ -51,7 +51,7 @@ Common Lisp's `getenv` is strictly typed in SBCL. The Doctor must ensure that mi
#+end_src #+end_src
** Environment Tests ** Environment Tests
#+begin_src lisp :tangle package.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests) #+begin_src lisp :tangle doctor.lisp (concat (concat (or (getenv "INSTALL_DIR ". "/harness "/tests)
(test test-env-validation-fail (test test-env-validation-fail
"Verify that an invalid MEMEX_DIR triggers a critical failure." "Verify that an invalid MEMEX_DIR triggers a critical failure."
(let ((old-m (getenv "MEMEX_DIR) (let ((old-m (getenv "MEMEX_DIR)
@@ -67,18 +67,18 @@ Common Lisp's `getenv` is strictly typed in SBCL. The Doctor must ensure that mi
* Phase C: Implementation (Build) * Phase C: Implementation (Build)
** Package Context ** Package Context
#+begin_src lisp :tangle package.lisp ) #+begin_src lisp :tangle doctor.lisp )
(in-package :opencortex) (in-package :opencortex)
#+end_src #+end_src
** Global Configuration ** Global Configuration
#+begin_src lisp :tangle package.lisp ) #+begin_src lisp :tangle doctor.lisp )
(defvar *doctor-required-binaries* '("sbcl" "emacs" "git" "socat" "nc (defvar *doctor-required-binaries* '("sbcl" "emacs" "git" "socat" "nc
"List of external binaries required for full system operation. "List of external binaries required for full system operation.
#+end_src #+end_src
** Dependency Verification ** Dependency Verification
#+begin_src lisp :tangle package.lisp ) #+begin_src lisp :tangle doctor.lisp )
(defun doctor-check-dependencies () (defun doctor-check-dependencies ()
"Verifies that required external binaries are available in the PATH via a shell probe." "Verifies that required external binaries are available in the PATH via a shell probe."
(let ((all-ok t)) (let ((all-ok t))
@@ -96,7 +96,7 @@ Common Lisp's `getenv` is strictly typed in SBCL. The Doctor must ensure that mi
#+end_src #+end_src
** Environment & XDG Validation ** Environment & XDG Validation
#+begin_src lisp :tangle package.lisp ) #+begin_src lisp :tangle doctor.lisp )
(defun doctor-check-env () (defun doctor-check-env ()
"Validates XDG directories and environment configuration against the POSIX standard." "Validates XDG directories and environment configuration against the POSIX standard."
(harness-log "DOCTOR: Checking XDG environment... (harness-log "DOCTOR: Checking XDG environment...
@@ -125,7 +125,7 @@ Common Lisp's `getenv` is strictly typed in SBCL. The Doctor must ensure that mi
#+end_src #+end_src
** LLM Connectivity ** LLM Connectivity
#+begin_src lisp :tangle package.lisp ) #+begin_src lisp :tangle doctor.lisp )
(defun doctor-check-llm () (defun doctor-check-llm ()
"Tests connectivity to primary LLM providers. Non-critical fallback allowed." "Tests connectivity to primary LLM providers. Non-critical fallback allowed."
(harness-log "DOCTOR: Checking LLM connectivity... (harness-log "DOCTOR: Checking LLM connectivity...
@@ -140,7 +140,7 @@ Common Lisp's `getenv` is strictly typed in SBCL. The Doctor must ensure that mi
#+end_src #+end_src
** Orchestration ** Orchestration
#+begin_src lisp :tangle package.lisp ) #+begin_src lisp :tangle doctor.lisp )
(defun doctor-run-all () (defun doctor-run-all ()
"Executes the full diagnostic suite and returns T if system is healthy." "Executes the full diagnostic suite and returns T if system is healthy."
(harness-log "================================================== (harness-log "==================================================
@@ -160,7 +160,7 @@ Common Lisp's `getenv` is strictly typed in SBCL. The Doctor must ensure that mi
#+end_src #+end_src
** CLI Entry Point ** CLI Entry Point
#+begin_src lisp :tangle package.lisp ) #+begin_src lisp :tangle doctor.lisp )
(defun doctor-main () (defun doctor-main ()
"Entry point for the 'doctor' CLI command." "Entry point for the 'doctor' CLI command."
(if (doctor-run-all) (if (doctor-run-all)

4
harness/loop.org
View File

@@ -3,7 +3,7 @@
#+AUTHOR: Agent #+AUTHOR: Agent
#+FILETAGS: :harness:loop: #+FILETAGS: :harness:loop:
#+STARTUP: content #+STARTUP: content
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle loop.lisp
* Overview * Overview
The Metabolic Loop is the fundamental rhythm of OpenCortex: the continuous processing of signals from perception through cognition to action. The Metabolic Loop is the fundamental rhythm of OpenCortex: the continuous processing of signals from perception through cognition to action.
@@ -129,7 +129,7 @@ The Metabolic Loop is the fundamental rhythm of OpenCortex: the continuous proce
#+end_src #+end_src
* Test Suite * Test Suite
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle loop.lisp
(defpackage :opencortex-immune-system-tests (defpackage :opencortex-immune-system-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:immune-suite)) (:export #:immune-suite))

2
harness/manifest.org
View File

@@ -63,7 +63,7 @@ The *System Manifest* defines the structural components of the OpenCortex.
#+end_src #+end_src
** Test Orchestrator ** Test Orchestrator
#+begin_src lisp :tangle run-all-tests.lisp #+begin_src lisp :tangle opencortex.asd
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))) (load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
(let ((oc-dir (or (uiop:getenv "OC_DATA_DIR (let ((oc-dir (or (uiop:getenv "OC_DATA_DIR

4
harness/memory.org
View File

@@ -1,5 +1,5 @@
#+PROPERTY: header-args:lisp :tangle memory.lisp #+PROPERTY: header-args:lisp :tangle memory.lisp
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle memory.lisp
#+TITLE: The System Memory (memory.lisp) #+TITLE: The System Memory (memory.lisp)
#+AUTHOR: Amr #+AUTHOR: Amr
#+FILETAGS: :harness:memory: #+FILETAGS: :harness:memory:
@@ -294,7 +294,7 @@ Utility functions for AST traversal and path resolution.
* Test Suite * Test Suite
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle memory.lisp
(defpackage :opencortex-memory-tests (defpackage :opencortex-memory-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:memory-suite)) (:export #:memory-suite))

4
harness/perceive.org
View File

@@ -3,7 +3,7 @@
#+AUTHOR: Agent #+AUTHOR: Agent
#+FILETAGS: :harness:perceive: #+FILETAGS: :harness:perceive:
#+STARTUP: content #+STARTUP: content
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle perceive.lisp
* Overview * Overview
The Perceive stage is the "sensory cortex" of OpenCortex. Its job is to take raw stimuli from the outside world and transform them into standardized Signals that the rest of the pipeline can process. The Perceive stage is the "sensory cortex" of OpenCortex. Its job is to take raw stimuli from the outside world and transform them into standardized Signals that the rest of the pipeline can process.
@@ -148,7 +148,7 @@ The Perceive stage is the "sensory cortex" of OpenCortex. Its job is to take raw
* Test Suite * Test Suite
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle perceive.lisp
(defpackage :opencortex-pipeline-perceive-tests (defpackage :opencortex-pipeline-perceive-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:pipeline-perceive-suite)) (:export #:pipeline-perceive-suite))

4
harness/reason.org
View File

@@ -3,7 +3,7 @@
#+AUTHOR: Agent #+AUTHOR: Agent
#+FILETAGS: :harness:reason: #+FILETAGS: :harness:reason:
#+STARTUP: content #+STARTUP: content
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle reason.lisp
* Overview * Overview
The Reason stage implements the core Innovation of OpenCortex: the separation of probabilistic reasoning (neural/LLM) from deterministic verification (logic/safety). The Reason stage implements the core Innovation of OpenCortex: the separation of probabilistic reasoning (neural/LLM) from deterministic verification (logic/safety).
@@ -176,7 +176,7 @@ The Reason stage implements the core Innovation of OpenCortex: the separation of
#+end_src #+end_src
* Test Suite * Test Suite
#+begin_src lisp :tangle package.lisp #+begin_src lisp :tangle reason.lisp
(defpackage :opencortex-pipeline-reason-tests (defpackage :opencortex-pipeline-reason-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:pipeline-reason-suite)) (:export #:pipeline-reason-suite))

2
harness/setup.org
View File

@@ -23,7 +23,7 @@ To maintain sovereignty, the harness must remain a "dumb" bus. It should not kno
** The Installer Script (opencortex.sh) ** The Installer Script (opencortex.sh)
The shell script is the primary entry point. It handles the initial git clone, dependency installation, and literate tangle. The shell script is the primary entry point. It handles the initial git clone, dependency installation, and literate tangle.
#+begin_src bash :tangle setup.sh #+begin_src bash :tangle setup.shsetup.sh
#!/bin/bash #!/bin/bash
# (The content here is a duplicate of the main opencortex.sh for literate consistency) # (The content here is a duplicate of the main opencortex.sh for literate consistency)
# [Note: Implementation is already verified in the top-level script] # [Note: Implementation is already verified in the top-level script]

4
harness/skills.org
View File

@@ -3,7 +3,7 @@
#+AUTHOR: Agent #+AUTHOR: Agent
#+FILETAGS: :harness:skills: #+FILETAGS: :harness:skills:
#+STARTUP: content #+STARTUP: content
#+PROPERTY: header-args:lisp :tangle package.lisp #+PROPERTY: header-args:lisp :tangle skills.lisp
* Overview * Overview
The ~opencortex~ Skill Engine enables **Late-Binding Intelligence**, allowing the system to discover and integrate new cognitive capabilities at runtime. The ~opencortex~ Skill Engine enables **Late-Binding Intelligence**, allowing the system to discover and integrate new cognitive capabilities at runtime.
@@ -148,7 +148,7 @@ The ~opencortex~ Skill Engine enables **Late-Binding Intelligence**, allowing th
(error (c) (values nil (format nil "~a" c))))) (error (c) (values nil (format nil "~a" c)))))
(defun extract-tangle-target (line) (defun extract-tangle-target (line)
"Extracts the value of the :tangle header." "Extracts the value of the :tangle skills.lispheader."
(let ((pos (search ":tangle" line))) (let ((pos (search ":tangle" line)))
(when pos (when pos
(let ((rest (string-trim '(#\Space #\Tab) (subseq line (+ pos 7))))) (let ((rest (string-trim '(#\Space #\Tab) (subseq line (+ pos 7)))))