#!/bin/sh
# List store items in a cross-built system's closure that contain x86-64
# ELF files: native packages leaked in (PITFALLS #39).
# Usage: scripts/check-closure-arch.sh /gnu/store/...-system
set -eu
guix gc -R "$1" | while read -r item; do
  hit=$(find "$item" -type f \( -perm -u+x -o -name '*.so*' \) 2>/dev/null |
        head -200 | xargs -r file -b 2>/dev/null | grep -m1 'x86-64' || true)
  [ -n "$hit" ] && echo "$item"
done
exit 0