/* 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;
}
pan title='2018-02-17 22:23:07 +0300'>2018-02-17</span></td><td><a href='/guix/commit/etc/completion?id=f5f916792c7069a22d95c5b7c68bcf3bbb86e451'>bash completion: Complete files names after 'guix package -m'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/bash/guix (_guix_is_dash_m): New function.
(_guix_complete): Add this.
</span></span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2018-01-16 16:00:20 +0100'>2018-01-16</span></td><td><a href='/guix/commit/etc/completion?id=b83fc85f9f40d9a5dff5b0d3ef38c1b93bd4c7e3'>etc: Add completions for fish.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/fish/guix.fish: New file.
* Makefile.am: Register the file.
* configure.ac: Add the fish vendor-completions directory.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>ng0</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?id=ed8634c404410ed5e0d3ab06e43bd50d4eed9c42'>bash completion: Complete files names after 'guix download'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/bash/guix (_guix_complete): When the command is "download",
use __guix_complete_file.
</span></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?id=f2c66fbe1f01b720741e0fe2bfa619ca2862a6b8'>bash completion: Complete subcommands for the current word.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/bash/guix (_guix_complete_subcommand): Refer to
the $COMP_CWORD element instead of the last element.
</span></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?id=a93c1c59218aac49382c35fe23d1e0f021e6e676'>bash completion: Properly complete 'guix container exec'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/bash/guix (_guix_complete_pid): New function.
(_guix_complete): Add case for "container".
</span></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?id=e109ed3922f2a3ff68a77f727ead27f2eb4a82ab'>bash completion: Complete file names after 'guix system COMMAND'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/bash/guix (_guix_complete): When the command is
"system" and $COMP_CWORD &gt; 2, use _guix_complete_file.
</span></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?id=3454f7edf9eb2901115cab522d980df712fa4078'>bash completion: Complete 'guix gc' with file names.</a><span class='msg-avail'>...<span class='msg-tooltip'>Reported by a couple of cool folks at a bar in Brussels.

* etc/completion/bash/guix (_guix_complete): Use '_guix_complete_file'
for 'guix gc'.  This fixes completion of 'guix gc -d'.
</span></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?id=f07f7d86145c10539709ca43cb0c201b6f935005'>bash completion: Complete subcommands and their options.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/bash/guix (_guix_complete_subcommand): New function.
(_guix_complete_option): Allow completion of subcommand options.
(_guix_complete): Use '_guix_complete_subcommand' for "system" and
"import".
</span></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?id=e9006d06a04e60db1ca78283b6c7e951d5a477fd'>bash completion: Redirect 'guix' stderr to /dev/null.</a><span class='msg-avail'>...<span class='msg-tooltip'>This avoids spurious messages when pressing TAB.

* etc/completion/bash/guix (_guix_complete_available_package)
(_guix_complete_installed_package, _guix_complete_option)
(_guix_complete): Redirect stderr to /dev/null when running 'guix'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-09-07 16:08:20 +0200'>2016-09-07</span></td><td><a href='/guix/commit/etc/completion?id=96dbc93089723cece1241e51c657f596adf6d3d5'>Add Zsh completion file.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/completion/zsh/_guix: New file.
* Makefile.am (dist_zshcompletion_DATA): New variable.
* configure.ac: Add --with-zsh-completion-dir.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Eric Le Bihan</td></tr>