sergio/takana

1#!/bin/sh
2# atuq-nested.sh — hidrata `atuq` con su cierre de runtime y lo abre como VENTANA ANIDADA en el
3# compositor que ya tenés delante (waypipe, mirada, sway…). No toca la GPU como master: atuq es un
4# cliente wayland más.
5#
6#   scripts/atuq-nested.sh            # abre atuq y lo deja corriendo SECS segundos
7#   SECS=60 scripts/atuq-nested.sh
8#
9# ── POR QUÉ HIDRATAR Y NO EJECUTAR DESDE EL STORE ──────────────────────────────────────────────
10# El binario es musl y el host es glibc: no hay `/lib/ld-musl-x86_64.so.1` afuera. Un artefacto que
11# no arranca desde la ruta del store NO está roto — corre HIDRATADO, y ésa es la prueba que vale.
12#
13# ── LAS FUENTES NO SON OPCIONALES ──────────────────────────────────────────────────────────────
14# Un navegador sin una sola fuente arranca, pinta y muestra cuadraditos. Es el modo de fallo que ya
15# nos costó una tarde en GNOME: la clausura decía 100% y la pantalla decía otra cosa. `dejavu-fonts`
16# va en la lista de raíces por eso, no por completismo.
17set -eu
18ROOT="$(cd "$(dirname "$0")/.." && pwd)"; cd "$ROOT"
19H="$ROOT/target/release/hammer"
20
21# ── EL ROOTFS VA EN EL MISMO MOUNT QUE EL STORE, Y NO ES UN CAPRICHO ───────────────────────────
22# `hydrate` proyecta con HARDLINKS, y `linkat()` rechaza cruzar un punto de montaje aunque los dos
23# lados sean el mismo filesystem. Acá el store es `/dev/sdb` bind-monteado en `hammer/store`
24# mientras `work/` vive en `/dev/sdc`: hidratar a `work/…` muere con
25# «Invalid cross-device link (os error 18)» — medido, no supuesto.
26# El volumen entero está montado en /mnt/cosecha, así que store y destino comparten mount ahí.
27# Se comprueba con `findmnt -T`, NUNCA con `stat -c %d` (que dice el device, no el mount).
28STORE="${STORE:-/mnt/cosecha/store}"
29RFS="${RFS:-/mnt/cosecha/escritorios/atuq-rootfs}"
30ALPINE="$ROOT/.dev-fs/alpine"
31SECS="${SECS:-25}"
32URL="${URL:-about:support}"
33
34# Las raíces: atuq y lo que su motor abre en RUNTIME. `wayland-protocols` y compañía no están —son
35# de build— y meterlas engordaría el rootfs sin cambiar nada de lo que se ve.
36# Las variantes `-shared` y NO las estáticas: en runtime una `.a` no sirve para nada, y son las que
37# gtk3 declara NEEDED desde que se arregló el cuadro de las dos Pango.
38RAICES="atuq gtk3 atk gdk-pixbuf-shared pango-shared cairo-shared libepoxy glib-shared pcre2-shared
39        libffi-shared zlib-shared harfbuzz-shared fribidi freetype-shared fontconfig-shared pixman libpng-shared
40        libjpeg-turbo-shared wayland libxkbcommon mesa libdrm dbus pipewire pulseaudio alsa-lib
41        libxml2-shared dejavu-fonts
42        xkeyboard-config"
43# `xkeyboard-config` son DATOS, no una librería, y sin ellos el navegador ni pinta:
44#     xkbcommon: ERROR: failed to add default include path /usr/share/X11/xkb
45# Es el mismo modo de fallo silencioso que las fuentes: nada en la clausura lo ve venir.
46
47# ── EL ROOTFS SE REVALIDA POR HASH, NO POR EXISTENCIA ──────────────────────────────────────────
48# «Ya está hidratado» es la pregunta equivocada: tras cualquier re-hash del corpus el directorio
49# sigue ahí, con los artefactos VIEJOS, y el script abriría contento la versión que acabás de
50# arreglar. Es la misma forma del cache-hit que congela regresiones. La pregunta correcta es si los
51# hashes VIGENTES son los que están puestos, así que se anota la lista resuelta y se compara.
52VIGENTES=""
53faltan=""
54for r in $RAICES; do
55  h="$("$H" --store "$STORE" hash "recipes/$r.toml" 2>/dev/null | tail -1 | sed 's/^b3://')"
56  if [ -z "$h" ] || [ ! -d "$STORE/$h-$r" ]; then faltan="$faltan $r"; continue; fi
57  VIGENTES="$VIGENTES$h-$r
58"
59done
60# Un nodo sin artefacto NO se saltea en silencio: un rootfs al que le faltan tres paquetes arranca
61# y falla tres capas más abajo.
62[ -z "$faltan" ] || { echo "✗ faltan artefactos:$faltan" >&2; exit 1; }
63
64SELLO="$RFS/.raices"
65if [ "${REHIDRATAR:-0}" = "1" ] || [ ! -f "$SELLO" ] || [ "$VIGENTES" != "$(cat "$SELLO")" ]; then
66  # Nada de `diff <(...)`: esto es /bin/sh, y la sustitución de proceso es de bash. Un script que
67  # sólo funciona cuando /bin/sh resulta ser bash es una trampa que salta en otra máquina.
68  [ -f "$SELLO" ] && echo "==> el rootfs está DESACTUALIZADO — se rehidrata"
69  echo "==> hidratando $(echo $RAICES | wc -w) raíces en $RFS"
70  rm -rf "$RFS"; mkdir -p "$RFS"
71  echo "$VIGENTES" | while read -r d; do
72    [ -n "$d" ] && "$H" --store "$STORE" hydrate "${d%%-*}" --into "$RFS" >/dev/null
73  done
74  printf '%s' "$VIGENTES" > "$SELLO"
75  echo "==> hidratado: $(find "$RFS" -type f | wc -l) ficheros"
76else
77  echo "==> rootfs al día ($(echo "$VIGENTES" | grep -c . ) raíces, hashes vigentes)"
78fi
79
80[ -n "${WAYLAND_DISPLAY:-}" ] || { echo "✗ no hay WAYLAND_DISPLAY — esto necesita una pantalla" >&2; exit 1; }
81SOCK="${XDG_RUNTIME_DIR:-/run/user/$(id -u)}/$WAYLAND_DISPLAY"
82[ -S "$SOCK" ] || { echo "✗ no existe el socket $SOCK" >&2; exit 1; }
83echo "==> pantalla: $SOCK"
84
85exec bwrap --overlay-src "$ALPINE" --overlay-src "$RFS" --tmp-overlay / \
86  --dev-bind /dev /dev --proc /proc --bind /sys /sys --tmpfs /tmp --tmpfs /run \
87  --ro-bind "$SOCK" /run/wayland-0 \
88  --uid 0 --gid 0 \
89  --setenv PATH /usr/bin:/bin:/usr/sbin:/sbin \
90  --setenv LD_LIBRARY_PATH /usr/lib:/lib \
91  --setenv XDG_RUNTIME_DIR /run --setenv WAYLAND_DISPLAY wayland-0 \
92  --setenv XDG_DATA_DIRS /usr/share --setenv HOME /root \
93  --setenv GDK_BACKEND wayland --setenv MOZ_ENABLE_WAYLAND 1 \
94  --setenv LIBGL_DRIVERS_PATH /usr/lib/dri \
95  --setenv MOZ_LOG_FILE /tmp/atuq-moz.log \
96  sh -c '
97    mkdir -p /root /run/cache /etc
98    [ -s /etc/machine-id ] || tr -d - < /proc/sys/kernel/random/uuid > /etc/machine-id
99    echo "=== identidad del artefacto ==="
100    sed -n "/^\[App\]/,/^$/p" /usr/lib/atuq/application.ini
101    echo "=== fuentes visibles ==="
102    fc-list 2>/dev/null | wc -l
103    timeout '"$SECS"' /usr/bin/atuq --no-remote '"$URL"' >/tmp/atuq.log 2>&1 &
104    PID=$!
105    sleep 8
106    echo "=== ¿vive? ==="
107    if kill -0 $PID 2>/dev/null; then echo "  ✓ atuq corriendo (PID $PID) — mirá tu pantalla"; else echo "  ✗ murió"; fi
108    echo "=== log ==="; tail -25 /tmp/atuq.log
109    wait $PID 2>/dev/null || true
110  '