From 5f2492eaecfe8d3451812e894852b1330492e827 Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Mon, 16 Apr 2007 15:03:19 +0000 Subject: * New primop "throw " to throw an error. This is like abort, only thrown errors are caught by the top-level derivation evaluation in nix-env -qa / -i. --- src/libexpr/primops.cc | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src/libexpr/primops.cc') diff --git a/src/libexpr/primops.cc b/src/libexpr/primops.cc index aca5f5856de8..c7fbca0bb59e 100644 --- a/src/libexpr/primops.cc +++ b/src/libexpr/primops.cc @@ -269,6 +269,14 @@ static Expr prim_abort(EvalState & state, const ATermVector & args) } +static Expr prim_throw(EvalState & state, const ATermVector & args) +{ + PathSet context; + throw ThrownError(format("user-thrown exception: `%1%'") % + evalString(state, args[0], context)); +} + + /* Return an environment variable. Use with care. */ static Expr prim_getEnv(EvalState & state, const ATermVector & args) { @@ -878,6 +886,7 @@ void EvalState::addPrimOps() addPrimOp("isNull", 1, prim_isNull); addPrimOp("dependencyClosure", 1, prim_dependencyClosure); addPrimOp("abort", 1, prim_abort); + addPrimOp("throw", 1, prim_throw); addPrimOp("__getEnv", 1, prim_getEnv); addPrimOp("relativise", 2, prim_relativise); -- cgit 1.4.1