sergio/takana

1#!/bin/sh
2# Le da a la caja un DRIVER DE C — hoy no tiene ninguno — usando el zig que ya está en su store.
3#
4# ── POR QUÉ (2026-09-18) ────────────────────────────────────────────────────────────────────────
5# `command -v cc gcc clang zig` en la caja no devuelve NADA. Eso no es sólo incómodo: es lo que hace
6# que `rustc`, con el compilador propio ya sellado, **no pueda enlazar una sola dylib** —y ahí entran
7# TODAS las proc-macros: serde_derive, clap_derive…—:
8#
9#     ld.lld: error: unable to find library -lgcc_s
10#     ld.lld: error: unable to find library -lc
11#
12# Y el `-L /usr/lib` obvio EMPEORA las cosas: rompe los estáticos, que hoy funcionan, porque rustc
13# enlaza musl static-PIE con su copia self-contained y ese camino le hace preferir la `libc.a` del
14# sistema, que no es PIC. El camino de librerías no puede ser global: el estático lo quiere fuera y
15# el dinámico lo quiere dentro. Quien sabe cuál es cuál es un driver de C. (SDD 28 §6.52.)
16#
17# ⚠ NO introduce nada nuevo en el corpus: usa el `seed-zig` que YA está en el store —producto del
18# bootstrap (SDD 11), como `stage1-rootfs`— y sólo lo envuelve. Volver a zig el compilador de C
19# OFICIAL de la distro sería otra cosa, y es decisión de ADR, no de un guion de puesta a punto.
20#
21# Idempotente. Se corre EN LA CAJA, como root.
22set -eu
23
24STORE=${STORE:-/store}
25ZIG=$(find "$STORE" -maxdepth 3 -type f -perm -100 -name zig -path "*seed-zig*" 2>/dev/null | head -1)
26[ -n "$ZIG" ] || { echo "no encuentro el zig de seed-zig en $STORE — sin él no hay driver" >&2; exit 1; }
27"$ZIG" version >/dev/null 2>&1 || { echo "el zig de $ZIG no ejecuta en esta caja" >&2; exit 1; }
28echo "==> zig $("$ZIG" version) en $ZIG"
29
30# La caché de zig NO va en la raíz: son 5,9 G y ya nos costó una caída entera (SDD 28 §6.50 quinquies).
31CACHE=${CACHE:-/work/zig-cache}
32mkdir -p "$CACHE"
33
34for par in "cc:cc" "c++:c++"; do
35  nombre=${par%%:*}; sub=${par##*:}
36  cat > "/usr/bin/$nombre" <<EOF
37#!/bin/sh
38# Generado por scripts/servidor/cc-por-zig.sh — envoltorio de \`zig $sub\`.
39# ⚠ Se DESCARTA el \`--target=\` que le pasa cc-rs. Usa triples de rustc y zig sólo entiende los
40# suyos, así que el driver a secas muere con (medido 2026-09-18, dentro de la jaula):
41#     error: unable to parse target query 'x86_64-unknown-linux-musl': UnknownOperatingSystem
42# Y eso tumba \`blake3\`, que cuelga de medio árbol de tawasuyu. Mismo filtro en
43# scripts/servidor/jaula-herramientas.sh, que arma el driver del lado de adentro.
44args=""
45for a in "\$@"; do
46  case "\$a" in --target=*|-target) continue ;; esac
47  args="\$args '\$a'"
48done
49export ZIG_GLOBAL_CACHE_DIR="\${ZIG_GLOBAL_CACHE_DIR:-$CACHE}"
50eval exec "$ZIG" $sub -target x86_64-linux-musl \$args
51EOF
52  chmod 755 "/usr/bin/$nombre"
53done
54
55# rustc NO usa el driver por su cuenta: su enlazador por defecto en este triple es `ld.lld` invocado
56# directo. Las tres banderas son necesarias —y `link-self-contained=no` lo es porque este toolchain
57# no trae `rust-lld` (incompatible con el llvm-config externo); la variante fina `=-linker` es
58# INESTABLE en este triple y exige `-Z`.
59mkdir -p /etc/profile.d
60cat > /etc/profile.d/rust-enlazador.sh <<'EOF'
61# El enlace de rust pasa por el driver de C (ver /usr/bin/cc). Sin esto no enlaza ninguna dylib,
62# o sea ninguna proc-macro. SDD 28 §6.52.
63export RUSTFLAGS="${RUSTFLAGS:-} -C linker=cc -C linker-flavor=gcc -C link-self-contained=no"
64EOF
65chmod 644 /etc/profile.d/rust-enlazador.sh
66
67# ⚠ …Y RESULTA QUE EN ESTA CAJA `/etc/profile.d` NO LO LEÍA NADIE: `/etc/profile` **no existía**.
68# O sea que dejar ahí el fichero habría sido exactamente la avería que este repo persigue —presente,
69# con contenido, y sin efecto—. Se descubrió con el control de abajo, que pregunta por la VARIABLE en
70# una shell de login y no por el fichero. De paso revive el `bash_completion.sh` que ya estaba ahí,
71# igual de mudo. No se toca el PATH: el de la caja lo fija el init y pisarlo desde acá sería cambiar
72# algo que nadie pidió.
73if [ ! -f /etc/profile ]; then
74  cat > /etc/profile <<'EOF'
75# /etc/profile — lo lee toda shell de LOGIN. Existe para que `/etc/profile.d/*.sh` sirva de algo:
76# el directorio estaba y nadie lo leía (2026-09-18).
77for _f in /etc/profile.d/*.sh; do
78  [ -r "$_f" ] && . "$_f"
79done
80unset _f
81EOF
82  chmod 644 /etc/profile
83  echo "  (creado /etc/profile: el directorio profile.d existía y no lo leía nadie)"
84fi
85
86# ── CONTROLES: lo que importa es que COMPILE, no que el fichero exista ───────────────────────────
87T=$(mktemp -d); trap 'rm -rf "$T"' EXIT
88printf '#include <stdio.h>\nint main(void){ puts("C en takana"); return 0; }\n' > "$T/h.c"
89cc -o "$T/h" "$T/h.c" 2>"$T/err" || { echo "✗ el cc nuevo no compila un hola mundo:" >&2; head -5 "$T/err" >&2; exit 1; }
90out=$("$T/h") || { echo "✗ compiló y no corre" >&2; exit 1; }
91echo "  ✓ C: $out"
92
93# ⚠ Y el mismo hola mundo CON el triple que pasa cc-rs, que es por donde entra cargo. El control de
94# arriba no lo tocaba, así que no habría visto el defecto que tumbaba blake3.
95cc --target=x86_64-unknown-linux-musl -o "$T/h2" "$T/h.c" 2>"$T/errcc" || {
96  echo "✗ el cc nuevo no acepta el --target= de cc-rs (es lo que rompe blake3):" >&2; head -3 "$T/errcc" >&2; exit 1; }
97"$T/h2" >/dev/null || { echo "✗ compiló con el triple de cc-rs y no corre" >&2; exit 1; }
98echo "  ✓ C: con el --target= de cc-rs"
99
100# ⚠ EL RUST QUE SE CERTIFICA TIENE QUE SER EL VIGENTE (2026-09-18). Esto decía
101# `ls -d …/*-rust | tail -1`, que es el ÚLTIMO ALFABÉTICO: elegía `fe277b32…` mientras el vigente
102# —y el que usa la jaula— es `6441302d…`. La caja certificaba un rust y el agente usaba otro; lo
103# detectó el agente de adentro comparando los dos guiones.
104# Se pregunta por el hash vigente de la receta; si no se puede, se cae al más RECIENTE con el
105# nombre EXACTO — `*-rust` también casa con `…-rust-toolchain-bin`.
106R=""
107if [ -x ./target/release/takana ] && [ -f recipes/rust.toml ]; then
108  h=$(./target/release/takana --store "$STORE" hash recipes/rust.toml 2>/dev/null | grep -o "b3:[0-9a-f]*" | head -1)
109  [ -n "$h" ] && [ -d "$STORE/${h#b3:}-rust" ] && R="$STORE/${h#b3:}-rust"
110fi
111[ -n "$R" ] || R=$(ls -dt "$STORE"/*-rust 2>/dev/null | while read -r d; do nn=${d##*/}; [ "${nn#*-}" = "rust" ] && { echo "$d"; break; }; done)
112if [ -n "$R" ] && [ -x "$R/usr/bin/rustc" ]; then
113  printf 'extern crate proc_macro;\nuse proc_macro::TokenStream;\n#[proc_macro]\npub fn m(_i: TokenStream) -> TokenStream { "fn v() -> u32 { 42 }".parse().unwrap() }\n' > "$T/pm.rs"
114  # shellcheck disable=SC2086
115  LD_LIBRARY_PATH=$R/usr/lib "$R/usr/bin/rustc" -C linker=cc -C linker-flavor=gcc -C link-self-contained=no \
116      --edition 2021 --crate-type proc-macro --out-dir "$T" "$T/pm.rs" 2>"$T/err2" || {
117    echo "✗ la proc-macro sigue sin enlazar:" >&2; grep -m3 error "$T/err2" >&2; exit 1; }
118  so=$(ls "$T"/*.so 2>/dev/null | head -1)
119  [ -n "$so" ] || { echo "✗ no salió la dylib de la proc-macro" >&2; exit 1; }
120  printf 'extern crate pm;\npm::m!();\nfn main(){ println!("proc-macro: {}", v()); }\n' > "$T/u.rs"
121  LD_LIBRARY_PATH=$R/usr/lib "$R/usr/bin/rustc" -C linker=cc -C linker-flavor=gcc -C link-self-contained=no \
122      --edition 2021 --extern pm="$so" -o "$T/u" "$T/u.rs" 2>"$T/err3" || {
123    echo "✗ no compila el programa que USA la macro:" >&2; grep -m3 error "$T/err3" >&2; exit 1; }
124  echo "  ✓ rust: $("$T/u")"
125  # Y el control que evita el remedio peor que la enfermedad: el estático tiene que seguir andando.
126  printf 'fn main(){ println!("estático ok"); }\n' > "$T/s.rs"
127  LD_LIBRARY_PATH=$R/usr/lib "$R/usr/bin/rustc" --edition 2021 -o "$T/s" "$T/s.rs" 2>/dev/null \
128    && echo "  ✓ rust estático (sin banderas): $("$T/s")" \
129    || { echo "✗ el estático SIN banderas dejó de enlazar — eso es peor que el problema" >&2; exit 1; }
130else
131  echo "  (no hay rust en el store: me salto sus controles)"
132fi
133# ── CONTROL DEL ENTORNO: la variable, no el fichero ─────────────────────────────────────────────
134# Que el `.sh` exista no dice nada; lo que importa es que una shell de LOGIN lo traiga puesto.
135rf=$(sh -lc 'printf "%s" "$RUSTFLAGS"' 2>/dev/null || true)
136case "$rf" in
137  *"linker-flavor=gcc"*) echo "  ✓ entorno: una shell de login trae RUSTFLAGS puesto" ;;
138  *) echo "✗ /etc/profile.d/rust-enlazador.sh existe pero una shell de login NO lo recoge (RUSTFLAGS='$rf')" >&2; exit 1 ;;
139esac
140echo "la caja tiene driver de C"