* nix/libstore/builtins.cc (builtinBuilderNames): New function.
* nix/libstore/builtins.hh (builtinBuilderNames): New declaration.
* nix/libstore/worker-protocol.hh (PROTOCOL_VERSION): Bump to 0x160.
(WorkerOp)[wopBuiltinBuilders]: New value.
* nix/nix-daemon/nix-daemon.cc (performOp): Handle it.
* guix/store.scm (operation-id)[built-in-builders]: New value.
* guix/store.scm (read-arg): Add 'string-list'.
(built-in-builders): New procedure.
* tests/derivations.scm ("built-in-builders"): New test.
		
	
			
		
			
				
	
	
		
			79 lines
		
	
	
	
		
			2.2 KiB
		
	
	
	
		
			C++
		
	
	
	
	
	
			
		
		
	
	
			79 lines
		
	
	
	
		
			2.2 KiB
		
	
	
	
		
			C++
		
	
	
	
	
	
| /* GNU Guix --- Functional package management for GNU
 | |
|    Copyright (C) 2016 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>
 | |
| 
 | |
| namespace nix {
 | |
| 
 | |
| static void builtinDownload(const Derivation &drv,
 | |
| 			    const std::string &drvPath)
 | |
| {
 | |
|     /* 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[] = { "download", drvPath.c_str(), NULL };
 | |
| 
 | |
|     /* XXX: Hack our way to use the 'download' script from 'LIBEXECDIR/guix'
 | |
|        or just 'LIBEXECDIR', depending on whether we're running uninstalled or
 | |
|        not.  */
 | |
|     const string subdir = getenv("GUIX_UNINSTALLED") != NULL
 | |
| 	? "" : "/guix";
 | |
| 
 | |
|     const string program = settings.nixLibexecDir + subdir + "/download";
 | |
|     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;
 | |
| }
 | |
| 
 | |
| }
 |