/* GNU Guix --- Functional package management for GNU Copyright (C) 2016-2019, 2023 Ludovic Courtès 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 . */ #include #include #include #include #include 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()); 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 builtins = { { "download", builtinDownload }, { "git-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 builtinBuilderNames() { std::list result; for(auto&& iter: builtins) { result.push_back(iter.first); } return result; } } ft'>Commit message (Expand)Author 2020-06-13services: hurd: Remove deprecated 'hurd-getty-service' wrapper....* gnu/services/hurd.scm (hurd-getty-service): Remove. Jan (janneke) Nieuwenhuizen 2020-06-08services: Add `hurd-getty-service-type'....* gnu/services/hurd.scm (<hurd-gettty-configuration>): New record. (hurd-ttys-shepherd-service): New procedure. (hurd-getty-service-type): New variable. * doc/guix.texi (Hurd Services): Document it. Jan (janneke) Nieuwenhuizen 2020-06-08services: Add `hurd-console-service-type'....* gnu/services/hurd.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add it. * doc/guix.texi (Hurd Services): Document it. Jan (janneke) Nieuwenhuizen lding from Git): Likewise. * doc/guix.texi (Requirements): Likewise. Signed-off-by: Ludovic Courtès <ludo@gnu.org> zimoun