Amr Gharbeia
80e327dd20
- Standardized def-cognitive-tool to 5-argument signature. - Consolidated *cognitive-tools* as a hash table in package.lisp. - Removed skills from opencortex.asd to enforce dynamic Skill Engine loading. - Added missing (in-package :opencortex) to various skill files. - Fixed let/let* sequential binding issues in emacs-edit and self-edit. - Updated opencortex.sh to initialize skills before running doctor. - Fixed uiop:user-homedir-pathname usage in config-manager.
131 lines
4.9 KiB
Bash
Executable File
131 lines
4.9 KiB
Bash
Executable File
#!/bin/bash
|
|
set -e
|
|
|
|
PORT=9105
|
|
HOST="localhost"
|
|
RED='\033[0;31m'; GREEN='\033[0;32m'; BLUE='\033[0;34m'; YELLOW='\033[0;33m'; NC='\033[0m'
|
|
|
|
command_exists() { command -v "$1" >/dev/null 2>&1; }
|
|
|
|
# 1. XDG PATH RESOLUTION
|
|
# SCRIPT_DIR is the immutable source (where the git repo lives)
|
|
SOURCE="${BASH_SOURCE[0]}"
|
|
while [ -h "$SOURCE" ]; do
|
|
DIR="$( cd -P "$( dirname "$SOURCE" )" && pwd )"
|
|
SOURCE="$(readlink "$SOURCE")"
|
|
[[ $SOURCE != /* ]] && SOURCE="$DIR/$SOURCE"
|
|
done
|
|
export SCRIPT_DIR="$( cd -P "$( dirname "$SOURCE" )" && pwd )"
|
|
|
|
# XDG Defaults
|
|
export OC_CONFIG_DIR="${XDG_CONFIG_HOME:-$HOME/.config}/opencortex"
|
|
export OC_DATA_DIR="${XDG_DATA_HOME:-$HOME/.local/share}/opencortex"
|
|
export OC_STATE_DIR="${XDG_STATE_HOME:-$HOME/.local/state}/opencortex"
|
|
export OC_BIN_DIR="${XDG_BIN_HOME:-$HOME/.local/bin}"
|
|
|
|
# Load environment variables from the standard config location
|
|
if [ -f "$OC_CONFIG_DIR/.env" ]; then
|
|
source "$OC_CONFIG_DIR/.env"
|
|
fi
|
|
|
|
# --- 2. SETUP ---
|
|
setup_system() {
|
|
NON_INTERACTIVE=false
|
|
for arg in "$@"; do
|
|
if [ "$arg" == "--non-interactive" ]; then NON_INTERACTIVE=true; fi
|
|
done
|
|
|
|
echo -e "${BLUE}=== OpenCortex: Initializing XDG-Compliant System ===${NC}"
|
|
|
|
# Create standard directories
|
|
mkdir -p "$OC_CONFIG_DIR" "$OC_DATA_DIR" "$OC_STATE_DIR" "$OC_BIN_DIR"
|
|
mkdir -p "$OC_DATA_DIR/harness" "$OC_DATA_DIR/tests" "$OC_DATA_DIR/skills" "$OC_DATA_DIR/library"
|
|
|
|
echo -e "${YELLOW}--- Installing System Dependencies ---${NC}"
|
|
if command_exists apt-get; then
|
|
sudo apt-get update && sudo apt-get install -y sbcl emacs-nox rlwrap netcat-openbsd curl git socat libssl-dev libncurses-dev libffi-dev zlib1g-dev libsqlite3-dev
|
|
fi
|
|
if [ ! -d "$HOME/quicklisp" ]; then
|
|
curl -O https://beta.quicklisp.org/quicklisp.lisp
|
|
sbcl --non-interactive --load quicklisp.lisp --eval "(quicklisp-quickstart:install)" --eval "(ql-util:without-prompting (ql:add-to-init-file))"
|
|
rm quicklisp.lisp
|
|
fi
|
|
|
|
# Tangle the literate source from SCRIPT_DIR to OC_DATA_DIR (The Engine)
|
|
echo -e "${YELLOW}--- Deploying Engine to $OC_DATA_DIR ---${NC}"
|
|
cp "$SCRIPT_DIR/opencortex.asd" "$OC_DATA_DIR/"
|
|
|
|
cd "$SCRIPT_DIR"
|
|
export INSTALL_DIR="$OC_DATA_DIR"
|
|
for f in harness/*.org skills/*.org; do
|
|
echo "Tangling $f..."
|
|
emacs -Q --batch --eval "(require 'org)" --eval "(org-babel-tangle-file \"$f\")" >/dev/null 2>&1 || true
|
|
done
|
|
|
|
# Create the bin shim
|
|
echo -e "${YELLOW}--- Creating Bin Shim in $OC_BIN_DIR/opencortex ---${NC}"
|
|
ln -sf "$SCRIPT_DIR/opencortex.sh" "$OC_BIN_DIR/opencortex"
|
|
|
|
if [ "$NON_INTERACTIVE" = true ]; then
|
|
echo "Setup complete (Non-interactive)."
|
|
exit 0
|
|
fi
|
|
|
|
echo -e "${YELLOW}--- Launching Lisp Setup Wizard ---${NC}"
|
|
# Use OC_DATA_DIR for the Lisp registry
|
|
exec sbcl --non-interactive \
|
|
--eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \
|
|
--eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \
|
|
--eval '(ql:quickload :opencortex)' \
|
|
--eval '(opencortex:run-setup-wizard)'
|
|
}
|
|
|
|
# --- 3. COMMAND ROUTER ---
|
|
COMMAND=$1
|
|
[ -z "$COMMAND" ] && COMMAND="cli"
|
|
shift || true
|
|
|
|
case "$COMMAND" in
|
|
link)
|
|
PLATFORM=$1
|
|
TOKEN=$2
|
|
exec sbcl --non-interactive --eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' --eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" --eval '(ql:quickload :opencortex)' --eval "(opencortex:gateway-manager-main \"$PLATFORM\" \"$TOKEN\")"
|
|
;;
|
|
|
|
doctor)
|
|
export SKILLS_DIR="${OC_DATA_DIR}/skills"
|
|
[ -z "$MEMEX_DIR" ] && export MEMEX_DIR="$HOME/memex"
|
|
exec sbcl --non-interactive \
|
|
--eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \
|
|
--eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \
|
|
--eval '(ql:quickload :opencortex)' \
|
|
--eval '(opencortex:initialize-all-skills)' \
|
|
--eval '(opencortex:doctor-main)'
|
|
;;
|
|
|
|
setup)
|
|
setup_system "$@"
|
|
;;
|
|
|
|
boot|--boot)
|
|
exec sbcl --non-interactive \
|
|
--eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \
|
|
--eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \
|
|
--eval "(ql:quickload '(:opencortex :croatoan))" \
|
|
--eval '(opencortex:main)'
|
|
;;
|
|
|
|
tui)
|
|
exec sbcl \
|
|
--eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \
|
|
--eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \
|
|
--eval '(ql:quickload :opencortex/tui)' \
|
|
--eval '(opencortex.tui:main)'
|
|
;;
|
|
|
|
*)
|
|
echo "Available commands: setup, link, doctor, boot, tui"
|
|
exit 1
|
|
;;
|
|
esac
|