about summary refs log tree commit diff
path: root/src/libexpr/primops.cc
diff options
context:
space:
mode:
authorEelco Dolstra <e.dolstra@tudelft.nl>2007-04-16T15·03+0000
committerEelco Dolstra <e.dolstra@tudelft.nl>2007-04-16T15·03+0000
commit5f2492eaecfe8d3451812e894852b1330492e827 (patch)
treeafb46441b5131d6cfddade0be9de64d95ebc2981 /src/libexpr/primops.cc
parent0a8eeea9d8060b9d25891ccc5a9d55e32bf829ba (diff)
* New primop "throw <string>" to throw an error. This is like abort,
  only thrown errors are caught by the top-level derivation evaluation
  in nix-env -qa / -i.

Diffstat (limited to 'src/libexpr/primops.cc')
-rw-r--r--src/libexpr/primops.cc9
1 files changed, 9 insertions, 0 deletions
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);