:PROPERTIES:
:ID:       6c4a56db-170e-433b-8e6b-66249cdc6b4d
:CREATED:  [2026-04-12 Sun 20:00]
:END:
#+TITLE: SKILL: Harness Monitor
#+STARTUP: content
#+FILETAGS: :system:monitor:telemetry:autonomy:
#+DEPENDS_ON: id:47425a43-2be0-423c-8509-22592cfe9c9e

* Overview
The *Harness Monitor* provides tools for inspecting the internal state and health of the OpenCortex Lisp Machine.

* Implementation

#+begin_src lisp

(opencortex:def-cognitive-tool :harness-status \"Returns the current operational status of the OpenCortex harness, including loaded skills and telemetry.\"
  nil
  :body (lambda (args)
          (declare (ignore args))
          (format nil \"HARNESS STATUS:
- Active Skills: ~a
- Uptime: ~a seconds
- Memory Usage: ~a
- Providers: ~a\"
                  (hash-table-count opencortex:*skills-registry*)
                  (get-universal-time)
                  \"Not implemented\"
                  opencortex:*provider-cascade*)))

(opencortex:def-cognitive-tool :list-skills \"Lists all currently loaded skills and their metadata.\"
  nil
  :body (lambda (args)
          (declare (ignore args))
          (let ((output \"LOADED SKILLS:
\"))
            (maphash (lambda (name skill)
                       (setf output (concatenate 'string output
                                                 (format nil \"- ~a (Priority: ~a, Deps: ~s)~%\"
                                                         name
                                                         (opencortex:skill-priority skill)
                                                         (opencortex:skill-dependencies skill)))))
                     opencortex:*skills-registry*)
            output)))

(defskill :skill-harness-monitor
  :priority 100
  :trigger (lambda (context) t)
  :probabilistic (lambda (context) \"You are the Harness Monitor. Use your tools to provide system visibility.\")
  :deterministic (lambda (action context) action))
#+end_src