sergio/takana

1//! Bootstrap from-scratch de takana — el track posterior del [SDD 11](../../docs/11-bootstrap.md).
2//!
3//! Esta primera entrega cubre el **Stage 0**: ingerir un toolchain semilla ya construido
4//! (no se compila; ver [ADR 0008](../../docs/adr/0008-bootstrap-stages.md)) como una *fuente
5//! fijada por sha256* y sellarlo en el `Store`. El `ArtifactHash` resultante se deriva de la
6//! **identidad pinned** de la semilla (clase + versión + sha256), no de rutas del host, así
7//! que el resto del bootstrap depende de un artefacto reproducible y auditable.
8//!
9//! Stage 1 (userland mínimo cross-compilado) y Stage 2 (rebuild nativo + diff de hashes)
10//! llegan en entregas siguientes y reusan este mismo store.
11//!
12//! Cada etapa anota su línea en el [`manifest`] de bootstrap (`bootstrap.json`), el embrión del
13//! log de transparencia ([SDD 11 §4](../../docs/11-bootstrap.md)).
14
15pub mod manifest;
16
17use std::path::{Path, PathBuf};
18use std::process::Command;
19
20use takana_build::download;
21use takana_core::{ArtifactHash, Recipe, Store};
22
23pub use manifest::{BootstrapManifest, StageEntry};
24
25#[derive(Debug, thiserror::Error)]
26pub enum Error {
27    #[error("io: {0}")]
28    Io(#[from] std::io::Error),
29    #[error("core: {0}")]
30    Core(#[from] takana_core::Error),
31    #[error("tar -x de la semilla falló (exit {0:?})")]
32    Untar(Option<i32>),
33    #[error("bootstrap: {0}")]
34    Other(String),
35}
36
37pub type Result<T> = std::result::Result<T, Error>;
38
39/// Qué toolchain semilla usamos. `zig` es la semilla primaria (ADR 0003/0007); `musl-cross-make`
40/// (gcc + musl) es la escotilla para paquetes con gcc-ismos.
41#[derive(Debug, Clone, Copy, PartialEq, Eq, serde::Serialize, serde::Deserialize)]
42#[serde(rename_all = "kebab-case")]
43pub enum SeedKind {
44    Zig,
45    MuslCrossMake,
46}
47
48impl SeedKind {
49    pub fn as_str(self) -> &'static str {
50        match self {
51            SeedKind::Zig => "zig",
52            SeedKind::MuslCrossMake => "musl-cross-make",
53        }
54    }
55}
56
57/// Especificación de una semilla: su identidad pinned. La integridad la garantiza `sha256`
58/// (fijado, [ADR 0006](../../docs/adr/0006-pinned-commits.md)); `url` puede ser cualquier
59/// esquema que entienda curl, incluido `file://` para ingestión offline.
60#[derive(Debug, Clone, PartialEq, Eq, serde::Serialize, serde::Deserialize)]
61pub struct SeedSpec {
62    pub kind: SeedKind,
63    pub version: String,
64    pub url: String,
65    /// sha256 hex del tarball, fijado. Se verifica **antes** de extraer y sellar.
66    pub sha256: String,
67}
68
69impl SeedSpec {
70    /// Hash del artefacto del store para esta semilla. Función pura de la identidad pinned:
71    /// misma `(kind, version, sha256)` ⇒ mismo hash, en cualquier máquina. El `url` queda
72    /// fuera a propósito (un espejo distinto del mismo tarball produce el mismo artefacto).
73    pub fn seed_hash(&self) -> ArtifactHash {
74        ArtifactHash::of_inputs(&[
75            b"hammer-seed-v1",
76            self.kind.as_str().as_bytes(),
77            self.version.as_bytes(),
78            self.sha256.as_bytes(),
79        ])
80    }
81
82    /// Nombre del artefacto en el store: `seed-<kind>`.
83    pub fn store_name(&self) -> String {
84        format!("seed-{}", self.kind.as_str())
85    }
86
87    /// Directorio del toolchain **dentro de la semilla sellada**, listo para que el sandbox lo
88    /// bindee como `/opt/zig`. Stage 0 sella el árbol del tarball tal cual (ingesta pura, sin
89    /// aplanar): este método lo resuelve al usarlo, localizando el dir que contiene el ejecutable
90    /// `zig` —en la raíz si el tarball lo trae plano, o en el único hijo si trae el típico
91    /// top-level versionado `zig-linux-x86_64-<ver>/`—. Falla si la semilla no está sellada o si
92    /// el ejecutable no aparece (o es ambiguo).
93    pub fn toolchain_dir(&self, store: &Store) -> Result<PathBuf> {
94        seed_toolchain_dir(store, &self.seed_hash(), self.kind)
95    }
96}
97
98/// Igual que [`SeedSpec::toolchain_dir`] pero sólo desde la identidad mínima `(seed_hash, kind)`:
99/// lo que basta para localizar la semilla ya sellada sin re-pasar `url`/`sha256`. Lo usa Stage 1,
100/// que conoce el `seed_hash` (de Stage 0 o del manifiesto) pero no necesariamente el `SeedSpec`.
101pub fn seed_toolchain_dir(
102    store: &Store,
103    seed_hash: &ArtifactHash,
104    kind: SeedKind,
105) -> Result<PathBuf> {
106    let base = store.path_of(seed_hash, &format!("seed-{}", kind.as_str()));
107    if !base.is_dir() {
108        return Err(Error::Other(format!(
109            "semilla '{}' no sellada en {}; corre `hammer bootstrap stage0` primero",
110            kind.as_str(),
111            base.display()
112        )));
113    }
114    match kind {
115        SeedKind::Zig => locate_tool_dir(&base, "zig"),
116        SeedKind::MuslCrossMake => Err(Error::Other(
117            "toolchain_dir para musl-cross-make aún no implementado (escotilla diferida)".into(),
118        )),
119    }
120}
121
122/// Localiza, dentro de `base`, el directorio que contiene **directamente** el ejecutable `tool`.
123/// Mira la raíz primero y luego los hijos inmediatos; exige exactamente una coincidencia para no
124/// elegir a ciegas entre layouts ambiguos.
125fn locate_tool_dir(base: &Path, tool: &str) -> Result<PathBuf> {
126    if base.join(tool).is_file() {
127        return Ok(base.to_path_buf());
128    }
129    let mut hits = Vec::new();
130    for entry in std::fs::read_dir(base)? {
131        let path = entry?.path();
132        if path.is_dir() && path.join(tool).is_file() {
133            hits.push(path);
134        }
135    }
136    hits.sort();
137    match hits.len() {
138        1 => Ok(hits.pop().unwrap()),
139        0 => Err(Error::Other(format!(
140            "no encontré el ejecutable '{tool}' en la raíz ni en los hijos inmediatos de {}",
141            base.display()
142        ))),
143        _ => Err(Error::Other(format!(
144            "ambiguo: '{tool}' aparece en varios directorios de {}: {hits:?}",
145            base.display()
146        ))),
147    }
148}
149
150/// Deriva una [`takana_build::BuildConfig`] desde `base` cuyo `zig_dir` apunta a la **semilla
151/// sellada** en vez del toolchain del host: así las recetas del Stage 1 cross-compilan con el
152/// toolchain fijado por hash (`seed_hash`), no con el `.dev-fs/tools/zig` de desarrollo. El resto
153/// de la config (rootfs, work, cache) se hereda intacto.
154pub fn seed_build_config(
155    base: &takana_build::BuildConfig,
156    seed: &SeedSpec,
157    store: &Store,
158) -> Result<takana_build::BuildConfig> {
159    let zig_dir = seed.toolchain_dir(store)?;
160    Ok(takana_build::BuildConfig { zig_dir, ..base.clone() })
161}
162
163/// Hash de un rootfs sellado por Stage 1. Es un `ArtifactHash` derivado del **contenido lógico**
164/// (los hashes de sus componentes + el init), no del árbol en disco: así dos ensamblados de los
165/// mismos artefactos producen el mismo hash aunque difieran en inodes o timestamps.
166pub type RootfsHash = ArtifactHash;
167
168/// Los componentes del userland mínimo, en orden de ensamblado: `musl` (libc), `busybox`
169/// (coreutils + sh), `hammerd` (daemon, receta Cargo) y `arje-zero` (el init PID 1, ADR 0007).
170/// arje-zero es PID 1 vía el symlink `/sbin/init`; supervisa a `hammerd` y a la getty por la
171/// seed card ([SDD 12](../../docs/12-init-real.md)) — su muerte es el `CRASHED` real.
172const STAGE1_COMPONENTS: &[&str] = &["musl", "busybox", "hammerd", "arje-zero"];
173
174/// La **seed card** que arje-zero lee en `/ente/seed.card.json` al boot ([SDD 12 §4](../../docs/12-init-real.md)):
175/// un `Card` `Virtual` cuyos `genesis` son `hammerd` (servicio `Native` con `Restart` — el
176/// `CRASHED` real) y una `console-getty` supervisada. La forma replica una seed real de arje
177/// (`seeds/arje-qemu.card.json`) para que `Card::validate()` la acepte; los ULID son fijos para que
178/// el `RootfsHash` sea reproducible. Template autocontenido (opción A del SDD): takana no depende de
179/// `card-core` como librería; el pin a arje-zero + el boot en VM cubren el drift de schema.
180const STAGE1_SEED_CARD: &str = r#"{
181    "schema_version": 1,
182    "id": "01HQAR53D4M2NBV8KZTYXFQA00",
183    "lineage": null,
184    "label": "hammer-stage1",
185    "provides": ["Spawn", "Journal"],
186    "requires": [],
187    "permissions": { "networking": "full", "filesystem": "read-write", "ipc": { "allow": [] }, "processes": true },
188    "soma": {
189        "namespaces": { "mount": false, "pid": false, "net": false, "uts": false, "ipc": false, "user": false, "cgroup": false },
190        "rlimits": { "mem_bytes": null, "nproc": null, "nofile": null },
191        "cgroup": { "path": "arje.slice/hammer", "cpu_weight": null, "io_weight": null },
192        "cpu_affinity": null
193    },
194    "payload": "Virtual",
195    "supervision": "OneShot",
196    "lifecycle": "daemon",
197    "priority": "normal",
198    "flow": { "input": [], "output": [] },
199    "genesis": [
200        {
201            "schema_version": 1,
202            "id": "01HQAR53D4M2NBV8KZTYXFQA01",
203            "lineage": null,
204            "label": "hammerd",
205            "provides": [],
206            "requires": [],
207            "permissions": { "networking": "full", "filesystem": "read-write", "ipc": { "allow": [] }, "processes": true },
208            "soma": {
209                "namespaces": { "mount": false, "pid": false, "net": false, "uts": false, "ipc": false, "user": false, "cgroup": false },
210                "rlimits": { "mem_bytes": null, "nproc": null, "nofile": null },
211                "cgroup": { "path": "arje.slice/hammerd", "cpu_weight": null, "io_weight": null },
212                "cpu_affinity": null
213            },
214            "payload": { "Native": {
215                "exec": "/usr/bin/hammerd",
216                "argv": ["--store", "/store", "--journal", "/var/lib/hammer/journal"],
217                "envp": [["RUST_LOG", "info"], ["ENTE_BUS_SOCK", "/run/ente-bus.sock"]]
218            }},
219            "supervision": { "Restart": { "initial": 200, "max": 10000 } },
220            "lifecycle": "daemon",
221            "priority": "normal",
222            "flow": { "input": [], "output": [] },
223            "genesis": []
224        },
225        {
226            "schema_version": 1,
227            "id": "01HQAR53D4M2NBV8KZTYXFQA02",
228            "lineage": null,
229            "label": "console-getty",
230            "provides": [],
231            "requires": [],
232            "permissions": { "networking": "none", "filesystem": "read-write", "ipc": { "allow": [] }, "processes": true },
233            "soma": {
234                "namespaces": { "mount": false, "pid": false, "net": false, "uts": false, "ipc": false, "user": false, "cgroup": false },
235                "rlimits": { "mem_bytes": null, "nproc": null, "nofile": null },
236                "cgroup": { "path": "arje.slice/getty", "cpu_weight": null, "io_weight": null },
237                "cpu_affinity": null
238            },
239            "payload": { "Native": {
240                "exec": "/bin/busybox",
241                "argv": ["getty", "-n", "-l", "/bin/sh", "115200", "console"],
242                "envp": []
243            }},
244            "supervision": { "Restart": { "initial": 200, "max": 10000 } },
245            "lifecycle": "daemon",
246            "priority": "normal",
247            "flow": { "input": [], "output": [] },
248            "genesis": []
249        }
250    ]
251}
252"#;
253
254/// Qué construir para Stage 1: la semilla ya sellada (por `(seed_hash, seed_kind)`) y el directorio
255/// de recetas donde viven `musl.toml` / `busybox.toml`.
256#[derive(Debug, Clone)]
257pub struct Stage1Spec {
258    pub seed_hash: ArtifactHash,
259    pub seed_kind: SeedKind,
260    pub recipes_dir: PathBuf,
261}
262
263/// **Stage 1** — cross-compila el userland mínimo con la semilla de Stage 0, ensambla un rootfs
264/// FHS y lo sella. Devuelve el [`RootfsHash`] y anota la línea del manifiesto.
265///
266/// Idempotente: si el rootfs (mismo hash de contenido) ya está sellado, no reconstruye. El
267/// cross-compile real requiere el rootfs base + toolchain del lab; en una máquina sin `.dev-fs`
268/// `takana_build::build` falla limpio antes de ensamblar nada.
269pub fn stage1(
270    spec: &Stage1Spec,
271    base_cfg: &takana_build::BuildConfig,
272    store: &Store,
273) -> Result<RootfsHash> {
274    // Toolchain = la semilla sellada, no el zig del host.
275    let zig_dir = seed_toolchain_dir(store, &spec.seed_hash, spec.seed_kind)?;
276    let cfg = takana_build::BuildConfig { zig_dir, ..base_cfg.clone() };
277
278    // 1) Construir cada componente (cacheado por el lab si ya existe).
279    let mut components: Vec<(String, ArtifactHash)> = Vec::with_capacity(STAGE1_COMPONENTS.len());
280    for name in STAGE1_COMPONENTS {
281        let recipe_path = spec.recipes_dir.join(format!("{name}.toml"));
282        let recipe = Recipe::load_from_path(&recipe_path).map_err(|e| {
283            Error::Other(format!("receta '{name}' ({}): {e}", recipe_path.display()))
284        })?;
285        let h = takana_build::build(&recipe, &cfg, store)?;
286        components.push((name.to_string(), h));
287    }
288
289    // 2) Hash del rootfs = función pura de sus componentes (reproducible, sin tocar disco).
290    let rootfs_hash = rootfs_hash(&components);
291    let store_name = "stage1-rootfs";
292
293    // 3) Ensamblar + sellar (si no estaba ya). Staging bajo el store ⇒ rename atómico en seal.
294    if !store.has(&rootfs_hash, store_name) {
295        let staging = store
296            .root()
297            .join(".bootstrap-tmp")
298            .join(rootfs_hash.store_dir_name(store_name));
299        let _ = std::fs::remove_dir_all(&staging);
300        std::fs::create_dir_all(&staging)?;
301        let result = assemble_and_seal(store, &components, &rootfs_hash, store_name, &staging);
302        let _ = std::fs::remove_dir_all(&staging);
303        result?;
304    } else {
305        tracing::info!(hash = %rootfs_hash, "stage1: rootfs ya sellado (idempotente)");
306    }
307
308    // 4) Línea del manifiesto. `recipe_hash = None`: el rootfs es un ensamblado de varias recetas,
309    // no de una sola; el `seed_hash` ancla de qué toolchain salió.
310    manifest::append_line(
311        store,
312        StageEntry {
313            stage: 1,
314            recipe_hash: None,
315            artifact_hash: rootfs_hash.clone(),
316            seed_hash: Some(spec.seed_hash.clone()),
317            ts: now_unix(),
318        },
319    )?;
320    Ok(rootfs_hash)
321}
322
323/// Hash de contenido del rootfs: tag de versión + `(name, hash)` de cada componente en orden + la
324/// seed card del init. Cambiar un componente, el orden o la seed re-hashea el rootfs. El tag `v2`
325/// marca el corte respecto al rootfs con init provisional (`v1`).
326fn rootfs_hash(components: &[(String, ArtifactHash)]) -> RootfsHash {
327    let mut inputs: Vec<Vec<u8>> = vec![b"hammer-stage1-rootfs-v2".to_vec()];
328    for (name, h) in components {
329        inputs.push(name.as_bytes().to_vec());
330        inputs.push(h.as_str().as_bytes().to_vec());
331    }
332    inputs.push(STAGE1_SEED_CARD.as_bytes().to_vec());
333    let refs: Vec<&[u8]> = inputs.iter().map(|v| v.as_slice()).collect();
334    ArtifactHash::of_inputs(&refs)
335}
336
337fn assemble_and_seal(
338    store: &Store,
339    components: &[(String, ArtifactHash)],
340    rootfs_hash: &RootfsHash,
341    store_name: &str,
342    staging: &Path,
343) -> Result<()> {
344    assemble_rootfs(store, components, staging)?;
345    store.seal(staging, rootfs_hash, store_name)?;
346    tracing::info!(hash = %rootfs_hash, "stage1: rootfs sellado");
347    Ok(())
348}
349
350/// Ensambla el árbol FHS del rootfs en `staging`: esqueleto de directorios, hidratación de cada
351/// componente sellado (hardlinks), la seed card de arje y `/sbin/init`→arje-zero. Es la pieza
352/// testeable sin build real ([SDD 12](../../docs/12-init-real.md)).
353fn assemble_rootfs(
354    store: &Store,
355    components: &[(String, ArtifactHash)],
356    staging: &Path,
357) -> Result<()> {
358    // Esqueleto FHS. arje-zero monta él mismo los pseudo-FS (arje-kernel), así que sólo deben
359    // existir como puntos de montaje vacíos; `/ente` lleva la seed, `/var/lib/hammer` el diario.
360    for d in [
361        "proc", "sys", "sys/fs/cgroup", "dev", "dev/pts", "dev/shm", "run", "tmp", "etc", "root",
362        "var", "var/lib/hammer", "ente", "usr/bin", "bin", "sbin",
363    ] {
364        std::fs::create_dir_all(staging.join(d))?;
365    }
366
367    // Cada componente se proyecta al rootfs por hardlink (mismo store, mismo filesystem).
368    for (name, h) in components {
369        let dir = store.path_of(h, name);
370        takana_build::run_hydrate(&dir, staging, takana_core::LinkMode::Static, None)?;
371    }
372
373    // El sidecar de provenance de cada receta (`.hammer/recipe.toml`) no pertenece al rootfs
374    // ejecutable: lo quitamos para que la imagen quede limpia y su hash no dependa de cuál
375    // componente lo escribió último.
376    let _ = std::fs::remove_dir_all(staging.join(".hammer"));
377
378    // La seed card que arje-zero lee al boot.
379    std::fs::write(staging.join("ente/seed.card.json"), STAGE1_SEED_CARD)?;
380
381    // arje-zero es PID 1 vía `/sbin/init`. Symlink absoluto: el kernel lo sigue sea cual sea el
382    // cmdline, sin exigir `init=`. Idempotente: si ya existe (re-ensamblado), lo reemplazamos.
383    let init_link = staging.join("sbin/init");
384    let _ = std::fs::remove_file(&init_link);
385    std::os::unix::fs::symlink("/usr/bin/arje-zero", &init_link)?;
386    Ok(())
387}
388
389// ── Capa de servicios: el PRODUCTO (Separación Mecanismo/Política) ──────────────────────────────
390//
391// `STAGE1_COMPONENTS` + `STAGE1_SEED_CARD` son el **mecanismo base**: el núcleo atómico que el
392// selfhost-verify reconstruye bit a bit (`of_tree` 9adefb82/7fa6cb4e). Inmutable y blindado. Los
393// **servicios** (sshd, …) son **política de producto**: NO entran al núcleo (no contaminan el
394// `of_tree` ni obligan a un rebuild pesado de openssl/zlib dentro de la VM). Se inyectan por
395// **hidratación tardía** sobre el rootfs base ya sellado, produciendo un `product-rootfs` APARTE.
396// Así, meter más servicios mañana no toca jamás el núcleo verificado.
397
398/// Componentes de servicio inyectados sobre el 4/4 verificado: `netup` (red) + `openssh` (sshd/ssh).
399/// Daemons ⇒ llevan card en la seed de producto. Crecer esta lista NO toca `STAGE1_COMPONENTS`.
400const SERVICE_COMPONENTS: &[&str] = &["netup", "openssh"];
401
402/// Userland Rust-nativo ADOPTADO (Etapa C): multicall `uutils`/coreutils + `find`/`xargs` + `diff`/`cmp`
403/// + `rg`. Se hidrata sobre la base DESPUÉS de busybox, así que sus symlinks en `/usr/bin` ENSOMBRECEN
404/// los applets de busybox (con `PATH` `/usr/bin:/bin` gana la tool Rust). Es el "adelgazar busybox" del
405/// producto SIN tocar el núcleo: busybox sigue en el 4/4 (self-host) y queda de fallback para lo aún no
406/// reemplazado (`sh`/ash, `tar`, …). NO son daemons ⇒ no llevan card en la seed (sólo ficheros).
407const USERLAND_COMPONENTS: &[&str] =
408    &["uutils", "findutils", "findutils-xargs", "diffutils", "ripgrep"];
409
410/// Card de servicio `sshd` (genesis `Native`/`Restart`): el comando levanta la red (`netup`, DHCP),
411/// genera host keys al primer boot (`ssh-keygen -A`) y `exec`uta `sshd -D`. Todo dentro del card para
412/// no asumir orden de genesis. Mismo esquema validado de [`STAGE1_SEED_CARD`]; ULID propio. Se inyecta
413/// en el `genesis` de la seed de producto. Verificado E2E en QEMU (`scripts/ssh-e2e-test.sh`).
414const SSHD_SERVICE_CARD: &str = r#"{
415    "schema_version": 1,
416    "id": "01HQAR53D4M2NBV8KZTYXFQA12",
417    "lineage": null,
418    "label": "sshd",
419    "provides": [],
420    "requires": [],
421    "permissions": { "networking": "full", "filesystem": "read-write", "ipc": { "allow": [] }, "processes": true },
422    "soma": {
423        "namespaces": { "mount": false, "pid": false, "net": false, "uts": false, "ipc": false, "user": false, "cgroup": false },
424        "rlimits": { "mem_bytes": null, "nproc": null, "nofile": null },
425        "cgroup": { "path": "arje.slice/sshd", "cpu_weight": null, "io_weight": null },
426        "cpu_affinity": null
427    },
428    "payload": { "Native": {
429        "exec": "/bin/busybox",
430        "argv": ["sh", "-c", "/usr/bin/netup; /usr/bin/ssh-keygen -A; exec /usr/sbin/sshd -D -e"],
431        "envp": [["HOME", "/root"]]
432    }},
433    "supervision": { "Restart": { "initial": 500, "max": 20000 } },
434    "lifecycle": "daemon",
435    "priority": "normal",
436    "flow": { "input": [], "output": [] },
437    "genesis": []
438}"#;
439
440/// `/etc/passwd` del producto: `root` (login por llave) + `sshd` (usuario de privsep, shell inerte).
441const PRODUCT_PASSWD: &str = "root:x:0:0:root:/root:/bin/sh\nsshd:x:74:74:sshd privsep:/var/empty:/bin/false\n";
442/// `/etc/group` del producto.
443const PRODUCT_GROUP: &str = "root:x:0:\nsshd:x:74:\n";
444/// `/etc/ssh/sshd_config` del producto: sólo por llave (sin password), pidfile en `/run` (tmpfs que
445/// arje monta), authorized_keys provisionadas en deploy.
446const SSHD_CONFIG: &str = "Port 22\nListenAddress 0.0.0.0\nPermitRootLogin prohibit-password\nPubkeyAuthentication yes\nPasswordAuthentication no\nAuthorizedKeysFile /root/.ssh/authorized_keys\nPidFile /run/sshd.pid\nSubsystem sftp /usr/libexec/sftp-server\n";
447
448// ── Atestación de integridad al arranque (I4 / Etapa D, mitad de HAMMER) ─────────────────────────
449//
450// Por la regla de oro del [plan arje↔takana] (`PLAN-ATESTACION-Y-HAMMER.md` §B.1): takana es dueño del
451// **`expected_hash` + firma + TrustStore**; arje es dueño del **gate al boot** (computa `blake3` de cada
452// binario crítico ANTES de incarnar y, si no casa, `halt`). Esta es la mitad de takana: PRODUCIR el
453// manifiesto de hashes esperados (`/ente/attest.json`) que el gate A2 de arje verifica — "el
454// `expected_hash` de un `.swm` ES el BLAKE3 que arje atesta". El hash es `blake3` CRUDO del fichero
455// (`ArtifactHash::of_file`), el mismo que computa `arje-cas::blake3_of`. La firma con la rootkey del
456// seed (A1, `arje-packager`) es una capa posterior; el manifiesto ya es verificable hoy por `takana
457// attest` (auto-validación: "reproducir, no confiar"). Es un fichero APARTE de la seed card ⇒ no toca
458// el schema de `card-core` y el producto bootea igual con el arje-zero actual (que aún ignora A2).
459
460/// Binarios críticos cuyo BLAKE3 hammer atesta (la raíz-de-confianza-ejecutable del producto): PID 1,
461/// el diario, el shell/getty, el daemon de red expuesto, el configurador de red y el userland multicall.
462const ATTEST_PATHS: &[&str] = &[
463    "usr/bin/arje-zero", // PID 1 — la raíz
464    "usr/bin/hammerd",   // diario + bus
465    "bin/busybox",       // shell/getty + exec de varios cards
466    "usr/sbin/sshd",     // daemon SSH (superficie de red)
467    "usr/bin/netup",     // configurador de red
468    "usr/bin/coreutils", // userland Rust multicall
469];
470
471/// Una entrada del manifiesto de atestación: ruta (relativa a la raíz) → BLAKE3 esperado del fichero.
472#[derive(Debug, Clone, serde::Serialize, serde::Deserialize)]
473pub struct AttestEntry {
474    pub path: String,
475    pub b3: String,
476}
477
478/// Manifiesto de atestación que takana emite en `/ente/attest.json`. `algo` fijo a `blake3` (crudo).
479#[derive(Debug, Clone, serde::Serialize, serde::Deserialize)]
480pub struct AttestManifest {
481    pub schema_version: u32,
482    pub algo: String,
483    pub entries: Vec<AttestEntry>,
484}
485
486/// Veredicto de [`verify_attestation`]: qué binarios casaron, cuáles divergieron y cuáles faltan.
487#[derive(Debug, Clone, Default)]
488pub struct AttestReport {
489    pub ok: Vec<String>,
490    pub mismatched: Vec<String>,
491    pub missing: Vec<String>,
492}
493
494impl AttestReport {
495    /// Pasa sólo si todo binario listado existe y su BLAKE3 casa.
496    pub fn passed(&self) -> bool {
497        self.mismatched.is_empty() && self.missing.is_empty()
498    }
499}
500
501/// Construye el manifiesto de atestación de un árbol `root`: para cada ruta crítica PRESENTE, su BLAKE3
502/// crudo. Determinista (función pura de los bytes del binario).
503fn build_attestation(root: &Path) -> Result<AttestManifest> {
504    let mut entries = Vec::new();
505    for rel in ATTEST_PATHS {
506        let p = root.join(rel);
507        if p.is_file() {
508            let h = ArtifactHash::of_file(&p).map_err(Error::Io)?;
509            entries.push(AttestEntry { path: format!("/{rel}"), b3: h.as_str().to_string() });
510        }
511    }
512    Ok(AttestManifest { schema_version: 1, algo: "blake3".into(), entries })
513}
514
515/// Verifica un árbol FHS (`rootfs_dir`, p.ej. un product-rootfs hidratado) contra su propio
516/// `/ente/attest.json`: recomputa el BLAKE3 de cada binario listado y lo compara. Es lo que el gate de
517/// arje hará al boot, hecho hoy por takana (auto-validación de integridad del producto).
518pub fn verify_attestation(rootfs_dir: &Path) -> Result<AttestReport> {
519    let manifest_path = rootfs_dir.join("ente/attest.json");
520    let raw = std::fs::read_to_string(&manifest_path).map_err(|e| {
521        Error::Other(format!("no pude leer {}: {e}", manifest_path.display()))
522    })?;
523    let manifest: AttestManifest = serde_json::from_str(&raw)
524        .map_err(|e| Error::Other(format!("attest.json inválido: {e}")))?;
525    let mut report = AttestReport::default();
526    for entry in &manifest.entries {
527        let rel = entry.path.trim_start_matches('/');
528        let p = rootfs_dir.join(rel);
529        if !p.is_file() {
530            report.missing.push(entry.path.clone());
531            continue;
532        }
533        let got = ArtifactHash::of_file(&p).map_err(Error::Io)?;
534        if got.as_str() == entry.b3 {
535            report.ok.push(entry.path.clone());
536        } else {
537            report.mismatched.push(entry.path.clone());
538        }
539    }
540    Ok(report)
541}
542
543/// Las Cards de servicio que aportan los componentes de servicio, **leídas de la receta que viaja
544/// DENTRO de cada artefacto sellado** (el sidecar de provenance `.hammer/recipe.toml`).
545///
546/// Por qué del sidecar y no del directorio de recetas: [`seal_product_rootfs`] sirve a las DOS
547/// vetas —`product` desde recetas locales y `product_from_repo` desde el repo firmado— y sólo una
548/// tiene `recipes/` a mano. El sidecar es la única fuente que ambas comparten, y así las dos
549/// convergen al mismo `product-rootfs`, que es la propiedad que esa función existe para sostener.
550///
551/// Sólo entran las de `scope = "system"`: una Card de sesión en el `genesis` arrancaría antes de que
552/// exista `XDG_RUNTIME_DIR` o un usuario logueado (ver `takana_core::service::Scope`).
553///
554/// ⚠ **Falla RUIDOSAMENTE si no sale ninguna**, y la razón es una trampa concreta: el sidecar **no
555/// entra en el `ArtifactHash`**, así que un artefacto sellado antes de que la receta declarara sus
556/// servicios sigue siendo un cache-hit válido y **no se reconstruye solo**. Si esto devolviera una
557/// lista vacía sin protestar, el producto saldría sin sshd —booteando, verde y sin acceso— que es
558/// exactamente la clase de fallo que este proyecto ya pagó con los artefactos vacíos.
559fn service_cards(
560    store: &Store,
561    services: &[(String, ArtifactHash)],
562) -> Result<Vec<serde_json::Value>> {
563    let mut cards = Vec::new();
564    let mut sin_sidecar = Vec::new();
565    for (nombre, hash) in services {
566        let recipe = match store.recipe_for_hash(hash.as_str()) {
567            Ok(Some(r)) => r,
568            Ok(None) => {
569                sin_sidecar.push(nombre.clone());
570                continue;
571            }
572            Err(e) => return Err(Error::Other(format!("sidecar de `{nombre}` ilegible: {e}"))),
573        };
574        for s in &recipe.services {
575            if s.scope == takana_core::service::Scope::System {
576                cards.push(s.card());
577            }
578        }
579    }
580    if cards.is_empty() {
581        return Err(Error::Other(format!(
582            "ningún componente de servicio ({}) declara un servicio de sistema.\n\
583             Casi seguro los artefactos son ANTERIORES al bloque `[[service]]`: el sidecar no entra \
584             en el ArtifactHash, así que siguen siendo cache-hit válidos y no se reconstruyen solos.\n\
585             Arreglo: borrar el artefacto del store y reconstruirlo (`flock -o work/.farm-build.lock \
586             takana build recipes/<receta>.toml`), comparando el árbol nuevo con el viejo.{}",
587            services.iter().map(|(n, _)| n.as_str()).collect::<Vec<_>>().join(", "),
588            if sin_sidecar.is_empty() {
589                String::new()
590            } else {
591                format!("\nSin sidecar siquiera: {}", sin_sidecar.join(", "))
592            }
593        )));
594    }
595    Ok(cards)
596}
597
598/// Seed de producto = la seed base con los cards de servicio APENDADOS al `genesis`. Composición vía
599/// `serde_json` (takana sigue autocontenido: no depende de `card-core`). Determinista ⇒ el
600/// `product-rootfs` es reproducible. El núcleo (hammerd + getty) se preserva tal cual.
601fn product_seed_card(cards: &[serde_json::Value]) -> Result<String> {
602    let mut seed: serde_json::Value = serde_json::from_str(STAGE1_SEED_CARD)
603        .map_err(|e| Error::Other(format!("seed base inválida: {e}")))?;
604    seed["label"] = serde_json::Value::String("hammer-product".into());
605    let genesis = seed
606        .get_mut("genesis")
607        .and_then(|g| g.as_array_mut())
608        .ok_or_else(|| Error::Other("seed base sin array `genesis`".into()))?;
609    for c in cards {
610        genesis.push(c.clone());
611    }
612    serde_json::to_string_pretty(&seed).map_err(|e| Error::Other(format!("serializar seed: {e}")))
613}
614
615/// Identidad del `product-rootfs`: tag + el `RootfsHash` del 4/4 base + `(nombre,hash)` de cada
616/// componente userland y de servicio (en orden) + la seed de producto + las configs. Cambiar
617/// cualquiera re-hashea (reproducible). El tag `v2` marca el corte respecto al producto sólo-servicios.
618fn product_rootfs_hash(
619    base: &RootfsHash,
620    userland: &[(String, ArtifactHash)],
621    services: &[(String, ArtifactHash)],
622    seed: &str,
623) -> RootfsHash {
624    let mut inputs: Vec<Vec<u8>> = vec![
625        b"hammer-product-rootfs-v3".to_vec(), // v3: + manifiesto de atestación (/ente/attest.json)
626        base.as_str().as_bytes().to_vec(),
627    ];
628    for (name, h) in userland.iter().chain(services.iter()) {
629        inputs.push(name.as_bytes().to_vec());
630        inputs.push(h.as_str().as_bytes().to_vec());
631    }
632    inputs.push(ATTEST_PATHS.join(",").into_bytes()); // el set atestado entra al hash
633    inputs.push(seed.as_bytes().to_vec());
634    inputs.push(PRODUCT_PASSWD.as_bytes().to_vec());
635    inputs.push(PRODUCT_GROUP.as_bytes().to_vec());
636    inputs.push(SSHD_CONFIG.as_bytes().to_vec());
637    let refs: Vec<&[u8]> = inputs.iter().map(|v| v.as_slice()).collect();
638    ArtifactHash::of_inputs(&refs)
639}
640
641/// Ensambla el árbol de producto en `staging`: hidrata el rootfs base sellado (4/4), luego el userland
642/// Rust (ENSOMBRECE los applets de busybox en `/usr/bin`) y los componentes de servicio ENCIMA
643/// (hidratación tardía); sobrescribe la seed con la de producto y escribe las configs de servicio
644/// (passwd/group/sshd_config + `/var/empty` 0711, `/etc/ssh`, `/root/.ssh` 0700). Testeable sin build.
645fn assemble_product_rootfs(
646    store: &Store,
647    base: &RootfsHash,
648    userland: &[(String, ArtifactHash)],
649    services: &[(String, ArtifactHash)],
650    seed: &str,
651    staging: &Path,
652) -> Result<()> {
653    use std::os::unix::fs::PermissionsExt;
654
655    // 1) base verificado (4/4): hidratación por hardlinks del árbol ya sellado (incl. mountpoints
656    //    vacíos, /sbin/init y la seed base, que sobrescribimos en el paso 3).
657    let base_dir = store.path_of(base, "stage1-rootfs");
658    if !base_dir.is_dir() {
659        return Err(Error::Other(format!(
660            "rootfs base no sellado en {}",
661            base_dir.display()
662        )));
663    }
664    takana_build::run_hydrate(&base_dir, staging, takana_core::LinkMode::Static, None)?;
665
666    // 2) userland Rust + servicios ENCIMA (hardlink). El userland va DESPUÉS de la base: sus symlinks
667    //    en /usr/bin reemplazan a los de busybox (run_hydrate sustituye el symlink existente) ⇒ el
668    //    producto corre las tools Rust. Orden userland→servicios (sin colisiones entre sí).
669    for (name, h) in userland.iter().chain(services.iter()) {
670        let dir = store.path_of(h, name);
671        takana_build::run_hydrate(&dir, staging, takana_core::LinkMode::Static, None)?;
672    }
673    let _ = std::fs::remove_dir_all(staging.join(".hammer"));
674
675    // ADELGAZAR BUSYBOX (determinista, sin depender del orden de PATH del shell): por cada nombre que
676    // el userland Rust provee en `/usr/bin`, retirar el symlink homónimo de busybox en los OTROS dirs
677    // (`/bin`, `/sbin`, `/usr/sbin`) — busybox suele instalar `ls` en `/bin`, fuera del `/usr/bin` que
678    // la hidratación ya ensombreció. Así la tool Rust es la ÚNICA en PATH. El binario busybox queda
679    // (sh/ash, tar, mount, … lo no reemplazado); sólo se quitan los applets ya cubiertos por Rust.
680    let mut applet_names: std::collections::BTreeSet<String> = std::collections::BTreeSet::new();
681    for (name, h) in userland {
682        let ub = store.path_of(h, name).join("usr/bin");
683        if let Ok(rd) = std::fs::read_dir(&ub) {
684            for e in rd.flatten() {
685                applet_names.insert(e.file_name().to_string_lossy().into_owned());
686            }
687        }
688    }
689    for applet in &applet_names {
690        for d in ["bin", "sbin", "usr/sbin"] {
691            let p = staging.join(d).join(applet);
692            if std::fs::symlink_metadata(&p).is_ok() {
693                let _ = std::fs::remove_file(&p);
694            }
695        }
696    }
697
698    // 3) seed de producto (sobrescribe la base) + configs + dirs de runtime de sshd.
699    // Los ficheros hidratados son HARDLINKS al store sellado (read-only); escribir encima daría
700    // EACCES y `chmod` mutaría el inodo del store. Hay que ROMPER el hardlink: remove + write nuevo.
701    let write_fresh = |rel: &str, data: &str| -> Result<()> {
702        let p = staging.join(rel);
703        if let Some(parent) = p.parent() {
704            std::fs::create_dir_all(parent)?;
705        }
706        let _ = std::fs::remove_file(&p);
707        std::fs::write(&p, data)?;
708        Ok(())
709    };
710    write_fresh("ente/seed.card.json", seed)?;
711    write_fresh("etc/passwd", PRODUCT_PASSWD)?;
712    write_fresh("etc/group", PRODUCT_GROUP)?;
713    write_fresh("etc/ssh/sshd_config", SSHD_CONFIG)?;
714    let empty = staging.join("var/empty"); // jaula de privsep: root, no group/world-writable.
715    std::fs::create_dir_all(&empty)?;
716    std::fs::set_permissions(&empty, std::fs::Permissions::from_mode(0o711))?;
717    let dotssh = staging.join("root/.ssh"); // authorized_keys provisionadas en deploy.
718    std::fs::create_dir_all(&dotssh)?;
719    std::fs::set_permissions(&dotssh, std::fs::Permissions::from_mode(0o700))?;
720    // Mountpoints de las particiones dedicadas del disco de producto (vacíos; el wrapper /sbin/init de
721    // la imagen monta vda3→/store y vda4→/var/lib/hammer). `/var/lib/hammer` ya viene de la base.
722    std::fs::create_dir_all(staging.join("store"))?;
723    std::fs::create_dir_all(staging.join("var/lib/hammer"))?;
724
725    // Manifiesto de atestación (I4): BLAKE3 esperado de los binarios críticos ya hidratados ⇒ el gate
726    // de arje lo verifica al boot. Se computa al final, sobre el árbol ya ensamblado. Fichero aparte de
727    // la seed card (no toca el schema de card-core).
728    let attest = build_attestation(staging)?;
729    let attest_json = serde_json::to_string_pretty(&attest)
730        .map_err(|e| Error::Other(format!("serializar attest.json: {e}")))?;
731    std::fs::write(staging.join("ente/attest.json"), attest_json)?;
732    Ok(())
733}
734
735/// Construye/cachea (idempotente vía el lab) una lista de componentes nombrados, devolviendo sus
736/// `(nombre, hash)` sellados. Cada receta usa su propia config de build (p.ej. `zig_version`).
737fn build_components(
738    names: &[&str],
739    recipes_dir: &Path,
740    cfg: &takana_build::BuildConfig,
741    store: &Store,
742) -> Result<Vec<(String, ArtifactHash)>> {
743    let mut out = Vec::with_capacity(names.len());
744    for name in names {
745        let recipe_path = recipes_dir.join(format!("{name}.toml"));
746        let recipe = Recipe::load_from_path(&recipe_path).map_err(|e| {
747            Error::Other(format!("receta '{name}' ({}): {e}", recipe_path.display()))
748        })?;
749        let h = takana_build::build(&recipe, cfg, store)?;
750        out.push((name.to_string(), h));
751    }
752    Ok(out)
753}
754
755/// **Producto** — toma el rootfs base verificado (`base`, el `stage1-rootfs` del 4/4) y le inyecta por
756/// hidratación tardía el userland Rust (adelgaza busybox) + la capa de servicios, sellando un
757/// `product-rootfs`. El mecanismo base queda intacto: este árbol NO es el que reconstruye el
758/// selfhost-verify (su `of_tree` sigue blindado). Idempotente. `base_cfg` apunta el zig del lab (no la
759/// semilla): cada componente usa su `zig_version` propia, y si ya está sellado sale cacheado.
760pub fn product(
761    base: &RootfsHash,
762    base_cfg: &takana_build::BuildConfig,
763    recipes_dir: &Path,
764    store: &Store,
765) -> Result<RootfsHash> {
766    // 1) construir/cachear el userland Rust + los servicios DESDE LAS RECETAS LOCALES.
767    let userland = build_components(USERLAND_COMPONENTS, recipes_dir, base_cfg, store)?;
768    let services = build_components(SERVICE_COMPONENTS, recipes_dir, base_cfg, store)?;
769    // 2-3) ensamblar + sellar.
770    seal_product_rootfs(base, &userland, &services, store)
771}
772
773/// **Producto desde un REPO FIRMADO** — cierra el dogfood de [[etapa-f]]: la imagen de producto arma
774/// su userland vía la cadena de suministro de paquetes (no recetas locales hardcodeadas). Verifica la
775/// firma del release, REPRODUCE cada componente desde su `.swm` (`build_source_patch` chequea el
776/// `expected_hash` anclado) y lo hidrata. Como el hash es por-CONTENIDO, los `(nombre,hash)` que
777/// reproduce desde el repo son IDÉNTICOS a los que `build_components` construye de la receta ⇒ el
778/// `product-rootfs` resultante es BIT-IDÉNTICO al de [`product`]: la prueba de que el dogfood es fiel
779/// ("verificar, no confiar" aplicado al propio ensamblado del producto). El núcleo sigue blindado.
780pub fn product_from_repo(
781    base: &RootfsHash,
782    repo_dir: &Path,
783    trust_dir: &Path,
784    base_cfg: &takana_build::BuildConfig,
785    store: &Store,
786) -> Result<RootfsHash> {
787    // 1) userland + servicios REPRODUCIDOS desde el repo firmado (mismo shape que build_components).
788    let userland = install_components_from_repo(USERLAND_COMPONENTS, repo_dir, trust_dir, base_cfg, store)?;
789    let services = install_components_from_repo(SERVICE_COMPONENTS, repo_dir, trust_dir, base_cfg, store)?;
790    // 2-3) ensamblar + sellar (idéntico a `product`).
791    seal_product_rootfs(base, &userland, &services, store)
792}
793
794/// Pasos 2-3 comunes a [`product`] y [`product_from_repo`]: seed de producto + hash de identidad +
795/// ensamblado + sellado idempotente. Sólo varía la PROCEDENCIA de los `(nombre,hash)` (recetas
796/// locales vs repo firmado); el árbol sellado es función de ellos ⇒ ambas vetas convergen al mismo
797/// `product-rootfs` si los hashes coinciden (lo hacen: el hash es por-contenido).
798fn seal_product_rootfs(
799    base: &RootfsHash,
800    userland: &[(String, ArtifactHash)],
801    services: &[(String, ArtifactHash)],
802    store: &Store,
803) -> Result<RootfsHash> {
804    let seed = product_seed_card(&service_cards(store, services)?)?;
805    let phash = product_rootfs_hash(base, userland, services, &seed);
806    let store_name = "product-rootfs";
807
808    if !store.has(&phash, store_name) {
809        let staging = store
810            .root()
811            .join(".bootstrap-tmp")
812            .join(phash.store_dir_name(store_name));
813        let _ = std::fs::remove_dir_all(&staging);
814        std::fs::create_dir_all(&staging)?;
815        let result = (|| -> Result<()> {
816            assemble_product_rootfs(store, base, userland, services, &seed, &staging)?;
817            store.seal(&staging, &phash, store_name)?;
818            Ok(())
819        })();
820        let _ = std::fs::remove_dir_all(&staging);
821        result?;
822        tracing::info!(hash = %phash, "product: rootfs (userland Rust + servicios) sellado");
823    } else {
824        tracing::info!(hash = %phash, "product: rootfs ya sellado (idempotente)");
825    }
826    Ok(phash)
827}
828
829/// Reproduce un conjunto de componentes DESDE UN REPO FIRMADO, devolviendo sus `(nombre,hash)` sellados
830/// — el MISMO shape que [`build_components`], así [`assemble_product_rootfs`] los hidrata igual. Por cada
831/// componente: resuelve su cierre de deps del índice, puebla el catálogo con los `{dep}.toml` (para que
832/// el lab materialice build-deps al reproducir, igual que `takana install`), y REPRODUCE su `source_patch`
833/// con `build_source_patch` (que sella y CHEQUEA el `expected_hash` anclado en el índice). Verifica la
834/// firma del release ANTES de tocar nada: el producto NO se ensambla desde un repo no confiado.
835pub fn install_components_from_repo(
836    names: &[&str],
837    repo_dir: &Path,
838    trust_dir: &Path,
839    cfg: &takana_build::BuildConfig,
840    store: &Store,
841) -> Result<Vec<(String, ArtifactHash)>> {
842    use takana_core::{RepoIndex, SigStatus, TrustStore};
843
844    let index = RepoIndex::load(repo_dir)?;
845    // Firma del release: exigimos TRUSTED. Un release no firmado / con clave desconocida / con firma
846    // mala NO ensambla un producto (la cadena de suministro debe ser confiable y no manipulada).
847    let ts = TrustStore::load(trust_dir)?;
848    match index.verify_signature(&ts) {
849        SigStatus::Trusted { by } => {
850            tracing::info!(%by, "product: release del repo firmado y TRUSTED");
851        }
852        other => {
853            return Err(Error::Other(format!(
854                "el producto exige un repo firmado por clave confiada en {}; estado: {other:?}",
855                trust_dir.display()
856            )));
857        }
858    }
859
860    let catalog_dir = takana_build::swm_bridge::catalog_dir_for(cfg, None);
861    std::fs::create_dir_all(&catalog_dir)?;
862
863    let mut out = Vec::with_capacity(names.len());
864    for name in names {
865        let entry = index.find(name).ok_or_else(|| {
866            Error::Other(format!("'{name}' no está en el repo firmado {}", repo_dir.display()))
867        })?;
868        // Poblar el catálogo con las DEPS del cierre (deps antes del target), igual que `install`:
869        // el lab resuelve build-deps por nombre leyendo `{dep}.toml` del catalog_dir.
870        let closure = index.resolve_closure(name)?;
871        for dep in closure.iter().filter(|p| p.name != *name) {
872            let dep_swm = load_swm_file(&RepoIndex::swm_path(repo_dir, dep))?;
873            let mutation = source_patch_of(&dep_swm).ok_or_else(|| {
874                Error::Other(format!("la dep '{}' no es un paquete source_patch", dep.name))
875            })?;
876            let dep_recipe = takana_build::swm_bridge::recipe_from_source_patch(
877                mutation,
878                Some(&dep.name),
879                &catalog_dir,
880            )?;
881            std::fs::write(catalog_dir.join(format!("{}.toml", dep.name)), dep_recipe.to_toml()?)?;
882        }
883        // Reproducir el target: build_source_patch sella + chequea el expected_hash del índice.
884        let swm = load_swm_file(&RepoIndex::swm_path(repo_dir, entry))?;
885        let mutation = source_patch_of(&swm).ok_or_else(|| {
886            Error::Other(format!("'{name}' no es un paquete source_patch"))
887        })?;
888        let hash = takana_build::swm_bridge::build_source_patch(mutation, cfg, store, None, Some(name))?;
889        tracing::info!(%name, %hash, "product: componente reproducido desde el repo firmado");
890        out.push((name.to_string(), hash));
891    }
892    Ok(out)
893}
894
895/// Lee un `.swm` (YAML) de disco a `Swm`. Equivalente al helper homónimo de la CLI (privado allí).
896fn load_swm_file(path: &Path) -> Result<takana_core::Swm> {
897    let yaml = std::fs::read_to_string(path)
898        .map_err(|e| Error::Other(format!("no pude leer {}: {e}", path.display())))?;
899    takana_core::Swm::from_yaml(&yaml)
900        .map_err(|e| Error::Other(format!("no pude parsear {}: {e}", path.display())))
901}
902
903/// Primera mutación `SourcePatch` de un `.swm` (un paquete takana es un único source_patch).
904fn source_patch_of(swm: &takana_core::Swm) -> Option<&takana_core::Mutation> {
905    swm.mutations
906        .iter()
907        .find(|m| matches!(m, takana_core::Mutation::SourcePatch { .. }))
908}
909
910// ── Producto ATESTADO: la capa FIRMADA que el gate de arje verifica al boot (I4 / Etapa D) ───────
911//
912// `product()` sella el `product-rootfs` con el arje-zero del núcleo + un `/ente/attest.json` de
913// AUTO-verificación (esquema paralelo que `takana attest` valida, pero que el gate de arje NO lee).
914// El producto ATESTADO cierra el lazo canónico: hidrata el arje-zero CON gate (`arje-zero-attest`),
915// FIRMA la seed con `arje-packager` (una concesión Ed25519 por binario crítico, sobre su BLAKE3, bajo
916// una rootkey) y la sella como `product-attested-rootfs`. Booteado, el gate (política `halt`) recomputa
917// el BLAKE3 de cada exec crítico y aborta antes de incarnar si algo no casa la concesión firmada.
918//
919// Esto reemplaza el spike `scripts/attest-boot-test.sh` (que overlayeaba a mano): ahora takana-bootstrap
920// produce el producto atestado de forma estructurada. Reusa la cripto canónica (arje-attest/agora vía el
921// packager) — cero criptografía nueva en takana. La rootkey por defecto es determinista ⇒ las firmas
922// Ed25519 (RFC 8032, nonce derivado del mensaje) son reproducibles bit a bit.
923
924/// Rootkey de desarrollo (32 bytes) con la que takana firma la atestación por defecto. Determinista ⇒
925/// firmas reproducibles ⇒ `product-attested-rootfs` reproducible. El endurecimiento soberano (rootkey
926/// fuera del árbol, `/etc/arje/rootkey.pub` / `ARJE_ATTEST_ROOTKEY_FILE`) es una capa posterior
927/// (roadmap Etapa D, hardening #3); por ahora se inyecta como override de [`AttestConfig::rootkey`].
928pub const DEV_ATTEST_ROOTKEY: &[u8; 32] = b"hammer-attest-dev-rootkey-0001!!";
929
930/// Recetas de la capa de atestación: el init CON gate (variante SÓLO producto, núcleo intacto) y el
931/// firmador (herramienta de build-time, estático musl, corre en el host y NO se embarca).
932const GATED_INIT_COMPONENT: &str = "arje-zero-attest";
933const PACKAGER_COMPONENT: &str = "arje-packager";
934
935/// Configuración de la firma de atestación del producto.
936#[derive(Debug, Clone)]
937pub struct AttestConfig {
938    /// Política que el gate aplica si un binario no atesta: `"halt"` | `"degraded"` | `"warn"`.
939    pub policy: String,
940    /// Rootkey de 32 bytes para firmar las concesiones. Determinista ⇒ producto reproducible.
941    pub rootkey: [u8; 32],
942}
943
944impl Default for AttestConfig {
945    /// Política `halt` (la integridad comprometida NO levanta el entorno) + la rootkey de desarrollo.
946    fn default() -> Self {
947        Self { policy: "halt".into(), rootkey: *DEV_ATTEST_ROOTKEY }
948    }
949}
950
951/// Identidad del `product-attested-rootfs`: el producto base + el init con gate + el firmador + la
952/// política + la rootkey. Cambiar cualquiera re-hashea; como las firmas Ed25519 son deterministas en
953/// estos insumos, el árbol sellado es reproducible.
954fn product_attested_hash(
955    base_product: &RootfsHash,
956    gated_init: &ArtifactHash,
957    packager: &ArtifactHash,
958    cfg: &AttestConfig,
959) -> RootfsHash {
960    ArtifactHash::of_inputs(&[
961        b"hammer-product-attested-v2", // v2: + ancla soberana externa /etc/arje/rootkey.pub (hardening #3)
962        base_product.as_str().as_bytes(),
963        gated_init.as_str().as_bytes(),
964        packager.as_str().as_bytes(),
965        cfg.policy.as_bytes(),
966        &cfg.rootkey,
967    ])
968}
969
970/// Binarios críticos que el gate atesta, derivados de la PROPIA seed (no una lista fija): el ejecutable
971/// de PID 1 (`arje-zero`, el `current_exe` del gate) + el `exec` de cada card `Native` del fractal
972/// `genesis` (recursivo), mapeado a su ruta dentro de `staging`. Así, añadir un servicio a la seed lo
973/// firma automáticamente. Devuelve `(label, ruta_host)` para alimentar `--bin label=path` del packager —
974/// el `label` debe casar el de la card (lo que el gate busca en las concesiones). El orden es estable
975/// (PID 1 primero, luego DFS del genesis) ⇒ los flags `--bin` son deterministas.
976fn critical_bins_from_seed(seed: &serde_json::Value, staging: &Path) -> Vec<(String, PathBuf)> {
977    fn walk(card: &serde_json::Value, staging: &Path, out: &mut Vec<(String, PathBuf)>) {
978        let exec = card
979            .get("payload")
980            .and_then(|p| p.get("Native"))
981            .and_then(|n| n.get("exec"))
982            .and_then(|e| e.as_str());
983        if let (Some(exec), Some(label)) = (exec, card.get("label").and_then(|l| l.as_str())) {
984            out.push((label.to_string(), staging.join(exec.trim_start_matches('/'))));
985        }
986        if let Some(g) = card.get("genesis").and_then(|g| g.as_array()) {
987            for c in g {
988                walk(c, staging, out);
989            }
990        }
991    }
992    let mut out = vec![("arje-zero".to_string(), staging.join("usr/bin/arje-zero"))];
993    if let Some(g) = seed.get("genesis").and_then(|g| g.as_array()) {
994        for c in g {
995            walk(c, staging, &mut out);
996        }
997    }
998    out
999}
1000
1001/// Ensambla el producto ATESTADO en `staging`: hidrata el `product-rootfs` base, PISA `/usr/bin/arje-zero`
1002/// con el init CON gate, fija `attest_policy` en la seed, la FIRMA con el packager (una concesión por
1003/// binario crítico sobre su BLAKE3), ancla la pubkey en `/etc/arje/rootkey.pub` (ancla soberana externa,
1004/// hardening #3) y regenera `/ente/attest.json` (la auto-verificación de takana, ahora coherente con el
1005/// arje-zero nuevo). El packager corre en el host (estático musl, sin loader, como busybox/bwrap). La
1006/// firma se valida E2E en QEMU (`scripts/attest-boot-test.sh`).
1007fn assemble_attested_product_rootfs(
1008    store: &Store,
1009    base_product: &RootfsHash,
1010    gated_init_bin: &Path,
1011    packager_bin: &Path,
1012    cfg: &AttestConfig,
1013    staging: &Path,
1014) -> Result<()> {
1015    use std::os::unix::fs::PermissionsExt;
1016
1017    // 1) producto base hidratado (hardlinks read-only del árbol sellado).
1018    let base_dir = store.path_of(base_product, "product-rootfs");
1019    if !base_dir.is_dir() {
1020        return Err(Error::Other(format!(
1021            "product-rootfs base no sellado en {}",
1022            base_dir.display()
1023        )));
1024    }
1025    takana_build::run_hydrate(&base_dir, staging, takana_core::LinkMode::Static, None)?;
1026    let _ = std::fs::remove_dir_all(staging.join(".hammer"));
1027
1028    // 2) PISAR /usr/bin/arje-zero con el init CON gate. Es un hardlink read-only al store ⇒ romper el
1029    //    hardlink (remove + copy), nunca `chmod` (mutaría el inodo del store).
1030    let init_dst = staging.join("usr/bin/arje-zero");
1031    let _ = std::fs::remove_file(&init_dst);
1032    std::fs::copy(gated_init_bin, &init_dst)?;
1033    std::fs::set_permissions(&init_dst, std::fs::Permissions::from_mode(0o755))?;
1034
1035    // 3) seed de producto: fijar `attest_policy` como ENTRADA del firmador. La mutamos y la dejamos en un
1036    //    tmp FUERA del árbol a sellar (el seed-out lo escribe el packager sobre /ente/seed.card.json).
1037    let seed_path = staging.join("ente/seed.card.json");
1038    let raw = std::fs::read_to_string(&seed_path)
1039        .map_err(|e| Error::Other(format!("leer seed de producto: {e}")))?;
1040    let mut seed: serde_json::Value =
1041        serde_json::from_str(&raw).map_err(|e| Error::Other(format!("seed inválida: {e}")))?;
1042    seed["attest_policy"] = serde_json::Value::String(cfg.policy.clone());
1043
1044    let tmp = staging.join(".attest-build"); // se borra antes de sellar (no entra al árbol).
1045    std::fs::create_dir_all(&tmp)?;
1046    let seed_in = tmp.join("seed-in.json");
1047    std::fs::write(
1048        &seed_in,
1049        serde_json::to_string_pretty(&seed)
1050            .map_err(|e| Error::Other(format!("serializar seed-in: {e}")))?,
1051    )?;
1052    let rootkey_path = tmp.join("rootkey.bin");
1053    std::fs::write(&rootkey_path, cfg.rootkey)?;
1054    std::fs::set_permissions(&rootkey_path, std::fs::Permissions::from_mode(0o600))?;
1055
1056    // 4) bins críticos derivados de la seed → un --bin por exec Native + el PID 1.
1057    let bins = critical_bins_from_seed(&seed, staging);
1058
1059    // 5) FIRMAR: el packager escribe el seed firmado (Card::attest + attest_rootkey + attest_policy)
1060    //    directamente sobre /ente/seed.card.json. El fichero hidratado es un HARDLINK read-only al
1061    //    store ⇒ el packager no puede abrirlo para escribir (EACCES): romper el hardlink primero.
1062    let _ = std::fs::remove_file(&seed_path);
1063    let mut cmd = Command::new(packager_bin);
1064    cmd.arg("--seed")
1065        .arg(&seed_in)
1066        .arg("--rootkey")
1067        .arg(&rootkey_path)
1068        .arg("--seed-out")
1069        .arg(&seed_path);
1070    for (label, path) in &bins {
1071        cmd.arg("--bin").arg(format!("{label}={}", path.display()));
1072    }
1073    let out = cmd
1074        .output()
1075        .map_err(|e| Error::Other(format!("spawn arje-packager: {e}")))?;
1076    if !out.status.success() {
1077        return Err(Error::Other(format!(
1078            "arje-packager falló (exit {:?}): {}",
1079            out.status.code(),
1080            String::from_utf8_lossy(&out.stderr).trim()
1081        )));
1082    }
1083
1084    // 5b) ANCLA SOBERANA EXTERNA (hardening #3): escribir la pubkey de la rootkey en /etc/arje/rootkey.pub
1085    //     (32 bytes raw). El gate (`ancla_externa()` en attest_gate.rs) la prefiere sobre la
1086    //     `attest_rootkey` declarada en el seed ⇒ un seed reescrito con OTRA rootkey cae en AutorNoConfiable
1087    //     (las concesiones no las firmó el ancla). Cierra el hueco que el WARN "sin ancla soberana externa"
1088    //     señala. La pubkey se LEE del seed ya firmado (`attest_rootkey`, lo que el packager computó de
1089    //     nuestra rootkey privada) ⇒ cero criptografía nueva en takana.
1090    let signed_raw = std::fs::read_to_string(&seed_path)
1091        .map_err(|e| Error::Other(format!("releer seed firmado: {e}")))?;
1092    let signed: serde_json::Value = serde_json::from_str(&signed_raw)
1093        .map_err(|e| Error::Other(format!("seed firmado inválido: {e}")))?;
1094    let pubkey: Vec<u8> = signed
1095        .get("attest_rootkey")
1096        .and_then(|v| v.as_array())
1097        .map(|a| a.iter().filter_map(|x| x.as_u64().map(|n| n as u8)).collect::<Vec<u8>>())
1098        .ok_or_else(|| Error::Other("seed firmado sin attest_rootkey de 32 bytes".into()))?;
1099    if pubkey.len() != 32 {
1100        return Err(Error::Other(format!(
1101            "attest_rootkey del seed firmado no es de 32 bytes (es {})",
1102            pubkey.len()
1103        )));
1104    }
1105    std::fs::create_dir_all(staging.join("etc/arje"))?;
1106    std::fs::write(staging.join("etc/arje/rootkey.pub"), &pubkey)?;
1107
1108    // 6) regenerar /ente/attest.json: el arje-zero cambió ⇒ su BLAKE3 también, así que el manifiesto de
1109    //    auto-verificación de takana (`takana attest`) debe casar el árbol nuevo. El producto base lo
1110    //    trae hidratado (hardlink read-only): romperlo antes de reescribir.
1111    let attest = build_attestation(staging)?;
1112    let attest_json = serde_json::to_string_pretty(&attest)
1113        .map_err(|e| Error::Other(format!("serializar attest.json: {e}")))?;
1114    let attest_path = staging.join("ente/attest.json");
1115    let _ = std::fs::remove_file(&attest_path);
1116    std::fs::write(&attest_path, attest_json)?;
1117
1118    // 7) limpiar el tmp de build (no debe quedar en el árbol sellado).
1119    let _ = std::fs::remove_dir_all(&tmp);
1120    Ok(())
1121}
1122
1123/// **Producto atestado** — toma el rootfs base verificado (`base`, el `stage1-rootfs` del 4/4), sella el
1124/// `product-rootfs` (vía [`product`], idempotente) y produce el `product-attested-rootfs`: init CON gate
1125/// + seed FIRMADA, listo para que el gate de arje lo verifique al boot (A2). Construye/cachea las recetas
1126/// de la capa de atestación (`arje-zero-attest`, `arje-packager`). Idempotente. El núcleo y el producto
1127/// base quedan intactos (Separación Mecanismo/Política): el atestado es un sello APARTE.
1128pub fn product_attested(
1129    base: &RootfsHash,
1130    base_cfg: &takana_build::BuildConfig,
1131    recipes_dir: &Path,
1132    store: &Store,
1133    cfg: &AttestConfig,
1134) -> Result<RootfsHash> {
1135    // 0) el producto base (idempotente: si ya está sellado, sale cacheado).
1136    let base_product = product(base, base_cfg, recipes_dir, store)?;
1137
1138    // 1) recetas de la capa de atestación (idempotentes/cacheadas por el lab).
1139    let gated = build_components(&[GATED_INIT_COMPONENT], recipes_dir, base_cfg, store)?
1140        .pop()
1141        .map(|(_, h)| h)
1142        .ok_or_else(|| Error::Other("build de arje-zero-attest no devolvió hash".into()))?;
1143    let packager = build_components(&[PACKAGER_COMPONENT], recipes_dir, base_cfg, store)?
1144        .pop()
1145        .map(|(_, h)| h)
1146        .ok_or_else(|| Error::Other("build de arje-packager no devolvió hash".into()))?;
1147
1148    let gated_bin = store.path_of(&gated, GATED_INIT_COMPONENT).join("usr/bin/arje-zero");
1149    let packager_bin = store.path_of(&packager, PACKAGER_COMPONENT).join("usr/bin/arje-packager");
1150    if !gated_bin.is_file() {
1151        return Err(Error::Other(format!(
1152            "arje-zero (con gate) ausente en {}",
1153            gated_bin.display()
1154        )));
1155    }
1156    if !packager_bin.is_file() {
1157        return Err(Error::Other(format!(
1158            "arje-packager ausente en {}",
1159            packager_bin.display()
1160        )));
1161    }
1162
1163    // 2) identidad + ensamblado + sellado (si no estaba ya).
1164    let phash = product_attested_hash(&base_product, &gated, &packager, cfg);
1165    let store_name = "product-attested-rootfs";
1166    if !store.has(&phash, store_name) {
1167        let staging = store
1168            .root()
1169            .join(".bootstrap-tmp")
1170            .join(phash.store_dir_name(store_name));
1171        let _ = std::fs::remove_dir_all(&staging);
1172        std::fs::create_dir_all(&staging)?;
1173        let result = (|| -> Result<()> {
1174            assemble_attested_product_rootfs(
1175                store,
1176                &base_product,
1177                &gated_bin,
1178                &packager_bin,
1179                cfg,
1180                &staging,
1181            )?;
1182            store.seal(&staging, &phash, store_name)?;
1183            Ok(())
1184        })();
1185        let _ = std::fs::remove_dir_all(&staging);
1186        result?;
1187        tracing::info!(hash = %phash, "product: rootfs ATESTADO (init con gate + seed firmada) sellado");
1188    } else {
1189        tracing::info!(hash = %phash, "product: rootfs atestado ya sellado (idempotente)");
1190    }
1191    Ok(phash)
1192}
1193
1194// ── Stage 2: rebuild nativo + verificación de auto-alojamiento (SDD 11 §3) ──────────────────────
1195//
1196// El corte del cordón: dentro del rootfs de Stage 1 se reconstruyen Stage 0' y Stage 1' usando
1197// **sólo** las herramientas de Stage 1, y se compara el **content-hash** (`of_tree`, no el hash
1198// input-addressed del store) de stage1 vs stage1'. Iguales ⇒ el sistema se compila a sí mismo bit
1199// a bit (auto-alojado y reproducible). El rebuild **dentro del rootfs** (bwrap/chroot/VM) corre en
1200// la VM destino; lo que vive en takana es la **referencia** (content-hash de stage1) y la
1201// comparación. Ver `docs/runbooks/stage1-vm-boot.md`.
1202
1203/// Veredicto de la verificación de auto-alojamiento de Stage 2.
1204#[derive(Debug, Clone, PartialEq, Eq, serde::Serialize, serde::Deserialize)]
1205pub enum Reproducibility {
1206    /// stage1 y stage1' tienen el mismo content-hash: el sistema se reconstruye bit-idéntico.
1207    Reproducible,
1208    /// Difieren: hay no-determinismo que cazar ([SDD 09 §2](../../docs/09-trust-model.md)).
1209    Divergent { stage1: ArtifactHash, rebuilt: ArtifactHash },
1210    /// El rebuild nativo dentro del rootfs aún no corrió (se hace en la VM); sólo se ancló el
1211    /// content-hash de stage1 como referencia a reproducir.
1212    RebuildPending,
1213}
1214
1215/// Reporte de Stage 2: la referencia (content-hash de stage1) y el veredicto.
1216#[derive(Debug, Clone, PartialEq, Eq, serde::Serialize, serde::Deserialize)]
1217pub struct VerifyReport {
1218    /// Hash input-addressed del rootfs en el store (el que devolvió `stage1`).
1219    pub stage1_rootfs: RootfsHash,
1220    /// Content-hash (`of_tree`) de stage1: los bytes reales que stage1' debe reproducir.
1221    pub stage1_content: ArtifactHash,
1222    pub verdict: Reproducibility,
1223}
1224
1225/// Content-hash (`ArtifactHash::of_tree`) del artefacto sellado `(hash, name)` en el store.
1226pub fn artifact_content_hash(
1227    store: &Store,
1228    hash: &ArtifactHash,
1229    name: &str,
1230) -> Result<ArtifactHash> {
1231    let dir = store.path_of(hash, name);
1232    if !dir.is_dir() {
1233        return Err(Error::Other(format!(
1234            "artefacto '{name}' no sellado en {}",
1235            dir.display()
1236        )));
1237    }
1238    ArtifactHash::of_tree(&dir).map_err(Error::Io)
1239}
1240
1241/// **Stage 2** (referencia + manifiesto). Ancla el **content-hash** del rootfs de Stage 1 como la
1242/// referencia a reproducir y lo anota en el manifiesto (línea stage 2). El rebuild nativo DENTRO
1243/// del rootfs corre en la VM (SDD 11 §3); cuando produzca stage1', se compara con [`verify_against`].
1244pub fn stage2(stage1: &RootfsHash, store: &Store) -> Result<VerifyReport> {
1245    let content = artifact_content_hash(store, stage1, "stage1-rootfs")?;
1246    manifest::append_line(
1247        store,
1248        StageEntry {
1249            stage: 2,
1250            recipe_hash: None,
1251            artifact_hash: content.clone(),
1252            seed_hash: None,
1253            ts: now_unix(),
1254        },
1255    )?;
1256    tracing::info!(content = %content, "stage2: content-hash de stage1 anclado (referencia)");
1257    Ok(VerifyReport {
1258        stage1_rootfs: stage1.clone(),
1259        stage1_content: content,
1260        verdict: Reproducibility::RebuildPending,
1261    })
1262}
1263
1264/// Compara la referencia (`report.stage1_content`) con el content-hash de un rebuild stage1'
1265/// producido en la VM, y emite el veredicto de reproducibilidad.
1266pub fn verify_against(report: &VerifyReport, rebuilt_content: ArtifactHash) -> Reproducibility {
1267    if report.stage1_content == rebuilt_content {
1268        Reproducibility::Reproducible
1269    } else {
1270        Reproducibility::Divergent {
1271            stage1: report.stage1_content.clone(),
1272            rebuilt: rebuilt_content,
1273        }
1274    }
1275}
1276
1277/// Reporte de [`all`]: los tres hashes de las etapas + el manifiesto ya poblado. El veredicto de
1278/// auto-alojamiento NO va aquí (es `RebuildPending` en el host): el rebuild nativo que lo decide corre
1279/// **dentro** del rootfs, en la VM destino (`scripts/selfhost-verify.sh`, runbook §8).
1280#[derive(Debug, Clone)]
1281pub struct AllReport {
1282    pub seed_hash: ArtifactHash,
1283    pub stage1_rootfs: RootfsHash,
1284    pub stage2: VerifyReport,
1285    pub manifest: BootstrapManifest,
1286}
1287
1288/// **`bootstrap --all`** ([SDD 11 §5](../../docs/11-bootstrap.md)) — encadena las tres etapas en una
1289/// sola corrida del host: ingiere la semilla (Stage 0), construye y sella el rootfs del userland mínimo
1290/// (Stage 1) y ancla su content-hash como referencia de reproducibilidad (Stage 2). Devuelve los tres
1291/// hashes y el [`BootstrapManifest`] (`bootstrap.json`) resultante: el embrión del log de transparencia
1292/// ([SDD 11 §4](../../docs/11-bootstrap.md)), listo para publicar.
1293///
1294/// El **corte del cordón** (el veredicto `✓ REPRODUCIBLE`) no se emite aquí: el rebuild nativo que lo
1295/// decide corre con las herramientas de **dentro** del rootfs (en la VM), no las del host. `all` deja la
1296/// referencia anclada (`stage2.stage1_content`) lista para que ese rebuild la compare vía `stage2
1297/// --verify` (ver [`verify_against`] y `scripts/selfhost-verify.sh`).
1298///
1299/// Idempotente componiendo idempotencias: cada etapa no rehace lo ya sellado ni duplica su línea de
1300/// manifiesto, así que re-correr `all` sobre un store ya poblado sólo recolecta los hashes.
1301pub fn all(
1302    seed: &SeedSpec,
1303    recipes_dir: &Path,
1304    base_cfg: &takana_build::BuildConfig,
1305    store: &Store,
1306) -> Result<AllReport> {
1307    let seed_hash = stage0(seed, store)?;
1308    let stage1_spec = Stage1Spec {
1309        seed_hash: seed_hash.clone(),
1310        seed_kind: seed.kind,
1311        recipes_dir: recipes_dir.to_path_buf(),
1312    };
1313    let stage1_rootfs = stage1(&stage1_spec, base_cfg, store)?;
1314    let stage2 = stage2(&stage1_rootfs, store)?;
1315    let manifest = BootstrapManifest::load(store)?;
1316    Ok(AllReport { seed_hash, stage1_rootfs, stage2, manifest })
1317}
1318
1319// ── Builder rootfs: el camino al rebuild in-rootfs (Stage 2 pleno, SDD 11 §7) ────────────────────
1320//
1321// El Stage 1 que booteamos es un *runtime* (musl+busybox+hammerd+arje-zero): no trae compilador, no
1322// puede reconstruirse. El **builder rootfs** es Stage 1 **+ el toolchain adentro** — la imagen que,
1323// booteada en la VM, corre `takana bootstrap stage1` dentro de sí misma y produce `stage1'`. Compara
1324// su content-hash con la referencia anclada por `stage2`: iguales ⇒ auto-alojamiento bit a bit.
1325//
1326// Variante (a) **pragmática** (SDD 11 §7.2): el toolchain entra desde Alpine (no construido por
1327// takana). Demuestra el *mecanismo* y cierra la reproducibilidad end-to-end; no es aún el
1328// auto-alojamiento *puro* (variante b: el toolchain construido por takana desde fuente, incremental).
1329//
1330// El builder NO se sella en el store (su /toolchain Alpine no es content-addressed y abultaría): se
1331// ensambla en un `out_dir` que se empaqueta como initramfs (ver runbook §8c). Su identidad sí es
1332// reproducible: un `ArtifactHash` *lógico* de sus insumos (stage1 + semilla + recetas + binario +
1333// tag del toolchain + el propio driver), apto para el log de transparencia.
1334
1335/// Driver embebido en `/usr/bin/rebuild-stage1`: corre el rebuild dentro del propio rootfs. Lee
1336/// `/etc/hammer/rebuild.env` (`SEED_HASH`/`SEED_KIND`/`REF_CONTENT`), apunta el sandbox de build al
1337/// toolchain de adentro (`/toolchain`) y compara `stage1'` contra la referencia. Si `REF_CONTENT` va
1338/// vacío, sólo imprime el content-hash de `stage1'` para comparación manual.
1339///
1340/// El toolchain es Alpine **dinámico**: sus binarios (bwrap/git/curl/cargo/make) no corren desde el
1341/// userland Stage 1, que es **estático** (no hay loader en `/lib`). El driver instala un *shim* del
1342/// loader musl (`cp` a `/lib`) + `LD_LIBRARY_PATH`/`PATH` al toolchain, y a partir de ahí esas
1343/// herramientas son ejecutables; el `takana` estático vive en `/usr/bin/hammer`. El sandbox de build
1344/// (bwrap) anida en `/toolchain`. (El shim sólo se usa para *invocar* el toolchain desde fuera del
1345/// sandbox: fetch git/tarball; dentro del sandbox el loader está en su sitio.)
1346const REBUILD_DRIVER: &str = r#"#!/bin/sh
1347# rebuild-stage1 — rebuild de Stage 1 con el toolchain del propio rootfs (auto-alojamiento, SDD 11 §7).
1348# Booteado en la VM (builder rootfs), reconstruye stage1' usando SÓLO las herramientas de adentro y
1349# compara su content-hash con la referencia que `hammer bootstrap stage2` ancló afuera.
1350set -eu
1351. /etc/hammer/rebuild.env            # SEED_HASH, SEED_KIND, REF_CONTENT (REF_CONTENT puede ir vacío)
1352# Shim del loader musl: deja correr los binarios *dinámicos* del toolchain (bwrap/git/curl/cargo/make)
1353# desde el root Stage 1 estático. Usa el busybox estático (rutas absolutas) ANTES de tocar el PATH.
1354/bin/mkdir -p /lib
1355/bin/cp -f /toolchain/lib/ld-musl-x86_64.so.1 /lib/ld-musl-x86_64.so.1
1356export LD_LIBRARY_PATH=/toolchain/lib:/toolchain/usr/lib
1357export PATH=/toolchain/usr/bin:/toolchain/usr/sbin:/toolchain/bin:/toolchain/sbin:/usr/bin:/bin:/sbin
1358# overlay es módulo (CONFIG_OVERLAY_FS=m) y el initramfs arranca sin módulos cargados: el sandbox de
1359# build (bwrap --tmp-overlay) lo exige ⇒ ENODEV sin esto. Lo cargamos del toolchain (insmod=kmod,
1360# vermagic del kernel destino). Idempotente: si ya está, insmod falla y lo ignoramos.
1361insmod /toolchain/lib/overlay.ko 2>/dev/null || true
1362# Red para el vendoring de crates (los componentes Rust hacen `cargo vendor`, que baja de crates.io).
1363# NIC e1000 (qemu user-mode 10.0.2.0/24, módulo del kernel) + config estática + DNS de slirp. La VM
1364# sin NIC ⇒ todo esto es no-op (los componentes C no necesitan red). `ip` sale del toolchain (shim).
1365insmod /toolchain/lib/e1000.ko 2>/dev/null || true
1366if ip link show eth0 >/dev/null 2>&1; then
1367    ip link set eth0 up
1368    ip addr add 10.0.2.15/24 dev eth0 2>/dev/null || true
1369    ip route add default via 10.0.2.2 2>/dev/null || true
1370    printf 'nameserver 10.0.2.3\n' > /etc/resolv.conf
1371    echo ">> red eth0: $(ip -4 -o addr show eth0 2>/dev/null | grep -o 'inet [0-9.]*' || echo down)"
1372    # CA bundle para el TLS de cargo/curl/git (crates.io). El toolchain trae el bundle de Alpine;
1373    # lo exponemos en la ruta estándar y por env (cargo usa libcurl/openssl según el build).
1374    mkdir -p /etc/ssl/certs
1375    cp -f /toolchain/etc/ssl/certs/ca-certificates.crt /etc/ssl/certs/ca-certificates.crt 2>/dev/null || true
1376    export SSL_CERT_FILE=/etc/ssl/certs/ca-certificates.crt
1377    export CURL_CA_BUNDLE=/etc/ssl/certs/ca-certificates.crt
1378    export GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt
1379fi
1380# NOTA: el initramfs debe empaquetarse con `cpio --owner=root:root`. Si los ficheros del toolchain
1381# quedan con el uid del que armó el builder (p. ej. 1000), ese uid no está mapeado en el userns de
1382# bwrap (que mapea sólo 0→0) y el copy-up de overlay falla con EACCES al crear /opt/zig. Ver §8c.
1383# Se exportan LAS DOS formas a propósito (ADR 0016): el binario que corre acá adentro es
1384# `/usr/bin/hammer`, que puede ser el pinado del baseline y sólo conoce los nombres viejos.
1385# Un lector nuevo prefiere TAKANA_*; uno viejo usa HAMMER_*. Las dos se retiran en la etapa 6.
1386export TAKANA_ROOTFS=/toolchain      # el sandbox de build: el toolchain (variante a, desde Alpine)
1387export TAKANA_WORK=/work
1388export TAKANA_CACHE=
1389export HAMMER_ROOTFS=/toolchain
1390export HAMMER_WORK=/work
1391export HAMMER_CACHE=
1392echo ">> rebuild stage1 (toolchain in-rootfs, semilla $SEED_HASH)"
1393PRIME=$(/usr/bin/hammer --store /store bootstrap stage1 --seed-hash "$SEED_HASH" --seed "$SEED_KIND" --recipes /etc/hammer/recipes)
1394echo ">> stage1' = $PRIME"
1395if [ -n "${REF_CONTENT:-}" ]; then
1396    /usr/bin/hammer --store /store bootstrap stage2 --rootfs "$PRIME" --verify "$REF_CONTENT"
1397else
1398    /usr/bin/hammer --store /store bootstrap stage2 --rootfs "$PRIME"
1399fi
1400"#;
1401
1402/// Qué ensamblar en el builder rootfs (variante a, SDD 11 §7).
1403#[derive(Debug, Clone)]
1404pub struct BuilderSpec {
1405    /// Stage 1 rootfs ya sellado (nombre store `stage1-rootfs`) que el builder extiende — la base
1406    /// runtime sobre la que se hidrata el toolchain.
1407    pub stage1_rootfs: RootfsHash,
1408    /// Semilla zig sellada (Stage 0). Se replica en el `/store` del builder para que el `takana`
1409    /// de adentro resuelva el toolchain por hash, igual que afuera.
1410    pub seed_hash: ArtifactHash,
1411    pub seed_kind: SeedKind,
1412    /// Recetas a embeber en `/etc/hammer/recipes` (las que `stage1` rehidrata el rebuild).
1413    pub recipes_dir: PathBuf,
1414    /// Binario `takana` estático → `/usr/bin/hammer`. Variante (a): el del host; (b): el que takana
1415    /// construye desde fuente.
1416    pub hammer_bin: PathBuf,
1417    /// Toolchain del sandbox de build → `/toolchain` (variante a: el rootfs Alpine de `.dev-fs`).
1418    pub toolchain_src: PathBuf,
1419    /// Etiqueta de identidad del toolchain (p. ej. `alpine-3.23.4`) — entra al hash lógico del
1420    /// builder sin tener que hashear el árbol Alpine entero.
1421    pub toolchain_tag: String,
1422    /// Referencia `of_tree(stage1)` anclada por `stage2`, embebida para que el rebuild se
1423    /// auto-verifique. `None` ⇒ el driver sólo imprime el content-hash de `stage1'`.
1424    pub ref_content: Option<ArtifactHash>,
1425    /// Caché de fuentes (`work/repos`, `work/tarballs`) → `/work`, para un rebuild **offline** y
1426    /// determinista en la VM. `None` ⇒ el rebuild fetchea por red (la seed card trae `networking: full`).
1427    pub work_cache: Option<PathBuf>,
1428    /// Piezas del toolchain **construidas por takana desde fuente** (variante b, SDD 11 §7.2b) que se
1429    /// montan sobre el path Alpine en `/toolchain`. Vacío ⇒ variante (a) pura-Alpine. Cada swap entra
1430    /// al hash lógico del builder: la procedencia deja de ser "todo Alpine" y se vuelve auditable.
1431    pub swaps: Vec<ToolchainSwap>,
1432}
1433
1434/// Una herramienta del toolchain reemplazada por su build takana desde fuente (SDD 11 §7.2b). El
1435/// binario sellado se monta sobre `rel_path` dentro de `/toolchain`, pisando la versión Alpine; su
1436/// hash sellado se ancla en el hash lógico del builder para que el swap sea reproducible y auditable.
1437#[derive(Debug, Clone)]
1438pub struct ToolchainSwap {
1439    /// Nombre del componente/receta (p. ej. `make`); también el nombre store del artefacto sellado.
1440    pub name: String,
1441    /// `of_tree` del build takana (el artefacto sellado del que sale el binario).
1442    pub artifact: ArtifactHash,
1443    /// Path relativo del binario dentro del artefacto **y** dentro de `/toolchain` (p. ej.
1444    /// `usr/bin/make`). El mismo en origen y destino: el layout del artefacto imita al de Alpine.
1445    pub rel_path: String,
1446}
1447
1448/// Resultado de [`builder_rootfs`]: la identidad lógica del builder y dónde quedó ensamblado.
1449#[derive(Debug, Clone)]
1450pub struct BuilderReport {
1451    pub builder_hash: ArtifactHash,
1452    pub out_dir: PathBuf,
1453}
1454
1455/// Hash **lógico** del builder: función pura de sus insumos. No es `of_tree` del árbol (el toolchain
1456/// Alpine no es content-addressed); identifica de forma reproducible *de qué* se ensambló el builder.
1457fn builder_hash(
1458    stage1: &RootfsHash,
1459    seed: &ArtifactHash,
1460    toolchain_tag: &str,
1461    recipes_digest: &str,
1462    hammer_digest: &str,
1463    swaps_digest: &str,
1464) -> ArtifactHash {
1465    ArtifactHash::of_inputs(&[
1466        b"hammer-builder-rootfs-v1",
1467        stage1.as_str().as_bytes(),
1468        seed.as_str().as_bytes(),
1469        toolchain_tag.as_bytes(),
1470        recipes_digest.as_bytes(),
1471        hammer_digest.as_bytes(),
1472        swaps_digest.as_bytes(),
1473        REBUILD_DRIVER.as_bytes(),
1474    ])
1475}
1476
1477/// Digest de los swaps del toolchain (variante b): sha256 sobre los `(name, artifact, rel_path)` en
1478/// orden por nombre. Sin swaps ⇒ string vacío, así el hash lógico de un builder pura-Alpine no cambia
1479/// respecto a antes de existir el mecanismo (compatibilidad hacia atrás de la línea de manifiesto).
1480fn swaps_digest(swaps: &[ToolchainSwap]) -> String {
1481    if swaps.is_empty() {
1482        return String::new();
1483    }
1484    use sha2::{Digest, Sha256};
1485    let mut sorted: Vec<&ToolchainSwap> = swaps.iter().collect();
1486    sorted.sort_by(|a, b| a.name.cmp(&b.name));
1487    let mut h = Sha256::new();
1488    for s in sorted {
1489        for field in [s.name.as_str(), s.artifact.as_str(), s.rel_path.as_str()] {
1490            h.update(field.as_bytes());
1491            h.update([0u8]);
1492        }
1493    }
1494    hex::encode(h.finalize())
1495}
1496
1497/// sha256 hex del contenido de un archivo.
1498fn sha256_file(path: &Path) -> Result<String> {
1499    use sha2::{Digest, Sha256};
1500    let bytes = std::fs::read(path)?;
1501    let mut h = Sha256::new();
1502    h.update(&bytes);
1503    Ok(hex::encode(h.finalize()))
1504}
1505
1506/// Digest de un directorio de recetas: sha256 sobre los `(nombre, bytes)` de cada `*.toml` en orden.
1507/// Cambiar una receta, añadir o quitar una, re-hashea el builder.
1508fn recipes_digest(dir: &Path) -> Result<String> {
1509    use sha2::{Digest, Sha256};
1510    let mut tomls: Vec<PathBuf> = std::fs::read_dir(dir)?
1511        .filter_map(|e| e.ok().map(|e| e.path()))
1512        .filter(|p| p.extension().and_then(|x| x.to_str()) == Some("toml"))
1513        .collect();
1514    tomls.sort();
1515    let mut h = Sha256::new();
1516    for p in &tomls {
1517        let name = p.file_name().and_then(|n| n.to_str()).unwrap_or_default();
1518        h.update(name.as_bytes());
1519        h.update([0u8]);
1520        h.update(std::fs::read(p)?);
1521        h.update([0u8]);
1522    }
1523    Ok(hex::encode(h.finalize()))
1524}
1525
1526/// Copia recursiva `src`→`dst` preferendo **hardlink** (mismo filesystem, sin coste de bytes) y
1527/// cayendo a copia cuando cruza filesystems. Recrea symlinks tal cual. No hace `chmod`: el builder
1528/// no se sella, así que los hardlinks no deben tocar permisos del origen (p. ej. el `.dev-fs`).
1529///
1530/// `skip` es un path a no descender: imprescindible cuando `dst` vive **dentro** de `src` (p. ej.
1531/// `--work-cache work --out work/builder-rootfs`), donde copiar `src` ciegamente se tragaría el
1532/// propio destino en una recursión infinita. Se compara por path canónico.
1533fn link_or_copy_tree(src: &Path, dst: &Path, skip: Option<&Path>) -> Result<()> {
1534    if let Some(skip) = skip {
1535        if src.canonicalize().ok().as_deref() == Some(skip) {
1536            return Ok(());
1537        }
1538    }
1539    let meta = std::fs::symlink_metadata(src)?;
1540    let ft = meta.file_type();
1541    if ft.is_symlink() {
1542        let target = std::fs::read_link(src)?;
1543        let _ = std::fs::remove_file(dst);
1544        std::os::unix::fs::symlink(target, dst)?;
1545    } else if ft.is_dir() {
1546        std::fs::create_dir_all(dst)?;
1547        for entry in std::fs::read_dir(src)? {
1548            let entry = entry?;
1549            link_or_copy_tree(&entry.path(), &dst.join(entry.file_name()), skip)?;
1550        }
1551    } else if ft.is_file() && std::fs::hard_link(src, dst).is_err() {
1552        std::fs::copy(src, dst)?;
1553    }
1554    Ok(())
1555}
1556
1557/// Ensambla el árbol del builder en `staging` (la pieza testeable, sin VM ni Alpine real): hidrata el
1558/// Stage 1 rootfs como base, monta el toolchain en `/toolchain`, replica la semilla en `/store`,
1559/// instala `takana` + recetas + el driver `rebuild-stage1` y, opcionalmente, la caché de fuentes.
1560fn assemble_builder(spec: &BuilderSpec, store: &Store, staging: &Path) -> Result<()> {
1561    // 1) Base: el Stage 1 rootfs sellado (read-only en el store ⇒ hardlinks seguros).
1562    let stage1_dir = store.path_of(&spec.stage1_rootfs, "stage1-rootfs");
1563    if !stage1_dir.is_dir() {
1564        return Err(Error::Other(format!(
1565            "stage1-rootfs '{}' no sellado en {}; corre `hammer bootstrap stage1` primero",
1566            spec.stage1_rootfs,
1567            stage1_dir.display()
1568        )));
1569    }
1570    takana_build::run_hydrate(&stage1_dir, staging, takana_core::LinkMode::Static, None)?;
1571
1572    // 2) Esqueleto del builder: el sandbox de build (/toolchain), el store, el work y la config.
1573    for d in ["toolchain", "store", "work", "usr/bin", "etc/hammer/recipes"] {
1574        std::fs::create_dir_all(staging.join(d))?;
1575    }
1576
1577    // 3) Toolchain → /toolchain (variante a: el rootfs Alpine de .dev-fs).
1578    if !spec.toolchain_src.is_dir() {
1579        return Err(Error::Other(format!(
1580            "toolchain '{}' no es un directorio (¿corriste bootstrap-devfs.sh?)",
1581            spec.toolchain_src.display()
1582        )));
1583    }
1584    link_or_copy_tree(&spec.toolchain_src, &staging.join("toolchain"), None)?;
1585
1586    // 3b) Swaps de variante (b): piezas construidas por takana desde fuente pisan su versión Alpine
1587    //     en /toolchain. Un `rel_path` puede apuntar a un BINARIO (estático musl ⇒ corre sin el shim
1588    //     del loader; p.ej. make, busybox) o a un DIRECTORIO (un árbol de headers; p.ej. los
1589    //     `usr/include/{linux,asm,…}` de linux-headers). En el caso directorio se reemplaza el árbol
1590    //     entero (remove + copy) para no dejar archivos Alpine huérfanos.
1591    for swap in &spec.swaps {
1592        let art_dir = store.path_of(&swap.artifact, &swap.name);
1593        let src = art_dir.join(&swap.rel_path);
1594        let dst = staging.join("toolchain").join(&swap.rel_path);
1595        if src.is_dir() {
1596            let _ = std::fs::remove_dir_all(&dst);
1597            std::fs::create_dir_all(&dst)?;
1598            link_or_copy_tree(&src, &dst, None)?;
1599        } else if src.is_file() {
1600            if let Some(parent) = dst.parent() {
1601                std::fs::create_dir_all(parent)?;
1602            }
1603            let _ = std::fs::remove_file(&dst);
1604            if std::fs::hard_link(&src, &dst).is_err() {
1605                std::fs::copy(&src, &dst)?;
1606            }
1607            set_executable(&dst)?;
1608        } else {
1609            return Err(Error::Other(format!(
1610                "swap '{}': '{}' no existe (ni archivo ni directorio) en el artefacto sellado {} ({})",
1611                swap.name,
1612                swap.rel_path,
1613                swap.artifact,
1614                src.display(),
1615            )));
1616        }
1617    }
1618
1619    // 4) Semilla → /store/<hash>-seed-<kind>, tal cual está sellada afuera, para que el `takana` de
1620    //    adentro resuelva el toolchain por hash sin re-ingerirla.
1621    let seed_name = format!("seed-{}", spec.seed_kind.as_str());
1622    let seed_dir = store.path_of(&spec.seed_hash, &seed_name);
1623    if !seed_dir.is_dir() {
1624        return Err(Error::Other(format!(
1625            "semilla '{}' no sellada en {}; corre `hammer bootstrap stage0` primero",
1626            seed_name,
1627            seed_dir.display()
1628        )));
1629    }
1630    link_or_copy_tree(
1631        &seed_dir,
1632        &staging.join("store").join(spec.seed_hash.store_dir_name(&seed_name)),
1633        None,
1634    )?;
1635
1636    // 5) Binario takana → /usr/bin/hammer (+x).
1637    let hammer_dst = staging.join("usr/bin/hammer");
1638    if std::fs::hard_link(&spec.hammer_bin, &hammer_dst).is_err() {
1639        std::fs::copy(&spec.hammer_bin, &hammer_dst)?;
1640    }
1641    set_executable(&hammer_dst)?;
1642
1643    // 6) Recetas → /etc/hammer/recipes.
1644    for entry in std::fs::read_dir(&spec.recipes_dir)? {
1645        let path = entry?.path();
1646        if path.extension().and_then(|x| x.to_str()) == Some("toml") {
1647            let name = path.file_name().unwrap();
1648            std::fs::copy(&path, staging.join("etc/hammer/recipes").join(name))?;
1649        }
1650    }
1651
1652    // 7) Caché de fetch → /work (opcional, para rebuild offline). Sólo `repos/` (mirrors git) y
1653    //    `tarballs/` (descargas verificadas): de ahí `fetch` rematerializa los árboles fuente. NO se
1654    //    copia `sources/` (los árboles ya materializados) — es regenerable y pesado (varios GB). El
1655    //    `skip = staging` es defensa extra contra `--work-cache work --out work/builder-rootfs`.
1656    if let Some(cache) = &spec.work_cache {
1657        let skip = staging.canonicalize().ok();
1658        for sub in ["repos", "tarballs"] {
1659            let src = cache.join(sub);
1660            if src.is_dir() {
1661                link_or_copy_tree(&src, &staging.join("work").join(sub), skip.as_deref())?;
1662            }
1663        }
1664    }
1665
1666    // 8) Config del rebuild + driver. REF_CONTENT vacío si no hay referencia (rebuild informativo).
1667    let ref_content = spec.ref_content.as_ref().map(|h| h.as_str()).unwrap_or("");
1668    let env = format!(
1669        "SEED_HASH={}\nSEED_KIND={}\nREF_CONTENT={}\n",
1670        spec.seed_hash,
1671        spec.seed_kind.as_str(),
1672        ref_content,
1673    );
1674    std::fs::write(staging.join("etc/hammer/rebuild.env"), env)?;
1675    let driver = staging.join("usr/bin/rebuild-stage1");
1676    std::fs::write(&driver, REBUILD_DRIVER)?;
1677    set_executable(&driver)?;
1678    Ok(())
1679}
1680
1681/// Marca un archivo como ejecutable (0o755).
1682fn set_executable(path: &Path) -> Result<()> {
1683    use std::os::unix::fs::PermissionsExt;
1684    std::fs::set_permissions(path, std::fs::Permissions::from_mode(0o755))?;
1685    Ok(())
1686}
1687
1688/// **Builder rootfs** (SDD 11 §7) — ensambla en `out_dir` la imagen Stage 1 + toolchain que, booteada
1689/// en la VM, reconstruye `stage1'` con sus propias herramientas (auto-alojamiento). Devuelve el hash
1690/// lógico del builder y anota la línea del manifiesto. `out_dir` se reensambla limpio en cada corrida.
1691pub fn builder_rootfs(spec: &BuilderSpec, store: &Store, out_dir: &Path) -> Result<BuilderReport> {
1692    // Hash lógico (insumos), independiente del ensamblado en disco.
1693    let rdigest = recipes_digest(&spec.recipes_dir)?;
1694    let hdigest = sha256_file(&spec.hammer_bin)?;
1695    let sdigest = swaps_digest(&spec.swaps);
1696    let bhash = builder_hash(
1697        &spec.stage1_rootfs,
1698        &spec.seed_hash,
1699        &spec.toolchain_tag,
1700        &rdigest,
1701        &hdigest,
1702        &sdigest,
1703    );
1704
1705    let _ = std::fs::remove_dir_all(out_dir);
1706    std::fs::create_dir_all(out_dir)?;
1707    assemble_builder(spec, store, out_dir)?;
1708
1709    manifest::append_line(
1710        store,
1711        StageEntry {
1712            stage: 2,
1713            recipe_hash: None,
1714            artifact_hash: bhash.clone(),
1715            seed_hash: Some(spec.seed_hash.clone()),
1716            ts: now_unix(),
1717        },
1718    )?;
1719    tracing::info!(hash = %bhash, out = %out_dir.display(), "builder: rootfs ensamblado");
1720    Ok(BuilderReport { builder_hash: bhash, out_dir: out_dir.to_path_buf() })
1721}
1722
1723/// **Stage 0** — ingiere la semilla al store y devuelve su `ArtifactHash`.
1724///
1725/// Idempotente: si la semilla ya está sellada (mismo hash de identidad), no la vuelve a
1726/// descargar. El sha256 se verifica **antes** de extraer, así que un tarball envenenado nunca
1727/// llega al árbol que se sella.
1728pub fn stage0(seed: &SeedSpec, store: &Store) -> Result<ArtifactHash> {
1729    let h = seed.seed_hash();
1730    let name = seed.store_name();
1731    if store.has(&h, &name) {
1732        tracing::info!(hash = %h, seed = %seed.kind.as_str(), "stage0: semilla ya sellada (idempotente)");
1733    } else {
1734        // Staging bajo el root del store ⇒ mismo filesystem que el destino, para que `seal` pueda
1735        // hacer el rename atómico.
1736        let work = store.root().join(".bootstrap-tmp").join(h.store_dir_name(&name));
1737        let _ = std::fs::remove_dir_all(&work);
1738        std::fs::create_dir_all(&work)?;
1739
1740        // El cuerpo fallible va aparte para limpiar el staging pase lo que pase (un sha erróneo
1741        // no debe dejar el tarball a medio descargar bajo el store). Si falla, salimos antes de
1742        // anotar el manifiesto: una semilla que no se selló no genera línea.
1743        let result = stage0_into(seed, store, &h, &name, &work);
1744        let _ = std::fs::remove_dir_all(&work);
1745        result?;
1746    }
1747
1748    // La semilla es a la vez insumo y producto de Stage 0: `artifact_hash == seed_hash`, sin
1749    // receta (se ingiere, no se compila). Idempotente en disco: re-correr no duplica la línea.
1750    manifest::append_line(
1751        store,
1752        StageEntry {
1753            stage: 0,
1754            recipe_hash: None,
1755            artifact_hash: h.clone(),
1756            seed_hash: Some(h.clone()),
1757            ts: now_unix(),
1758        },
1759    )?;
1760    Ok(h)
1761}
1762
1763/// Segundos Unix actuales para el `ts` del manifiesto. Best-effort: un reloj anterior a la época
1764/// (imposible en la práctica) cae a 0. No entra en ningún hash, así que su precisión no afecta a
1765/// la reproducibilidad.
1766fn now_unix() -> u64 {
1767    std::time::SystemTime::now()
1768        .duration_since(std::time::UNIX_EPOCH)
1769        .map(|d| d.as_secs())
1770        .unwrap_or(0)
1771}
1772
1773fn stage0_into(
1774    seed: &SeedSpec,
1775    store: &Store,
1776    h: &ArtifactHash,
1777    name: &str,
1778    work: &Path,
1779) -> Result<ArtifactHash> {
1780    let tarball = work.join("seed.tar");
1781    download::fetch_url_to_file(&seed.url, &tarball)?;
1782    // Integridad antes de tocar nada: hash erróneo ⇒ no se extrae ni se sella.
1783    download::verify_sha256(&tarball, &seed.sha256)?;
1784
1785    let tree = work.join("tree");
1786    std::fs::create_dir_all(&tree)?;
1787    untar(&tarball, &tree)?;
1788
1789    let sealed = store.seal(&tree, h, name)?;
1790    tracing::info!(path = %sealed.display(), hash = %h, "stage0: semilla sellada");
1791    Ok(h.clone())
1792}
1793
1794/// Extrae `tarball` dentro de `into`. `tar -xf` autodetecta gzip/xz/zstd según lo instalado.
1795fn untar(tarball: &Path, into: &Path) -> Result<()> {
1796    let st = Command::new("tar")
1797        .arg("-xf")
1798        .arg(tarball)
1799        .arg("-C")
1800        .arg(into)
1801        .status()
1802        .map_err(|e| Error::Other(format!("spawn tar: {e}")))?;
1803    if !st.success() {
1804        return Err(Error::Untar(st.code()));
1805    }
1806    Ok(())
1807}
1808
1809#[cfg(test)]
1810mod tests {
1811    use super::*;
1812
1813    fn spec(url: &str, sha256: &str) -> SeedSpec {
1814        SeedSpec {
1815            kind: SeedKind::Zig,
1816            version: "0.13.0".into(),
1817            url: url.into(),
1818            sha256: sha256.into(),
1819        }
1820    }
1821
1822    fn sha256_hex(bytes: &[u8]) -> String {
1823        use sha2::{Digest, Sha256};
1824        let mut h = Sha256::new();
1825        h.update(bytes);
1826        hex::encode(h.finalize())
1827    }
1828
1829    /// Crea un tarball con un archivo `bin/zig` dentro y devuelve `(url file://, sha256 hex)`.
1830    fn make_seed_tarball(dir: &Path) -> (String, String) {
1831        let src = dir.join("src");
1832        std::fs::create_dir_all(src.join("bin")).unwrap();
1833        std::fs::write(src.join("bin/zig"), b"#!/bin/sh\necho fake zig\n").unwrap();
1834        let tarball = dir.join("seed.tar.gz");
1835        let st = Command::new("tar")
1836            .arg("-czf")
1837            .arg(&tarball)
1838            .arg("-C")
1839            .arg(&src)
1840            .arg(".")
1841            .status()
1842            .unwrap();
1843        assert!(st.success(), "tar -c falló");
1844        let sha = sha256_hex(&std::fs::read(&tarball).unwrap());
1845        (format!("file://{}", tarball.display()), sha)
1846    }
1847
1848    #[test]
1849    fn seed_hash_is_identity_based() {
1850        let a = spec("file:///mirror-a.tar", "abc123");
1851        let b = spec("file:///mirror-b.tar", "abc123"); // mismo sha, distinto espejo
1852        assert_eq!(a.seed_hash(), b.seed_hash(), "el url no entra al hash");
1853
1854        let c = spec("file:///mirror-a.tar", "deadbeef"); // sha distinto
1855        assert_ne!(a.seed_hash(), c.seed_hash(), "el sha256 sí cambia el hash");
1856
1857        let mut d = spec("file:///mirror-a.tar", "abc123");
1858        d.kind = SeedKind::MuslCrossMake;
1859        assert_ne!(a.seed_hash(), d.seed_hash(), "la clase cambia el hash");
1860    }
1861
1862    #[test]
1863    fn stage0_ingests_and_seals() {
1864        let tmp = tempfile::tempdir().unwrap();
1865        let (url, sha) = make_seed_tarball(tmp.path());
1866        let store = Store::open(tmp.path().join("store")).unwrap();
1867        let seed = spec(&url, &sha);
1868
1869        let h = stage0(&seed, &store).expect("stage0");
1870        assert_eq!(h, seed.seed_hash());
1871        assert!(store.has(&h, &seed.store_name()), "la semilla debe quedar sellada");
1872
1873        // El contenido extraído está presente y de sólo-lectura (sellado).
1874        let zig = store.path_of(&h, &seed.store_name()).join("bin/zig");
1875        assert!(zig.is_file(), "bin/zig debe existir en el artefacto");
1876        use std::os::unix::fs::PermissionsExt;
1877        let mode = std::fs::metadata(&zig).unwrap().permissions().mode();
1878        assert_eq!(mode & 0o222, 0, "el árbol sellado no debe ser escribible");
1879    }
1880
1881    #[test]
1882    fn stage0_is_idempotent() {
1883        let tmp = tempfile::tempdir().unwrap();
1884        let (url, sha) = make_seed_tarball(tmp.path());
1885        let store = Store::open(tmp.path().join("store")).unwrap();
1886        let seed = spec(&url, &sha);
1887
1888        let h1 = stage0(&seed, &store).unwrap();
1889        let h2 = stage0(&seed, &store).unwrap(); // segunda vez: short-circuit
1890        assert_eq!(h1, h2);
1891    }
1892
1893    #[test]
1894    fn stage0_records_one_manifest_line() {
1895        let tmp = tempfile::tempdir().unwrap();
1896        let (url, sha) = make_seed_tarball(tmp.path());
1897        let store = Store::open(tmp.path().join("store")).unwrap();
1898        let seed = spec(&url, &sha);
1899
1900        let h = stage0(&seed, &store).unwrap();
1901        stage0(&seed, &store).unwrap(); // re-correr no debe duplicar la línea
1902
1903        let m = BootstrapManifest::load(&store).unwrap();
1904        assert_eq!(m.entries.len(), 1, "una sola línea para Stage 0");
1905        let e = &m.entries[0];
1906        assert_eq!(e.stage, 0);
1907        assert_eq!(e.recipe_hash, None, "la semilla se ingiere, no se compila");
1908        assert_eq!(e.artifact_hash, h);
1909        assert_eq!(e.seed_hash, Some(h), "en Stage 0 la semilla es su propio artefacto");
1910    }
1911
1912    #[test]
1913    fn stage0_bad_sha_records_no_manifest_line() {
1914        let tmp = tempfile::tempdir().unwrap();
1915        let (url, _real_sha) = make_seed_tarball(tmp.path());
1916        let store = Store::open(tmp.path().join("store")).unwrap();
1917        let seed = spec(&url, &"0".repeat(64));
1918
1919        assert!(stage0(&seed, &store).is_err());
1920        // Un fallo de integridad no debe dejar ni artefacto ni línea de manifiesto.
1921        assert!(!BootstrapManifest::path_for(&store).exists(), "no debe escribir bootstrap.json");
1922    }
1923
1924    #[test]
1925    fn stage0_rejects_bad_sha256_and_seals_nothing() {
1926        let tmp = tempfile::tempdir().unwrap();
1927        let (url, _real_sha) = make_seed_tarball(tmp.path());
1928        let store = Store::open(tmp.path().join("store")).unwrap();
1929        let seed = spec(&url, &"0".repeat(64)); // sha intencionalmente equivocado
1930
1931        let err = stage0(&seed, &store).unwrap_err();
1932        assert!(
1933            err.to_string().contains("sha256 mismatch"),
1934            "esperaba mismatch de sha256, vino: {err}"
1935        );
1936        assert!(
1937            !store.has(&seed.seed_hash(), &seed.store_name()),
1938            "un sha erróneo no debe sellar nada"
1939        );
1940        // Tampoco debe dejar staging a medio descargar bajo el store.
1941        assert!(
1942            !store.root().join(".bootstrap-tmp").exists()
1943                || std::fs::read_dir(store.root().join(".bootstrap-tmp")).unwrap().next().is_none(),
1944            "el staging debe quedar limpio tras el fallo"
1945        );
1946    }
1947
1948    /// Sella una semilla cuyo tarball coloca un `zig` ejecutable en `zig_rel` (relativo a la raíz
1949    /// del árbol) y devuelve `(store, seed)` listos para resolver el toolchain.
1950    fn seal_seed_with_zig_at(dir: &Path, zig_rel: &str) -> (Store, SeedSpec) {
1951        let src = dir.join("src");
1952        let zig = src.join(zig_rel);
1953        std::fs::create_dir_all(zig.parent().unwrap()).unwrap();
1954        std::fs::write(&zig, b"#!/bin/sh\necho fake zig\n").unwrap();
1955        let tarball = dir.join("seed.tar.gz");
1956        let st = Command::new("tar")
1957            .args(["-czf"])
1958            .arg(&tarball)
1959            .arg("-C")
1960            .arg(&src)
1961            .arg(".")
1962            .status()
1963            .unwrap();
1964        assert!(st.success());
1965        let sha = sha256_hex(&std::fs::read(&tarball).unwrap());
1966        let store = Store::open(dir.join("store")).unwrap();
1967        let seed = spec(&format!("file://{}", tarball.display()), &sha);
1968        stage0(&seed, &store).unwrap();
1969        (store, seed)
1970    }
1971
1972    #[test]
1973    fn toolchain_dir_finds_zig_in_versioned_subdir() {
1974        let tmp = tempfile::tempdir().unwrap();
1975        let (store, seed) = seal_seed_with_zig_at(tmp.path(), "zig-linux-x86_64-0.13.0/zig");
1976        let dir = seed.toolchain_dir(&store).unwrap();
1977        assert!(dir.join("zig").is_file(), "el dir resuelto debe contener zig: {}", dir.display());
1978        assert!(dir.ends_with("zig-linux-x86_64-0.13.0"), "debe elegir el hijo versionado: {}", dir.display());
1979    }
1980
1981    #[test]
1982    fn toolchain_dir_finds_zig_at_root() {
1983        let tmp = tempfile::tempdir().unwrap();
1984        let (store, seed) = seal_seed_with_zig_at(tmp.path(), "zig");
1985        let dir = seed.toolchain_dir(&store).unwrap();
1986        let base = store.path_of(&seed.seed_hash(), &seed.store_name());
1987        assert_eq!(dir, base, "zig en la raíz ⇒ el dir es la raíz de la semilla");
1988    }
1989
1990    #[test]
1991    fn toolchain_dir_errors_when_unsealed() {
1992        let tmp = tempfile::tempdir().unwrap();
1993        let store = Store::open(tmp.path().join("store")).unwrap();
1994        let seed = spec("file:///nope.tar", &"0".repeat(64)); // nunca sellada
1995        let err = seed.toolchain_dir(&store).unwrap_err().to_string();
1996        assert!(err.contains("no sellada"), "esperaba 'no sellada': {err}");
1997    }
1998
1999    #[test]
2000    fn toolchain_dir_errors_when_ambiguous() {
2001        let tmp = tempfile::tempdir().unwrap();
2002        // Dos hijos, cada uno con su `zig`: el resolutor no debe elegir a ciegas.
2003        let (store, seed) = seal_seed_with_zig_at(tmp.path(), "a/zig");
2004        let base = store.path_of(&seed.seed_hash(), &seed.store_name());
2005        // El store sella read-only; relajamos permisos para inyectar el segundo `zig` del test.
2006        let b = base.join("b");
2007        let _ = std::process::Command::new("chmod").arg("-R").arg("u+w").arg(&base).status();
2008        std::fs::create_dir_all(&b).unwrap();
2009        std::fs::write(b.join("zig"), b"x").unwrap();
2010        let err = seed.toolchain_dir(&store).unwrap_err().to_string();
2011        assert!(err.contains("ambiguo"), "esperaba 'ambiguo': {err}");
2012    }
2013
2014    #[test]
2015    fn seed_build_config_points_zig_dir_at_seed() {
2016        let tmp = tempfile::tempdir().unwrap();
2017        let (store, seed) = seal_seed_with_zig_at(tmp.path(), "zig-linux-x86_64-0.13.0/zig");
2018        let base = takana_build::BuildConfig::defaults_for_store(store.root());
2019        let cfg = seed_build_config(&base, &seed, &store).unwrap();
2020        assert_eq!(cfg.zig_dir, seed.toolchain_dir(&store).unwrap());
2021        // El resto de la config se hereda sin cambios.
2022        assert_eq!(cfg.rootfs, base.rootfs);
2023        assert_eq!(cfg.work_root, base.work_root);
2024    }
2025
2026    // --- Stage 1 (Lote 5): hash del rootfs + ensamblado, testeables sin build real ---
2027
2028    /// Sella un componente sintético en el store y devuelve su hash. `build` puebla el árbol
2029    /// antes del `seal` (que lo marca read-only).
2030    fn seal_component(store: &Store, name: &str, hex: &str, build: impl Fn(&Path)) -> ArtifactHash {
2031        let h = ArtifactHash::from_hex(hex);
2032        let work = store.root().join(".bootstrap-tmp").join(h.store_dir_name(name));
2033        std::fs::create_dir_all(&work).unwrap();
2034        build(&work);
2035        store.seal(&work, &h, name).unwrap();
2036        h
2037    }
2038
2039    #[test]
2040    fn rootfs_hash_is_deterministic_and_sensitive() {
2041        let base = [
2042            ("musl".to_string(), ArtifactHash::from_hex("11")),
2043            ("busybox".to_string(), ArtifactHash::from_hex("22")),
2044        ];
2045        let a = rootfs_hash(&base);
2046        assert_eq!(a, rootfs_hash(&base), "mismos componentes ⇒ mismo hash");
2047
2048        let changed = [base[0].clone(), ("busybox".to_string(), ArtifactHash::from_hex("33"))];
2049        assert_ne!(a, rootfs_hash(&changed), "cambiar un componente re-hashea");
2050
2051        let reordered = [base[1].clone(), base[0].clone()];
2052        assert_ne!(a, rootfs_hash(&reordered), "el orden de ensamblado importa");
2053    }
2054
2055    #[test]
2056    fn assemble_rootfs_hydrates_and_installs_arje_init() {
2057        let tmp = tempfile::tempdir().unwrap();
2058        let store = Store::open(tmp.path().join("store")).unwrap();
2059
2060        let hmusl = seal_component(&store, "musl", "aa11", |w| {
2061            std::fs::create_dir_all(w.join("usr/lib")).unwrap();
2062            std::fs::write(w.join("usr/lib/libc.a"), b"!<arch>\n").unwrap();
2063        });
2064        let hbb = seal_component(&store, "busybox", "bb22", |w| {
2065            std::fs::create_dir_all(w.join("bin")).unwrap();
2066            std::fs::write(w.join("bin/busybox"), b"\x7fELFfake").unwrap();
2067            std::os::unix::fs::symlink("busybox", w.join("bin/sh")).unwrap();
2068            // Sidecar de provenance que NO debe terminar en el rootfs.
2069            std::fs::create_dir_all(w.join(".hammer")).unwrap();
2070            std::fs::write(w.join(".hammer/recipe.toml"), b"name = 'busybox'\n").unwrap();
2071        });
2072        let harje = seal_component(&store, "arje-zero", "cc33", |w| {
2073            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2074            std::fs::write(w.join("usr/bin/arje-zero"), b"\x7fELFfake").unwrap();
2075        });
2076
2077        let staging = store.root().join("staging");
2078        std::fs::create_dir_all(&staging).unwrap();
2079        let components = [
2080            ("musl".to_string(), hmusl),
2081            ("busybox".to_string(), hbb),
2082            ("arje-zero".to_string(), harje),
2083        ];
2084        assemble_rootfs(&store, &components, &staging).unwrap();
2085
2086        assert!(staging.join("usr/lib/libc.a").is_file(), "musl hidratado");
2087        assert!(staging.join("bin/busybox").is_file(), "busybox hidratado");
2088        assert!(staging.join("usr/bin/arje-zero").is_file(), "arje-zero hidratado");
2089        // arje-zero es PID 1 vía /sbin/init.
2090        assert_eq!(
2091            std::fs::read_link(staging.join("sbin/init")).unwrap(),
2092            std::path::PathBuf::from("/usr/bin/arje-zero"),
2093            "/sbin/init apunta a arje-zero"
2094        );
2095        // La seed card está en su lugar y es JSON válido con los genesis esperados.
2096        let seed = std::fs::read_to_string(staging.join("ente/seed.card.json")).unwrap();
2097        let v: serde_json::Value = serde_json::from_str(&seed).unwrap();
2098        assert_eq!(v["label"], "hammer-stage1");
2099        let labels: Vec<&str> = v["genesis"].as_array().unwrap()
2100            .iter().map(|g| g["label"].as_str().unwrap()).collect();
2101        assert_eq!(labels, vec!["hammerd", "console-getty"]);
2102        // Puntos de montaje que arje monta solos, presentes como dirs vacíos.
2103        assert!(staging.join("sys/fs/cgroup").is_dir() && staging.join("dev/pts").is_dir());
2104        assert!(!staging.join(".hammer").exists(), "el sidecar no debe quedar en el rootfs");
2105        // Ya no hay init provisional de busybox.
2106        assert!(!staging.join("etc/inittab").exists(), "el inittab provisional fue retirado");
2107    }
2108
2109    #[test]
2110    fn stage1_seed_card_is_valid_json_with_native_hammerd() {
2111        // La seed embebida debe ser JSON válido y declarar hammerd como servicio Native Restart
2112        // (el CRASHED real) — un template roto rompería el boot de arje-zero.
2113        let v: serde_json::Value = serde_json::from_str(STAGE1_SEED_CARD).unwrap();
2114        assert_eq!(v["payload"], "Virtual", "la semilla es Virtual");
2115        let hammerd = &v["genesis"][0];
2116        assert_eq!(hammerd["label"], "hammerd");
2117        assert_eq!(hammerd["payload"]["Native"]["exec"], "/usr/bin/hammerd");
2118        assert!(hammerd["supervision"]["Restart"]["initial"].is_number(), "hammerd es Restart");
2119        let getty = &v["genesis"][1];
2120        assert_eq!(getty["payload"]["Native"]["exec"], "/bin/busybox");
2121    }
2122
2123    // --- Capa de servicios (producto): composición de seed + hidratación tardía ---
2124
2125    #[test]
2126    fn product_seed_appends_sshd_to_base_genesis() {
2127        // La seed de producto = base + sshd; el núcleo (hammerd, getty) se preserva intacto y el
2128        // resultado es JSON válido (lo que arje-zero validará al boot).
2129        let seed = product_seed_card(&[card_sshd_esperada()]).unwrap();
2130        let v: serde_json::Value = serde_json::from_str(&seed).unwrap();
2131        assert_eq!(v["label"], "hammer-product");
2132        assert_eq!(v["payload"], "Virtual");
2133        let labels: Vec<&str> = v["genesis"].as_array().unwrap()
2134            .iter().map(|g| g["label"].as_str().unwrap()).collect();
2135        assert_eq!(labels, vec!["hammerd", "console-getty", "sshd"], "núcleo intacto + sshd añadido");
2136        let sshd = &v["genesis"][2];
2137        assert_eq!(sshd["payload"]["Native"]["exec"], "/bin/busybox");
2138        assert!(sshd["payload"]["Native"]["argv"][2].as_str().unwrap().contains("/usr/sbin/sshd"));
2139        assert!(sshd["supervision"]["Restart"]["initial"].is_number(), "sshd es Restart (lifecycle)");
2140    }
2141
2142    /// **El sidecar rancio NO puede pasar en silencio.**
2143    ///
2144    /// Es la trampa que este mecanismo tiene incorporada y que hay que dejar armada: el sidecar de
2145    /// provenance **no entra en el `ArtifactHash`**, así que un artefacto sellado antes de que su
2146    /// receta declarara servicios sigue siendo un cache-hit perfectamente válido y no se reconstruye
2147    /// nunca solo. Si `service_cards` devolviera una lista vacía sin protestar, el producto saldría
2148    /// **booteando, verde y sin sshd**. Un ausente falla ruidosamente; un vacío llega hasta el final
2149    /// diciendo que todo fue bien — regla 3 del CLAUDE.md, aplicada acá antes de pagarla.
2150    #[test]
2151    fn service_cards_falla_ruidosamente_con_sidecar_rancio() {
2152        let tmp = tempfile::tempdir().unwrap();
2153        let store = Store::open(tmp.path().join("store")).unwrap();
2154        // Un store sin ese artefacto ⇒ sin sidecar ⇒ sin servicios: exactamente lo que se ve cuando
2155        // el artefacto es anterior al bloque `[[service]]`.
2156        let servicios = [("openssh".to_string(), ArtifactHash::from_hex("ab"))];
2157        let e = service_cards(&store, &servicios).unwrap_err().to_string();
2158        assert!(e.contains("ningún componente de servicio"), "{e}");
2159        assert!(e.contains("ArtifactHash"), "el error tiene que EXPLICAR la trampa: {e}");
2160        assert!(e.contains("borrar el artefacto del store"), "y decir el arreglo: {e}");
2161    }
2162
2163    /// La Card de `sshd` de referencia: la constante que el producto **ya bootea en QEMU**. Los
2164    /// tests componen la seed con ella (no con la derivada del sidecar) a propósito: así el
2165    /// esqueleto de la seed se prueba sin necesitar un store, y la equivalencia
2166    /// «receta ⇒ esta misma card» la prueba `la_receta_de_openssh_reproduce_la_card_hardcodeada`.
2167    fn card_sshd_esperada() -> serde_json::Value {
2168        serde_json::from_str(SSHD_SERVICE_CARD).unwrap()
2169    }
2170
2171    /// **La receta produce la MISMA Card que la constante hardcodeada.**
2172    ///
2173    /// Esta es la prueba que autoriza a mover el servicio de un literal de Rust a `[[service]]` en
2174    /// `recipes/openssh.toml`: no compara «una card parecida», compara el `serde_json::Value`
2175    /// entero contra [`SSHD_SERVICE_CARD`], que es **la card que el producto ya bootea en QEMU**
2176    /// (verificada e2e por `scripts/ssh-e2e-test.sh`). Si empatan, declarar el servicio en la
2177    /// receta no cambia ni un byte de la seed — y por lo tanto tampoco el `product_rootfs_hash`.
2178    ///
2179    /// Lee la receta REAL del repo a propósito: un fixture inline probaría el emisor contra sí
2180    /// mismo y no detectaría que alguien editó la receta y la sacó de sincronía con el producto.
2181    #[test]
2182    fn la_receta_de_openssh_reproduce_la_card_hardcodeada() {
2183        let repo = Path::new(env!("CARGO_MANIFEST_DIR")).join("../..");
2184        let r = takana_core::Recipe::load_from_path(repo.join("recipes/openssh.toml")).unwrap();
2185        assert_eq!(r.services.len(), 1, "openssh declara exactamente un servicio");
2186
2187        let generada = r.services[0].card();
2188        let hardcodeada: serde_json::Value = serde_json::from_str(SSHD_SERVICE_CARD).unwrap();
2189        assert_eq!(
2190            generada, hardcodeada,
2191            "la card generada desde recipes/openssh.toml difiere de SSHD_SERVICE_CARD: \
2192             mover el servicio a la receta CAMBIARÍA la seed de producto"
2193        );
2194    }
2195
2196    #[test]
2197    fn product_rootfs_hash_is_deterministic_and_sensitive() {
2198        let base = ArtifactHash::from_hex("ab");
2199        let userland = [("uutils".to_string(), ArtifactHash::from_hex("11"))];
2200        let svcs = [("openssh".to_string(), ArtifactHash::from_hex("cd"))];
2201        let seed = product_seed_card(&[card_sshd_esperada()]).unwrap();
2202        let a = product_rootfs_hash(&base, &userland, &svcs, &seed);
2203        assert_eq!(a, product_rootfs_hash(&base, &userland, &svcs, &seed), "determinista");
2204        let other_base = ArtifactHash::from_hex("ef");
2205        assert_ne!(a, product_rootfs_hash(&other_base, &userland, &svcs, &seed), "cambiar la base re-hashea");
2206        let other_userland = [("uutils".to_string(), ArtifactHash::from_hex("22"))];
2207        assert_ne!(a, product_rootfs_hash(&base, &other_userland, &svcs, &seed), "cambiar el userland re-hashea");
2208        let other_svc = [("openssh".to_string(), ArtifactHash::from_hex("99"))];
2209        assert_ne!(a, product_rootfs_hash(&base, &userland, &other_svc, &seed), "cambiar un servicio re-hashea");
2210    }
2211
2212    #[test]
2213    fn assemble_product_injects_services_over_base() {
2214        let tmp = tempfile::tempdir().unwrap();
2215        let store = Store::open(tmp.path().join("store")).unwrap();
2216
2217        // Un rootfs base sintético sellado como `stage1-rootfs` (el 4/4 ya verificado): trae la seed
2218        // base, /sbin/init, un mountpoint vacío, un binario del núcleo y un applet busybox `ls`.
2219        let base = seal_component(&store, "stage1-rootfs", "ba5e", |w| {
2220            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2221            std::fs::create_dir_all(w.join("bin")).unwrap();
2222            std::fs::create_dir_all(w.join("ente")).unwrap();
2223            std::fs::create_dir_all(w.join("proc")).unwrap();
2224            std::fs::create_dir_all(w.join("var")).unwrap();
2225            std::fs::create_dir_all(w.join("root")).unwrap();
2226            std::fs::write(w.join("usr/bin/hammerd"), b"\x7fELFfake").unwrap();
2227            std::fs::write(w.join("bin/busybox"), b"\x7fELFbb").unwrap();
2228            // busybox instala el applet `ls` como symlink en /usr/bin (lo ensombrece la hidratación) y
2229            // `cat` en /bin (lo debe RETIRAR el adelgazamiento). `sh` en /bin NO se reemplaza (queda).
2230            std::os::unix::fs::symlink("../../bin/busybox", w.join("usr/bin/ls")).unwrap();
2231            std::os::unix::fs::symlink("busybox", w.join("bin/cat")).unwrap();
2232            std::os::unix::fs::symlink("busybox", w.join("bin/sh")).unwrap();
2233            std::fs::write(w.join("ente/seed.card.json"), STAGE1_SEED_CARD).unwrap();
2234            std::os::unix::fs::symlink("/usr/bin/arje-zero", w.join("sbin_init_tmp")).unwrap();
2235        });
2236        // Userland Rust sintético (uutils): coreutils multicall + symlink `ls`→coreutils.
2237        let huu = seal_component(&store, "uutils", "c0re", |w| {
2238            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2239            std::fs::write(w.join("usr/bin/coreutils"), b"\x7fELFuu").unwrap();
2240            std::os::unix::fs::symlink("coreutils", w.join("usr/bin/ls")).unwrap();
2241            std::os::unix::fs::symlink("coreutils", w.join("usr/bin/cat")).unwrap();
2242        });
2243        // Componentes de servicio sintéticos.
2244        let hossh = seal_component(&store, "openssh", "0551", |w| {
2245            std::fs::create_dir_all(w.join("usr/sbin")).unwrap();
2246            std::fs::write(w.join("usr/sbin/sshd"), b"\x7fELFfake").unwrap();
2247        });
2248        let hnet = seal_component(&store, "netup", "9e72", |w| {
2249            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2250            std::fs::write(w.join("usr/bin/netup"), b"\x7fELFfake").unwrap();
2251        });
2252
2253        let seed = product_seed_card(&[card_sshd_esperada()]).unwrap();
2254        let userland = [("uutils".to_string(), huu)];
2255        let services = [("openssh".to_string(), hossh), ("netup".to_string(), hnet)];
2256        let staging = store.root().join("prod-staging");
2257        std::fs::create_dir_all(&staging).unwrap();
2258        assemble_product_rootfs(&store, &base, &userland, &services, &seed, &staging).unwrap();
2259
2260        // base hidratada + userland + servicios inyectados.
2261        assert!(staging.join("usr/bin/hammerd").is_file(), "núcleo presente");
2262        assert!(staging.join("proc").is_dir(), "mountpoint vacío recreado");
2263        assert!(staging.join("usr/bin/coreutils").is_file(), "uutils inyectado");
2264        assert!(staging.join("usr/sbin/sshd").is_file(), "openssh inyectado");
2265        assert!(staging.join("usr/bin/netup").is_file(), "netup inyectado");
2266        // ADELGAZAR BUSYBOX: /usr/bin/ls apunta ahora a coreutils (Rust), no a busybox.
2267        assert_eq!(
2268            std::fs::read_link(staging.join("usr/bin/ls")).unwrap(),
2269            std::path::PathBuf::from("coreutils"),
2270            "el userland Rust ensombrece el applet busybox en /usr/bin"
2271        );
2272        // El applet busybox `cat` en /bin fue RETIRADO (uutils provee cat) ⇒ no compite en PATH.
2273        assert!(!staging.join("bin/cat").exists(), "el applet busybox /bin/cat reemplazado fue retirado");
2274        // Lo NO reemplazado por Rust (sh) y el binario busybox quedan intactos.
2275        assert!(staging.join("bin/sh").exists(), "/bin/sh (ash) interino se preserva");
2276        assert!(staging.join("bin/busybox").is_file(), "el binario busybox queda (fallback)");
2277        // la seed fue sobrescrita con la de producto (3 cards).
2278        let got = std::fs::read_to_string(staging.join("ente/seed.card.json")).unwrap();
2279        let v: serde_json::Value = serde_json::from_str(&got).unwrap();
2280        assert_eq!(v["label"], "hammer-product");
2281        assert_eq!(v["genesis"].as_array().unwrap().len(), 3);
2282        // configs de servicio.
2283        assert!(std::fs::read_to_string(staging.join("etc/passwd")).unwrap().contains("sshd:"));
2284        assert!(std::fs::read_to_string(staging.join("etc/ssh/sshd_config")).unwrap().contains("Port 22"));
2285        // /var/empty con permisos 0711 (privsep no acepta group/world-writable).
2286        use std::os::unix::fs::PermissionsExt;
2287        let mode = std::fs::metadata(staging.join("var/empty")).unwrap().permissions().mode() & 0o777;
2288        assert_eq!(mode, 0o711, "/var/empty debe ser 0711");
2289        assert!(staging.join("root/.ssh").is_dir(), "/root/.ssh para authorized_keys");
2290        // Mountpoints de disco (el producto es disk-ready): /store + /var/lib/hammer existen vacíos.
2291        assert!(staging.join("store").is_dir() && staging.join("var/lib/hammer").is_dir(),
2292            "/store y /var/lib/hammer como mountpoints del disco de producto");
2293        // Atestación: el producto emite /ente/attest.json y se auto-verifica íntegro.
2294        assert!(staging.join("ente/attest.json").is_file(), "manifiesto de atestación emitido");
2295        let att = verify_attestation(&staging).unwrap();
2296        assert!(att.passed(), "el product-rootfs recién ensamblado pasa su propia atestación");
2297        // cubre los binarios presentes del set crítico (hammerd, busybox, sshd, netup, coreutils).
2298        assert!(att.ok.iter().any(|p| p == "/usr/sbin/sshd") && att.ok.iter().any(|p| p == "/usr/bin/coreutils"));
2299    }
2300
2301    #[test]
2302    fn attestation_manifest_emits_and_verifies_and_catches_tamper() {
2303        let tmp = tempfile::tempdir().unwrap();
2304        let root = tmp.path().join("rootfs");
2305        for d in ["usr/bin", "bin", "usr/sbin", "ente"] {
2306            std::fs::create_dir_all(root.join(d)).unwrap();
2307        }
2308        std::fs::write(root.join("usr/bin/hammerd"), b"\x7fELF-hammerd").unwrap();
2309        std::fs::write(root.join("bin/busybox"), b"\x7fELF-busybox").unwrap();
2310        std::fs::write(root.join("usr/sbin/sshd"), b"\x7fELF-sshd").unwrap();
2311        // arje-zero/netup/coreutils ausentes ⇒ no se listan (sólo binarios presentes).
2312
2313        let manifest = build_attestation(&root).unwrap();
2314        assert_eq!(manifest.algo, "blake3");
2315        let paths: Vec<&str> = manifest.entries.iter().map(|e| e.path.as_str()).collect();
2316        assert!(paths.contains(&"/usr/bin/hammerd") && paths.contains(&"/bin/busybox") && paths.contains(&"/usr/sbin/sshd"));
2317        assert!(!paths.contains(&"/usr/bin/arje-zero"), "binario ausente no se atesta");
2318        std::fs::write(root.join("ente/attest.json"), serde_json::to_string_pretty(&manifest).unwrap()).unwrap();
2319
2320        // verificación íntegra: pasa.
2321        let rep = verify_attestation(&root).unwrap();
2322        assert!(rep.passed() && rep.ok.len() == manifest.entries.len());
2323
2324        // manipular un binario ⇒ DIVERGE (el gate de arje haría halt).
2325        std::fs::write(root.join("bin/busybox"), b"\x7fELF-TAMPERED-longer").unwrap();
2326        let rep2 = verify_attestation(&root).unwrap();
2327        assert!(!rep2.passed());
2328        assert_eq!(rep2.mismatched, vec!["/bin/busybox".to_string()]);
2329
2330        // borrar un binario crítico ⇒ FALTA.
2331        std::fs::remove_file(root.join("usr/sbin/sshd")).unwrap();
2332        let rep3 = verify_attestation(&root).unwrap();
2333        assert!(rep3.missing.contains(&"/usr/sbin/sshd".to_string()) && !rep3.passed());
2334    }
2335
2336    #[test]
2337    fn assemble_attested_swaps_gate_signs_seed_and_regenerates_attest() {
2338        // Hermético: un `arje-packager` SINTÉTICO (script python) simula la firma — añade `attest`/
2339        // `attest_rootkey` al seed-out. Valida el CABLEADO de takana (pisar el init, romper hardlinks,
2340        // fijar attest_policy, derivar los --bin de la seed, regenerar /ente/attest.json), sin la cripto
2341        // real (eso lo cubre E2E `scripts/attest-boot-test.sh` en QEMU).
2342        use std::os::unix::fs::PermissionsExt;
2343        let tmp = tempfile::tempdir().unwrap();
2344        let store = Store::open(tmp.path().join("store")).unwrap();
2345
2346        // product-rootfs base sellado: seed de producto + /ente/attest.json + los bins críticos.
2347        let base = seal_component(&store, "product-rootfs", "9a07", |w| {
2348            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2349            std::fs::create_dir_all(w.join("bin")).unwrap();
2350            std::fs::create_dir_all(w.join("ente")).unwrap();
2351            std::fs::write(w.join("usr/bin/arje-zero"), b"\x7fELF-arje-zero-CORE").unwrap();
2352            std::fs::write(w.join("usr/bin/hammerd"), b"\x7fELF-hammerd").unwrap();
2353            std::fs::write(w.join("bin/busybox"), b"\x7fELF-busybox").unwrap();
2354            std::fs::write(w.join("ente/seed.card.json"), product_seed_card(&[card_sshd_esperada()]).unwrap()).unwrap();
2355            // attest.json del producto base (con el arje-zero del NÚCLEO) — debe regenerarse.
2356            let a = build_attestation(w).unwrap();
2357            std::fs::write(w.join("ente/attest.json"), serde_json::to_string(&a).unwrap()).unwrap();
2358        });
2359
2360        // init CON gate (bytes distintos al del núcleo) y packager sintético, fuera del store.
2361        let gated_bin = tmp.path().join("arje-zero-gated");
2362        std::fs::write(&gated_bin, b"\x7fELF-arje-zero-GATED-bigger").unwrap();
2363        let pkgr = tmp.path().join("fake-packager");
2364        std::fs::write(&pkgr, FAKE_PACKAGER).unwrap();
2365        std::fs::set_permissions(&pkgr, std::fs::Permissions::from_mode(0o755)).unwrap();
2366
2367        let staging = store.root().join(".bootstrap-tmp/test-attested");
2368        std::fs::create_dir_all(&staging).unwrap();
2369        let cfg = AttestConfig { policy: "halt".into(), rootkey: [3u8; 32] };
2370        assemble_attested_product_rootfs(&store, &base, &gated_bin, &pkgr, &cfg, &staging).unwrap();
2371
2372        // 1) /usr/bin/arje-zero ahora es el del gate (hardlink roto, no mutó el inodo del store).
2373        assert_eq!(
2374            std::fs::read(staging.join("usr/bin/arje-zero")).unwrap(),
2375            b"\x7fELF-arje-zero-GATED-bigger",
2376            "el init con gate pisó al del núcleo"
2377        );
2378        // El sello del store NO se tocó (su arje-zero sigue siendo el del núcleo).
2379        assert_eq!(
2380            std::fs::read(store.path_of(&base, "product-rootfs").join("usr/bin/arje-zero")).unwrap(),
2381            b"\x7fELF-arje-zero-CORE",
2382            "romper el hardlink no mutó el store"
2383        );
2384        // 2) seed firmada: el packager recibió attest_policy=halt y los 4 --bin derivados de la seed.
2385        let seed: serde_json::Value =
2386            serde_json::from_str(&std::fs::read_to_string(staging.join("ente/seed.card.json")).unwrap()).unwrap();
2387        assert_eq!(seed["attest_policy"], "halt");
2388        assert!(seed["attest"].is_array(), "el packager firmó (Card::attest)");
2389        let bins_seen = std::fs::read_to_string(staging.join("..").join("bins-seen.txt")).unwrap();
2390        for label in ["arje-zero", "hammerd", "console-getty", "sshd"] {
2391            assert!(bins_seen.contains(&format!("{label}=")), "--bin {label} pasado al packager:\n{bins_seen}");
2392        }
2393        // 3) ANCLA SOBERANA EXTERNA: /etc/arje/rootkey.pub = la pubkey del seed firmado (32 bytes raw).
2394        let anchor = std::fs::read(staging.join("etc/arje/rootkey.pub")).unwrap();
2395        assert_eq!(anchor.len(), 32, "rootkey.pub son 32 bytes raw");
2396        assert_eq!(anchor, vec![7u8; 32], "la pubkey del seed firmado anclada fuera de la Card");
2397        // 4) /ente/attest.json regenerado: pasa con el arje-zero NUEVO (el del núcleo divergiría).
2398        assert!(verify_attestation(&staging).unwrap().passed(), "attest.json regenerado y coherente");
2399        // 5) el tmp de build se limpió.
2400        assert!(!staging.join(".attest-build").exists());
2401    }
2402
2403    /// `arje-packager` sintético para el test hermético: copia `--seed`→`--seed-out` inyectando
2404    /// `attest`/`attest_rootkey` (simula la firma) y vuelca los `--bin` vistos a `../bins-seen.txt`.
2405    const FAKE_PACKAGER: &str = r#"#!/usr/bin/env python3
2406import json, sys
2407seed=out=None; bins=[]
2408a=sys.argv[1:]
2409while a:
2410    f=a.pop(0)
2411    if f=="--seed": seed=a.pop(0)
2412    elif f=="--seed-out": out=a.pop(0)
2413    elif f=="--rootkey": a.pop(0)
2414    elif f=="--bin": bins.append(a.pop(0))
2415    else: pass
2416d=json.load(open(seed))
2417d["attest"]=[{"label":b.split("=",1)[0]} for b in bins]
2418d["attest_rootkey"]=[7]*32  # pubkey de 32 bytes (como la del packager real)
2419json.dump(d, open(out,"w"), indent=2)
2420import os
2421open(os.path.join(os.path.dirname(out),"..","..","bins-seen.txt"),"w").write("\n".join(bins))
2422"#;
2423
2424    #[test]
2425    fn product_attested_hash_is_deterministic_and_sensitive() {
2426        let base = ArtifactHash::from_hex("ab");
2427        let gated = ArtifactHash::from_hex("cd");
2428        let pkgr = ArtifactHash::from_hex("ef");
2429        let cfg = AttestConfig::default();
2430        let a = product_attested_hash(&base, &gated, &pkgr, &cfg);
2431        assert_eq!(a, product_attested_hash(&base, &gated, &pkgr, &cfg), "determinista");
2432        // Cada insumo re-hashea.
2433        assert_ne!(a, product_attested_hash(&ArtifactHash::from_hex("11"), &gated, &pkgr, &cfg), "base");
2434        assert_ne!(a, product_attested_hash(&base, &ArtifactHash::from_hex("22"), &pkgr, &cfg), "gate");
2435        assert_ne!(a, product_attested_hash(&base, &gated, &ArtifactHash::from_hex("33"), &cfg), "packager");
2436        let other_policy = AttestConfig { policy: "warn".into(), ..AttestConfig::default() };
2437        assert_ne!(a, product_attested_hash(&base, &gated, &pkgr, &other_policy), "política");
2438        let other_key = AttestConfig { rootkey: [7u8; 32], ..AttestConfig::default() };
2439        assert_ne!(a, product_attested_hash(&base, &gated, &pkgr, &other_key), "rootkey");
2440        // El producto atestado es un sello DISTINTO del producto base (no colisionan).
2441        assert_ne!(a.as_str(), base.as_str(), "el atestado no es el producto base");
2442    }
2443
2444    #[test]
2445    fn critical_bins_are_derived_from_the_seed_native_execs() {
2446        // De la seed de producto real: PID 1 (arje-zero, el current_exe del gate) + un --bin por cada
2447        // exec Native del genesis (hammerd, console-getty, sshd). Los labels deben casar los de las cards
2448        // (lo que el gate busca en las concesiones firmadas) y las rutas resolver dentro del staging.
2449        let staging = Path::new("/tmp/fake-staging");
2450        let seed: serde_json::Value =
2451            serde_json::from_str(&product_seed_card(&[card_sshd_esperada()]).unwrap()).unwrap();
2452        let bins = critical_bins_from_seed(&seed, staging);
2453        let labels: Vec<&str> = bins.iter().map(|(l, _)| l.as_str()).collect();
2454        assert_eq!(
2455            labels,
2456            vec!["arje-zero", "hammerd", "console-getty", "sshd"],
2457            "PID 1 primero, luego DFS del genesis"
2458        );
2459        // El exec de cada card se mapea a su ruta absoluta dentro del staging.
2460        let by_label = |l: &str| bins.iter().find(|(x, _)| x == l).map(|(_, p)| p.clone()).unwrap();
2461        assert_eq!(by_label("arje-zero"), staging.join("usr/bin/arje-zero"));
2462        assert_eq!(by_label("hammerd"), staging.join("usr/bin/hammerd"));
2463        // console-getty y sshd ejecutan ambos /bin/busybox ⇒ misma ruta, labels distintos.
2464        assert_eq!(by_label("console-getty"), staging.join("bin/busybox"));
2465        assert_eq!(by_label("sshd"), staging.join("bin/busybox"));
2466    }
2467
2468    #[test]
2469    fn shipped_product_recipes_parse_and_hash() {
2470        // Las recetas de producto reales (userland Rust + servicios) cargan y hashean — viven fuera
2471        // del núcleo (no entran a STAGE1_COMPONENTS ni al selfhost-verify).
2472        let recipes_dir = Path::new(env!("CARGO_MANIFEST_DIR")).join("../../recipes");
2473        let tmp = tempfile::tempdir().unwrap();
2474        let store = Store::open(tmp.path().join("store")).unwrap();
2475        for name in USERLAND_COMPONENTS.iter().chain(SERVICE_COMPONENTS.iter()) {
2476            let path = recipes_dir.join(format!("{name}.toml"));
2477            let r = Recipe::load_from_path(&path).unwrap_or_else(|e| panic!("parse {name}: {e}"));
2478            assert_eq!(&r.name, name);
2479            let h = takana_build::artifact_hash(&r, &store, &takana_core::lab::LabFingerprint::for_tests()).expect("hash");
2480            assert!(h.as_str().starts_with("b3:"));
2481        }
2482    }
2483
2484    #[test]
2485    fn shipped_stage1_recipes_parse_and_hash() {
2486        // Las recetas reales del repo (Lote 4) deben cargar y hashear (sha256 pinned, parse OK).
2487        let recipes_dir = Path::new(env!("CARGO_MANIFEST_DIR")).join("../../recipes");
2488        let tmp = tempfile::tempdir().unwrap();
2489        let store = Store::open(tmp.path().join("store")).unwrap();
2490        for name in STAGE1_COMPONENTS {
2491            let path = recipes_dir.join(format!("{name}.toml"));
2492            let r = Recipe::load_from_path(&path).unwrap_or_else(|e| panic!("parse {name}: {e}"));
2493            assert_eq!(&r.name, name);
2494            let h = takana_build::artifact_hash(&r, &store, &takana_core::lab::LabFingerprint::for_tests()).expect("hash");
2495            assert!(h.as_str().starts_with("b3:"), "hash con prefijo b3:");
2496        }
2497    }
2498
2499    #[test]
2500    fn stage2_anchors_content_hash_and_verifies() {
2501        let tmp = tempfile::tempdir().unwrap();
2502        let store = Store::open(tmp.path().join("store")).unwrap();
2503        // Sella un "rootfs" sintético con el nombre que espera stage2.
2504        let h = seal_component(&store, "stage1-rootfs", "abcd", |w| {
2505            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2506            std::fs::write(w.join("usr/bin/arje-zero"), b"\x7fELFfake-init").unwrap();
2507        });
2508
2509        let report = stage2(&h, &store).unwrap();
2510        assert_eq!(report.stage1_rootfs, h);
2511        assert!(report.stage1_content.as_str().starts_with("b3:"));
2512        assert_eq!(report.verdict, Reproducibility::RebuildPending);
2513
2514        // El manifiesto anotó la línea stage 2 con el content-hash como artefacto.
2515        let m = BootstrapManifest::load(&store).unwrap();
2516        let e2 = m.entries.iter().find(|e| e.stage == 2).expect("línea stage 2");
2517        assert_eq!(e2.artifact_hash, report.stage1_content);
2518
2519        // verify_against: un rebuild idéntico ⇒ Reproducible; distinto ⇒ Divergent.
2520        assert_eq!(
2521            verify_against(&report, report.stage1_content.clone()),
2522            Reproducibility::Reproducible
2523        );
2524        match verify_against(&report, ArtifactHash::from_hex("ffff")) {
2525            Reproducibility::Divergent { stage1, rebuilt } => {
2526                assert_eq!(stage1, report.stage1_content);
2527                assert_eq!(rebuilt, ArtifactHash::from_hex("ffff"));
2528            }
2529            v => panic!("esperaba Divergent, vino {v:?}"),
2530        }
2531    }
2532
2533    // --- Builder rootfs (SDD 11 §7): ensamblado testeable sin Alpine ni VM ---
2534
2535    /// Monta los insumos mínimos de un builder en `dir` y devuelve `(store, spec)` listos.
2536    fn builder_fixture(dir: &Path) -> (Store, BuilderSpec) {
2537        let store = Store::open(dir.join("store")).unwrap();
2538
2539        // Stage 1 rootfs sellado (con el nombre que espera el builder).
2540        let stage1 = seal_component(&store, "stage1-rootfs", "5111", |w| {
2541            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2542            std::fs::write(w.join("usr/bin/arje-zero"), b"\x7fELFinit").unwrap();
2543            std::fs::create_dir_all(w.join("sbin")).unwrap();
2544            std::os::unix::fs::symlink("/usr/bin/arje-zero", w.join("sbin/init")).unwrap();
2545        });
2546
2547        // Semilla zig sellada con bin/zig (nombre store seed-zig).
2548        let seed = seal_component(&store, "seed-zig", "5ee0", |w| {
2549            std::fs::create_dir_all(w.join("bin")).unwrap();
2550            std::fs::write(w.join("bin/zig"), b"#!/bin/sh\necho zig\n").unwrap();
2551        });
2552
2553        // Recetas, binario takana y toolchain (Alpine sintético), fuera del store.
2554        let recipes = dir.join("recipes");
2555        std::fs::create_dir_all(&recipes).unwrap();
2556        std::fs::write(recipes.join("musl.toml"), b"name = 'musl'\n").unwrap();
2557        std::fs::write(recipes.join("busybox.toml"), b"name = 'busybox'\n").unwrap();
2558
2559        let hammer_bin = dir.join("hammer");
2560        std::fs::write(&hammer_bin, b"\x7fELF-hammer-static").unwrap();
2561
2562        let toolchain = dir.join("alpine");
2563        std::fs::create_dir_all(toolchain.join("usr/bin")).unwrap();
2564        std::fs::write(toolchain.join("usr/bin/make"), b"\x7fELFmake").unwrap();
2565
2566        let spec = BuilderSpec {
2567            stage1_rootfs: stage1,
2568            seed_hash: seed,
2569            seed_kind: SeedKind::Zig,
2570            recipes_dir: recipes,
2571            hammer_bin,
2572            toolchain_src: toolchain,
2573            toolchain_tag: "alpine-test".into(),
2574            ref_content: Some(ArtifactHash::from_hex("dead")),
2575            work_cache: None,
2576            swaps: vec![],
2577        };
2578        (store, spec)
2579    }
2580
2581    #[test]
2582    fn builder_rootfs_assembles_full_image() {
2583        let tmp = tempfile::tempdir().unwrap();
2584        let (store, spec) = builder_fixture(tmp.path());
2585        let out = tmp.path().join("builder-out");
2586
2587        let report = builder_rootfs(&spec, &store, &out).unwrap();
2588        assert!(report.builder_hash.as_str().starts_with("b3:"));
2589        assert_eq!(report.out_dir, out);
2590
2591        // Base Stage 1 hidratada (init + symlink).
2592        assert!(out.join("usr/bin/arje-zero").is_file(), "stage1 hidratado");
2593        assert_eq!(
2594            std::fs::read_link(out.join("sbin/init")).unwrap(),
2595            PathBuf::from("/usr/bin/arje-zero"),
2596        );
2597        // Toolchain en /toolchain, semilla en /store, takana + recetas + driver.
2598        assert!(out.join("toolchain/usr/bin/make").is_file(), "toolchain montado");
2599        assert!(
2600            out.join("store").join(spec.seed_hash.store_dir_name("seed-zig")).join("bin/zig").is_file(),
2601            "semilla replicada en /store",
2602        );
2603        assert!(out.join("usr/bin/hammer").is_file(), "binario hammer");
2604        assert!(out.join("etc/hammer/recipes/musl.toml").is_file(), "recetas embebidas");
2605        assert!(out.join("usr/bin/rebuild-stage1").is_file(), "driver de rebuild");
2606
2607        // El driver y takana son ejecutables.
2608        use std::os::unix::fs::PermissionsExt;
2609        let m = std::fs::metadata(out.join("usr/bin/rebuild-stage1")).unwrap();
2610        assert_eq!(m.permissions().mode() & 0o111, 0o111, "driver +x");
2611
2612        // rebuild.env lleva la semilla, la clase y la referencia embebidas.
2613        let env = std::fs::read_to_string(out.join("etc/hammer/rebuild.env")).unwrap();
2614        assert!(env.contains(&format!("SEED_HASH={}", spec.seed_hash)), "{env}");
2615        assert!(env.contains("SEED_KIND=zig"), "{env}");
2616        assert!(env.contains("REF_CONTENT=b3:dead"), "{env}");
2617
2618        // Línea de manifiesto (stage 2) con el hash lógico del builder.
2619        let man = BootstrapManifest::load(&store).unwrap();
2620        assert!(
2621            man.entries.iter().any(|e| e.stage == 2 && e.artifact_hash == report.builder_hash),
2622            "el builder debe anotar su línea en el manifiesto",
2623        );
2624    }
2625
2626    #[test]
2627    fn builder_hash_is_deterministic_and_sensitive() {
2628        let s1 = ArtifactHash::from_hex("11");
2629        let seed = ArtifactHash::from_hex("22");
2630        let a = builder_hash(&s1, &seed, "alpine-3.23.4", "rd", "hd", "");
2631        assert_eq!(a, builder_hash(&s1, &seed, "alpine-3.23.4", "rd", "hd", ""), "puro");
2632        assert_ne!(a, builder_hash(&s1, &seed, "alpine-3.24.0", "rd", "hd", ""), "tag del toolchain");
2633        assert_ne!(a, builder_hash(&s1, &seed, "alpine-3.23.4", "rd2", "hd", ""), "recetas");
2634        assert_ne!(a, builder_hash(&s1, &seed, "alpine-3.23.4", "rd", "hd2", ""), "binario hammer");
2635        assert_ne!(a, builder_hash(&s1, &seed, "alpine-3.23.4", "rd", "hd", "sd"), "swaps del toolchain");
2636    }
2637
2638    #[test]
2639    fn swaps_digest_empty_is_blank_and_order_insensitive() {
2640        assert_eq!(swaps_digest(&[]), "", "sin swaps ⇒ digest vacío (compat hacia atrás)");
2641        let mk = |n: &str, h: &str| ToolchainSwap {
2642            name: n.into(),
2643            artifact: ArtifactHash::from_hex(h),
2644            rel_path: format!("usr/bin/{n}"),
2645        };
2646        let a = swaps_digest(&[mk("make", "aa"), mk("bwrap", "bb")]);
2647        let b = swaps_digest(&[mk("bwrap", "bb"), mk("make", "aa")]);
2648        assert_eq!(a, b, "el digest se ordena por nombre ⇒ insensible al orden de entrada");
2649        assert!(!a.is_empty());
2650        assert_ne!(a, swaps_digest(&[mk("make", "ac"), mk("bwrap", "bb")]), "cambia con el hash");
2651    }
2652
2653    #[test]
2654    fn builder_rootfs_swaps_toolchain_tool_from_source() {
2655        let tmp = tempfile::tempdir().unwrap();
2656        let (store, mut spec) = builder_fixture(tmp.path());
2657
2658        // Artefacto sellado de un `make` "construido por hammer" con un binario distinto al de Alpine.
2659        let make = seal_component(&store, "make", "fbad", |w| {
2660            std::fs::create_dir_all(w.join("usr/bin")).unwrap();
2661            std::fs::write(w.join("usr/bin/make"), b"\x7fELF-hammer-make-static").unwrap();
2662        });
2663        spec.swaps = vec![ToolchainSwap {
2664            name: "make".into(),
2665            artifact: make,
2666            rel_path: "usr/bin/make".into(),
2667        }];
2668
2669        let out = tmp.path().join("builder-out");
2670        let report = builder_rootfs(&spec, &store, &out).unwrap();
2671
2672        // El make de /toolchain es ahora el de takana, no el de Alpine.
2673        let got = std::fs::read(out.join("toolchain/usr/bin/make")).unwrap();
2674        assert_eq!(got, b"\x7fELF-hammer-make-static", "el swap pisó el make de Alpine");
2675
2676        // El hash lógico cambia respecto a un builder pura-Alpine (la procedencia es auditable).
2677        let mut pure = spec.clone();
2678        pure.swaps = vec![];
2679        let pure_report = builder_rootfs(&pure, &store, &tmp.path().join("builder-pure")).unwrap();
2680        assert_ne!(report.builder_hash, pure_report.builder_hash, "el swap entra al hash lógico");
2681    }
2682
2683    #[test]
2684    fn builder_rootfs_errors_when_swap_artifact_missing_binary() {
2685        let tmp = tempfile::tempdir().unwrap();
2686        let (store, mut spec) = builder_fixture(tmp.path());
2687        // Artefacto sellado pero SIN el binario esperado en rel_path.
2688        let make = seal_component(&store, "make", "fbad", |w| {
2689            std::fs::create_dir_all(w.join("usr/share")).unwrap();
2690            std::fs::write(w.join("usr/share/x"), b"no-binary").unwrap();
2691        });
2692        spec.swaps = vec![ToolchainSwap {
2693            name: "make".into(),
2694            artifact: make,
2695            rel_path: "usr/bin/make".into(),
2696        }];
2697        let out = tmp.path().join("builder-out");
2698        let err = builder_rootfs(&spec, &store, &out).unwrap_err().to_string();
2699        assert!(err.contains("no existe") && err.contains("artefacto sellado"), "{err}");
2700    }
2701
2702    #[test]
2703    fn builder_rootfs_swaps_toolchain_header_tree_from_source() {
2704        let tmp = tempfile::tempdir().unwrap();
2705        let (store, mut spec) = builder_fixture(tmp.path());
2706
2707        // Artefacto sellado de un `linux-headers` con un árbol `usr/include/linux` propio.
2708        let headers = seal_component(&store, "linux-headers", "abcd", |w| {
2709            std::fs::create_dir_all(w.join("usr/include/linux")).unwrap();
2710            std::fs::write(w.join("usr/include/linux/version.h"), b"#define HAMMER 1\n").unwrap();
2711            std::fs::write(w.join("usr/include/linux/stat.h"), b"struct hammer_stat;\n").unwrap();
2712        });
2713        // El toolchain Alpine tiene un linux/ con un archivo huérfano que el swap debe borrar.
2714        let tc_linux = spec.toolchain_src.join("usr/include/linux");
2715        std::fs::create_dir_all(&tc_linux).unwrap();
2716        std::fs::write(tc_linux.join("version.h"), b"#define ALPINE 1\n").unwrap();
2717        std::fs::write(tc_linux.join("orphan.h"), b"alpine-only\n").unwrap();
2718
2719        spec.swaps = vec![ToolchainSwap {
2720            name: "linux-headers".into(),
2721            artifact: headers,
2722            rel_path: "usr/include/linux".into(),
2723        }];
2724
2725        let out = tmp.path().join("builder-out");
2726        builder_rootfs(&spec, &store, &out).unwrap();
2727
2728        let v = std::fs::read(out.join("toolchain/usr/include/linux/version.h")).unwrap();
2729        assert_eq!(v, b"#define HAMMER 1\n", "el swap pisó el version.h de Alpine");
2730        assert!(out.join("toolchain/usr/include/linux/stat.h").is_file(), "copió el árbol entero");
2731        assert!(
2732            !out.join("toolchain/usr/include/linux/orphan.h").exists(),
2733            "el swap-directorio borró el huérfano de Alpine"
2734        );
2735    }
2736
2737    #[test]
2738    fn builder_rootfs_without_ref_leaves_empty_ref_content() {
2739        let tmp = tempfile::tempdir().unwrap();
2740        let (store, mut spec) = builder_fixture(tmp.path());
2741        spec.ref_content = None;
2742        let out = tmp.path().join("builder-out");
2743        builder_rootfs(&spec, &store, &out).unwrap();
2744        let env = std::fs::read_to_string(out.join("etc/hammer/rebuild.env")).unwrap();
2745        assert!(env.contains("REF_CONTENT=\n"), "sin referencia ⇒ REF_CONTENT vacío: {env:?}");
2746    }
2747
2748    #[test]
2749    fn builder_rootfs_with_work_cache_containing_out_dir_terminates() {
2750        // Regresión: --work-cache work --out work/builder-rootfs. Copiar la caché no debe tragarse
2751        // el propio destino (recursión infinita que llena el disco). El skip lo corta.
2752        let tmp = tempfile::tempdir().unwrap();
2753        let (store, mut spec) = builder_fixture(tmp.path());
2754
2755        // Caché de fetch con un mirror sintético + un árbol sources/ regenerable (no debe viajar).
2756        let work = tmp.path().join("work");
2757        std::fs::create_dir_all(work.join("repos/musl.git")).unwrap();
2758        std::fs::write(work.join("repos/musl.git/HEAD"), b"ref: refs/heads/master\n").unwrap();
2759        std::fs::create_dir_all(work.join("sources/musl-abc")).unwrap();
2760        std::fs::write(work.join("sources/musl-abc/configure"), b"#!/bin/sh\n").unwrap();
2761        spec.work_cache = Some(work.clone());
2762
2763        // out_dir vive DENTRO de la caché: el caso que disparaba la recursión.
2764        let out = work.join("builder-rootfs");
2765        let report = builder_rootfs(&spec, &store, &out).unwrap();
2766        assert!(report.builder_hash.as_str().starts_with("b3:"));
2767
2768        // Sólo viajan los mirrors; el destino NO se copió en sí mismo; sources/ NO se embebe.
2769        assert!(out.join("work/repos/musl.git/HEAD").is_file(), "los mirrors git se embeben");
2770        assert!(
2771            !out.join("work/builder-rootfs").exists(),
2772            "el out_dir no debe haberse copiado en su propio /work (recursión)",
2773        );
2774        assert!(
2775            !out.join("work/sources").exists(),
2776            "sources/ es regenerable y pesado: no debe viajar en el builder",
2777        );
2778    }
2779
2780    #[test]
2781    fn builder_rootfs_errors_when_stage1_unsealed() {
2782        let tmp = tempfile::tempdir().unwrap();
2783        let (store, mut spec) = builder_fixture(tmp.path());
2784        spec.stage1_rootfs = ArtifactHash::from_hex("0000"); // nunca sellado
2785        let out = tmp.path().join("builder-out");
2786        let err = builder_rootfs(&spec, &store, &out).unwrap_err().to_string();
2787        assert!(err.contains("no sellado"), "{err}");
2788    }
2789
2790    #[test]
2791    fn artifact_content_hash_errors_when_unsealed() {
2792        let tmp = tempfile::tempdir().unwrap();
2793        let store = Store::open(tmp.path().join("store")).unwrap();
2794        let err = artifact_content_hash(&store, &ArtifactHash::from_hex("00"), "stage1-rootfs")
2795            .unwrap_err()
2796            .to_string();
2797        assert!(err.contains("no sellado"), "{err}");
2798    }
2799
2800    #[test]
2801    fn all_shipped_recipes_parse_and_hash() {
2802        // Toda receta en recipes/ (incluida arje-zero, el puente Cargo a tawasuyu) debe parsear y
2803        // hashear offline. Cubre las que no están en STAGE1_COMPONENTS y futuras.
2804        let recipes_dir = Path::new(env!("CARGO_MANIFEST_DIR")).join("../../recipes");
2805        let tmp = tempfile::tempdir().unwrap();
2806        let store = Store::open(tmp.path().join("store")).unwrap();
2807        let mut count = 0;
2808        for entry in std::fs::read_dir(&recipes_dir).unwrap() {
2809            let path = entry.unwrap().path();
2810            if path.extension().and_then(|e| e.to_str()) != Some("toml") {
2811                continue;
2812            }
2813            let r = Recipe::load_from_path(&path)
2814                .unwrap_or_else(|e| panic!("parse {}: {e}", path.display()));
2815            let h = takana_build::artifact_hash(&r, &store, &takana_core::lab::LabFingerprint::for_tests())
2816                .unwrap_or_else(|e| panic!("hash {}: {e}", path.display()));
2817            assert!(h.as_str().starts_with("b3:"), "{}: hash con prefijo b3:", path.display());
2818            count += 1;
2819        }
2820        assert!(count >= 5, "esperaba ≥5 recetas (grep/musl/busybox/hammerd/arje-zero), vi {count}");
2821    }
2822}