/* GNU Guix --- Functional package management for GNU
   Copyright (C) 2020 Ludovic Courtès <ludo@gnu.org>

   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/>.  */

/* This file implements part of the GNU ld.so audit interface.  It is used by
   the "fakechroot" engine of the 'guix pack -RR' wrappers to make sure the
   loader looks for shared objects under the "fake" root directory.  */

#define _GNU_SOURCE 1

#include <link.h>

#include <error.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>

/* The pseudo root directory and store that we are relocating to.  */
static const char *root_directory;
static char *store;

/* The original store, "/gnu/store" by default.  */
static const char original_store[] = "@STORE_DIRECTORY@";

/* Like 'malloc', but abort if 'malloc' returns NULL.  */
static void *
xmalloc (size_t size)
{
  void *result = malloc (size);
  assert (result != NULL);
  return result;
}

unsigned int
la_version (unsigned int v)
{
  if (v != LAV_CURRENT)
    error (1, 0, "cannot handle interface version %u", v);

  root_directory = getenv ("FAKECHROOT_BASE");
  if (root_directory == NULL)
    error (1, 0, "'FAKECHROOT_BASE' is not set");

  store = xmalloc (strlen (root_directory) + sizeof original_store);
  strcpy (store, root_directory);
  strcat (store, original_store);

  return v;
}

/* Return NAME, a shared object file name, relocated under STORE.  This
   function is called by the loader whenever it looks for a shared object.  */
char *
la_objsearch (const char *name, uintptr_t *cookie, unsigned int flag)
{
  char *result;

  if (strncmp (name, original_store,
	       sizeof original_store - 1) == 0)
    {
      size_t len = strlen (name) - sizeof original_store
	+ strlen (store) + 1;
      result = xmalloc (len);
      strcpy (result, store);
      strcat (result, name + sizeof original_store - 1);
    }
  else
    result = strdup (name);

  return result;
}
mpletion/bash?id=54b3d583af3798405d39953f8bd21b1a864fb447&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-02-14 17:49:26 +0100'>2020-02-14</span></td><td><a href='/guix/commit/etc/completion/bash?id=11415d35064cdba5cec1139aede18099cfa14547'>guix build: Add '--manifest' option.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-04-29 10:13:44 +0200'>2019-04-29</span></td><td><a href='/guix/commit/etc/completion/bash?id=d824cfbabeb0780c9ea7a6dab02c47b6a4d029c6'>guix package: Add 'install', 'remove', and 'upgrade' aliases.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-06 00:04:11 +0100'>2018-11-06</span></td><td><a href='/guix/commit/etc/completion/bash?id=7082873ea2771ebef900333e0fa7468d6395f330'>bash completion: Restore completion of available packages for 'guix build'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-07-03 06:58:51 +0300'>2018-07-03</span></td><td><a href='/guix/commit/etc/completion/bash?id=3a15d0aa9c55881ddc3a21570350a743c28a6c92'>bash completion: Complete files names after 'guix weather -m'.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2018-07-03 06:58:51 +0300'>2018-07-03</span></td><td><a href='/guix/commit/etc/completion/bash?id=9b0a755f642542dd96065ad05ec9d844d8077fd7'>bash completion: Complete files names after 'guix build -L'.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2018-06-16 21:23:11 +0300'>2018-06-16</span></td><td><a href='/guix/commit/etc/completion/bash?id=bba0fa2499eefab02cacfed9958dc498abfd484d'>Add guix-daemon Bash completion file.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2018-02-17 22:23:07 +0300'>2018-02-17</span></td><td><a href='/guix/commit/etc/completion/bash?id=f5f916792c7069a22d95c5b7c68bcf3bbb86e451'>bash completion: Complete files names after 'guix package -m'.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2017-08-22 23:13:42 +0200'>2017-08-22</span></td><td><a href='/guix/commit/etc/completion/bash?id=ed8634c404410ed5e0d3ab06e43bd50d4eed9c42'>bash completion: Complete files names after 'guix download'.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-02-07 00:08:10 +0100'>2017-02-07</span></td><td><a href='/guix/commit/etc/completion/bash?id=f2c66fbe1f01b720741e0fe2bfa619ca2862a6b8'>bash completion: Complete subcommands for the current word.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-07 00:08:10 +0100'>2017-02-07</span></td><td><a href='/guix/commit/etc/completion/bash?id=a93c1c59218aac49382c35fe23d1e0f021e6e676'>bash completion: Properly complete 'guix container exec'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-07 00:08:10 +0100'>2017-02-07</span></td><td><a href='/guix/commit/etc/completion/bash?id=e109ed3922f2a3ff68a77f727ead27f2eb4a82ab'>bash completion: Complete file names after 'guix system COMMAND'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-07 00:08:10 +0100'>2017-02-07</span></td><td><a href='/guix/commit/etc/completion/bash?id=3454f7edf9eb2901115cab522d980df712fa4078'>bash completion: Complete 'guix gc' with file names.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-09-07 17:33:48 +0200'>2016-09-07</span></td><td><a href='/guix/commit/etc/completion/bash?id=f07f7d86145c10539709ca43cb0c201b6f935005'>bash completion: Complete subcommands and their options.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-09-07 16:22:25 +0200'>2016-09-07</span></td><td><a href='/guix/commit/etc/completion/bash?id=e9006d06a04e60db1ca78283b6c7e951d5a477fd'>bash completion: Redirect 'guix' stderr to /dev/null.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-08-20 19:57:33 +0200'>2015-08-20</span></td><td><a href='/guix/commit/etc/completion/bash?id=4a9999871cc75f2d73d5dc83fbcad88bcaa5b921'>bash completion: Cache the list of subcommands and available packages.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>