passepartout/skills/org-skill-protocol-validator.org

SKILL: Protocol Validator (org-skill-protocol-validator.org)

• Overview
• Implementation
  • Package Context
  • Validation Logic
  • Skill Registration

Overview

The Protocol Validator skill enforces strict schema compliance for all internal and external communication.

Implementation

Package Context

(in-package :opencortex)

Validation Logic

(defun protocol-validate (msg)
  "Enforces structural schema compliance on protocol messages."
  (validate-communication-protocol-schema msg))

Skill Registration

(defskill :skill-protocol-validator
  :priority 95
  :trigger (lambda (ctx) (declare (ignore ctx)) t)
  :deterministic (lambda (action ctx)
                   (declare (ignore ctx))
                   (handler-case
                       (progn (protocol-validate action) action)
                     (error (c)
                       (list :type :LOG :payload (list :level :error :text (format nil "Protocol Violation: ~a" c)))))))