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

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

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-27 08:41:26 -04:00
parent 43dbe3cf2d
commit 664ba8243d
68 changed files with 637 additions and 666 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harness/loop.org
View File

@@ -35,7 +35,7 @@ The loop operates in a multi-threaded environment:
* Package and Thread-Safe Variables
#+begin_src lisp :tangle ../library/loop.lisp
#+begin_src lisp :tangle ./loop.lisp
(in-package :opencortex)
(defvar *interrupt-flag* nil
@@ -58,7 +58,7 @@ This function implements the Perceive-Reason-Act pipeline. It processes a signal
The depth counter prevents infinite recursion—a signal that generates another signal that generates another, etc. By limiting to depth 10, we ensure the system eventually converges or gracefully terminates.
#+begin_src lisp :tangle ../library/loop.lisp
#+begin_src lisp :tangle ./loop.lisp
(defun process-signal (signal)
"The entry point to the Metabolic Pipeline: Perceive -> Reason -> Act.
@@ -152,7 +152,7 @@ The heartbeat thread ensures the agent remains alive even without external input
** Heartbeat Configuration Variables
#+begin_src lisp :tangle ../library/loop.lisp
#+begin_src lisp :tangle ./loop.lisp
(defvar *auto-save-interval* 300
"Interval in seconds between automatic memory saves.
Defaults to 300 seconds (5 minutes). Set via MEMORY_AUTO_SAVE_INTERVAL env var.")
@@ -163,7 +163,7 @@ The heartbeat thread ensures the agent remains alive even without external input
** start-heartbeat: The Pulsing Heart
#+begin_src lisp :tangle ../library/loop.lisp
#+begin_src lisp :tangle ./loop.lisp
(defun start-heartbeat ()
"Starts the background heartbeat thread.
@@ -209,7 +209,7 @@ The heartbeat thread ensures the agent remains alive even without external input
** Shutdown Configuration
#+begin_src lisp :tangle ../library/loop.lisp
#+begin_src lisp :tangle ./loop.lisp
(defvar *shutdown-save-enabled* t
"When T, save memory to disk on graceful shutdown.
Disable for testing or when memory persistence is handled externally.")
@@ -226,7 +226,7 @@ The main function orchestrates system startup:
5. Register SIGINT handler for graceful Ctrl+C shutdown
6. Enter idle loop (sleeping in 1-hour increments)
#+begin_src lisp :tangle ../library/loop.lisp
#+begin_src lisp :tangle ./loop.lisp
(defun main ()
"Entry point for OpenCortex. Initializes the system and enters idle loop.
@@ -291,7 +291,7 @@ The main function orchestrates system startup:
These tests verify the metabolic loop and error recovery. Run with:
~(fiveam:run! 'immune-suite)~
#+begin_src lisp :tangle ../tests/immune-system-tests.lisp
#+begin_src lisp :tangle ./tests/immune-system-tests.lisp
(defpackage :opencortex-immune-system-tests
(:use :cl :fiveam :opencortex)
(:export #:immune-suite))