78 lines
3.1 KiB
Org Mode
78 lines
3.1 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 B: Blueprint (PROTOCOL)
|
|
:PROPERTIES:
|
|
:STATUS: SIGNED
|
|
:END:
|
|
|
|
** 1. Architectural Intent
|
|
Define the "Convergence Bridge" between the cognitive agent and the hardware bootstrap.
|
|
|
|
** 2. Semantic Interfaces
|
|
#+begin_src lisp
|
|
(defun inhabitation-check-convergence ()
|
|
"Determines if the current host is a PSF-Native Lisp Machine.")
|
|
|
|
(defun inhabitation-serialize-image (target-path)
|
|
"Serializes the brain and signals the Bootstrap Landlord to take over.")
|
|
#+end_src
|
|
|
|
* Phase D: Build (Implementation)
|
|
|
|
** Inhabitation & Migration Logic
|
|
#+begin_src lisp :tangle projects/org-skill-hardware-inhabitation/src/inhabitation-logic.lisp
|
|
(defun inhabitation-check-convergence ()
|
|
"Checks for the presence of PSF-Native ISA features (e.g., tagged memory)."
|
|
#+psf-native t
|
|
#-psf-native (progn
|
|
(kernel-log "SOVEREIGNTY - Currently running on non-native hardware (Simulator Mode).")
|
|
nil))
|
|
|
|
(defun inhabitation-serialize-image (target-path)
|
|
"Serializes the live SBCL image for migration.
|
|
If convergence is reached, this image becomes the Native Boot Image."
|
|
(kernel-log "MIGRATION - Freezing brain state to ~a..." target-path)
|
|
#+sbcl (sb-ext:save-lisp-and-die target-path :executable t :toplevel #'org-agent:main)
|
|
#-sbcl (kernel-log "ERROR - Serialization requires SBCL."))
|
|
|
|
(defun inhabitation-audit-sovereignty ()
|
|
"System 2 check for proprietary 'leaks' in the landlord layer."
|
|
(let ((env (uiop:getenv "NODE_ENV")))
|
|
(if (equal env "docker")
|
|
(kernel-log "SOVEREIGNTY WARNING - Living in a Docker container (Low Sovereignty).")
|
|
(kernel-log "SOVEREIGNTY - Host environment verified."))))
|
|
#+end_src
|
|
|
|
* Registration
|
|
#+begin_src lisp
|
|
(defskill :skill-hardware-inhabitation
|
|
:priority 100
|
|
:trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :migration-request))
|
|
:neuro (lambda (context) "Analyze the migration target and verify sovereignty.")
|
|
:symbolic (lambda (action context)
|
|
(let ((path (getf (getf action :payload) :target-path)))
|
|
(inhabitation-serialize-image path)
|
|
action)))
|
|
#+end_src
|