giles
985671cd76
Hyperscript compiler/runtime:
- query target support in set/fire/put commands
- hs-set-prolog-hook! / hs-prolog-hook / hs-prolog in runtime
- runtime log-capture cleanup
Scripts: sx-loops-up/down, sx-hs-e-up/down, sx-primitives-down
Plans: datalog, elixir, elm, go, koka, minikanren, ocaml, hs-bucket-f,
designs (breakpoint, null-safety, step-limit, tell, cookies, eval,
plugin-system)
lib/prolog/hs-bridge.sx: initial hook-based bridge draft
lib/common-lisp/tests/runtime.sx: CL runtime tests
WASM: regenerate sx_browser.bc.js from updated hs sources
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
42 lines
1.1 KiB
Bash
Executable File
42 lines
1.1 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
# Stop the sx-hs-e tmux session. Optionally (--clean) remove worktrees.
|
|
set -euo pipefail
|
|
|
|
SESSION="sx-hs-e"
|
|
WORKTREE_BASE="/root/rose-ash-e"
|
|
CLEAN=0
|
|
|
|
for arg in "$@"; do
|
|
case "$arg" in
|
|
--clean) CLEAN=1 ;;
|
|
*) echo "Unknown arg: $arg"; exit 2 ;;
|
|
esac
|
|
done
|
|
|
|
if tmux has-session -t "$SESSION" 2>/dev/null; then
|
|
WINDOWS=$(tmux list-windows -t "$SESSION" -F '#W')
|
|
for w in $WINDOWS; do
|
|
tmux send-keys -t "$SESSION:$w" "/exit" C-m 2>/dev/null || true
|
|
done
|
|
echo "Sent /exit to all windows. Waiting 5s..."
|
|
sleep 5
|
|
tmux kill-session -t "$SESSION"
|
|
echo "Killed tmux session '$SESSION'."
|
|
else
|
|
echo "No $SESSION tmux session running."
|
|
fi
|
|
|
|
if [ "$CLEAN" = "1" ]; then
|
|
cd "$(dirname "$0")/.."
|
|
for item in e36 e37 e38 e39 e40; do
|
|
wt="$WORKTREE_BASE/$item"
|
|
if [ -d "$wt" ]; then
|
|
git worktree remove --force "$wt" 2>/dev/null || rm -rf "$wt"
|
|
echo "Removed worktree: $wt"
|
|
fi
|
|
done
|
|
git worktree prune
|
|
echo "Branches preserved. Remove manually if desired:"
|
|
echo " git branch -D hs-e36-websocket hs-e37-tokenizer hs-e38-sourceinfo hs-e39-webworker hs-e40-fetch"
|
|
fi
|