TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* New primop __toXML (or builtins.toXML) to convert an expression to 

an XML representation stored in a string.  This should be useful to
  pass structured information to builders.
This commit is contained in:
Eelco Dolstra 2006-08-24 14:34:29 +00:00
parent f793caf936
commit 215ec2ddc6
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/libexpr/primops.cc
View File

@ -5,6 +5,7 @@
#include "eval.hh"
#include "globals.hh"
#include "nixexpr-ast.hh"
#include "expr-to-xml.hh"
static Expr primBuiltins(EvalState & state, const ATermVector & args)
@ -457,6 +458,14 @@ static Expr primToString(EvalState & state, const ATermVector & args)
}
static Expr primToXML(EvalState & state, const ATermVector & args)
{
ostringstream out;
printTermAsXML(strictEvalExpr(state, args[0]), out);
return makeStr(toATerm(out.str()));
}
/* Boolean constructors. */
static Expr primTrue(EvalState & state, const ATermVector & args)
{
@ -705,6 +714,7 @@ void EvalState::addPrimOps()
addPrimOp("baseNameOf", 1, primBaseNameOf);
addPrimOp("dirOf", 1, primDirOf);
addPrimOp("toString", 1, primToString);
addPrimOp("__toXML", 1, primToXML);
addPrimOp("isNull", 1, primIsNull);
addPrimOp("dependencyClosure", 1, primDependencyClosure);
addPrimOp("abort", 1, primAbort);

1
tests/lang/eval-okay-to-xml.exp Normal file
View File

@ -0,0 +1 @@
Str("<?xml version='1.0' encoding='utf-8'?>\n<expr>\n <list>\n <string value=\"ab\" />\n <int value=\"10\" />\n <attrs>\n <attr name=\"x\">\n <string value=\"x\" />\n </attr>\n <attr name=\"y\">\n <string value=\"x\" />\n </attr>\n </attrs>\n </list>\n</expr>\n")

1
tests/lang/eval-okay-to-xml.nix Normal file
View File

@ -0,0 +1 @@
builtins.toXML [("a" + "b") 10 (rec {x = "x"; y = x;})]