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

build: dynamically tangle to INSTALL_DIR without copying .org files
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source 
- Updated all 150+ :tangle headers across harness/ and skills/ to use elisp (expand-file-name) to target INSTALL_DIR dynamically.
- Cleaned up environment/ directory depth by moving memory-image.lisp to state/.
- Moved test scripts to tests/ and deleted redundant chat scripts.
This commit is contained in:
Amr Gharbeia
2026-04-27 12:51:15 -04:00
parent 8be187a968
commit f940861921
41 changed files with 234 additions and 277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
skills/org-skill-lisp-validator.org
View File

@@ -33,11 +33,11 @@ Define a high-integrity, recursive security sandbox for Lisp execution.
* Implementation
** Package
#+begin_src lisp :tangle ./org-skill-lisp-validator.lisp :tangle ./org-skill-lisp-validator.lisp
#+begin_src lisp :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills")) :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+end_src
** Whitelist Definition
#+begin_src lisp :tangle ./org-skill-lisp-validator.lisp :tangle ./org-skill-lisp-validator.lisp
#+begin_src lisp :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills")) :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
(defparameter *lisp-validator-whitelist*
'(;; Math & Logic
+ - * / = < > <= >= 1+ 1- min max
@@ -83,7 +83,7 @@ Define a high-integrity, recursive security sandbox for Lisp execution.
** Dynamic Symbol Registration
We allow other skills to register safe symbols for the validator.
#+begin_src lisp :tangle ./org-skill-lisp-validator.lisp
#+begin_src lisp :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
(defvar *lisp-validator-registry* nil
"List of dynamically registered safe symbols.")
@@ -99,7 +99,7 @@ We allow other skills to register safe symbols for the validator.
#+end_src
** Recursive AST Walker
#+begin_src lisp :tangle ./org-skill-lisp-validator.lisp
#+begin_src lisp :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
(defun lisp-validator-ast-walk (form)
"Recursively walks the Lisp AST. Returns T if safe, NIL if unsafe."
(cond
@@ -124,7 +124,7 @@ We allow other skills to register safe symbols for the validator.
#+end_src
** Cognitive Tools
#+begin_src lisp :tangle ./org-skill-lisp-validator.lisp
#+begin_src lisp :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
(opencortex:def-cognitive-tool :lisp-validator-status "Returns validator-related telemetry, including blocked actions and harness status."
nil
:body (lambda (args)
@@ -139,7 +139,7 @@ We allow other skills to register safe symbols for the validator.
#+end_src
** Skill Definition
#+begin_src lisp :tangle ./org-skill-lisp-validator.lisp
#+begin_src lisp :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
(opencortex:defskill :skill-lisp-validator
:priority 900 ; High priority, before most skills
:trigger (lambda (ctx)
@@ -156,7 +156,7 @@ We allow other skills to register safe symbols for the validator.
* Phase E: Chaos (Verification)
#+begin_src lisp :tangle ./org-skill-lisp-validator.lisp
#+begin_src lisp :tangle (expand-file-name "org-skill-lisp-validator.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
(defpackage :opencortex-lisp-validator-tests
(:use :cl :fiveam :opencortex)
(:export #:lisp-validator-suite))