51 lines
2.3 KiB
Org Mode
51 lines
2.3 KiB
Org Mode
#+TITLE: SKILL: Hardware Inhabitation Agent (Universal Literate Note)
|
|
#+ID: skill-hardware-inhabitation
|
|
#+STARTUP: content
|
|
#+FILETAGS: :sovereignty:deployment:bare-metal:lisp:psf:
|
|
#+DEPENDS_ON: skill-shell-actuator skill-environment-config
|
|
|
|
* Overview
|
|
The **Hardware Inhabitation Agent** is the system's "Physical Interface." It manages the deployment of the Lisp Machine across different hardware compartments, ensuring absolute sovereignty via bare-metal inhabitation and environment portability.
|
|
|
|
* Phase A: Demand (PRD)
|
|
:PROPERTIES:
|
|
:STATUS: FROZEN
|
|
:END:
|
|
|
|
** 1. Purpose
|
|
Define the interfaces for hardware-level deployment and image serialization.
|
|
|
|
** 2. User Needs
|
|
- **Bare-Metal Deployment:** Support for running Lisp directly on minimal hardware (e.g., RISC-V/ARM).
|
|
- **Image Portability:** Serialize and move the live Lisp Image across environments.
|
|
- **Hardware Inventory:** Maintain a manifest of available physical actuators and sensors.
|
|
- **Sovereignty Audit:** Verify that the current inhabitation is free from non-sovereign dependencies.
|
|
|
|
* Phase D: Build (Implementation)
|
|
|
|
** Inhabitation Logic
|
|
#+begin_src lisp :tangle projects/org-skill-hardware-inhabitation/src/inhabitation-logic.lisp
|
|
(defun inhabitation-serialize-image (target-path)
|
|
"Serializes the live SBCL image for migration to a new hardware compartment."
|
|
(kernel-log "SOVEREIGNTY [Hardware] - Serializing Lisp Image to ~a..." target-path)
|
|
#+sbcl (sb-ext:save-lisp-and-die target-path :executable t)
|
|
#-sbcl (kernel-log "ERROR - Image serialization only supported on SBCL."))
|
|
|
|
(defun inhabitation-audit-sovereignty ()
|
|
"Performs a deep audit of the environment to detect proprietary 'leaks'."
|
|
(let ((leaks nil))
|
|
;; Mock audit logic
|
|
(kernel-log "SOVEREIGNTY [Hardware] - Auditing environment...")
|
|
(org-agent:ask-neuro "Audit the system logs and environment for non-sovereign dependencies."
|
|
:system-prompt "You are the PSF Sovereignty Auditor. Look for proprietary telemetry or cloud hooks.")))
|
|
#+end_src
|
|
|
|
* Registration
|
|
#+begin_src lisp
|
|
(defskill :skill-hardware-inhabitation
|
|
:priority 100 ; Mandatory sovereignty gate
|
|
:trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :sovereignty-audit))
|
|
:neuro (lambda (context) "Synthesize a sovereignty report based on the hardware audit.")
|
|
:symbolic (lambda (action context) action))
|
|
#+end_src
|