sergio/takana

1#!/usr/bin/env bash
2# licencias-rootfs.sh — mete los textos de licencia en un rootfs y VETA el que no cumpla.
3#
4# ── EL PUNTO DE ENTREGA ES LA IMAGEN, NO EL PAQUETE ────────────────────────────────────────────
5# El canal de paquetes de hammer no distribuye binarios: `pack` produce un `.swm` (receta de
6# transformación sobre fuente pública, «NUNCA transporta binarios cocidos») e `install` REPRODUCE
7# construyendo con cache-hit del corpus. Donde sí se le entrega un binario a alguien es en la
8# **imagen instalable**, cuyo rootfs se puebla con `hammer install` sobre un prefix. Por eso la
9# obligación de acompañar-el-binario-con-su-licencia se cumple ACÁ. (El SDD 19/20 decía «inyectar en
10# `hammer pack`»; era una lectura equivocada de por dónde salen los binarios.)
11#
12# ── LO QUE HACE ────────────────────────────────────────────────────────────────────────────────
13# Para cada paquete del rootfs escribe `/usr/share/licenses/<pkg>/`: el texto canónico de cada
14# licencia de su expresión SPDX (`MIT OR Apache-2.0` ⇒ los DOS textos, porque el destinatario elige)
15# y un `SPDX` con la expresión literal. Más un `MANIFEST.tsv` global: paquete → expresión.
16#
17# ── Y SOBRE TODO: ES UN VETO, NO UN ADORNO ─────────────────────────────────────────────────────
18# Sale ≠0 si algún paquete del rootfs NO declara licencia. Publicar una imagen con binarios cuya
19# licencia no conocemos es exactamente el riesgo que obliga a bajar una descarga ya publicada, y es
20# el tipo de cosa que nadie mira el día del anuncio si no falla sola. Un informe que no puede
21# bloquear no cambia lo que ocurre; por eso esto corta el paso.
22# `--informe` lo degrada a sólo mirar, para poder medir sin frenar un build en curso.
23#
24# Uso:  scripts/licencias-rootfs.sh <prefix> [pkg...]      (sin pkgs: los lee de stdin)
25#       scripts/licencias-rootfs.sh --informe <prefix> ...
26set -uo pipefail
27ROOT="$(cd "$(dirname "$0")/.." && pwd)"; cd "$ROOT"
28TEXTOS="${TEXTOS:-licenses}"
29
30SOLO_INFORME=0
31[ "${1:-}" = "--informe" ] && { SOLO_INFORME=1; shift; }
32PREFIX="${1:-}"; shift || true
33[ -n "$PREFIX" ] || { echo "uso: $0 [--informe] <prefix> [pkg...]"; exit 2; }
34[ -d "$TEXTOS" ] || { echo "!!  faltan los textos: $TEXTOS (correr scripts/licencias-textos.sh)"; exit 1; }
35
36# Los paquetes: por argumento, o por stdin, o —si no hay ninguno— los que el rootfs tenga bajo
37# /usr/bin, que es una aproximación pobre pero honesta y avisada.
38if [ "$#" -gt 0 ]; then printf '%s\n' "$@" > /tmp/.lic-pkgs
39elif [ ! -t 0 ]; then cat > /tmp/.lic-pkgs
40else echo "!!  sin lista de paquetes (pasala por argumento o stdin)"; exit 2; fi
41sort -u /tmp/.lic-pkgs | grep -v '^$' > /tmp/.lic-pkgs2 && mv /tmp/.lic-pkgs2 /tmp/.lic-pkgs
42
43licencia_de_receta() {
44  f=$(ls "recipes/$1.toml" 2>/dev/null | head -1)
45  [ -z "$f" ] && f=$(ls recipes/incoming-*/"$1.toml" 2>/dev/null | head -1)
46  [ -z "$f" ] && return 1
47  awk -F'"' '/^\[/{exit} /^[[:space:]]*license[[:space:]]*=/{print $2; exit}' "$f"
48}
49
50DESTDIR="$PREFIX/usr/share/licenses"
51[ "$SOLO_INFORME" = 1 ] || mkdir -p "$DESTDIR"
52MAN="$DESTDIR/MANIFEST.tsv"
53[ "$SOLO_INFORME" = 1 ] || {
54  { echo "# paquete<TAB>expresión SPDX — generado por scripts/licencias-rootfs.sh"
55    echo "# El texto de cada licencia está en /usr/share/licenses/<paquete>/"; } > "$MAN"
56}
57
58con=0; sin=0; sinlista=""; sintexto=""
59while IFS= read -r pkg; do
60  lic=$(licencia_de_receta "$pkg" || true)
61  if [ -z "${lic:-}" ]; then sin=$((sin+1)); sinlista="$sinlista $pkg"; continue; fi
62  con=$((con+1))
63  [ "$SOLO_INFORME" = 1 ] && continue
64  d="$DESTDIR/$pkg"; mkdir -p "$d"; printf '%s\n' "$lic" > "$d/SPDX"
65  # Una expresión puede nombrar VARIAS licencias; se copian TODAS. En un `OR` el destinatario elige,
66  # así que entregar sólo una le quita una opción que el autor le concedió.
67  for id in $(printf '%s\n' "$lic" | tr ' ' '\n' | grep -E '^[A-Za-z0-9]' | grep -vE '^(OR|AND|WITH)$'); do
68    if [ -s "$TEXTOS/$id.txt" ]; then cp "$TEXTOS/$id.txt" "$d/$id.txt"
69    else case "$sintexto" in *" $id "*) ;; *) sintexto="$sintexto $id ";; esac; fi
70  done
71  printf '%s\t%s\n' "$pkg" "$lic" >> "$MAN"
72done < /tmp/.lic-pkgs
73
74tot=$((con+sin))
75echo "==> paquetes: $tot · con licencia $con · SIN licencia $sin"
76[ -n "$sintexto" ] && echo "!!  identificadores sin texto en $TEXTOS/:$sintexto"
77if [ "$sin" -gt 0 ]; then
78  echo "!!  ESTA IMAGEN NO SE PUEDE PUBLICAR: $sin paquetes con binarios y licencia desconocida."
79  echo "!!  $(printf '%s' "$sinlista" | cut -c1-300)"
80  [ "$SOLO_INFORME" = 1 ] || exit 1
81fi
82[ "$SOLO_INFORME" = 1 ] || echo "==> escrito $DESTDIR (manifiesto: MANIFEST.tsv)"