#!/bin/sh
set -eu

project_root=$(CDPATH= cd -- "$(dirname "$0")/.." && pwd)
builder_root=${FRUIX_BUILDER_ROOT:-$HOME/.local/opt/fruix-builder}
legacy_guile_bin=/tmp/guile-freebsd-validate-install/bin/guile
legacy_guile_extra_prefix=/tmp/guile-gnutls-freebsd-validate-install
legacy_shepherd_prefix=/tmp/shepherd-freebsd-validate-install
legacy_guix_source_dir=$HOME/repos/guix
fruix_channel_url=${FRUIX_CHANNEL_URL:-https://git.teralink.net/self/fruix.git}
script=$project_root/scripts/fruix.scm
modules_dir=$project_root/modules

if [ -x "$builder_root/guile/bin/guile" ]; then
  default_guile_bin=$builder_root/guile/bin/guile
else
  default_guile_bin=$legacy_guile_bin
fi
if [ -d "$builder_root/guile-extra" ]; then
  default_guile_extra_prefix=$builder_root/guile-extra
else
  default_guile_extra_prefix=$legacy_guile_extra_prefix
fi
if [ -d "$builder_root/shepherd" ]; then
  default_shepherd_prefix=$builder_root/shepherd
else
  default_shepherd_prefix=$legacy_shepherd_prefix
fi
if [ -d "$builder_root/src/guix/guix" ]; then
  default_guix_source_dir=$builder_root/src/guix
else
  default_guix_source_dir=$legacy_guix_source_dir
fi

guix_source_dir=${GUIX_SOURCE_DIR:-$default_guix_source_dir}
guile_bin=${GUILE_BIN:-$default_guile_bin}
guile_extra_prefix=${GUILE_EXTRA_PREFIX:-$default_guile_extra_prefix}
shepherd_prefix=${SHEPHERD_PREFIX:-$default_shepherd_prefix}

discover_guile_newt_store()
{
  if [ -n "${FRUIX_GUILE_NEWT_STORE:-}" ] && [ -d "$FRUIX_GUILE_NEWT_STORE" ]; then
    printf '%s\n' "$FRUIX_GUILE_NEWT_STORE"
    return 0
  fi
  for path in /frx/store/*-fruix-guile-newt-*; do
    [ -d "$path" ] || continue
    printf '%s\n' "$path"
  done | sort | tail -n 1
}

if [ ! -x "$guile_bin" ]; then
  echo "Guile binary is not executable: $guile_bin" >&2
  echo "Prepare a builder environment first, or set GUILE_BIN explicitly." >&2
  exit 1
fi

if [ ! -f "$script" ] || [ ! -d "$modules_dir" ]; then
  echo "Canonical Fruix checkout is missing scripts/ or modules/: $project_root" >&2
  echo "Expected canonical Fruix content from $fruix_channel_url" >&2
  exit 1
fi

guile_prefix=$(CDPATH= cd -- "$(dirname "$guile_bin")/.." && 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))')
guile_newt_store=$(discover_guile_newt_store || true)

guile_load_path="$modules_dir:$guix_source_dir"
if [ -d "$shepherd_prefix/share/guile/site/$guile_version" ]; then
  guile_load_path="$guile_load_path:$shepherd_prefix/share/guile/site/$guile_version"
fi
if [ -d "$guile_extra_prefix/share/guile/site/$guile_version" ]; then
  guile_load_path="$guile_load_path:$guile_extra_prefix/share/guile/site/$guile_version"
fi
if [ -n "$guile_newt_store" ] && [ -d "$guile_newt_store/share/guile/site/$guile_version" ]; then
  guile_load_path="$guile_load_path:$guile_newt_store/share/guile/site/$guile_version"
fi
if [ -n "${GUILE_LOAD_PATH:-}" ]; then
  guile_load_path="$guile_load_path:$GUILE_LOAD_PATH"
fi

guile_load_compiled_path=
if [ -d "$shepherd_prefix/lib/guile/$guile_version/site-ccache" ]; then
  guile_load_compiled_path="$shepherd_prefix/lib/guile/$guile_version/site-ccache"
fi
if [ -d "$guile_extra_prefix/lib/guile/$guile_version/site-ccache" ]; then
  guile_load_compiled_path="${guile_load_compiled_path:+$guile_load_compiled_path:}$guile_extra_prefix/lib/guile/$guile_version/site-ccache"
fi
if [ -n "${GUILE_LOAD_COMPILED_PATH:-}" ]; then
  guile_load_compiled_path="${guile_load_compiled_path:+$guile_load_compiled_path:}$GUILE_LOAD_COMPILED_PATH"
fi

guile_extensions_path=
if [ -d "$guile_extra_prefix/lib/guile/$guile_version/extensions" ]; then
  guile_extensions_path="$guile_extra_prefix/lib/guile/$guile_version/extensions"
fi
if [ -n "$guile_newt_store" ] && [ -d "$guile_newt_store/lib/guile/$guile_version/extensions" ]; then
  guile_extensions_path="${guile_extensions_path:+$guile_extensions_path:}$guile_newt_store/lib/guile/$guile_version/extensions"
fi
if [ -n "${GUILE_EXTENSIONS_PATH:-}" ]; then
  guile_extensions_path="${guile_extensions_path:+$guile_extensions_path:}$GUILE_EXTENSIONS_PATH"
fi

ld_library_path="$guile_extra_prefix/lib:$guile_lib_dir:/usr/local/lib"
ltdl_library_path="$ld_library_path"
if [ -n "$guile_newt_store" ] && [ -d "$guile_newt_store/lib" ]; then
  ld_library_path="$guile_newt_store/lib:$ld_library_path"
  ltdl_library_path="$guile_newt_store/lib:$ltdl_library_path"
fi
if [ -n "${LD_LIBRARY_PATH:-}" ]; then
  ld_library_path="$ld_library_path:$LD_LIBRARY_PATH"
fi
if [ -n "${LTDL_LIBRARY_PATH:-}" ]; then
  ltdl_library_path="$ltdl_library_path:$LTDL_LIBRARY_PATH"
fi

exec env \
  GUILE_AUTO_COMPILE=0 \
  GUILE_LOAD_PATH="$guile_load_path" \
  GUILE_LOAD_COMPILED_PATH="$guile_load_compiled_path" \
  GUILE_EXTENSIONS_PATH="$guile_extensions_path" \
  LD_LIBRARY_PATH="$ld_library_path" \
  LTDL_LIBRARY_PATH="$ltdl_library_path" \
  GUILE_PREFIX="$guile_prefix" \
  GUILE_EXTRA_PREFIX="$guile_extra_prefix" \
  GUILE_NEWT_PREFIX="$guile_newt_store" \
  SHEPHERD_PREFIX="$shepherd_prefix" \
  GUIX_SOURCE_DIR="$guix_source_dir" \
  FRUIX_GUILE_NEWT_STORE="$guile_newt_store" \
  FRUIX_PROJECT_ROOT="$project_root" \
  FRUIX_CHANNEL_DIR="$project_root" \
  FRUIX_CHANNEL_URL="$fruix_channel_url" \
  "$guile_bin" --no-auto-compile -s "$script" "$@"
