sergio/takana

1#!/bin/sh
2# gnome-start-qemu.sh — arranca gnome-shell (Wayland) en una VM QEMU con render por SOFTWARE
3# (kms_swrast/llvmpipe) sobre el DRM de virtio-gpu. Análogo de plasma-start-qemu.sh, y hereda sus
4# lecciones caras: el diagnóstico va POR SERIAL porque la ventana gtk se congela si mirada reinicia
5# su Xwayland (QEMU sigue vivo por dentro). Ver [[kde-metal-qemu-desktop]].
6#
7# Se instala como /usr/bin/gnome-start y lo ejecuta DIRECTO el console-getty (no vía login shell).
8# Salir: matar gnome-shell. Logs: /tmp/gnome-shell.log + tee al serial.
9#
10# DIFERENCIA CLAVE CON PLASMA: acá NO hay dos procesos (compositor + shell). gnome-shell ES el
11# compositor — embebe mutter como librería (libmutter-16.so) y `--wayland` lo hace display server.
12# Por eso no hay un equivalente de "kwin arriba pero plasmashell murió": si el shell cae, cae todo.
13set -u
14# getty ejecuta este script DIRECTO ⇒ PATH viene vacío. Primero eso, antes de invocar nada.
15export PATH=/usr/bin:/bin:/usr/sbin:/sbin
16# El modo lo hornea la imagen (GNOME_MODE=... en scripts/gnome/qemu-desktop-image.sh).
17[ -r /etc/gnome-mode ] && . /etc/gnome-mode
18say() { echo "== gnome-qemu :: $*" | tee -a /dev/console /dev/ttyS0 2>/dev/null; }
19dump() { echo "---- $1 ----" > /dev/ttyS0 2>/dev/null; cat "$1" > /dev/ttyS0 2>/dev/null; }
20# OJO con el test de vivo: `kill -0` TIENE ÉXITO sobre un ZOMBI (el hijo existe como PID hasta que
21# el padre lo cosecha, y acá el padre es este script, que sólo hace wait al final). La primera
22# versión usaba kill -0 y por eso reportó "sin wayland-0 tras 45s" cuando en realidad gnome-shell ya
23# había muerto en el primer segundo: el diagnóstico decía "0 hilos" porque no quedaba proceso, sólo
24# la entrada zombi. Se mira el State de /proc en su lugar.
25alive() { s=$(sed -n 's/^State:[[:space:]]*//p' /proc/$1/status 2>/dev/null); case "$s" in ""|Z*) return 1;; *) return 0;; esac; }
26
27export LD_LIBRARY_PATH=/usr/lib:/lib:/usr/lib/gnome-shell:/usr/lib/mutter-16
28# GI_TYPELIB_PATH es EL env crítico de esta sesión, y el que no tiene análogo en KDE: gnome-shell es
29# JavaScript sobre gjs y carga TODO por typelib. Los del sistema van en /usr/lib/girepository-1.0,
30# pero St/Shell/Gvc/Shew se instalan APARTE en /usr/lib/gnome-shell (son privados del shell). Sin
31# esta ruta, gjs no encuentra imports.gi.St y el shell muere en el primer require.
32export GI_TYPELIB_PATH=/usr/lib/girepository-1.0:/usr/lib/gnome-shell:/usr/lib/gnome-shell/girepository-1.0
33export XDG_DATA_DIRS=/usr/share
34export XDG_RUNTIME_DIR=/run/user/0
35export XDG_CONFIG_HOME=/root/.config
36export XDG_CACHE_HOME=/root/.cache
37export XDG_SESSION_TYPE=wayland
38export HOME=/root
39export GSETTINGS_SCHEMA_DIR=/usr/share/glib-2.0/schemas
40export LANG=C.UTF-8
41# XCURSOR_PATH/XCURSOR_THEME: sin tema de cursor mutter avisa «No cursor theme available» y —con el
42# cursor por software, que en virtio-gpu es obligatorio— el puntero se mueve INVISIBLE. Lo provee
43# `adwaita-icon-theme`, y el nombre del tema tiene que coincidir con el directorio bajo
44# /usr/share/icons. El `org.gnome.desktop.interface cursor-theme` de GSettings dice lo mismo, pero
45# estas variables las lee también libXcursor/wayland-cursor sin pasar por GSettings.
46export XCURSOR_PATH=/usr/share/icons
47export XCURSOR_THEME=Adwaita
48export XCURSOR_SIZE=24
49
50# --- render por software sobre virtio-gpu (los mismos fixes que costaron la campaña KDE) ---
51export LIBGL_ALWAYS_SOFTWARE=1
52export GALLIUM_DRIVER=llvmpipe
53# GBM_ALWAYS_SOFTWARE=1 — virtio-gpu-pci SIN 3D expone un nodo KMS-only. Sin esto gbm carga kms_swrast
54# pero deja gbm_dri->software=FALSE y dri2_initialize_drm entra al bloque `if(!software)` llamando
55# queryCompatibleRenderOnlyDeviceFd(), NULL en el driver software ⇒ SIGSEGV. Fue el MURO 2 de KDE.
56export GBM_ALWAYS_SOFTWARE=1
57# kms_swrast y NO swrast: el compositor abre card0 como KMS y crea un gbm device encima ⇒ necesita el
58# driver software PARA KMS (dumb buffers). Con 'swrast' pelado gbm_create_device falla.
59export MESA_LOADER_DRIVER_OVERRIDE=kms_swrast
60export LIBGL_DRIVERS_PATH=/usr/lib/dri
61# llvmpipe SINCRÓNICO: su JIT multi-thread segfaultea al componer la 1ra superficie en esta VM.
62export LP_NUM_THREADS=1
63# Análogo mutter de un fix de kwin: cursor por software (el plano de cursor por HW no se presenta en
64# virtio-gpu con render software ⇒ cursor invisible).
65export MUTTER_DEBUG_DISABLE_HW_CURSORS=1
66# MUTTER_DEBUG_FORCE_KMS_MODE — perilla EXPERIMENTAL, apagada por defecto desde 2026-07-29.
67#
68# Estuvo en `simple` (modeset legacy en vez de atomic), copiado de la campaña KDE. Pero ahí el que
69# fallaba con atomic era KWIN, no mutter: se heredó por analogía, no por medición. Y el síntoma que
70# dejó es exactamente el que el modo legacy explica — la sesión sube entera, `gnome-shell` corre
71# cinco minutos sin un solo error, y la PANTALLA SIGUE NEGRA con la consola del kernel encima. En el
72# log de KMS: `Plane has no advertised formats` para el plano primario de virtio-gpu (sin 3D no
73# publica IN_FORMATS) y sólo `Queue mode set` — ningún page flip, ningún scanout.
74#
75# Con atomic, mutter negocia formatos y planos por la ruta moderna, que es la que sabe qué hacer
76# cuando el driver no publica IN_FORMATS. Se deja la variable como perilla para volver a probar el
77# camino legacy sin editar el script: `KMS_MODE=simple bash scripts/gnome/qemu-desktop-image.sh`,
78# que lo hornea en /etc/gnome-mode (el getty no hereda ambiente, igual que GNOME_MODE).
79[ -n "${KMS_MODE:-}" ] && export MUTTER_DEBUG_FORCE_KMS_MODE="$KMS_MODE"
80# MUTTER_DEBUG_KMS_THREAD_TYPE=user: mutter corre su hebra KMS con prioridad de TIEMPO REAL por
81# defecto. En esta VM no hay privilegios de RT scheduling, y el síntoma es exactamente el que dio el
82# diagnóstico — hilo principal dormido en `futex_do_wait` con la "KMS thread" viva pero sin avanzar,
83# el shell con /dev/dri/card0 ya abierto y ningún socket wayland creado nunca.
84export MUTTER_DEBUG_KMS_THREAD_TYPE=user
85# MUTTER_DEBUG_SEND_KMS_MODIFIERS=0: el equivalente en mutter del KWIN_DRM_USE_MODIFIERS=0 que costó
86# la campaña KDE. virtio-gpu ANUNCIA soportar drmModeAddFB2WithModifiers pero RECHAZA el modifier
87# explícito (aun LINEAR=0) con EINVAL ⇒ no se puede crear el framebuffer del compositor. Los nombres
88# de estas variables están verificados contra los strings de libmutter-16.so.0, no de memoria.
89export MUTTER_DEBUG_SEND_KMS_MODIFIERS=0
90
91if [ "${DIAG:-1}" = 1 ]; then
92  export G_MESSAGES_DEBUG=all
93  # MUTTER_DEBUG es una LISTA DE TÓPICOS (g_parse_debug_string sobre meta_debug_keys, core/util.c:42),
94  # no un booleano: con `1` no matcheaba ninguna clave y no encendía nada. `backend` es el que
95  # imprime «Opening and taking control of device file '<path>'» por cada dispositivo que pasa por
96  # MetaDevicePool ⇒ dice EXACTAMENTE en cuál se queda parada la hebra de input.
97  export MUTTER_DEBUG=backend,input,kms
98  export EGL_LOG_LEVEL=debug
99  export LIBGL_DEBUG=verbose
100fi
101
102mkdir -p "$XDG_RUNTIME_DIR" "$XDG_CONFIG_HOME" "$XDG_CACHE_HOME" /run/dbus /var/lib/dbus /root
103chmod 700 "$XDG_RUNTIME_DIR"
104[ -s /etc/machine-id ] || cat /proc/sys/kernel/random/uuid 2>/dev/null | tr -d - > /etc/machine-id
105cp -f /etc/machine-id /var/lib/dbus/machine-id 2>/dev/null || true
106
107# ── ACTIVAR LAS EXTENSIONES QUE LA IMAGEN TRAE ────────────────────────────────────────────────
108# Una extensión INSTALADA no hace nada: el shell sólo carga las que estén en
109# `org.gnome.shell enabled-extensions`. Sin esto, empaquetarlas sella artefactos que la imagen
110# lleva y nadie ejecuta — «sellado ≠ instalado», un escalón más abajo.
111#
112# ⚠ POR QUÉ LA LISTA SE ARMA ACÁ Y NO EN CADA RECETA. `enabled-extensions` es un ARRAY: un override
113# lo escribe ENTERO. Si cada receta trajera el suyo, no se sumarían — ganaría el fichero que
114# compile último (orden alfabético) y las demás quedarían instaladas y MUERTAS, sin un solo error.
115# La lista tiene que existir en un único sitio, y una receta no puede ser ese sitio: hammer exige
116# `[source]` en toda receta (comprobado: «missing field `source`»), así que no hay forma de escribir
117# una receta de pura política sin inventarle una fuente. Acá, donde ya se compilan los esquemas, sí.
118#
119# La política es «lo que la imagen instala, se activa»: el catálogo sólo empaqueta extensiones que
120# queremos encendidas. Quien no quiera una la apaga desde su dconf, que gana sobre el default.
121EXT_DIR=/usr/share/gnome-shell/extensions
122OVR="$GSETTINGS_SCHEMA_DIR/60_hammer-extensiones.gschema.override"
123if [ -d "$EXT_DIR" ]; then
124  uuids=""
125  for d in "$EXT_DIR"/*/; do
126    [ -s "$d/metadata.json" ] || continue
127    u="$(basename "$d")"
128    uuids="$uuids${uuids:+, }'$u'"
129  done
130  if [ -n "$uuids" ]; then
131    nuevo_ovr="[org.gnome.shell]
132enabled-extensions=[$uuids]"
133    # Si la lista cambió respecto de la compilada, hay que RECOMPILAR: el bloque de abajo sólo
134    # compila cuando falta `gschemas.compiled`, así que un override nuevo sobre una imagen ya
135    # arrancada quedaría ignorado en silencio.
136    if [ ! -f "$OVR" ] || [ "$(cat "$OVR")" != "$nuevo_ovr" ]; then
137      printf '%s\n' "$nuevo_ovr" > "$OVR"
138      rm -f "$GSETTINGS_SCHEMA_DIR/gschemas.compiled"
139    fi
140    say "extensiones a activar: $uuids"
141  else
142    say "no hay extensiones instaladas en $EXT_DIR"
143  fi
144fi
145
146# gschemas.compiled: meson NO lo genera cuando DESTDIR está seteado (lo dice en el log del build:
147# "Skipping custom install script because DESTDIR is set"). Sin él, GSettings aborta al primer
148# g_settings_new() y el shell no llega ni a abrir el DRM. Se compila acá, en el primer arranque.
149if [ ! -f "$GSETTINGS_SCHEMA_DIR/gschemas.compiled" ]; then
150  say "compilando $(ls $GSETTINGS_SCHEMA_DIR/*.xml 2>/dev/null | wc -l) esquemas GSettings..."
151  glib-compile-schemas "$GSETTINGS_SCHEMA_DIR" 2>/tmp/schemas.log \
152    && say "esquemas OK" || { say "!! glib-compile-schemas FALLÓ:"; dump /tmp/schemas.log; }
153  # SIEMPRE volcar el log, no sólo al fallar. `glib-compile-schemas` **sale con 0 aunque RECHACE un
154  # esquema**: imprime el motivo por stderr y sigue con los demás. Con el volcado condicionado al
155  # código de salida, un esquema descartado quedaba invisible detrás de un «esquemas OK» — y eso fue
156  # exactamente lo que escondió que los gschemas de g-s-d les faltaban los `<enum>`, mientras el
157  # shell moría con «schema ... not found» y el fichero estaba instalado. Perdí un ciclo por creerle
158  # al código de salida en vez de leer stderr.
159  if [ -s /tmp/schemas.log ]; then
160    say "!! glib-compile-schemas se QUEJÓ (aunque no falle, puede haber descartado esquemas):"
161    dump /tmp/schemas.log
162  fi
163fi
164
165say "GPU DRM: $(ls /dev/dri/ 2>/dev/null | tr '\n' ' ')"
166[ -e /dev/dri/card0 ] || say "!! no hay /dev/dri/card0 — ¿virtio-gpu no cargó?"
167
168# D-Bus de SISTEMA: mutter habla con logind por el bus de sistema. En esta distro login1 lo provee
169# arje-logind-compat; si no está, mutter cae a su ruta sin sesión (que es justo lo que libelogind
170# vino a cubrir del lado de la C-ABI). El bus tiene que existir igual.
171if [ ! -S /run/dbus/system_bus_socket ]; then
172  if dbus-daemon --system --fork 2>/tmp/dbus-system.log; then
173    say "system bus ON"
174  else
175    say "!! system bus NO arrancó:"; dump /tmp/dbus-system.log
176  fi
177fi
178
179# D-Bus de sesión: gnome-shell EXIGE uno (registra org.gnome.Shell y org.gnome.Mutter.*).
180if [ -z "${DBUS_SESSION_BUS_ADDRESS:-}" ]; then
181  DBUS_SESSION_BUS_ADDRESS=$(dbus-daemon --session --fork --print-address 2>/dev/null)
182  export DBUS_SESSION_BUS_ADDRESS
183fi
184say "dbus sesión: ${DBUS_SESSION_BUS_ADDRESS:-NO ARRANCO}"
185
186# arje-logind-compat: el login1 del fractal. Va DESPUÉS del bus de sistema (registra
187# org.freedesktop.login1 ahí) y ANTES del shell. Mutter no sólo lo consulta por D-Bus: pregunta por
188# SU sesión vía la C-ABI sd-login, que libelogind resuelve LEYENDO /run/systemd/sessions. Sin este
189# daemon esos ficheros no existen y mutter muere en "Failed to find any matching session".
190if [ -x /usr/bin/arje-logind-compat ]; then
191  # ARJE_LOGIN_STATE=1: la perilla que YA traía el daemon y que nadie prendía. Su comentario en
192  # arje-compat lo dice explícito — "en un host CON systemd real pisaría su estado; en arje (sin
193  # systemd) el launcher de sesión lo prende. Default off" — y el launcher de sesión es ESTE script.
194  # Con ella escribe /run/systemd/{sessions,seats,users}, que es lo que libelogind lee.
195  export ARJE_LOGIN_STATE=1
196  /usr/bin/arje-logind-compat >/tmp/logind-compat.log 2>&1 &
197  i=0
198  while [ $i -lt 40 ]; do
199    [ -d /run/systemd/sessions ] && [ -n "$(ls /run/systemd/sessions 2>/dev/null)" ] && break
200    i=$((i+1)); sleep 0.25
201  done
202  say "logind-compat: sesiones=$(ls /run/systemd/sessions 2>/dev/null | tr '\n' ' ') seats=$(ls /run/systemd/seats 2>/dev/null | tr '\n' ' ')"
203  [ -n "$(ls /run/systemd/sessions 2>/dev/null)" ] || dump /tmp/logind-compat.log
204else
205  say "!! sin /usr/bin/arje-logind-compat — mutter no va a hallar sesión"
206fi
207
208# ── PUENTE EXPLÍCITO: el estado de sesión que arje-logind-compat todavía no escribe ─────────────
209# ESTO ES ANDAMIO, NO LA SOLUCIÓN. arje-logind-compat adquiere org.freedesktop.login1 y sirve el
210# Manager por D-Bus, pero NO deja nada en /run/systemd/{sessions,seats,users} — su handshake con el
211# bus de arje falla ("Announce respuesta inesperada: identity mismatch"), así que nunca hay una
212# sesión registrada por el fractal. Y mutter no pregunta por D-Bus: usa la C-ABI sd-login, que
213# libelogind (arje-sdlogin-compat) resuelve LEYENDO esos ficheros. De ahí "Failed to find any
214# matching session" aun con login1 arriba.
215#
216# Escribimos el estado a mano, en el formato que libelogind lee (claves sacadas del propio .so:
217# LEADER/SEAT/CLASS/TYPE/ACTIVE/STATE/VTNR y CAN_GRAPHICAL del seat). Sirve para PROBAR que el resto
218# de la pila funciona; el arreglo de verdad es que arje-logind-compat registre la sesión del fractal
219# —o que el Announce deje de fallar— y escriba esto solo. Queda marcado para no confundir andamio
220# con producto.
221if [ -z "$(ls /run/systemd/sessions 2>/dev/null)" ]; then
222  say "puente: escribiendo estado de sesión a mano (arje-logind-compat no lo hizo)"
223  mkdir -p /run/systemd/sessions /run/systemd/seats /run/systemd/users
224  cat > /run/systemd/sessions/1 <<EOF
225UID=0
226NAME=root
227LEADER=$$
228SEAT=seat0
229TYPE=wayland
230CLASS=user
231ACTIVE=1
232STATE=active
233VTNR=1
234REMOTE=0
235EOF
236  cat > /run/systemd/seats/seat0 <<EOF
237CAN_GRAPHICAL=1
238CAN_MULTI_SESSION=1
239ACTIVE=1
240ACTIVE_SESSIONS=1
241SESSIONS=1
242EOF
243  cat > /run/systemd/users/0 <<EOF
244NAME=root
245STATE=active
246SESSIONS=1
247ACTIVE_SESSIONS=1
248EOF
249fi
250# XDG_SESSION_ID/SEAT/VTNR: libelogind los menciona entre sus símbolos, y son además el contrato
251# estándar por el que un proceso sabe cuál es SU sesión sin consultar por PID.
252export XDG_SESSION_ID=1
253export XDG_SEAT=seat0
254export XDG_VTNR=1
255
256# ── ESPERAR EL NOMBRE, NO EL PROCESO ────────────────────────────────────────────────────────────
257# El paso que faltaba, y es la otra mitad de «un pid no es un servicio»: comprobar que el daemon
258# ADQUIRIÓ su nombre en el bus. Se le da tiempo y, si no aparece, se vuelca su log y la lista de
259# nombres del bus — que es el dato que dice si el problema es «no arrancó», «arrancó y no pidió el
260# nombre» o «lo pidió y se lo negaron».
261# $3 = décimas de segundo a esperar (default 20 = 10 s). colord necesita más: en el PRIMER arranque
262# crea sus tres bases de datos en /var/lib/colord y escanea los directorios de perfiles ICC antes de
263# pedir el nombre, y con 10 s daba «NO apareció» sin estar colgado — o sea un falso negativo.
264#
265# Se define ACÁ ARRIBA —antes del primer daemon— y no al final junto a las llamadas, porque el bloque
266# de polkit de abajo la necesita para poder ESPERAR antes de lanzar a sus clientes.
267esperar_nombre() {
268  n="$1"; log="$2"; lim="${3:-20}"; i=0
269  while [ $i -lt "$lim" ]; do
270    if dbus-send --system --dest=org.freedesktop.DBus --print-reply \
271         /org/freedesktop/DBus org.freedesktop.DBus.NameHasOwner "string:$n" 2>/dev/null \
272       | grep -q "boolean true"; then
273      say "bus: $n OK"
274      return 0
275    fi
276    i=$((i+1)); sleep 0.5
277  done
278  say "!! bus: $n NO apareció en $((lim/2))s"
279  [ -n "$log" ] && [ -s "$log" ] && dump "$log"
280  say "nombres en el bus de sistema:"
281  dbus-send --system --dest=org.freedesktop.DBus --print-reply \
282    /org/freedesktop/DBus org.freedesktop.DBus.ListNames 2>/dev/null \
283    | tr -d '" ' | grep -v '^\s*$' > /tmp/busnames.log
284  dump /tmp/busnames.log
285  return 1
286}
287
288# arje-polkit-compat: el PolicyKit1 del fractal. **VA ANTES que accounts-daemon y upowerd**, y el
289# orden no es estético: los dos se bloquean en `polkit_authority_get_sync()` al arrancar, así que si
290# `org.freedesktop.PolicyKit1` no está en el bus se quedan conectados pero SIN adquirir su nombre —y
291# gnome-shell después espera 25 s por cada uno—. Nuestra receta `polkit` es libs-only a propósito
292# (el demonio lo pone arje). Ojo: el shim autoriza TODO; ver recipes/arje-polkit-compat.toml.
293#
294# ⚠ Y «antes» tiene que ser POR EL NOMBRE, no por el orden de las líneas. Lanzarlo primero no alcanza:
295# se lanza en background y tarda ~2 s en adquirir `org.freedesktop.PolicyKit1`, mientras accounts-daemon
296# y upowerd arrancan de inmediato y llaman a `polkit_authority_get_sync()` en ese hueco. Entonces D-Bus
297# intenta ACTIVAR el servicio (nadie tiene el nombre todavía) y falla:
298#   Error calling StartServiceByName for org.freedesktop.PolicyKit1:
299#     Failed to execute program org.freedesktop.PolicyKit1: Permission denied
300# y los dos daemons se MUEREN («Failed to initialize daemon»). Después el shim adquiere el nombre
301# tranquilo y el chequeo del final dice `PolicyKit1 OK` — o sea que el resumen final da verde y los
302# clientes ya están muertos. La carrera es real y la ganaba cualquiera: es la misma lección de «un pid
303# no es un servicio», aplicada al productor en vez de al consumidor.
304if [ -x /usr/bin/arje-polkit-compat ]; then
305  /usr/bin/arje-polkit-compat >/tmp/polkit-compat.log 2>&1 &
306  say "arje-polkit-compat lanzado (pid $!)"
307  esperar_nombre org.freedesktop.PolicyKit1 /tmp/polkit-compat.log \
308    || say "!! sigo igual: accounts-daemon y upowerd van a fallar al pedir la autoridad"
309else
310  say "!! sin arje-polkit-compat — accounts-daemon y upowerd se van a colgar pidiendo autorización"
311fi
312
313# accounts-daemon: el servicio D-Bus de cuentas (org.freedesktop.Accounts). El shell lo consulta
314# desde JavaScript vía `imports.gi.AccountsService` para el nombre y el avatar del usuario del menú.
315#
316# Se lanza EXPLÍCITO aunque el artefacto instale su `.service` de activación: la activación por bus
317# de sistema pasa por `dbus-daemon-launch-helper`, que en una distro normal es setuid root y acá no
318# lo es. Corriendo todo como root la activación probablemente funcionaría igual, pero depender de eso
319# es depender de un accidente; lanzarlo a mano es una línea y no deja ambigüedad. Si además llegara a
320# activarse por bus, el segundo simplemente no adquiere el nombre y se va: no hay daño.
321if [ -x /usr/libexec/accounts-daemon ]; then
322  /usr/libexec/accounts-daemon >/tmp/accounts-daemon.log 2>&1 &
323  say "accounts-daemon lanzado (pid $!)"
324else
325  say "!! sin /usr/libexec/accounts-daemon — el menú de usuario del shell va a fallar"
326fi
327
328# upowerd: el servicio de energía. Mismo caso que accounts-daemon —el shell lo consulta por D-Bus
329# para el indicador de batería— y el mismo motivo para lanzarlo a mano: sin esto la activación por bus
330# se queda esperando y el log lo dice sin ambigüedad,
331#   Error calling StartServiceByName for org.freedesktop.UPower:
332#     Failed to activate service ... timed out (service_start_timeout=25000ms)
333# o sea VEINTICINCO SEGUNDOS de arranque tirados esperando algo que nunca iba a venir.
334# Los directorios de estado los deriva upower de --prefix (historydir/statedir vacíos ⇒
335# $prefix/var/lib/upower); si no existen, arranca y se muere sin ruido.
336mkdir -p /usr/var/lib/upower /var/lib/upower
337if [ -x /usr/libexec/upowerd ]; then
338  /usr/libexec/upowerd >/tmp/upowerd.log 2>&1 &
339  UPOWERD_PID=$!
340  say "upowerd lanzado (pid $UPOWERD_PID)"
341  # Chequeo real, no «lo lancé y confío»: la primera versión reportaba «lanzado» y el shell seguía
342  # esperando 25s por org.freedesktop.UPower. Un pid no es un servicio.
343  sleep 1
344  if alive $UPOWERD_PID; then
345    say "upowerd sigue vivo"
346  else
347    say "!! upowerd MURIÓ al arrancar:"; dump /tmp/upowerd.log
348  fi
349else
350  say "!! sin upowerd — el shell va a esperar 25s a su activación D-Bus y seguir sin batería"
351fi
352
353# ── AUDIO: PipeWire (decisión del usuario, 2026-07-29) ──────────────────────────────────────────
354# Van TRES procesos y el orden importa, porque cada uno es cliente del anterior:
355#   1. `pipewire`        — el servidor. Crea $XDG_RUNTIME_DIR/pipewire-0.
356#   2. `pipewire-pulse`  — el puente que habla el protocolo de PulseAudio contra él. Es lo que
357#                          gnome-shell necesita (gvc usa libpulse), y sin (1) no tiene con quién hablar.
358#   3. `wireplumber`     — el gestor de sesión: enumera dispositivos y aplica la política. Sin él (1) y
359#                          (2) funcionan pero el único sink es `auto_null`, el nodo de descarte.
360# Los tres son servicios de USUARIO: sus sockets viven en $XDG_RUNTIME_DIR, creado más arriba.
361#
362# ⚠ NO duplicar el bloque de wireplumber. Estuvo dos veces por un merge descuidado de este script y el
363# resultado fue DOS wireplumber vivos peleándose el grafo — visible en `wpctl status` como dos clientes
364# «WirePlumber» con pids distintos. El síntoma no es un error: es una lista de clientes que se lee
365# normal si no se cuenta.
366# ANTES de arrancar nada: ¿hay hardware que enumerar? Es la pregunta que separa «el stack de audio
367# falla» de «no hay tarjeta», y las dos se ven igual en un `wpctl status` con `Devices:` vacío. El
368# cmdline del kernel lleva `quiet loglevel=3`, así que los mensajes de ALSA NO salen por el serial —
369# mirar /dev y /sys es la única forma directa.
370say "audio: /dev/snd = $(ls /dev/snd 2>/dev/null | tr "\n" " ")"
371say "audio: /sys/class/sound = $(ls /sys/class/sound 2>/dev/null | tr '\n' ' ')"
372say "audio: HDA en el bus PCI = $(grep -ci 'audio' /proc/bus/pci/devices 2>/dev/null || echo '?')"
373if [ -x /usr/bin/pipewire ]; then
374  /usr/bin/pipewire >/tmp/pipewire.log 2>&1 &
375  say "pipewire lanzado (pid $!)"
376  i=0; while [ $i -lt 20 ] && [ ! -S "$XDG_RUNTIME_DIR/pipewire-0" ]; do i=$((i+1)); sleep 0.25; done
377  if [ -S "$XDG_RUNTIME_DIR/pipewire-0" ]; then
378    say "socket pipewire-0 OK"
379    /usr/bin/pipewire-pulse >/tmp/pipewire-pulse.log 2>&1 &
380    say "pipewire-pulse lanzado (pid $!)"
381    i=0; while [ $i -lt 20 ] && [ ! -S "$XDG_RUNTIME_DIR/pulse/native" ]; do i=$((i+1)); sleep 0.25; done
382    if [ -S "$XDG_RUNTIME_DIR/pulse/native" ]; then
383      say "socket pulse/native OK — gvc va a poder conectar"
384    else
385      say "!! pipewire-pulse no creó pulse/native:"; dump /tmp/pipewire-pulse.log
386    fi
387    # wireplumber: el GESTOR DE SESIÓN. Va tercero porque necesita que el servidor ya esté; es el que
388    # convierte «PipeWire acepta clientes» en «PipeWire tiene dispositivos»: enumera por udev/alsa y
389    # aplica la política (qué es entrada, qué es salida, qué se enlaza con qué), y esa política está
390    # escrita en Lua. Sin él el único sink es `auto_null`, el nodo de descarte.
391    if [ -x /usr/bin/wireplumber ]; then
392      # WIREPLUMBER_DEBUG=3: sin esto su log no dice POR QUÉ descarta una tarjeta, y «Devices: vacío»
393      # es indistinguible de «no hay hardware». Con el nivel de debug puesto, el monitor de ALSA
394      # imprime cada device que ve y el motivo del descarte.
395      WIREPLUMBER_DEBUG=3 /usr/bin/wireplumber >/tmp/wireplumber.log 2>&1 &
396      WP_PID=$!
397      say "wireplumber lanzado (pid $WP_PID)"
398      sleep 2
399      if alive $WP_PID; then
400        say "wireplumber sigue vivo"
401        # El dato que importa no es el pid sino QUÉ VE. `wpctl status` lista los nodos que la política
402        # creó: si sale vacío, wireplumber corre pero no enumeró nada.
403        wpctl status >/tmp/wpctl.log 2>&1 || true
404        dump /tmp/wpctl.log
405        # Y su propio log, SIEMPRE — no sólo si muere. Un wireplumber vivo que no enumera nada es el
406        # caso interesante, y es justo el que quedaba sin evidencia. Se filtran las líneas de alsa/udev,
407        # que son las que dicen qué vio y qué descartó.
408        # Filtro ESTRECHO: `alsa` y nada más. La primera versión filtraba
409        # `alsa|udev|sound|card|monitor` y el `tail -40` se llenó de bluez/v4l2/libcamera —tres
410        # monitores que avisan que su plugin no está, ruido garantizado— dejando fuera justo las líneas
411        # de ALSA. Un filtro ancho con cola corta es peor que ninguno.
412        say "wireplumber :: ALSA"
413        grep -iE "alsa" /tmp/wireplumber.log 2>/dev/null | head -40 > /tmp/wp-alsa.log
414        dump /tmp/wp-alsa.log
415        # Y el log COMPLETO a la raíz ext4, que sí se sincroniza: /tmp es tmpfs y muere con la VM.
416        # Se saca con `debugfs -R "dump /wireplumber.log ..."`, igual que el core.
417        cp /tmp/wireplumber.log /wireplumber.log 2>/dev/null || true
418        sync
419      else
420        say "!! wireplumber MURIÓ:"; dump /tmp/wireplumber.log
421      fi
422    else
423      say "!! sin wireplumber — PipeWire acepta clientes pero no habrá dispositivos"
424    fi
425  else
426    say "!! pipewire no creó su socket:"; dump /tmp/pipewire.log
427  fi
428else
429  say "!! sin /usr/bin/pipewire — el shell va a avisar 'Failed to connect context'"
430fi
431
432# colord: gestión de color (curva ICC por monitor). Mutter lo pide al arrancar y, si no está, se come
433# 25 s de timeout de activación D-Bus. Se lanza explícito por el mismo motivo que accounts-daemon y
434# upowerd: la activación por bus funciona (el launch-helper ya es setuid) pero deja el arranque
435# esperando, y lanzarlo a mano además deja un log donde mirar si no adquiere el nombre.
436if [ -x /usr/libexec/colord ]; then
437  # --verbose: su log normal se corta después de abrir las tres bases de datos y no dice nada más, así
438  # que sin esto un colord que no adquiere el nombre es indistinguible de uno que se cuelga.
439  CD_VERBOSE=1 /usr/libexec/colord --verbose >/tmp/colord.log 2>&1 &
440  CD_PID=$!
441  say "colord lanzado (pid $CD_PID)"
442  # ⚠ ESTA COMPROBACIÓN FALTABA, y es la misma que yo mismo escribí para upowerd: **un pid no es un
443  # servicio**. Sin ella, «colord lanzado (pid N)» + «bus: ColorManager NO apareció» no distingue
444  # MURIÓ de SE COLGÓ, que son dos investigaciones distintas. Es el hueco que dejó el diagnóstico de
445  # colord a medias.
446  sleep 2
447  if alive $CD_PID; then say "colord sigue vivo"; else say "!! colord MURIÓ al arrancar"; fi
448else
449  say "!! sin /usr/libexec/colord — mutter va a esperar 25s y seguir sin gestión de color"
450fi
451
452esperar_nombre org.freedesktop.login1 /tmp/logind-compat.log
453# PolicyKit1 NO se chequea acá: ya se esperó arriba, antes de lanzar a sus clientes. Chequearlo sólo
454# al final era precisamente lo que dejaba pasar la carrera con verde.
455esperar_nombre org.freedesktop.Accounts /tmp/accounts-daemon.log
456esperar_nombre org.freedesktop.UPower /tmp/upowerd.log
457esperar_nombre org.freedesktop.ColorManager /tmp/colord.log 80   # 40 s: ver el comentario
458# El log de colord SIEMPRE, no sólo si falla el nombre: un daemon vivo que no adquiere su nombre es el
459# caso interesante y es justo el que se quedaba sin evidencia.
460say "colord :: log completo"
461dump /tmp/colord.log
462
463if [ "${DIAG:-1}" = 1 ]; then
464  ulimit -c unlimited 2>/dev/null || true
465  echo '/core.%e.%p' > /proc/sys/kernel/core_pattern 2>/dev/null || true
466fi
467
468say "typelibs visibles: $(ls /usr/lib/girepository-1.0/*.typelib 2>/dev/null | wc -l) sistema + $(ls /usr/lib/gnome-shell/*.typelib 2>/dev/null | wc -l) del shell"
469
470# ── SONDA DE INPUT — barata, y separa las dos hipótesis del muro ────────────────────────────────
471# El muro es la hebra de input de mutter: arranca y nunca señala `input_thread_initialized`.
472# `libinput list-devices` hace EXACTAMENTE lo que hace `init_libinput()` —udev_new +
473# libinput_udev_create_context + libinput_udev_assign_seat("seat0")— pero con `open()/close()`
474# pelados en vez del `TakeDevice` de logind. O sea que discrimina:
475#   · la sonda cuelga o no lista nada ⇒ el muro es libudev-zero/libinput (enumeración por /sys)
476#   · la sonda lista los dispositivos ⇒ libinput anda; el cuelgue está del lado de mutter
477#     (MetaDevicePool → TakeDevice, o algo anterior en el hilo: input settings, keymap)
478# Ojo: `libinput` es un multiplexor de subcomandos y `list-devices` NO es interactivo, pero igual se
479# le pone reloj — si el problema es un cuelgue, la sonda cuelga también, y hay que matarla.
480say "sonda: /sys/class/input = $(ls /sys/class/input 2>/dev/null | tr '\n' ' ')"
481say "sonda: /dev/input = $(ls /dev/input 2>/dev/null | tr '\n' ' ')"
482if [ -x /usr/bin/libinput ]; then
483  ( libinput list-devices >/tmp/libinput-devices.log 2>&1; echo "rc=$?" >>/tmp/libinput-devices.log ) &
484  LI_PID=$!
485  i=0
486  while [ $i -lt 24 ] && alive $LI_PID; do i=$((i+1)); sleep 0.5; done
487  if alive $LI_PID; then
488    say "!! SONDA COLGADA: 'libinput list-devices' no volvió en 12s ⇒ el muro ES libinput/libudev-zero"
489    say "   wchan=$(cat /proc/$LI_PID/wchan 2>/dev/null) syscall=$(cat /proc/$LI_PID/syscall 2>/dev/null)"
490    kill -9 $LI_PID 2>/dev/null
491  else
492    say "sonda 'libinput list-devices' VOLVIÓ (no cuelga) — dispositivos:"
493    dump /tmp/libinput-devices.log
494  fi
495else
496  say "sonda: no hay /usr/bin/libinput en la imagen"
497fi
498# GNOME_MODE=headless — EXPERIMENTO DECISIVO, no un modo de producción. El backend headless de
499# mutter crea el seat con META_SEAT_NATIVE_FLAG_NO_LIBINPUT, o sea que SALTEA `init_libinput()`,
500# que es justo el último paso del hilo de input antes de señalar `input_thread_initialized`
501# (meta-seat-impl.c:3098). Si en headless aparece wayland-0, el bloqueo está en libinput/udev y no
502# en el resto del arranque; si tampoco aparece, el problema es anterior (keymap, input settings).
503case "${GNOME_MODE:-drm}" in
504  headless) SHELL_ARGS="--headless --virtual-monitor 1280x800" ;;
505  *)        SHELL_ARGS="--wayland" ;;
506esac
507say "lanzando gnome-shell $SHELL_ARGS (modo=${GNOME_MODE:-drm})..."
508/usr/bin/gnome-shell $SHELL_ARGS >/tmp/gnome-shell.log 2>&1 &
509SHELL_PID=$!
510# stream EN VIVO al serial (busybox sed no soporta -u ⇒ tail -f directo, sin pipes).
511( echo "==== gnome-shell.log (stream vivo) ===="; tail -f /tmp/gnome-shell.log ) > /dev/ttyS0 2>/dev/null &
512
513i=0
514while [ $i -lt 240 ]; do
515  [ -S "$XDG_RUNTIME_DIR/wayland-0" ] && break
516  alive $SHELL_PID || { wait $SHELL_PID; RC=$?; say "!! gnome-shell murió (código $RC) antes de exponer wayland-0:"; dump /tmp/gnome-shell.log; say "cores: $(ls /core.* 2>/dev/null | tr '\n' ' ' || echo NINGUNO)"; exec /bin/sh; }
517  i=$((i+1)); sleep 0.5
518done
519if [ -S "$XDG_RUNTIME_DIR/wayland-0" ]; then
520  say "compositor OK (wayland-0) — el shell ES el display server"
521else
522  say "!! sin wayland-0 tras 120s:"; dump /tmp/gnome-shell.log
523  # El shell NO murió: quedó COLGADO. Sin gdb en la imagen, el diagnóstico barato es dónde está
524  # bloqueado el hilo principal (wchan) y contra qué socket, que es lo que distingue "esperando una
525  # respuesta D-Bus que no llega" de "spinning en el renderer".
526  say "--- diagnóstico del cuelgue (pid $SHELL_PID) ---"
527  say "XDG_RUNTIME_DIR ($XDG_RUNTIME_DIR): $(ls -a $XDG_RUNTIME_DIR 2>/dev/null | tr '\n' ' ')"
528  say "sockets wayland en el sistema: $(find / -name 'wayland-*' -maxdepth 6 2>/dev/null | tr '\n' ' ')"
529  say "wchan: $(cat /proc/$SHELL_PID/wchan 2>/dev/null)"
530  say "state: $(grep -a ^State /proc/$SHELL_PID/status 2>/dev/null)"
531  say "stack principal:"; cat /proc/$SHELL_PID/stack > /dev/ttyS0 2>/dev/null
532  say "syscall: $(cat /proc/$SHELL_PID/syscall 2>/dev/null)"
533  say "fds abiertos:"; ls -l /proc/$SHELL_PID/fd 2>/dev/null > /dev/ttyS0
534  say "hilos: $(ls /proc/$SHELL_PID/task 2>/dev/null | wc -l)"
535  # POR HILO, y ANTES del SIGABRT. La primera versión hacía este bucle DESPUÉS de abortar, o sea
536  # sobre un /proc/<pid>/task que ya no existía: salía vacío y no dijo nada. Es el dato más barato
537  # que hay para ubicar la «Mutter Input Thread», porque el core no sirve: gdb no puede desenrollar
538  # a través de musl (sin CFI) y devuelve `?? ()` para los 11 hilos que no son el principal.
539  say "--- por hilo (comm / wchan / syscall) ---"
540  for t in $(ls /proc/$SHELL_PID/task 2>/dev/null); do
541    say "  tid $t [$(cat /proc/$SHELL_PID/task/$t/comm 2>/dev/null)] wchan=$(cat /proc/$SHELL_PID/task/$t/wchan 2>/dev/null) syscall=$(cut -d' ' -f1 /proc/$SHELL_PID/task/$t/syscall 2>/dev/null)"
542  done
543  # ¿Sigue vivo y respondiendo el login1? Si el shell está esperando una respuesta D-Bus que no
544  # llega, esto lo separa en dos: daemon muerto/colgado vs daemon vivo que ya contestó.
545  say "arje-logind-compat: pids=$(pgrep -f arje-logind-compat 2>/dev/null | tr '\n' ' ')"
546  for p in $(pgrep -f arje-logind-compat 2>/dev/null); do
547    say "  logind pid $p state=$(sed -n 's/^State:[[:space:]]*//p' /proc/$p/status 2>/dev/null) wchan=$(cat /proc/$p/wchan 2>/dev/null)"
548  done
549  ( dbus-send --system --print-reply --dest=org.freedesktop.login1 \
550      /org/freedesktop/login1 org.freedesktop.DBus.Properties.Get \
551      string:org.freedesktop.login1.Manager string:NAutoVTs >/tmp/login1-ping.log 2>&1
552    echo "rc=$?" >>/tmp/login1-ping.log ) &
553  PING_PID=$!
554  i=0; while [ $i -lt 16 ] && alive $PING_PID; do i=$((i+1)); sleep 0.5; done
555  if alive $PING_PID; then
556    say "!! login1 NO responde (ping D-Bus colgado 8s) ⇒ el daemon se quedó tildado"
557    kill -9 $PING_PID 2>/dev/null
558  else
559    say "login1 responde al ping D-Bus:"; dump /tmp/login1-ping.log
560  fi
561  # /tmp es tmpfs ⇒ el log del daemon se pierde con la VM. Copiarlo a la raíz ext4, que sí se
562  # sincroniza y se puede sacar con debugfs junto al core.
563  cp /tmp/logind-compat.log /logind-compat.log 2>/dev/null || true
564  cp /tmp/gnome-shell.log /gnome-shell.log 2>/dev/null || true
565  # Sin gdb en la imagen, la única forma de ver DÓNDE está bloqueado es forzarle un core y leerlo
566  # con el gdb del host (`thread apply all bt`). SIGABRT lo produce y no lo maneja nadie.
567  say "forzando core del proceso colgado (SIGABRT)..."
568  kill -ABRT $SHELL_PID 2>/dev/null
569  sleep 12; sync; sync
570  say "cores: $(ls -la /core.* 2>/dev/null | tr '\n' ' ' || echo NINGUNO)"
571  exec /bin/sh
572fi
573export WAYLAND_DISPLAY=wayland-0
574
575( n=0; while sleep 15; do
576    n=$((n+1))
577    say "STATUS +$((n*15))s: gnome-shell=$(pgrep gnome-shell 2>/dev/null | wc -l)"
578  done ) &
579
580wait $SHELL_PID
581RC=$?
582say "gnome-shell salió (código $RC) — volcando log:"
583dump /tmp/gnome-shell.log
584cp /tmp/gnome-shell.log /gnome-shell.log 2>/dev/null || true
585say "cores en /: $(ls -la /core.* 2>/dev/null | tr '\n' ' ' || echo NINGUNO)"
586sync; sync
587say "== disco SYNCED. serial CONGELADO. matá QEMU desde el host. =="
588sleep 3600