sergio/takana

1#!/usr/bin/env bash
2# qemu-desktop-image.sh — imagen de disco EFI GNOME para QEMU (virtio-gpu + software GL), auto-lanza
3# gnome-shell. Hermano de scripts/kde/qemu-desktop-image.sh; comparte con él la base metal, la
4# inyección de mesa/LLVM/musl y el truco del console-getty, y sólo diverge en lo que GNOME necesita.
5#
6#   work/metal-rootfs      base: arje-zero PID1 + busybox + kernel(EFI-stub) + firmware
7#   work/gnome-rootfs      cierre de gnome-shell (lo arma scripts/gnome/hydrate-gnome.sh, 108/108)
8#   + store/*-mesa-llvmpipe   GBM/EGL de software (el rootfs GNOME sólo trae iris_dri, que es Intel real)
9#   + store/*-llvm18          libLLVM que llvmpipe JIT-linkea
10#   + store/*-dejavu-fonts    el rootfs GNOME NO trae NINGUNA fuente
11#   → work/gnome-qemu-rootfs (hardlinks) → work/hammer-gnome-qemu.img
12#
13# Uso:  scripts/gnome/qemu-desktop-image.sh
14set -euo pipefail
15ROOT="$(cd "$(dirname "$0")/../.." && pwd)"; cd "$ROOT"
16
17BASE="${BASE:-work/metal-rootfs}"
18GNOME="${GNOME:-work/gnome-rootfs}"
19MESA="${MESA:-$(ls -dt store/*-mesa-llvmpipe 2>/dev/null | head -1)}"
20LLVM="${LLVM:-$(ls -dt store/*-llvm18 2>/dev/null | head -1)}"
21FONTS="${FONTS:-$(ls -dt store/*-dejavu-fonts 2>/dev/null | head -1)}"
22MERGED="${MERGED:-work/gnome-qemu-rootfs}"
23IMG="${IMG:-work/hammer-gnome-qemu.img}"
24
25[ -d "$BASE" ]  || { echo "falta $BASE" >&2; exit 1; }
26[ -d "$GNOME" ] || { echo "falta $GNOME — corré scripts/gnome/hydrate-gnome.sh" >&2; exit 1; }
27[ -n "$MESA" ] && [ -d "$MESA" ] || { echo "falta mesa-llvmpipe en store/" >&2; exit 1; }
28
29echo "==> fundiendo rootfs por hardlinks (base metal + cierre GNOME)"
30rm -rf "$MERGED"
31cp -al "$BASE" "$MERGED"
32cp -al --remove-destination "$GNOME"/. "$MERGED"/
33
34. "$ROOT/scripts/lib/pid1-desde-store.sh"
35. "$ROOT/scripts/lib/libs-compartidas-desde-store.sh"
36inyectar_pid1 "$MERGED" "$BASE"
37inyectar_libs_compartidas "$MERGED"
38
39echo "==> parcheando mesa software desde $MESA"
40# El cierre GNOME trae mesa con SÓLO iris_dri.so (Intel real). En QEMU no hay GPU: hace falta
41# kms_swrast. Se copian los .so de mesa-llvmpipe ENCIMA (--remove-destination rompe el hardlink).
42mkdir -p "$MERGED"/usr/lib/dri
43cp -a --remove-destination "$MESA"/usr/lib/dri/. "$MERGED"/usr/lib/dri/ 2>/dev/null || true
44for so in libglapi libgbm libEGL libGLESv2 libGL libgallium; do
45  cp -a --remove-destination "$MESA"/usr/lib/$so* "$MERGED"/usr/lib/ 2>/dev/null || true
46done
47ls "$MERGED"/usr/lib/dri/*swrast* >/dev/null 2>&1 && echo "   ✓ kms_swrast instalado" || { echo "   ✗ swrast no entró" >&2; exit 1; }
48
49echo "==> inyectando libLLVM.18 (llvmpipe lo JIT-linkea)"
50[ -n "$LLVM" ] && [ -d "$LLVM" ] || { echo "   ✗ falta llvm18 en store/ (set LLVM=)" >&2; exit 1; }
51cp -a --remove-destination "$LLVM"/usr/lib/libLLVM.so.18.1 "$MERGED"/usr/lib/
52ln -sf libLLVM.so.18.1 "$MERGED"/usr/lib/libLLVM.so.18
53ln -sf libLLVM.so.18.1 "$MERGED"/usr/lib/libLLVM.so
54
55echo "==> inyectando el runtime C++ de Alpine (deuda CONOCIDA, no accidente)"
56# libLLVM y mesa-llvmpipe se construyen con gcc ⇒ NEEDean libstdc++/libgcc_s. Y además —esto es
57# propio de GNOME y quedó documentado al auditar el cierre— **libmozjs-128.so también los NEEDea**,
58# o sea que la cadena gnome-shell → libgjs → libmozjs arrastra el runtime C++ de Alpine. Es la
59# "última milla" de matar-gcc que se cerró para cmake con -static-libstdc++ y que spidermonkey no
60# cubrió. Mientras eso no se re-selle (radio medido: 2), la imagen los inyecta o el shell no carga.
61for lib in libgcc_s.so.1 libstdc++.so.6; do
62  src=".dev-fs/alpine/usr/lib/$lib"
63  if [ -r "$src" ]; then cp -a --remove-destination "$src"* "$MERGED"/usr/lib/ 2>/dev/null || true
64  else echo "   ⚠ sin $lib ($src)"; fi
65done
66
67echo "==> inyectando musl — y los DOS sonames"
68# La base metal es 100% estática (arje-zero+busybox) y el cierre GNOME no trae libc. En musl el
69# loader ES libc (mismo fichero). Van dos nombres porque conviven dos toolchains: zig-cc emite
70# NEEDED `libc.so` (359 consumidores) y el gcc/clang de Alpine emite `libc.musl-x86_64.so.1`
71# (17: todo nss + spidermonkey). Es la MISMA libc; sin el segundo symlink esos 17 no cargan.
72MUSL="${MUSL:-/usr/lib/musl/lib/libc.so}"
73[ -r "$MUSL" ] || { echo "no encuentro musl libc ($MUSL) — set MUSL=" >&2; exit 1; }
74mkdir -p "$MERGED/usr/lib/musl/lib" "$MERGED/lib"
75cp -a --remove-destination "$MUSL" "$MERGED/usr/lib/musl/lib/libc.so"
76ln -sf /usr/lib/musl/lib/libc.so "$MERGED/lib/ld-musl-x86_64.so.1"
77ln -sf /usr/lib/musl/lib/libc.so "$MERGED/usr/lib/libc.so"
78ln -sf /usr/lib/musl/lib/libc.so "$MERGED/usr/lib/libc.musl-x86_64.so.1"
79echo "   ✓ libc.so + libc.musl-x86_64.so.1"
80
81if [ -n "$FONTS" ] && [ -d "$FONTS" ]; then
82  echo "==> inyectando fuentes ($(basename "$FONTS"))"
83  cp -a --remove-destination "$FONTS"/usr/share/fonts/. "$MERGED"/usr/share/fonts/ 2>/dev/null || \
84    { mkdir -p "$MERGED"/usr/share/fonts && cp -a "$FONTS"/usr/share/fonts/. "$MERGED"/usr/share/fonts/; }
85else
86  echo "   ⚠ sin dejavu-fonts en el store: el escritorio saldrá con tofu"
87fi
88
89echo "==> inyectando arje-logind-compat (el login1 del fractal)"
90# EL ESLABÓN QUE FALTABA, descubierto arrancando la imagen: mutter levanta como display server y
91# muere en `Failed to setup: Failed to find any matching session`. Ese chequeo es de logind — mutter
92# pregunta por su sesión vía la C-ABI sd-login, que acá provee libelogind (arje-sdlogin-compat)
93# LEYENDO /run/systemd/{sessions,users,seats}. Pero alguien tiene que ESCRIBIR esos ficheros, y ese
94# alguien es arje-logind-compat, el daemon D-Bus que se hace pasar por org.freedesktop.login1.
95# libelogind entra solo (es dep de mutter); el daemon no, porque nadie lo declara como dep de build.
96# El artefacto se elige por `takana hash` sobre la receta —el que corresponde a la receta de HOY—, no
97# por el más reciente del store: con dos artefactos del mismo paquete conviviendo, la fecha no dice
98# cuál es el vigente. ALC_BIN permite inyectar un binario RECIÉN COMPILADO en vez del artefacto sellado. Es para probar
99# un cambio en arje-compat antes de commitear/pushear tawasuyu y re-sellar la receta (la receta pina
100# un commit, así que sin push no hay artefacto nuevo). Lo que se pruebe así NO es reproducible: es
101# andamio de iteración, y el camino de producción sigue siendo el artefacto del store.
102if [ -n "${ALC_BIN:-}" ] && [ -x "$ALC_BIN" ]; then
103  install -Dm755 "$ALC_BIN" "$MERGED"/usr/bin/arje-logind-compat
104  echo "   ⚠ binario LOCAL (no sellado): $ALC_BIN"
105elif ALC="${ALC:-store/$(./target/release/takana --store store hash recipes/arje-logind-compat.toml 2>/dev/null | tail -1 | sed 's/^b3://')-arje-logind-compat}"; [ -d "$ALC" ]; then
106  install -Dm755 "$ALC"/usr/bin/arje-logind-compat "$MERGED"/usr/bin/arje-logind-compat
107  # …y su POLÍTICA D-Bus, que desde 2026-07-30 viaja en el artefacto. Se copia, no se escribe: el
108  # dueño del fichero es el paquete. Ojo — inyectar «sólo el binario» era el bug que destapó la
109  # comprobación de abajo: el artefacto traía el .conf y la imagen lo dejaba afuera.
110  install -d "$MERGED/usr/share/dbus-1/system.d"
111  cp -a --remove-destination "$ALC"/usr/share/dbus-1/system.d/. "$MERGED"/usr/share/dbus-1/system.d/ 2>/dev/null || true
112  echo "   ✓ $(basename "$ALC" | cut -c1-12)"
113else
114  echo "   ✗ falta arje-logind-compat en store/ — mutter no hallará sesión" >&2; exit 1
115fi
116
117# La POLÍTICA D-Bus de login1 YA NO SE ESCRIBE ACÁ (2026-07-30): la trae el artefacto de
118# `arje-logind-compat`, que es su dueño. Este bloque tenía un TODO diciendo exactamente eso, y estaba
119# bien puesto: un servicio que no puede adueñarse de su nombre no es un servicio, así que su política
120# es parte de lo que el paquete promete. Teniéndola acá, cualquier OTRA imagen —metal, KDE, mirada—
121# se llevaba el daemon y no podía usarlo. Se comprueba abajo, junto con la de polkit.
122install -d "$MERGED/usr/share/dbus-1/system.d"
123
124echo "==> inyectando arje-polkit-compat (el PolicyKit1 del fractal) + su política"
125# EL TERCER ESLABÓN DEL MISMO TIPO, y lo destapó la lista de nombres del bus: accounts-daemon y
126# upowerd quedaban CONECTADOS (`:1.0`, `:1.1`) sin adquirir su nombre, porque los dos se bloquean en
127# `polkit_authority_get_sync()` esperando a `org.freedesktop.PolicyKit1`. Nuestra receta `polkit` es
128# libs-only a propósito (el demonio lo pone arje), así que nadie servía ese nombre y gnome-shell
129# esperaba 25 s por cada uno.
130# ⚠ El shim autoriza TODO (postura de sistema confiado ya tomada por arje) — ver su receta.
131if APC="${APC:-store/$(./target/release/takana --store store hash recipes/arje-polkit-compat.toml 2>/dev/null | tail -1 | sed 's/^b3://')-arje-polkit-compat}"; [ -d "$APC" ]; then
132  install -Dm755 "$APC"/usr/bin/arje-polkit-compat "$MERGED"/usr/bin/arje-polkit-compat
133  install -d "$MERGED/usr/share/dbus-1/system.d"
134  cp -a --remove-destination "$APC"/usr/share/dbus-1/system.d/. "$MERGED"/usr/share/dbus-1/system.d/ 2>/dev/null || true
135  echo "   ✓ $(basename "$APC" | cut -c1-12)"
136else
137  echo "   ✗ falta arje-polkit-compat en store/ — accounts-daemon y upowerd no adquirirán su nombre" >&2
138  exit 1
139fi
140# Su política tampoco se escribe acá: viaja en el artefacto (ver recipes/arje-polkit-compat.toml, que
141# explica por qué el fichero se llama `zz-` y no reemplaza al de polkit).
142#
143# ── COMPROBACIÓN, que es lo que reemplaza a escribirlas ────────────────────────────────────────
144# Mover algo a un artefacto sólo es una mejora si se NOTA cuando falta. Sin esto, un artefacto viejo
145# sin su .conf daría el mismo fallo tardío y confuso de antes: el daemon arranca, no adquiere el
146# nombre, y el escritorio espera 25 s por servicio sin decir por qué.
147for pol in org.freedesktop.login1.conf zz-arje-polkit-compat.conf; do
148  if [ -f "$MERGED/usr/share/dbus-1/system.d/$pol" ]; then
149    echo "   ✓ $pol (del artefacto)"
150  else
151    echo "   ✗ falta $pol — el artefacto que lo trae es viejo; re-sellá su receta" >&2
152    exit 1
153  fi
154done
155
156echo "==> usuario messagebus (el system bus hace setuid a él)"
157for f in passwd:messagebus:x:81:81:messagebus:/dev/null:/sbin/nologin group:messagebus:x:81:; do
158  file="${f%%:*}"; line="${f#*:}"
159  if ! grep -q '^messagebus:' "$MERGED/etc/$file" 2>/dev/null; then
160    tmp="$MERGED/etc/$file.new"
161    { cat "$MERGED/etc/$file"; echo "$line"; } > "$tmp"
162    chmod 644 "$tmp"; mv "$tmp" "$MERGED/etc/$file"
163  fi
164done
165
166# El launch-helper del bus de SISTEMA tiene que ser setuid root. Es el que dbus-daemon ejecuta para
167# activar un servicio bajo demanda, y comprueba SUS PROPIOS permisos antes de hacer nada: si no es
168# setuid root, se niega, y el cliente recibe
169#   Error calling StartServiceByName for <servicio>: The permission of the setuid helper is not correct
170# que es exactamente lo que reportaba colord al arrancar la sesión. Sin esto **ninguna** activación
171# por bus de sistema funciona; con esto, cualquier servicio con su `.service` instalado arranca solo y
172# no hace falta lanzarlo a mano desde `gnome-start`.
173for h in usr/libexec/dbus-daemon-launch-helper usr/lib/dbus-1.0/dbus-daemon-launch-helper; do
174  if [ -f "$MERGED/$h" ]; then
175    chown 0:81 "$MERGED/$h" 2>/dev/null || true   # root:messagebus
176    chmod 4750 "$MERGED/$h"
177    echo "   ✓ setuid en /$h"
178  fi
179done
180
181# GNOME_MODE se hornea como fichero: el getty ejecuta gnome-start sin ambiente heredable.
182printf 'GNOME_MODE=%s\n' "${GNOME_MODE:-drm}" > "$MERGED/etc/gnome-mode"
183echo "==> modo de arranque: ${GNOME_MODE:-drm}"
184# KMS_MODE viaja por el mismo camino, y sólo si se pide: `gnome-start` lo traduce a
185# MUTTER_DEBUG_FORCE_KMS_MODE. Vacío = atomic (el default de mutter). `simple` = el modeset legacy
186# que se heredó de KDE y dejaba la pantalla en negro.
187if [ -n "${KMS_MODE:-}" ]; then
188  printf 'KMS_MODE=%s\n' "$KMS_MODE" >> "$MERGED/etc/gnome-mode"
189  echo "==> KMS forzado a: $KMS_MODE"
190fi
191
192echo "==> instalando /usr/bin/gnome-start"
193install -Dm755 scripts/gnome/gnome-start-qemu.sh "$MERGED/usr/bin/gnome-start"
194
195echo "==> auto-lanzar GNOME: console-getty ejecuta gnome-start (no /bin/sh)"
196python3 - "$MERGED/ente/seed.card.json" <<'PY'
197import json, sys, os
198p = sys.argv[1]
199c = json.load(open(p))
200for g in c.get("genesis", []):
201    if g.get("label") == "console-getty":
202        argv = g["payload"]["Native"]["argv"]
203        argv[:] = [("/usr/bin/gnome-start" if a == "/bin/sh" else a) for a in argv]
204        print("  console-getty argv →", argv)
205tmp = p + ".new"
206with open(tmp, "w") as f:
207    json.dump(c, f, indent=2)
208os.chmod(tmp, 0o644)
209os.replace(tmp, p)
210PY
211
212# /var/run → /run: arje-logind-compat busca el bus de sistema en la ruta LEGACY
213# (/var/run/dbus/system_bus_socket) y dbus-daemon escucha en /run/dbus/system_bus_socket. En casi
214# toda distro /var/run es un symlink a /run desde hace 15 años; esta base metal es tan mínima que ni
215# siquiera tiene /var/run. Sin el enlace el daemon reporta `bus_present=false` y se va a "modo idle",
216# o sea que nunca registra login1 ni escribe /run/systemd/sessions ⇒ mutter no halla sesión.
217ln -sfn /run "$MERGED/var/run"
218
219mkdir -p "$MERGED/root/.config" "$MERGED/root/.cache" "$MERGED/run/user/0" "$MERGED/tmp"
220chmod 1777 "$MERGED/tmp"
221
222echo "==> rootfs fundido: $(du -sh "$MERGED" | cut -f1)"
223need_mb=$(du -sm "$MERGED" | cut -f1)
224ROOT_SIZE="${ROOT_SIZE:-$(( need_mb + 1536 ))}"
225echo "==> ROOT_SIZE=${ROOT_SIZE} MiB"
226
227export ROOTFS="$MERGED" IMG ROOT_SIZE
228export ESP_MB="${ESP_MB:-128}" STORE_SIZE="${STORE_SIZE:-512}" STATE_SIZE="${STATE_SIZE:-768}"
229exec ./scripts/install-image-efi.sh