From 836c9ba7b82899ac1b83173c3d819fedde94aa75 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 3 May 2026 11:35:06 -0400 Subject: [PATCH] chore: remove vestigial artifacts from reorganization - org/setup.sh: placeholder duplicate of top-level script - org/package.lisp: duplicate defpackage (canonical: core-defpackage.lisp) - lisp/lisp: broken symlink to old opencortex path - skills: symlink relic (core+skills merged into lisp/) --- lisp/lisp | 1 - org/package.lisp | 226 ----------------------------------------------- org/setup.sh | 3 - skills | 1 - 4 files changed, 231 deletions(-) delete mode 120000 lisp/lisp delete mode 100644 org/package.lisp delete mode 100644 org/setup.sh delete mode 120000 skills diff --git a/lisp/lisp b/lisp/lisp deleted file mode 120000 index 510feb5..0000000 --- a/lisp/lisp +++ /dev/null @@ -1 +0,0 @@ -/home/user/memex/projects/opencortex/lisp \ No newline at end of file diff --git a/org/package.lisp b/org/package.lisp deleted file mode 100644 index 66992e1..0000000 --- a/org/package.lisp +++ /dev/null @@ -1,226 +0,0 @@ -(defpackage :passepartout - (:use :cl) - (:export - #:frame-message - #:read-framed-message - #:PROTO-GET - #:LIST-OBJECTS-WITH-ATTRIBUTE - #:COSINE-SIMILARITY - #:VAULT-MASK-STRING - #:*VAULT-MEMORY* - #:parse-message - #:make-hello-message - #:validate-communication-protocol-schema - #:start-daemon - #:stop-daemon - #:log-message - #:main - #:doctor-run-all - #:doctor-main - #:doctor-check-dependencies - #:doctor-check-env - #:register-provider - #:system-ready-p - #:run-setup-wizard - #:skill-gateway-register - #:skill-gateway-link - #:gateway-manager-main - #:ingest-ast - #:lookup-object - #:list-objects-by-type - #:org-id-new - #:*memory* - #:*history-store* - #:org-object - #:make-org-object - #:org-object-id - #:org-object-type - #:org-object-attributes - #:org-object-parent-id - #:org-object-children - #:org-object-version - #:org-object-last-sync - #:org-object-vector - #:org-object-content - #:org-object-hash - #:snapshot-memory - #:rollback-memory - #:context-query-store - #:context-get-active-projects - #:context-get-recent-completed-tasks - #:context-list-all-skills - #:context-get-skill-source - #:context-get-system-logs - #:context-resolve-path - #:context-get-skill-telemetry - #:telemetry-track - #:context-assemble-global-awareness - #:process-signal - #:perceive-gate - #:probabilistic-gate - #:consensus-gate - #:act-gate - #:reason-gate - #:dispatch-gate - #:inject-stimulus - #:initialize-actuators - #:dispatch-action - #:register-actuator - #:load-skill-from-org - #:initialize-all-skills - #:load-skill-with-timeout - #:topological-sort-skills - #:validate-lisp-syntax - #:defskill - #:*skill-registry* - #:skill - #:skill-name - #:skill-priority - #:skill-dependencies - #:skill-trigger-fn - #:skill-probabilistic-prompt - #:skill-deterministic-fn - #:cognitive-tool-define - #:*cognitive-tool-registry* - #:verify-git-clean-p - #:engineering-standards-verify-lisp - #:engineering-standards-format-lisp - #:literate-check-block-balance - #:check-tangle-sync - #:*tangle-targets* - #:utils-org-read-file - #:utils-org-write-file - #:utils-org-add-headline - #:utils-org-set-property - #:utils-org-set-todo - #:utils-org-find-headline-by-id - #:utils-org-find-headline-by-title - #:utils-org-generate-id - #:utils-org-id-format - #:utils-org-ast-to-org - #:utils-org-modify - #:utils-lisp-validate - #:utils-lisp-check-structural - #:utils-lisp-check-syntactic - #:utils-lisp-check-semantic - #:utils-lisp-eval - #:utils-lisp-format - #:utils-lisp-list-definitions - #:utils-lisp-structural-extract - #:utils-lisp-structural-wrap - #:utils-lisp-structural-inject - #:utils-lisp-structural-slurp - #:utils-lisp-register - #:get-oc-config-dir - #:prompt-for - #:save-secret - #:get-tool-permission - #:set-tool-permission - #:check-tool-permission-gate - #:cognitive-tool - #:cognitive-tool-name - #:cognitive-tool-description - #:cognitive-tool-parameters - #:cognitive-tool-guard - #:cognitive-tool-body - #:*emacs-clients* - #:*clients-lock* - #:register-emacs-client - #:unregister-emacs-client - #:ask-probabilistic - #:register-probabilistic-backend - #:distill-prompt - #:*probabilistic-backends* - #:*provider-cascade* - #:vault-get-secret - #:vault-set-secret - #:memory-objects-by-attribute - #:deterministic-verify - #:find-headline-missing-id)) - -(in-package :passepartout) - -(defun plist-get (plist key) - "Robust plist accessor — checks both :KEY and :key variants." - (let* ((s (string key)) - (up (intern (string-upcase s) :keyword)) - (dn (intern (string-downcase s) :keyword))) - (or (getf plist up) (getf plist dn)))) - -(defvar *log-buffer* nil) -(defvar *log-lock* (bordeaux-threads:make-lock "log-messages-lock")) -(defvar *log-limit* 100) - -(defvar *skill-registry* (make-hash-table :test 'equal) - "Global registry of all loaded skills.") - -(defvar *telemetry-table* (make-hash-table :test 'equal)) -(defvar *telemetry-lock* (bordeaux-threads:make-lock "harness-telemetry-lock")) - -(defun telemetry-track (skill-name duration status) - "Updates performance metrics for a skill. STATUS is :success or :rejected." - (when skill-name - (bordeaux-threads:with-lock-held (*telemetry-lock*) - (let ((entry (or (gethash skill-name *telemetry-table*) (list :executions 0 :total-time 0 :failures 0)))) - (incf (getf entry :executions)) - (incf (getf entry :total-time) duration) - (when (eq status :rejected) (incf (getf entry :failures))) - (setf (gethash skill-name *telemetry-table*) entry))))) - -(defvar *cognitive-tool-registry* (make-hash-table :test 'equal)) - -(defstruct cognitive-tool - name - description - parameters - guard - body) - -(defmacro cognitive-tool-define (name description parameters &key guard body) - "Registers a cognitive tool. PARAMETERS is a list of plists, one per parameter." - `(setf (gethash (string-downcase (string ',name)) *cognitive-tool-registry*) - (make-cognitive-tool :name (string-downcase (string ',name)) - :description ,description - :parameters ',parameters - :guard ,guard - :body ,body))) - -(defun cognitive-tool-prompt () - "Serialises all registered tools into a prompt string for the LLM." - (let ((descriptions nil)) - (maphash (lambda (k tool) - (declare (ignore k)) - (push (format nil "- ~a: ~a~% Parameters: ~a~%" - (cognitive-tool-name tool) - (cognitive-tool-description tool) - (cognitive-tool-parameters tool)) - descriptions)) - *cognitive-tool-registry*) - (if descriptions - (format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<))) - "No tools registered."))) - -(defun log-message (msg &rest args) - "Centralized, thread-safe logging for the harness." - (let ((formatted-msg (apply #'format nil msg args))) - (bordeaux-threads:with-lock-held (*log-lock*) - (push formatted-msg *log-buffer*) - (when (> (length *log-buffer*) *log-limit*) - (setq *log-buffer* (subseq *log-buffer* 0 *log-limit*)))) - (format t "~a~%" formatted-msg) - (finish-output))) - -(setf *debugger-hook* (lambda (condition hook) - "Friendly error handler - shows diagnostic message instead of raw debugger." - (declare (ignore hook)) - (format t "~%") - (format t "┌─────────────────────────────────────────────┐~%") - (format t "│ ERROR: ~A~%" (type-of condition)) - (format t "│~%") - (format t "│ Run: opencortex doctor~%") - (format t "│ For system diagnostics~%") - (format t "└─────────────────────────────────────────────┘~%") - (format t "~%") - (format t "Details: ~A~%" condition) - (finish-output) - (uiop:quit 1))) diff --git a/org/setup.sh b/org/setup.sh deleted file mode 100644 index 6acfa62..0000000 --- a/org/setup.sh +++ /dev/null @@ -1,3 +0,0 @@ -#!/bin/bash -# (The content here is a duplicate of the main opencortex.sh for literate consistency) -# [Note: Implementation is already verified in the top-level script] diff --git a/skills b/skills deleted file mode 120000 index cbc76d8..0000000 --- a/skills +++ /dev/null @@ -1 +0,0 @@ -lisp \ No newline at end of file