Files
fruix/tests/guix/build-local-guile-configure-deps.sh

431 lines
17 KiB
Bash
Executable File

#!/bin/sh
set -eu
guile_sqlite3_repo=${GUILE_SQLITE3_REPO:-"https://codeberg.org/guile-sqlite3/guile-sqlite3.git"}
guile_sqlite3_version=${GUILE_SQLITE3_VERSION:-0.1.3}
guile_gcrypt_repo=${GUILE_GCRYPT_REPO:-"https://codeberg.org/guile-gcrypt/guile-gcrypt.git"}
guile_gcrypt_version=${GUILE_GCRYPT_VERSION:-0.5.0}
guile_zlib_source_url=${GUILE_ZLIB_SOURCE_URL:-"https://codeberg.org/guile-compression/guile-zlib/archive/v0.2.2.tar.gz"}
guile_zlib_version=${GUILE_ZLIB_VERSION:-0.2.2}
guile_zlib_nix_base32=${GUILE_ZLIB_NIX_BASE32:-04p9lb3bq5y0k358s8agpksx9x68vzx330cb8jkn4qp3qj7cmnx2}
guile_lzlib_source_url=${GUILE_LZLIB_SOURCE_URL:-"https://codeberg.org/guile-compression/guile-lzlib/archive/0.3.0.tar.gz"}
guile_lzlib_repo=${GUILE_LZLIB_REPO:-"https://codeberg.org/guile-compression/guile-lzlib"}
guile_lzlib_version=${GUILE_LZLIB_VERSION:-0.3.0}
guile_lzlib_nix_base32=${GUILE_LZLIB_NIX_BASE32:-1whgmwkr1v8m63p4aaqn8blwl9vcrswwhbfv4bm0aghl5a6rryd7}
guile_semver_repo=${GUILE_SEMVER_REPO:-"https://codeberg.org/daym/guile-semver.git"}
guile_semver_version=${GUILE_SEMVER_VERSION:-0.2.0}
install_prefix=${INSTALL_PREFIX:-/tmp/guile-gnutls-freebsd-validate-install}
guile_bin=${GUILE_BIN:-/tmp/guile-freebsd-validate-install/bin/guile}
guix_source_dir=${GUIX_SOURCE_DIR:-"$HOME/repos/guix"}
make_bin=${MAKE_BIN:-gmake}
if [ ! -x "$guile_bin" ]; then
echo "Guile binary is not executable: $guile_bin" >&2
exit 1
fi
if [ ! -d "$guix_source_dir/guix" ]; then
echo "Guix source tree not found at $guix_source_dir" >&2
exit 1
fi
for tool in git autoreconf fetch sha256 bsdtar pkg-config "$make_bin"; do
if ! command -v "$tool" >/dev/null 2>&1; then
echo "Required tool not found: $tool" >&2
exit 1
fi
done
for module in sqlite3 libgcrypt; do
if ! pkg-config --exists "$module"; then
echo "Required pkg-config module not found: $module" >&2
echo "Install the corresponding host package first (for example via pkg)." >&2
exit 1
fi
done
if [ ! -f /usr/local/include/lzlib.h ] || [ ! -f /usr/local/lib/liblz.so ]; then
echo "Required lzlib headers or shared library not found under /usr/local" >&2
echo "Install the lzlib package first (for example via pkg)." >&2
exit 1
fi
cleanup=0
if [ -n "${WORKDIR:-}" ]; then
workdir=$WORKDIR
mkdir -p "$workdir"
else
workdir=$(mktemp -d /tmp/fruix-guile-configure-deps.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
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))')
site_dir=$install_prefix/share/guile/site/$guile_version
site_ccache_dir=$install_prefix/lib/guile/$guile_version/site-ccache
extensions_dir=$install_prefix/lib/guile/$guile_version/extensions
tool_bindir=$workdir/guile-tools-bin
mkdir -p "$tool_bindir"
ln -sf "$guile_bin" "$tool_bindir/guile-3.0"
ln -sf "$guile_bin" "$tool_bindir/guile"
ln -sf "$guile_bindir/guild" "$tool_bindir/guild-3.0"
ln -sf "$guile_bindir/guild" "$tool_bindir/guild"
ln -sf "$guile_bindir/guile-config" "$tool_bindir/guile-config-3.0"
ln -sf "$guile_bindir/guile-config" "$tool_bindir/guile-config"
ln -sf "$guile_bindir/guile-snarf" "$tool_bindir/guile-snarf"
export PATH="$tool_bindir:$guile_bindir:/usr/local/bin:$PATH"
export ACLOCAL_PATH=/usr/local/share/aclocal${ACLOCAL_PATH:+:$ACLOCAL_PATH}
export PKG_CONFIG_PATH=/usr/local/libdata/pkgconfig:/usr/local/lib/pkgconfig${PKG_CONFIG_PATH:+:$PKG_CONFIG_PATH}
export CPPFLAGS='-I/usr/local/include'
export LDFLAGS="-L/usr/local/lib -Wl,-rpath,/usr/local/lib -Wl,-rpath,$guile_lib_dir -Wl,-rpath,$install_prefix/lib"
if [ -n "${LD_LIBRARY_PATH:-}" ]; then
export LD_LIBRARY_PATH="$install_prefix/lib:$guile_lib_dir:/usr/local/lib:$LD_LIBRARY_PATH"
else
export LD_LIBRARY_PATH="$install_prefix/lib:$guile_lib_dir:/usr/local/lib"
fi
if [ -d "$site_dir" ]; then
export GUILE_LOAD_PATH="$site_dir${GUILE_LOAD_PATH:+:$GUILE_LOAD_PATH}"
fi
if [ -d "$site_ccache_dir" ]; then
export GUILE_LOAD_COMPILED_PATH="$site_ccache_dir${GUILE_LOAD_COMPILED_PATH:+:$GUILE_LOAD_COMPILED_PATH}"
fi
if [ -d "$extensions_dir" ]; then
export GUILE_EXTENSIONS_PATH="$extensions_dir${GUILE_EXTENSIONS_PATH:+:$GUILE_EXTENSIONS_PATH}"
fi
metadata_file=$workdir/guile-configure-deps-build-metadata.txt
env_file=$workdir/guile-configure-deps-env.sh
printf 'Using Guile: %s\n' "$guile_bin"
printf 'Installing into existing prefix: %s\n' "$install_prefix"
printf 'Working directory: %s\n' "$workdir"
rm -rf \
"$site_dir/sqlite3" "$site_dir/sqlite3.scm" "$site_ccache_dir/sqlite3" "$site_ccache_dir/sqlite3.go" \
"$site_dir/gcrypt" "$site_dir/gcrypt.scm" "$site_ccache_dir/gcrypt" "$site_ccache_dir/gcrypt.go" \
"$site_dir/zlib" "$site_dir/zlib.scm" "$site_ccache_dir/zlib" "$site_ccache_dir/zlib.go" \
"$site_dir/lzlib" "$site_dir/lzlib.scm" "$site_ccache_dir/lzlib" "$site_ccache_dir/lzlib.go" \
"$site_dir/semver" "$site_dir/semver.scm" "$site_ccache_dir/semver" "$site_ccache_dir/semver.go"
mkdir -p "$install_prefix"
expected_zlib_sha256_hex=$(GUILE_AUTO_COMPILE=0 \
GUILE_LOAD_PATH="$guix_source_dir${GUILE_LOAD_PATH:+:$GUILE_LOAD_PATH}" \
"$guile_bin" -c "(use-modules (guix base32) (rnrs bytevectors) (ice-9 format)) (for-each (lambda (b) (format #t \"~2,'0x\" b)) (bytevector->u8-list (nix-base32-string->bytevector (cadr (command-line))))) (newline)" \
"$guile_zlib_nix_base32")
expected_lzlib_sha256_hex=$(GUILE_AUTO_COMPILE=0 \
GUILE_LOAD_PATH="$guix_source_dir${GUILE_LOAD_PATH:+:$GUILE_LOAD_PATH}" \
"$guile_bin" -c "(use-modules (guix base32) (rnrs bytevectors) (ice-9 format)) (for-each (lambda (b) (format #t \"~2,'0x\" b)) (bytevector->u8-list (nix-base32-string->bytevector (cadr (command-line))))) (newline)" \
"$guile_lzlib_nix_base32")
sqlite3_src_dir=$workdir/guile-sqlite3
sqlite3_build_dir=$workdir/build-guile-sqlite3
sqlite3_bootstrap_log=$workdir/guile-sqlite3-bootstrap.log
sqlite3_configure_log=$workdir/guile-sqlite3-configure.log
sqlite3_build_log=$workdir/guile-sqlite3-build.log
sqlite3_install_log=$workdir/guile-sqlite3-install.log
git clone --depth 1 --branch "v$guile_sqlite3_version" "$guile_sqlite3_repo" "$sqlite3_src_dir" >"$workdir/guile-sqlite3-clone.log" 2>&1
guile_sqlite3_commit=$(git -C "$sqlite3_src_dir" rev-parse HEAD)
(
cd "$sqlite3_src_dir"
autoreconf -vfi
) >"$sqlite3_bootstrap_log" 2>&1
mkdir -p "$sqlite3_build_dir"
(
cd "$sqlite3_build_dir"
"$sqlite3_src_dir/configure" --prefix="$install_prefix"
) >"$sqlite3_configure_log" 2>&1
(
cd "$sqlite3_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 -j"${JOBS:-$(sysctl -n hw.ncpu 2>/dev/null || echo 1)}"
) >"$sqlite3_build_log" 2>&1
(
cd "$sqlite3_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 install
) >"$sqlite3_install_log" 2>&1
sqlite3_check=$("$guile_bin" -c '(use-modules (sqlite3)) (display (if (procedure? sqlite-bind-arguments) "ok" "missing-export")) (newline)')
if [ "$sqlite3_check" != "ok" ]; then
echo "(sqlite3) module validation failed" >&2
exit 1
fi
gcrypt_src_dir=$workdir/guile-gcrypt
gcrypt_build_dir=$workdir/build-guile-gcrypt
gcrypt_bootstrap_log=$workdir/guile-gcrypt-bootstrap.log
gcrypt_configure_log=$workdir/guile-gcrypt-configure.log
gcrypt_build_log=$workdir/guile-gcrypt-build.log
gcrypt_install_log=$workdir/guile-gcrypt-install.log
git clone --depth 1 --branch "v$guile_gcrypt_version" "$guile_gcrypt_repo" "$gcrypt_src_dir" >"$workdir/guile-gcrypt-clone.log" 2>&1
guile_gcrypt_commit=$(git -C "$gcrypt_src_dir" rev-parse HEAD)
(
cd "$gcrypt_src_dir"
autoreconf -vfi
) >"$gcrypt_bootstrap_log" 2>&1
mkdir -p "$gcrypt_build_dir"
(
cd "$gcrypt_build_dir"
"$gcrypt_src_dir/configure" --prefix="$install_prefix" --with-libgcrypt-prefix=/usr/local
) >"$gcrypt_configure_log" 2>&1
(
cd "$gcrypt_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 -j1
) >"$gcrypt_build_log" 2>&1
(
cd "$gcrypt_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 install
) >"$gcrypt_install_log" 2>&1
gcrypt_check=$("$guile_bin" -c '(use-modules (gcrypt hash)) (display (if (equal? (hash-algorithm sha256) (lookup-hash-algorithm (quote sha256))) "ok" "mismatch")) (newline)')
if [ "$gcrypt_check" != "ok" ]; then
echo "(gcrypt hash) module validation failed" >&2
exit 1
fi
zlib_tarball=$workdir/guile-zlib-$guile_zlib_version.tar.gz
zlib_src_dir=$workdir/guile-zlib
zlib_build_dir=$workdir/build-guile-zlib
zlib_bootstrap_log=$workdir/guile-zlib-bootstrap.log
zlib_configure_log=$workdir/guile-zlib-configure.log
zlib_build_log=$workdir/guile-zlib-build.log
zlib_install_log=$workdir/guile-zlib-install.log
fetch -o "$zlib_tarball" "$guile_zlib_source_url"
actual_zlib_sha256_hex=$(sha256 -q "$zlib_tarball")
if [ "$actual_zlib_sha256_hex" != "$expected_zlib_sha256_hex" ]; then
echo "sha256 mismatch for $zlib_tarball" >&2
echo "expected: $expected_zlib_sha256_hex" >&2
echo "actual: $actual_zlib_sha256_hex" >&2
exit 1
fi
bsdtar -xf "$zlib_tarball" -C "$workdir"
(
cd "$zlib_src_dir"
if [ -x ./autogen.sh ]; then
./autogen.sh
else
autoreconf -vfi
fi
) >"$zlib_bootstrap_log" 2>&1
mkdir -p "$zlib_build_dir"
(
cd "$zlib_build_dir"
"$zlib_src_dir/configure" --prefix="$install_prefix"
) >"$zlib_configure_log" 2>&1
(
cd "$zlib_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 -j"${JOBS:-$(sysctl -n hw.ncpu 2>/dev/null || echo 1)}"
) >"$zlib_build_log" 2>&1
(
cd "$zlib_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 install
) >"$zlib_install_log" 2>&1
zlib_check=$("$guile_bin" -c '(use-modules (zlib)) (display (if (procedure? make-zlib-input-port) "ok" "missing-export")) (newline)')
if [ "$zlib_check" != "ok" ]; then
echo "(zlib) module validation failed" >&2
exit 1
fi
lzlib_tarball=$workdir/guile-lzlib-$guile_lzlib_version.tar.gz
lzlib_src_dir=$workdir/guile-lzlib
lzlib_build_dir=$workdir/build-guile-lzlib
lzlib_bootstrap_log=$workdir/guile-lzlib-bootstrap.log
lzlib_configure_log=$workdir/guile-lzlib-configure.log
lzlib_build_log=$workdir/guile-lzlib-build.log
lzlib_install_log=$workdir/guile-lzlib-install.log
lzlib_source_mode=tarball
lzlib_source_note=matched-guix-hash
lzlib_fallback_commit='<none>'
fetch -o "$lzlib_tarball" "$guile_lzlib_source_url"
actual_lzlib_sha256_hex=$(sha256 -q "$lzlib_tarball")
if [ "$actual_lzlib_sha256_hex" = "$expected_lzlib_sha256_hex" ]; then
bsdtar -xf "$lzlib_tarball" -C "$workdir"
else
lzlib_source_mode=git-fallback
lzlib_source_note=source-url-hash-mismatch
git clone --depth 1 --branch "$guile_lzlib_version" "$guile_lzlib_repo" "$lzlib_src_dir" >"$workdir/guile-lzlib-clone.log" 2>&1
lzlib_fallback_commit=$(git -C "$lzlib_src_dir" rev-parse HEAD)
fi
(
cd "$lzlib_src_dir"
if [ -x ./autogen.sh ]; then
./autogen.sh
else
autoreconf -vfi
fi
) >"$lzlib_bootstrap_log" 2>&1
mkdir -p "$lzlib_build_dir"
(
cd "$lzlib_build_dir"
"$lzlib_src_dir/configure" --prefix="$install_prefix"
) >"$lzlib_configure_log" 2>&1
(
cd "$lzlib_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 -j"${JOBS:-$(sysctl -n hw.ncpu 2>/dev/null || echo 1)}"
) >"$lzlib_build_log" 2>&1
(
cd "$lzlib_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 install
) >"$lzlib_install_log" 2>&1
lzlib_check=$("$guile_bin" -c '(use-modules (lzlib)) (display "ok") (newline)')
if [ "$lzlib_check" != "ok" ]; then
echo "(lzlib) module validation failed" >&2
exit 1
fi
semver_src_dir=$workdir/guile-semver
semver_build_dir=$workdir/build-guile-semver
semver_bootstrap_log=$workdir/guile-semver-bootstrap.log
semver_configure_log=$workdir/guile-semver-configure.log
semver_build_log=$workdir/guile-semver-build.log
semver_install_log=$workdir/guile-semver-install.log
git clone --depth 1 --branch "v$guile_semver_version" "$guile_semver_repo" "$semver_src_dir" >"$workdir/guile-semver-clone.log" 2>&1
guile_semver_commit=$(git -C "$semver_src_dir" rev-parse HEAD)
(
cd "$semver_src_dir"
autoreconf -vfi
) >"$semver_bootstrap_log" 2>&1
mkdir -p "$semver_build_dir"
(
cd "$semver_build_dir"
"$semver_src_dir/configure" --prefix="$install_prefix"
) >"$semver_configure_log" 2>&1
(
cd "$semver_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 -j"${JOBS:-$(sysctl -n hw.ncpu 2>/dev/null || echo 1)}"
) >"$semver_build_log" 2>&1
(
cd "$semver_build_dir"
"$make_bin" GUILE_AUTO_COMPILE=0 install
) >"$semver_install_log" 2>&1
semver_check=$("$guile_bin" -c '(use-modules (semver)) (display (if (procedure? string->semver) "ok" "missing-export")) (newline)')
if [ "$semver_check" != "ok" ]; then
echo "(semver) module validation failed" >&2
exit 1
fi
gnutls_check=$("$guile_bin" -c '(catch #t (lambda () (use-modules (gnutls)) (display "present") (newline)) (lambda _ (display "missing") (newline)))')
git_check=$("$guile_bin" -c '(catch #t (lambda () (use-modules (git)) (display (if (procedure? graph-descendant?) "present" "missing-export")) (newline)) (lambda _ (display "missing") (newline)))')
set +e
json_check=$("$guile_bin" -c '(use-modules (json)) (define-json-mapping <frob> make-frob frob? json->frob (a frob-a) (b frob-b "bee")) (display (if (equal? (json->frob (open-input-string "{ \"a\": 1, \"bee\": 2 }")) (make-frob 1 2)) "present" "mismatch")) (newline)')
json_rc=$?
set -e
if [ "$json_rc" -ne 0 ]; then
json_check=missing
fi
sqlite3_pkg_version=$(pkg-config --modversion sqlite3)
libgcrypt_pkg_version=$(pkg-config --modversion libgcrypt)
lzlib_pkg_version=$(pkg info lzlib | awk 'NR==1 { sub(/^lzlib-/, "", $1); print $1 }')
cat >"$env_file" <<EOF
export GUILE_EXTRA_PREFIX='$install_prefix'
export GUILE_LOAD_PATH='$site_dir'
export GUILE_LOAD_COMPILED_PATH='$site_ccache_dir'
export GUILE_EXTENSIONS_PATH='$extensions_dir'
export LD_LIBRARY_PATH='$install_prefix/lib:$guile_lib_dir:/usr/local/lib'
EOF
cat >"$metadata_file" <<EOF
guile_sqlite3_repo=$guile_sqlite3_repo
guile_sqlite3_version=$guile_sqlite3_version
guile_sqlite3_commit=$guile_sqlite3_commit
guile_gcrypt_repo=$guile_gcrypt_repo
guile_gcrypt_version=$guile_gcrypt_version
guile_gcrypt_commit=$guile_gcrypt_commit
guile_zlib_source_url=$guile_zlib_source_url
guile_zlib_version=$guile_zlib_version
guile_zlib_nix_base32=$guile_zlib_nix_base32
guile_zlib_expected_sha256_hex=$expected_zlib_sha256_hex
guile_zlib_actual_sha256_hex=$actual_zlib_sha256_hex
guile_lzlib_source_url=$guile_lzlib_source_url
guile_lzlib_repo=$guile_lzlib_repo
guile_lzlib_version=$guile_lzlib_version
guile_lzlib_nix_base32=$guile_lzlib_nix_base32
guile_lzlib_expected_sha256_hex=$expected_lzlib_sha256_hex
guile_lzlib_actual_sha256_hex=$actual_lzlib_sha256_hex
guile_lzlib_source_mode=$lzlib_source_mode
guile_lzlib_source_note=$lzlib_source_note
guile_lzlib_fallback_commit=$lzlib_fallback_commit
guile_semver_repo=$guile_semver_repo
guile_semver_version=$guile_semver_version
guile_semver_commit=$guile_semver_commit
guile_bin=$guile_bin
guile_version=$guile_version
install_prefix=$install_prefix
site_dir=$site_dir
site_ccache_dir=$site_ccache_dir
extensions_dir=$extensions_dir
sqlite3_pkg_version=$sqlite3_pkg_version
libgcrypt_pkg_version=$libgcrypt_pkg_version
lzlib_pkg_version=$lzlib_pkg_version
guile_sqlite3_bootstrap_log=$sqlite3_bootstrap_log
guile_sqlite3_configure_log=$sqlite3_configure_log
guile_sqlite3_build_log=$sqlite3_build_log
guile_sqlite3_install_log=$sqlite3_install_log
guile_gcrypt_bootstrap_log=$gcrypt_bootstrap_log
guile_gcrypt_configure_log=$gcrypt_configure_log
guile_gcrypt_build_log=$gcrypt_build_log
guile_gcrypt_install_log=$gcrypt_install_log
guile_zlib_bootstrap_log=$zlib_bootstrap_log
guile_zlib_configure_log=$zlib_configure_log
guile_zlib_build_log=$zlib_build_log
guile_zlib_install_log=$zlib_install_log
guile_lzlib_bootstrap_log=$lzlib_bootstrap_log
guile_lzlib_configure_log=$lzlib_configure_log
guile_lzlib_build_log=$lzlib_build_log
guile_lzlib_install_log=$lzlib_install_log
guile_semver_bootstrap_log=$semver_bootstrap_log
guile_semver_configure_log=$semver_configure_log
guile_semver_build_log=$semver_build_log
guile_semver_install_log=$semver_install_log
sqlite3_module_check=$sqlite3_check
gcrypt_module_check=$gcrypt_check
zlib_module_check=$zlib_check
lzlib_module_check=$lzlib_check
semver_module_check=$semver_check
gnutls_module_already_present=$gnutls_check
guile_git_module_already_present=$git_check
guile_json_module_already_present=$json_check
env_file=$env_file
EOF
if [ -n "${METADATA_OUT:-}" ]; then
mkdir -p "$(dirname "$METADATA_OUT")"
cp "$metadata_file" "$METADATA_OUT"
fi
if [ -n "${ENV_OUT:-}" ]; then
mkdir -p "$(dirname "$ENV_OUT")"
cp "$env_file" "$ENV_OUT"
fi
printf 'PASS local-guile-configure-deps-build\n'
printf 'sqlite3 module check: %s\n' "$sqlite3_check"
printf 'gcrypt module check: %s\n' "$gcrypt_check"
printf 'zlib module check: %s\n' "$zlib_check"
printf 'lzlib module check: %s\n' "$lzlib_check"
printf 'semver module check: %s\n' "$semver_check"
printf 'Existing (gnutls) module in prefix: %s\n' "$gnutls_check"
printf 'Existing (git) module in prefix: %s\n' "$git_check"
printf 'Existing (json) module in prefix: %s\n' "$json_check"
printf 'Environment file: %s\n' "$env_file"
printf 'Metadata file: %s\n' "$metadata_file"
if [ -n "${ENV_OUT:-}" ]; then
printf 'Copied environment file to: %s\n' "$ENV_OUT"
fi
if [ -n "${METADATA_OUT:-}" ]; then
printf 'Copied metadata file to: %s\n' "$METADATA_OUT"
fi
printf '%s\n' '--- metadata ---'
cat "$metadata_file"