#!/bin/sh
# claude — entrar al agente en esta caja. El CLI es glibc y la caja es musl: corre enjaulado
# (ADR 0015), con el repo, el store, el lab, la memoria y las llaves concedidos y nada más.
#
# ── UNA JAULA POR PERSONA, Y SIN PRIVILEGIO ─────────────────────────────────────────────────────
# `root` usa la instancia `claude`; cada usuario usa `claude-<usuario>`. No es purismo: la instancia
# concede el HOME de quien entra —su `.claude`, o sea sus credenciales y su memoria— y una sola
# instancia obligaría a compartirlo. Medido: con la instancia de root, `sergio` muere en
# `bwrap: Can't mkdir /root/.claude: Permission denied`.
#
# ⚠ Y NO se eleva con `doas`/`sudo`: en esta caja **el setuid no toma** («doas: Operation not
# permitted», con `NoNewPrivs: 0` y `/` sin `nosuid` — queda como deuda entender por qué). No hace
# falta: `qorpa run` levanta la jaula con user namespaces y anda **sin privilegio**, siempre que el
# directorio de la instancia sea del usuario.
#
# ⚠ LOS BUILDS SIGUEN SIN CORRER DENTRO DE LA JAULA, pero el motivo cambió y conviene tenerlo
# medido (2026-09-18). Antes, con `root = true`, el bwrap anidado ni se levantaba: «Can't mount proc
# on /proc». Con `root = false` **sí se levanta y /proc monta** —comprobado—, y lo que ahora falla es
# otra cosa: el anidado **no puede mapear el uid 0** que `takana build` le pide, porque `sergio` no
# tiene rango en `/etc/subuid` (sólo lo tiene `root`) y encima `newuidmap`/`newgidmap` **no son
# setuid** en esta caja (`-r-xr-xr-x`). Resultado: el sandbox del build correría como 1001 y el
# `install` que escribe `/out` con dueños se cae.
#
# ⚠ SE INTENTÓ CERRARLO Y **NO ALCANZÓ** (2026-09-18). Se hicieron las dos cosas obvias:
#   · rango para `sergio` en `/etc/subuid` y `/etc/subgid` (165536:65536);
#   · `newuidmap`/`newgidmap` en setuid root **y además** con capacidades (`cap_setuid=ep`).
# El error se MOVIÓ —ya no dice «no hay rango para sergio»— pero sigue sin mapear:
#
#     ⚠ sin mapeo por rango (newuidmap: open of uid_map failed: Permission denied)
#
# Lo que quedó descartado, medido: **el setuid sí eleva en esta caja** —sonda en C compilada con el
# `cc` nuevo: `uid=1001 euid=0`—, `/` no está `nosuid`, y el `uid_map` del proceso es suyo
# (`-rw-r--r-- sergio:sergio`). O sea que no es ni el rango que faltaba ni el bit que no tomaba.
# ⚠ Y un detalle que cuesta un rato si no se sabe: **`chown` BORRA el bit setuid**, así que hay que
# chownear primero y poner el bit después; la primera sonda salió sin bit por ese orden.
# La causa de fondo queda SIN DETERMINAR, y se dice así en vez de inventarla.
#
# Mientras tanto el camino que sí anda es pedírselo al ANFITRIÓN por ssh:
#
#   ssh -p 22022 root@127.0.0.1 'cd /opt/takana && flock -o work/.farm-build.lock takana build <r>'
#
# ⚠ Y UNA JAULA QUE TE MAPEA A ROOT ROMPE AL PROPIO AGENTE: con `root = true` el CLI se ve uid 0 y
# **rechaza `--dangerously-skip-permissions`** («cannot be used with root/sudo privileges»). Por eso
# las instancias de PERSONA van con `root = false` (queda uid 1001 adentro) y con `/store` en `rw`,
# que es lo que la de `root` ya tenía y a la de `sergio` le faltaba: sin eso el agente lee el store
# y no puede sellar nada.
set -eu

# ⚠ `/usr/bin/claude` ES UN ENLACE A ESTE FICHERO, y lo es por algo (2026-09-18): antes era una
# COPIA, así que arreglar el guion en el repo no cambiaba nada para quien escribe `claude` — el
# usuario reportó dos veces «sigue abriendo en /opt/takana» con el arreglo ya pusheado y tirado en la
# caja. Un instalado que es copia DERIVA en silencio y sólo se nota por el síntoma viejo.
#
#   ln -sf /opt/takana/scripts/servidor/claude-caja.sh /usr/bin/claude
_yo="$(id -un)"
_hogar="${HOME:-/root}"
_base="claude"
[ "$_yo" != "root" ] && _base="claude-$_yo"

# ── VARIAS SESIONES A LA VEZ ────────────────────────────────────────────────────────────────────
# El kernel niega DOS overlays sobre el mismo `upper` —la capa mutable se corrompería— y eso no se
# discute. Pero «un solo Claude» era empaquetado nuestro, no del kernel: instancias distintas tienen
# `upper` distintos y conviven. Así que si la de siempre está ocupada, se usa la siguiente.
#
# ⚠ La instancia nueva NO se aprovisiona: se CLONA la capa ya hecha. Con un mapa de un solo id
# —lo que hay hoy, ver §6.55— `pacman` no puede chownear su descarga y el `provision` muere en
# «failed to chown temporary download directory». Copiar el `upper` cuesta ~1 s y 169 M y no depende
# de eso. Cuando el mapeo por rango funcione, `takana qorpa provision` vuelve a ser el camino.
BASEDIR=${BASEDIR:-/var/lib/hammer/qorpa/instances}
_libre() { ! pgrep -f "[q]orpa run $1 " >/dev/null 2>&1; }

_inst="$_base"; _n=2
while ! _libre "$_inst"; do
  _inst="$_base-$_n"; _n=$((_n+1))
  [ "$_n" -gt 9 ] && { echo "claude: hay 8 sesiones abiertas de $_base — cerrá alguna" >&2; exit 1; }
done
if [ ! -d "$BASEDIR/$_inst" ]; then
  echo "claude: abro una sesión más ($_inst) — clonando la capa, ~1 s" >&2
  _sha=$(sed -n 's/^base = "sha256:\(.*\)"/
/p' "$BASEDIR/$_base/instance.toml")
  takana qorpa create "$_inst" --base "$_sha" >/dev/null || { echo "claude: no pude crear $_inst" >&2; exit 1; }
  cp "$BASEDIR/$_base/instance.toml" "$BASEDIR/$_inst/instance.toml"
  rm -rf "$BASEDIR/$_inst/upper"
  cp -a "$BASEDIR/$_base/upper" "$BASEDIR/$_inst/upper"
  mkdir -p "$BASEDIR/$_inst/work"
fi

# El `cd` no es comodidad: la memoria del agente se indexa POR RUTA DE TRABAJO. Desde `/` —que es
# donde `qorpa run` deja el shell— la sesión usa el proyecto `-` y el agente empieza sin saber nada
# aunque su memoria esté en disco.
#
# ⚠ **Y ABRE DONDE ESTÁS PARADO, no en un sitio fijo** (2026-09-18). Antes el destino era
# `/opt/takana` cableado, así que `cd /work/sergio/takana && claude` abría… `/opt/takana`: el agente
# contestaba sobre OTRO árbol —el del root— y encima con la memoria de ese proyecto. Se reportó como
# «entro al repo y claude sigue en /opt/takana», y era literal. Ahora el defecto es `$PWD`; el
# cableado queda sólo para cuando no hay `PWD` utilizable.
#
# `PROY` sigue existiendo para abrirlo sobre otro árbol a propósito:
#
#   PROY=/work/sergio/tawasuyu claude
# ⚠ El `shift 2` no es adorno: sin él, el HOME y el proyecto que se pasan como posicionales se
# cuelan COMO ARGUMENTOS del agente. Medido: la primera versión abrió la sesión con el prompt
# «/home/sergio», y el agente contestó —con razón— que eso es una ruta, no un comando.
# ⚠ El `cd` de adentro FALLA RUIDOSAMENTE: la jaula sólo monta los directorios concedidos, así que
# desde una ruta no concedida el `cd` no encuentra nada. Antes eso se tragaba con `&&` y el agente
# arrancaba en `/` sin decir por qué; ahora lo dice y sale.
_proy="${PROY:-$PWD}"
[ -d "$_proy" ] || _proy=/opt/takana

exec takana qorpa run "$_inst" -- sh -c \
  'hogar="$1"; proy="$2"; yo="$3"; shift 3
   cd "$proy" 2>/dev/null || { echo "claude: adentro de la jaula no existe \"$proy\" — ¿está concedido ese directorio en la instancia? (ver grants.dirs)" >&2; exit 1; }
   # `/work/<usuario>/bin` trae el toolchain del CORPUS (make, python3, rustc, cargo, takana…):
   # musl estáticos del store, que corren dentro de la imagen glibc. Lo arma jaula-herramientas.sh.
   # ⚠ EL PATH DEL LAB, que ningún doc decía y muerde en el primer build (2026-09-18, reportado por
   # el agente de adentro): `takana build` invoca `go` y `zig` por nombre, y en la imagen de la jaula
   # no están. Muere con `spawn go mod vendor: No such file or directory`, que no menciona el PATH.
   # Viven en el lab, que ya está concedido.
   exec env HOME="$hogar" TERM="${TERM:-xterm-256color}" \
        PATH="/work/$yo/bin:/work/dev-fs/tools/go/bin:/work/dev-fs/tools/zig:$PATH" \
        /work/claude-cli/2.1.240 "$@"' \
  _ "$_hogar" "$_proy" "$_yo" "$@"