202 lines
6.6 KiB
Bash
Executable File
202 lines
6.6 KiB
Bash
Executable File
#!/bin/sh
|
|
set -eu
|
|
|
|
source_repo=${GUIX_SOURCE_REPO:-"$HOME/repos/guix"}
|
|
store_dir=${STORE_DIR:-/frx/store}
|
|
localstatedir=${LOCALSTATEDIR:-/frx/var}
|
|
sysconfdir=${SYSCONFDIR:-/frx/etc}
|
|
|
|
guile_bin=${GUILE_BIN:-/tmp/guile-freebsd-validate-install/bin/guile}
|
|
if [ ! -x "$guile_bin" ]; then
|
|
echo "Guile binary is not executable: $guile_bin" >&2
|
|
exit 1
|
|
fi
|
|
|
|
guile_bindir=$(CDPATH= cd -- "$(dirname "$guile_bin")" && pwd)
|
|
guile_prefix=$(CDPATH= cd -- "$guile_bindir/.." && pwd)
|
|
guile_lib_dir=$guile_prefix/lib
|
|
guile_version=$(LD_LIBRARY_PATH="$guile_lib_dir${LD_LIBRARY_PATH:+:$LD_LIBRARY_PATH}" "$guile_bin" -c '(display (effective-version))')
|
|
export PATH="$guile_bindir:/usr/local/bin:$PATH"
|
|
export ACLOCAL_PATH=/usr/local/share/aclocal${ACLOCAL_PATH:+:$ACLOCAL_PATH}
|
|
|
|
if [ -n "${GUILE_EXTRA_PREFIX:-}" ]; then
|
|
extra_site_dir=$GUILE_EXTRA_PREFIX/share/guile/site/$guile_version
|
|
extra_ccache_dir=$GUILE_EXTRA_PREFIX/lib/guile/$guile_version/site-ccache
|
|
extra_extensions_dir=$GUILE_EXTRA_PREFIX/lib/guile/$guile_version/extensions
|
|
if [ -d "$extra_site_dir" ]; then
|
|
export GUILE_LOAD_PATH="$extra_site_dir${GUILE_LOAD_PATH:+:$GUILE_LOAD_PATH}"
|
|
fi
|
|
if [ -d "$extra_ccache_dir" ]; then
|
|
export GUILE_LOAD_COMPILED_PATH="$extra_ccache_dir${GUILE_LOAD_COMPILED_PATH:+:$GUILE_LOAD_COMPILED_PATH}"
|
|
fi
|
|
if [ -d "$extra_extensions_dir" ]; then
|
|
export GUILE_EXTENSIONS_PATH="$extra_extensions_dir${GUILE_EXTENSIONS_PATH:+:$GUILE_EXTENSIONS_PATH}"
|
|
fi
|
|
if [ -n "${LD_LIBRARY_PATH:-}" ]; then
|
|
export LD_LIBRARY_PATH="$GUILE_EXTRA_PREFIX/lib:$guile_lib_dir:/usr/local/lib:$LD_LIBRARY_PATH"
|
|
else
|
|
export LD_LIBRARY_PATH="$GUILE_EXTRA_PREFIX/lib:$guile_lib_dir:/usr/local/lib"
|
|
fi
|
|
else
|
|
if [ -n "${LD_LIBRARY_PATH:-}" ]; then
|
|
export LD_LIBRARY_PATH="$guile_lib_dir:/usr/local/lib:$LD_LIBRARY_PATH"
|
|
else
|
|
export LD_LIBRARY_PATH="$guile_lib_dir:/usr/local/lib"
|
|
fi
|
|
fi
|
|
|
|
cleanup=0
|
|
if [ -n "${WORKDIR:-}" ]; then
|
|
workdir=$WORKDIR
|
|
mkdir -p "$workdir"
|
|
else
|
|
workdir=$(mktemp -d /tmp/fruix-guix-derivation-investigation.XXXXXX)
|
|
cleanup=1
|
|
fi
|
|
|
|
if [ "${KEEP_WORKDIR:-0}" -eq 1 ]; then
|
|
cleanup=0
|
|
fi
|
|
|
|
cleanup_workdir() {
|
|
if [ "$cleanup" -eq 1 ]; then
|
|
rm -rf "$workdir"
|
|
fi
|
|
}
|
|
trap cleanup_workdir EXIT INT TERM
|
|
|
|
srcclone=$workdir/guix-src
|
|
build_unsupported=$workdir/build-unsupported
|
|
build_courage=$workdir/build-with-courage
|
|
bootstrap_log=$workdir/bootstrap.log
|
|
unsupported_log=$workdir/configure-unsupported.log
|
|
courage_log=$workdir/configure-with-courage.log
|
|
metadata_file=$workdir/derivation-generation-investigation.txt
|
|
gnutls_check_out=$workdir/guile-gnutls-check.out
|
|
gnutls_check_err=$workdir/guile-gnutls-check.err
|
|
|
|
printf 'Working directory: %s\n' "$workdir"
|
|
printf 'Cloning source from: %s\n' "$source_repo"
|
|
git clone --shared "$source_repo" "$srcclone" >/dev/null 2>&1
|
|
|
|
(
|
|
cd "$srcclone"
|
|
./bootstrap
|
|
) >"$bootstrap_log" 2>&1
|
|
|
|
mkdir -p "$build_unsupported" "$build_courage"
|
|
|
|
set +e
|
|
(
|
|
cd "$build_unsupported"
|
|
PKG_CONFIG_PATH=/usr/local/libdata/pkgconfig:/usr/local/lib/pkgconfig \
|
|
CPPFLAGS='-I/usr/local/include' \
|
|
LDFLAGS='-L/usr/local/lib -Wl,-rpath,/usr/local/lib' \
|
|
GUILE="$guile_bin" \
|
|
GUILE_EFFECTIVE_VERSION=3.0 \
|
|
"$srcclone/configure" \
|
|
--with-store-dir="$store_dir" \
|
|
--localstatedir="$localstatedir" \
|
|
--sysconfdir="$sysconfdir"
|
|
) >"$unsupported_log" 2>&1
|
|
unsupported_rc=$?
|
|
|
|
(
|
|
cd "$build_courage"
|
|
PKG_CONFIG_PATH=/usr/local/libdata/pkgconfig:/usr/local/lib/pkgconfig \
|
|
CPPFLAGS='-I/usr/local/include' \
|
|
LDFLAGS='-L/usr/local/lib -Wl,-rpath,/usr/local/lib' \
|
|
GUILE="$guile_bin" \
|
|
GUILE_EFFECTIVE_VERSION=3.0 \
|
|
"$srcclone/configure" \
|
|
--with-courage \
|
|
--with-store-dir="$store_dir" \
|
|
--localstatedir="$localstatedir" \
|
|
--sysconfdir="$sysconfdir"
|
|
) >"$courage_log" 2>&1
|
|
courage_rc=$?
|
|
set -e
|
|
|
|
unsupported_summary=$(grep -E "supported platform|Guix system type|configure: error" "$unsupported_log" | tail -n 5 || true)
|
|
courage_summary=$(grep -E "supported platform|GnuTLS|guile 3.0|Guile-Git|configure: error|configure: WARNING" "$courage_log" | tail -n 8 || true)
|
|
|
|
local_gnutls_check=missing
|
|
set +e
|
|
"$guile_bin" -c '(use-modules (gnutls)) (display "ok") (newline)' >"$gnutls_check_out" 2>"$gnutls_check_err"
|
|
check_rc=$?
|
|
set -e
|
|
if [ "$check_rc" -eq 0 ]; then
|
|
local_gnutls_check=present
|
|
fi
|
|
|
|
if [ "$unsupported_rc" -eq 0 ]; then
|
|
echo "configure without --with-courage unexpectedly succeeded" >&2
|
|
exit 1
|
|
fi
|
|
if ! grep -q "not a supported platform" "$unsupported_log"; then
|
|
echo "configure without --with-courage failed, but not for the expected unsupported-platform reason" >&2
|
|
exit 1
|
|
fi
|
|
if [ "$courage_rc" -eq 0 ]; then
|
|
echo "configure with --with-courage unexpectedly succeeded; investigation expectations need updating" >&2
|
|
exit 1
|
|
fi
|
|
if [ "$local_gnutls_check" = missing ]; then
|
|
if ! grep -q "Guile bindings of GnuTLS are missing" "$courage_log"; then
|
|
echo "configure with --with-courage failed, but not for the expected missing-GnuTLS-bindings reason" >&2
|
|
exit 1
|
|
fi
|
|
else
|
|
if grep -q "Guile bindings of GnuTLS are missing" "$courage_log"; then
|
|
echo "configure with --with-courage still reports missing GnuTLS bindings even though (gnutls) loads" >&2
|
|
exit 1
|
|
fi
|
|
fi
|
|
|
|
cat >"$metadata_file" <<EOF
|
|
source_repo=$source_repo
|
|
srcclone=$srcclone
|
|
guile_bin=$guile_bin
|
|
guile_version=$guile_version
|
|
guile_extra_prefix=${GUILE_EXTRA_PREFIX:-<unset>}
|
|
store_dir=$store_dir
|
|
localstatedir=$localstatedir
|
|
sysconfdir=$sysconfdir
|
|
bootstrap_log=$bootstrap_log
|
|
configure_unsupported_log=$unsupported_log
|
|
configure_with_courage_log=$courage_log
|
|
configure_without_courage_rc=$unsupported_rc
|
|
configure_with_courage_rc=$courage_rc
|
|
local_guile_gnutls_module=$local_gnutls_check
|
|
unsupported_summary_begin
|
|
$unsupported_summary
|
|
unsupported_summary_end
|
|
courage_summary_begin
|
|
$courage_summary
|
|
courage_summary_end
|
|
EOF
|
|
|
|
if [ -n "${METADATA_OUT:-}" ]; then
|
|
mkdir -p "$(dirname "$METADATA_OUT")"
|
|
cp "$metadata_file" "$METADATA_OUT"
|
|
fi
|
|
|
|
printf 'PASS guix-derivation-generation-investigation\n'
|
|
printf 'Store dir under test: %s\n' "$store_dir"
|
|
printf 'Finding 1: configure without --with-courage is blocked by unsupported platform gating.\n'
|
|
if [ "$local_gnutls_check" = missing ]; then
|
|
printf 'Finding 2: configure with --with-courage is currently blocked by missing Guile (gnutls) bindings.\n'
|
|
else
|
|
printf 'Finding 2: Guile (gnutls) bindings are available; configure now advances to the next blocker.\n'
|
|
fi
|
|
if [ "$cleanup" -eq 0 ]; then
|
|
printf 'Metadata file: %s\n' "$metadata_file"
|
|
else
|
|
printf '%s\n' 'Work directory will be removed on exit (set KEEP_WORKDIR=1 to preserve it).'
|
|
fi
|
|
if [ -n "${METADATA_OUT:-}" ]; then
|
|
printf 'Copied metadata to: %s\n' "$METADATA_OUT"
|
|
fi
|
|
printf '%s\n' '--- metadata ---'
|
|
cat "$metadata_file"
|