sergio/takana

1#!/bin/sh
2# static-audit.sh [receta…] — ¿`link = "static"` es VERDAD, o sólo una declaración?
3#
4#   scripts/static-audit.sh              # audita todo el store
5#   scripts/static-audit.sh curl expat   # sólo ésas
6#
7# EL HALLAZGO (2026-07-17, destapado migrando procps-ng): `link = "static"` se cumple *casi*
8# siempre — pero en todo paquete que enlaza con **libtool** se ignora EN SILENCIO. libtool lee el
9# `-static` del lab como "preferí los `.a` de libtool", no como flag al linker. El binario sale
10# dinámico y la receta jura que es estático. Con gcc pasaba igual: no es una regresión de zig, es
11# un agujero que nadie había medido.
12#
13# Por qué importa, más allá de la pureza:
14#
15#   1. NO CORREN. El curl sellado, ejecutado en el host: `Error relocating /lib/libz.so.1:
16#      __snprintf_chk: symbol not found`. Su `NEEDED: libc.so` es el soname de la musl que zig
17#      bundlea; en el host `/lib/libc.so` son 255 bytes de *linker script*, no una biblioteca.
18#      El artefacto sólo funciona dentro del sandbox, donde ese nombre resuelve a otra cosa.
19#   2. ARRASTRAN GCC. helix, yazi, git-absorb, cargo-audit y tuc traen `libgcc_s.so.1` de Alpine
20#      DENTRO del binario final. Es deuda de matar-gcc que ningún `compiler = "gcc"` declara:
21#      invisible para el frente entero hasta esta medición.
22#   3. Un NEEDED es una entrada NO declarada — lo mismo que harkaq (SDD 16) mide en build, pero en
23#      RUNTIME. Un binario que dice "no dependo de nada" y depende, rompe el cono de `affected.py`
24#      (SDD 17 §4): un CVE en zlib no alcanzaría a un curl que declara enlace estático.
25#
26# EL FIX, por receta: `LDFLAGS="-all-static -no-pie"` en `compile` **y** en `install` (libtool
27# RELINKEA al instalar, así que sólo en compile no basta), nunca en configure. Patrón ya usado en
28# jq/parted/shadow/procps-ng.
29#
30# Por qué esto es un script y no un gate duro dentro de `takana build`: hacerlo fallar hoy rompe
31# 28 recetas selladas de golpe, varias del sistema base (curl, util-linux, sudo). Primero se
32# arreglan con evidencia, después se cierra la puerta. Mientras tanto esto es la evidencia.
33#
34# Exit: 0 si nadie miente, 1 si alguno miente (sirve de gate en CI cuando la lista llegue a cero).
35set -eu
36
37HUB="$(cd "$(dirname "$0")/.." && pwd)"
38cd "$HUB"
39STORE="${STORE:-$PWD/store}"
40HAMMER="${TAKANA:-${HAMMER:-$HUB/target/release/takana}}"
41
42if [ $# -gt 0 ]; then
43    recetas=""
44    for n in "$@"; do recetas="$recetas recipes/$n.toml"; done
45else
46    # ⚠ **LAS COLAS TAMBIÉN.** Esto globeaba SÓLO `recipes/*.toml` y remataba con «✅ toda receta que
47    # declara link=static lo cumple» — una frase verdadera de una PARTE del corpus presentada como si
48    # fuera de todo él. Las cinco colas (`incoming{,-kde,-gnome,-cosmic,-wlr}`) son ~305 recetas que
49    # NUNCA se auditaron. Se destapó promoviendo `libseccomp` de `incoming-gnome/` al corpus el
50    # 2026-09-11: el artefacto no cambió ni un byte y el audit pasó de MIENTEN:0 a MIENTEN:1. O sea
51    # que la mentira estaba ahí desde siempre y lo único que la tapaba era el glob de esta línea.
52    #   Un guardián que mide menos de lo que su resumen afirma es peor que no tenerlo: da por
53    # cubierto lo que no mira. Ver [[guardian-que-nunca-fallo]].
54    recetas="$(grep -lE '^[[:space:]]*link[[:space:]]*=[[:space:]]*"static"' \
55                 recipes/*.toml recipes/incoming*/*.toml 2>/dev/null)"
56fi
57
58# ── DEUDA MEDIDA Y DECIDIDA ────────────────────────────────────────────────────────────────────
59# Mentiras REALES cuyo arreglo está decidido EN CONTRA por ahora. Se imprimen como `•` con el número
60# delante y NO hacen fallar. El motivo de separarlas no es cosmético: si el audit falla siempre por
61# tres viejas, un ofensor NUEVO se pierde entre el ruido y el guardián deja de servir — que es
62# exactamente cómo se muere uno.
63#
64# Las tres salieron a la luz el 2026-09-11 al ampliar el barrido a las colas (antes sólo miraba
65# `recipes/*.toml`). En las tres, lo dinámico es un BINARIO AUXILIAR de diagnóstico, no la librería:
66# los consumidores enlazan el `.a`, así que el impacto funcional hoy es NULO. Lo que está mal es la
67# DECLARACIÓN, y arreglarla se paga en rebuilds (radio medido con `yupana radio`, que cruza colas):
68#
69#   libseccomp    scmp_sys_resolver    6 rebuilds  (corpus 1 + incoming-gnome 5)
70#   libgcrypt     dumpsexp y 2 más    41 rebuilds  (corpus 1 + incoming-kde 40)
71#   libgpg-error  gpg-error           45 rebuilds  (corpus 4 + incoming-kde 41)
72#
73# ~92 rebuilds, casi todos KDE, para que tres binarios que nadie invoca dejen de ser dinámicos. Va
74# con el próximo bump de cada una, cuando el re-hash ya esté pagado y la línea cueste cero — el mismo
75# criterio que la deuda de `perl`. Esto no es un olvido: es una decisión con el número delante.
76DEUDA_DECIDIDA=" libseccomp libgcrypt libgpg-error "
77
78mienten=0; honestos=0; sin=0; deuda=0
79for f in $recetas; do
80    n=$(basename "$f" .toml)
81    grep -qE '^[[:space:]]*link[[:space:]]*=[[:space:]]*"static"' "$f" || continue
82    # EL ARTEFACTO VIGENTE, por hash — NO el más reciente por mtime. `takana hash` calcula el
83    # ArtifactHash de la receta de HOY sin construir (~2ms, puro sobre las recetas). El store guarda
84    # TODOS los sellados históricos de una receta (expat tenía 5); auditar el más reciente por mtime
85    # sobre-reportaba (acusaba a dbus/libnl, ya sanas, por un sellado anterior a sus flags). Ahora
86    # auditamos EXACTAMENTE el sellado que corresponde a la receta actual, o ninguno.
87    #
88    # Fallback a `ls -dt` si `takana` no está compilado: el audit sigue corriendo, sólo vuelve a
89    # poder sobre-reportar (como antes de que existiera `takana hash`).
90    if [ -x "$HAMMER" ]; then
91        h=$("$HAMMER" --store "$STORE" hash "$f" 2>/dev/null) || h=""
92        if [ -n "$h" ] && [ -d "$STORE/${h#b3:}-$n" ]; then
93            art="$STORE/${h#b3:}-$n"
94        else
95            # No hay sellado para la receta VIGENTE ⇒ no hay nada honesto que auditar (rancio no
96            # cuenta). Es el "sin artefacto" legítimo: la receta cambió y falta rebuild.
97            sin=$((sin + 1)); continue
98        fi
99    else
100        art=$(ls -dt "$STORE"/*-"$n" 2>/dev/null | head -1) || true
101        [ -z "${art:-}" ] && { sin=$((sin + 1)); continue; }
102    fi
103
104    # TODOS los ELF *ejecutables* del artefacto, no el primero. Una `.so` tiene NEEDED por
105    # definición y no prueba nada; sólo los ejecutables dicen si el enlace final fue estático.
106    #
107    # ⚠ Antes esto miraba UNO y cortaba (`break`). Con dwarves se vio lo que eso deja pasar: sus
108    # DIEZ ejecutables eran dinámicos y el audit reportaba uno — acertó de casualidad, porque el
109    # primero también lo era. El caso que se escapaba en silencio es el inverso: primer binario
110    # estático y el resto no, que se leía como receta honesta. Es «no comprobar no es aprobar»
111    # aplicado al propio guardián (2026-08-31).
112    vistos=0; needed=""; primer_malo=""; malos=0
113    for b in $(find "$art" -type f -perm -u+x 2>/dev/null); do
114        file -b "$b" 2>/dev/null | grep -q 'ELF.*executable' || continue
115        vistos=$((vistos + 1))
116        nb=$(readelf -d "$b" 2>/dev/null | grep -oE 'Shared library: \[[^]]+\]' \
117             | sed 's/.*\[//;s/\]//' | tr '\n' ' ') || true
118        if [ -n "$nb" ]; then
119            malos=$((malos + 1))
120            [ -z "$primer_malo" ] && { primer_malo="${b#$art/}"; needed="$nb"; }
121        fi
122    done
123    [ "$vistos" -eq 0 ] && { sin=$((sin + 1)); continue; }
124
125    if [ -n "$needed" ]; then
126        case "$DEUDA_DECIDIDA" in
127            *" $n "*)
128                printf '   • %-18s DEUDA DECIDIDA: %d/%d ejecutable(s) dinámico(s) (%s) — auxiliar, no la librería\n' \
129                       "$n" "$malos" "$vistos" "$primer_malo"
130                deuda=$((deuda + 1)); continue ;;
131        esac
132        if [ "$malos" -gt 1 ]; then
133            printf '   ✗ %-18s dice static, %d de %d ejecutables DINÁMICOS (p.ej. %s) → %s\n' \
134                   "$n" "$malos" "$vistos" "$primer_malo" "$needed"
135        else
136            printf '   ✗ %-18s dice static, es DINÁMICO (%s) → %s\n' "$n" "$primer_malo" "$needed"
137        fi
138        case "$needed" in *libgcc_s*) printf '     %-18s   ↑ arrastra libgcc_s de Alpine: deuda de matar-gcc no declarada\n' "" ;; esac
139        case "$needed" in *libc.so*)  printf '     %-18s   ↑ `libc.so` es la musl de zig: en el host son 255B de linker script ⇒ NO CORRE fuera del sandbox\n' "" ;; esac
140        mienten=$((mienten + 1))
141    else
142        honestos=$((honestos + 1))
143    fi
144done
145
146echo
147echo "══ estáticos de verdad: $honestos | MIENTEN (nuevos): $mienten | deuda decidida: $deuda | sin artefacto o sin ELF: $sin"
148[ "$mienten" -gt 0 ] && {
149    echo "   fix: LDFLAGS=\"-all-static -no-pie\" en compile Y en install (libtool relinkea al instalar)"
150    exit 1
151}
152echo "   ✅ ninguna receta NUEVA miente (corpus + las 5 colas). Las $deuda de deuda decidida están arriba, con su radio."
153exit 0