Amr Gharbeia
18b289dff8
repl: env var was dead code (hardcoded 2s), empty frame gave misleading error check-tangle: show full SBCL output on compile failure, not filtered verify-repl: blacklist now configurable via VERIFY_REPL_EXCLUDE env var; regex tightened to ';; +REPL-VERIFIED:' from ';;.REPL.VERIFIED:' (ambiguous) org-eval: 1-based indexing to match repl-block; errors on out-of-range; errors on <1
76 lines
1.9 KiB
Bash
Executable File
76 lines
1.9 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
# Tangle an .org file and compile the resulting .lisp with SBCL.
|
|
# Reports the first compile error with line numbers.
|
|
#
|
|
# Usage: check-tangle <file.org>
|
|
# Exit 0 if compile succeeds, 1 if tangled or compilation fails
|
|
|
|
set -euo pipefail
|
|
|
|
if [ $# -ne 1 ]; then
|
|
echo "Usage: check-tangle <file.org>" >&2
|
|
exit 2
|
|
fi
|
|
|
|
ORG_FILE="$1"
|
|
|
|
if [ ! -f "$ORG_FILE" ]; then
|
|
echo "Error: File not found: $ORG_FILE" >&2
|
|
exit 1
|
|
fi
|
|
|
|
# Determine the tangle target from the org file
|
|
TANGLE=$(grep -m1 'header-args.*:tangle' "$ORG_FILE" | sed 's/.*:tangle //' | head -1 || true)
|
|
if [ -z "$TANGLE" ]; then
|
|
echo "SKIP: $ORG_FILE — no :tangle header" >&2
|
|
exit 0
|
|
fi
|
|
|
|
# Resolve relative tangle path
|
|
ORG_DIR=$(dirname "$ORG_FILE")
|
|
if [ "$TANGLE" = "${TANGLE#/}" ]; then
|
|
# Relative path
|
|
LISP_FILE=$(cd "$ORG_DIR" && realpath -m "$TANGLE" 2>/dev/null || echo "$ORG_DIR/$TANGLE")
|
|
else
|
|
# Absolute path
|
|
LISP_FILE="$TANGLE"
|
|
fi
|
|
|
|
echo "Tangling: $ORG_FILE → $LISP_FILE" >&2
|
|
|
|
# Prefer the memex's own tangle tool, then fall back to PATH
|
|
if [ -x "projects/tangle-tool/tangle" ]; then
|
|
TANGLE_CMD="projects/tangle-tool/tangle"
|
|
elif command -v tangle &>/dev/null; then
|
|
TANGLE_CMD="tangle"
|
|
else
|
|
TANGLE_CMD="/home/user/.opencode/bin/tangle"
|
|
fi
|
|
|
|
if ! "$TANGLE_CMD" "$ORG_FILE"; then
|
|
echo "FAIL: Tangling $ORG_FILE failed" >&2
|
|
exit 1
|
|
fi
|
|
|
|
if [ ! -f "$LISP_FILE" ]; then
|
|
echo "SKIP: Tangle target $LISP_FILE not found after tangling" >&2
|
|
exit 0
|
|
fi
|
|
|
|
echo "Compiling: $LISP_FILE" >&2
|
|
|
|
# Compile with SBCL, capturing errors
|
|
OUTPUT=$(sbcl --noinform --no-userinit --disable-debugger --quit \
|
|
--eval "(handler-case
|
|
(progn (compile-file \"$LISP_FILE\") (print :OK))
|
|
(error (c) (print c) (sb-ext:exit :code 1)))" 2>&1 || true)
|
|
|
|
if echo "$OUTPUT" | grep -q ":OK"; then
|
|
echo "OK: $ORG_FILE compiles cleanly" >&2
|
|
exit 0
|
|
else
|
|
echo "FAIL: $ORG_FILE — compilation error" >&2
|
|
echo "$OUTPUT"
|
|
exit 1
|
|
fi
|