/* GNU Guix --- Functional package management for GNU
   Copyright (C) 2016, 2017, 2018, 2019 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/>.  */

#include <builtins.hh>
#include <util.hh>
#include <globals.hh>

#include <unistd.h>
#include <cstdlib>

namespace nix {

static void builtinDownload(const Derivation &drv,
			    const std::string &drvPath,
			    const std::string &output)
{
    /* Invoke 'guix perform-download'.  */
    Strings args;
    args.push_back("perform-download");
    args.push_back(drvPath);

    /* Close all other file descriptors. */
    closeMostFDs(set<int>());

    const char *const argv[] =
      {
	  "guix", "perform-download", drvPath.c_str(), output.c_str(), NULL
      };

    /* Tell the script what the store file name is, so that
       'strip-store-file-name' (used for instance to determine the URL of
       content-addressed mirrors) works correctly.  */
    setenv("NIX_STORE", settings.nixStore.c_str(), 1);

    /* Tell it about options such as "print-extended-build-trace".  */
    setenv("_NIX_OPTIONS", settings.pack().c_str(), 1);

    const string program = settings.guixProgram;
    execv(program.c_str(), (char *const *) argv);

    throw SysError(format("failed to run download program '%1%'") % program);
}

static const std::map<std::string, derivationBuilder> builtins =
{
    { "download", builtinDownload }
};

derivationBuilder lookupBuiltinBuilder(const std::string & name)
{
    if (name.substr(0, 8) == "builtin:")
    {
	auto realName = name.substr(8);
	auto builder = builtins.find(realName);
	return builder == builtins.end() ? NULL : builder->second;
    }
    else
	return NULL;
}

std::list<std::string> builtinBuilderNames()
{
    std::list<std::string> result;
    for(auto&& iter: builtins)
    {
	result.push_back(iter.first);
    }
    return result;
}

}
ist nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/shepherd.scm?id=c54f6c0b532bfadbcd94d7997ad73077d33e9220&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-12-09 23:15:44 +0100'>2024-12-09</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=e065384eee7e29a5d55cc5299207f11167be5d02'>services: shepherd: Remove ‘call-with-{input,output}-file’ replacements.</a><span class='msg-avail'>...<span class='msg-tooltip'>Shepherd 1.0.0 provides similar replacements.

* gnu/services/shepherd.scm (shepherd-configuration-file): Remove
‘call-with-input-file’ and ‘call-with-output-file’ O_CLOEXEC
replacements.

Change-Id: Id8a4d5cfcb9b9213f3a017cafead21cc86fdb51e
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-12-09 23:15:44 +0100'>2024-12-09</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=2a5c003c532901b6dec7d5947816939534a284d9'>services: shepherd: Default to 1.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/shepherd.scm (&lt;shepherd-configuration&gt;)[shepherd]:
Default to SHEPHERD-1.0.
* gnu/system/hurd.scm (%base-packages/hurd): Change to SHEPHERD-1.0.

Change-Id: I7b0c3041d61a6f5d89c9d6d3caf7a8eedf5d8ca5
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-06-26 22:51:25 +0200'>2024-06-26</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=0a220c1599613b7bee38c0bf8bc1bb3e9cbcaeb8'>services: shepherd: Support “free-form” services.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/shepherd.scm (&lt;shepherd-service&gt;)[free-form]: New field.
[start]: Add default value.
(shepherd-service-file): Rename to…
(shepherd-service-file/regular): … this.
(shepherd-service-file/free-form): New procedure.
(shepherd-service-file): Dispatch to one of the two procedures above.
* doc/guix.texi (Shepherd Services): Document the ‘free-form’ field.

Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;

Change-Id: I206374e950ef6d1e4a996c0f507fb5fcd9cadde3
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-05-25 16:52:29 +0200'>2024-05-25</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=cca25a67693bb68a1884a081b415a43fad1e8641'>services: shepherd: Failure to load a service does not prevent booting.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/71144&gt;.

Fixes a bug whereby, when loading a service file would fail, for
instance due to an unbound variable, a REPL would be opened on the
console, preventing the system from booting.

This fixes that by isolating service load errors and making them
non-fatal.

* gnu/services/shepherd.scm (shepherd-configuration-file)[config]:
Remove call to ‘call-with-error-handling’.  Use ‘filter-map’ instead of
‘map’ to iterate over service files, and catch exceptions raised by
‘load-compiled’.

Change-Id: Ie6e76ea514837f85386232f797bc77b2882b5c22
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-03-21 17:43:15 +0100'>2024-03-21</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=6f9d844d2ece7b369d17bbe678978462425f869c'>services: shepherd: Load each service file in a fresh module.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/67649&gt;.

* gnu/home/services/shepherd.scm (home-shepherd-configuration-file)[config]:
Define ‘make-user-module’.  Call ‘load’ in ‘save-module-excursion’.
* gnu/services/shepherd.scm (shepherd-configuration-file): Likewise.

Reported-by: Attila Lendvai &lt;attila@lendvai.name&gt;
Change-Id: I7df11c81b5bbbf2b24a8daa02502a000e0826fe0
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-01-28 22:50:49 +0100'>2024-01-28</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=dde76db33fbdede6bf26821f8c21cca7df45e79e'>services: shepherd: Add respawn-limit and respawn-delay.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/shepherd.scm (&lt;shepherd-service&gt;): Add respawn-limit and
respawn-delay.
(shepherd-service-file): Emit the two values into the shepherd service
constructor form.

Change-Id: I54408e8fb4bcc0956d9610771bf5c566fdc2914c
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Attila Lendvai</td></tr>