From 7974aae81ced67b2aee0b537a37d813f6c67a1ec Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Fri, 1 Sep 2006 12:07:31 +0000
Subject: [PATCH] * New primop: builtins.toFile, which writes a string into the
 store   and returns its path.  This can be used to (for instance) write  
 builders inside a Nix expression, e.g.,

  stdenv.mkDerivation {
    builder = "
      source $stdenv/setup
      ...
    ";
    ...
  }
---
 src/libexpr/primops.cc  | 14 ++++++++++++++
 tests/gc-runtime.nix.in | 28 ++++++++++++++++++++++------
 2 files changed, 36 insertions(+), 6 deletions(-)

diff --git a/src/libexpr/primops.cc b/src/libexpr/primops.cc
index 8a513c5213..5dfe90a8f9 100644
--- a/src/libexpr/primops.cc
+++ b/src/libexpr/primops.cc
@@ -467,6 +467,9 @@ static Expr primToString(EvalState & state, const ATermVector & args)
 }
 
 
+/* Convert the argument (which can be any Nix expression) to an XML
+   representation returned in a string.  Not all Nix expressions can
+   be sensibly or completely represented (e.g., functions). */
 static Expr primToXML(EvalState & state, const ATermVector & args)
 {
     ostringstream out;
@@ -475,6 +478,16 @@ static Expr primToXML(EvalState & state, const ATermVector & args)
 }
 
 
+/* Store a string in the Nix store as a source file that can be used
+   as an input by derivations. */
+static Expr primToFile(EvalState & state, const ATermVector & args)
+{
+    string s = evalString(state, args[0]);
+    Path storePath = addTextToStore("", s, PathSet());
+    return makePath(toATerm(storePath));
+}
+
+
 /* Boolean constructors. */
 static Expr primTrue(EvalState & state, const ATermVector & args)
 {
@@ -724,6 +737,7 @@ void EvalState::addPrimOps()
     addPrimOp("dirOf", 1, primDirOf);
     addPrimOp("toString", 1, primToString);
     addPrimOp("__toXML", 1, primToXML);
+    addPrimOp("__toFile", 1, primToFile);
     addPrimOp("isNull", 1, primIsNull);
     addPrimOp("dependencyClosure", 1, primDependencyClosure);
     addPrimOp("abort", 1, primAbort);
diff --git a/tests/gc-runtime.nix.in b/tests/gc-runtime.nix.in
index aefffa2766..4ffe0435aa 100644
--- a/tests/gc-runtime.nix.in
+++ b/tests/gc-runtime.nix.in
@@ -1,7 +1,23 @@
-derivation {
-  name = "gc-runtime";
-  system = "@system@";
-  builder = "@shell@";
-  args = ["-e" "-x" ./gc-runtime.builder.sh];
-  PATH = "@testPath@";
+let {
+
+  # Test inline source file definitions.
+  builder = builtins.toFile "
+mkdir $out
+
+cat > $out/program <<EOF
+#! $SHELL
+sleep 10000
+EOF
+
+chmod +x $out/program
+";
+
+  body = derivation {
+    name = "gc-runtime";
+    system = "@system@";
+    builder = "@shell@";
+    args = ["-e" "-x" builder];
+    PATH = "@testPath@";
+  };
+
 }