#!/bin/sh

# GNU Guix --- Functional package management for GNU
# Copyright © 2012, 2013, 2014, 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
# Copyright © 2017 Eric Bavier <bavier@cray.com>
#
# This file is part of GNU Guix.
#
# GNU Guix is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or (at
# your option) any later version.
#
# GNU Guix is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

# Usage: ./pre-inst-env COMMAND ARG...
#
# Run COMMAND in a pre-installation environment.  Typical use is
# "./pre-inst-env guix build hello".

# By default we may end up with absolute directory names that contain '..',
# which get into $GUILE_LOAD_PATH, leading to '..' in the module file names
# recorded by Guile.  To avoid that, make sure we get a real absolute
# directory name.  Additionally, use '-P' to get the canonical directory name
# so that Guile's 'relative' %file-port-name-canonicalization can actually
# work (see <http://bugs.gnu.org/17935>.)
abs_top_srcdir="`cd "@abs_top_srcdir@" > /dev/null; pwd -P`"
abs_top_builddir="`cd "@abs_top_builddir@" > /dev/null; pwd -P`"

GUILE_LOAD_COMPILED_PATH="$abs_top_builddir${GUILE_LOAD_COMPILED_PATH:+:}$GUILE_LOAD_COMPILED_PATH"
GUILE_LOAD_PATH="$abs_top_builddir:$abs_top_srcdir${GUILE_LOAD_PATH:+:}$GUILE_LOAD_PATH"
export GUILE_LOAD_COMPILED_PATH GUILE_LOAD_PATH

# Define $PATH so that `guix' and friends are easily found.

PATH="$abs_top_builddir/scripts:$abs_top_builddir:$PATH"
export PATH

# Daemon helpers.

NIX_ROOT_FINDER="$abs_top_builddir/nix/scripts/list-runtime-roots"
NIX_LIBEXEC_DIR="@abs_top_builddir@/nix/scripts" # for 'authenticate', etc.

export NIX_ROOT_FINDER NIX_LIBEXEC_DIR

NIX_BUILD_HOOK="$abs_top_builddir/nix/scripts/offload"
@BUILD_DAEMON_OFFLOAD_TRUE@export NIX_BUILD_HOOK
@BUILD_DAEMON_OFFLOAD_FALSE@# No offloading support.
@BUILD_DAEMON_OFFLOAD_FALSE@unset NIX_BUILD_HOOK

# The following variables need only be defined when compiling Guix
# modules, but we define them to be on the safe side in case of
# auto-compilation.

NIX_HASH="@NIX_HASH@"
export NIX_HASH

# Define $GUIX_UNINSTALLED to prevent `guix' from
# prepending @guilemoduledir@ to the Guile load paths.

GUIX_UNINSTALLED=1
export GUIX_UNINSTALLED

exec "$@"
5-09 12:11:36 +0200'>2019-05-09</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=af55ca481d9e6c1d1e06632f96d550b42f33210f'>system: pam: Add #:l<tr><td><span title='2022-02-02 16:46:44 +0100'>2022-02-02</span></td><td><a href='/guix/commit/gnu/installer/newt/w<tr><td><span title='2017-09-22 00:05:08 +0200'>2017-09-22</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=fbc31dc1247d3a494246e69f3cf28476af9eb9d6'>services: Move 'session-environment-service-type' to pam.scm.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-08 23:11:01 +0200'>2017-05-08</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=e586257b550918fefaab3970f2c314d6285f54ab'>system: Allow root to run "su" without password.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2016-11-06 19:56:43 +0100'>2016-11-06</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=290ad2243c0ce2919918f64fec5652b5a60466a8'>gnu: Remove comment which is factually incorrect.</a><span class='msg-avail'>...</span></td><td>John Darrington</td></tr>
<tr><td><span title='2016-07-19 23:50:03 +0200'>2016-07-19</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=909147e43f8c9f8c9b9d33597d5dd83facca699c'>services: Add pam-limits-service.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2016-02-06 12:01:42 +0100'>2016-02-06</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=12c00bca92e3eef2b86565924bbefc39397b5497'>system: pam: 'pam-root-service-type' can be extended with transformations.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-02-06 12:01:42 +0100'>2016-02-06</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=d7bce31c36469167226df9bed95be39db595c2c8'>system: pam: Export accessors.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-12-05 10:51:49 +0800'>2015-12-05</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=af9908ff56fc9263c5f343c23002ac11300e195e'>system: pam: Honor /etc/environment.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2015-11-03 18:11:45 +0100'>2015-11-03</span></td><td><a href='/guix/commit/gnu/system/pam.scm?id=6e82863463c641571e852291481e2b64401c2fe2'>system: Rename (gnu system linux) to (gnu system pam).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>