forked from lix-project/lix
63 lines
1.6 KiB
C++
63 lines
1.6 KiB
C++
|
#include "primops.hh"
|
||
|
|
#include "store-api.hh"
|
||
|
|
|
||
|
|
namespace nix {
|
||
|
|
|
||
|
|
static void prim_fetchClosure(EvalState & state, const Pos & pos, Value * * args, Value & v)
|
||
|
|
{
|
||
|
|
state.forceAttrs(*args[0], pos);
|
||
|
|
|
||
|
|
std::optional<StorePath> storePath;
|
||
|
|
std::optional<std::string> from;
|
||
|
|
|
||
|
|
for (auto & attr : *args[0]->attrs) {
|
||
|
|
if (attr.name == "storePath") {
|
||
|
|
PathSet context;
|
||
|
|
storePath = state.coerceToStorePath(*attr.pos, *attr.value, context);
|
||
|
|
}
|
||
|
|
|
||
|
|
else if (attr.name == "from")
|
||
|
|
from = state.forceStringNoCtx(*attr.value, *attr.pos);
|
||
|
|
|
||
|
|
else
|
||
|
|
throw Error({
|
||
|
|
.msg = hintfmt("attribute '%s' isn't supported in call to 'fetchClosure'", attr.name),
|
||
|
|
.errPos = pos
|
||
|
|
});
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!storePath)
|
||
|
|
throw Error({
|
||
|
|
.msg = hintfmt("attribute '%s' is missing in call to 'fetchClosure'", "storePath"),
|
||
|
|
.errPos = pos
|
||
|
|
});
|
||
|
|
|
||
|
|
if (!from)
|
||
|
|
throw Error({
|
||
|
|
.msg = hintfmt("attribute '%s' is missing in call to 'fetchClosure'", "from"),
|
||
|
|
.errPos = pos
|
||
|
|
});
|
||
|
|
|
||
|
|
// FIXME: only allow some "trusted" store types (like BinaryCacheStore).
|
||
|
|
auto srcStore = openStore(*from);
|
||
|
|
|
||
|
|
copyClosure(*srcStore, *state.store, RealisedPath::Set { *storePath });
|
||
|
|
|
||
|
|
auto storePathS = state.store->printStorePath(*storePath);
|
||
|
|
|
||
|
|
v.mkString(storePathS, {storePathS});
|
||
|
|
|
||
|
|
// FIXME: in pure mode, require a CA path or a NAR hash of the
|
||
|
|
// top-level path.
|
||
|
|
}
|
||
|
|
|
||
|
|
static RegisterPrimOp primop_fetchClosure({
|
||
|
|
.name = "__fetchClosure",
|
||
|
|
.args = {"args"},
|
||
|
|
.doc = R"(
|
||
|
|
)",
|
||
|
|
.fun = prim_fetchClosure,
|
||
|
|
});
|
||
|
|
|
||
|
|
}
|