mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add source location information to the XML output.

Browse source 
* src/libexpr/expr-to-xml.cc (nix::showAttrs): Dereference the attribute
  RHS.  Add "path", "line", and "column" XML attributes to the node when
  source location information is available.
  (nix::printTermAsXML): Likewise for functions.
This commit is contained in:
Ludovic Courtès 2010-03-31 08:29:05 +00:00
parent eb07a4f1ee
commit 471419d1fa
1 changed files with 33 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
src/libexpr/expr-to-xml.cc
View file

@ -34,8 +34,25 @@ static void showAttrs(const ATermMap & attrs, XMLWriter & doc,
for (ATermMap::const_iterator i = attrs.begin(); i != attrs.end(); ++i) for (ATermMap::const_iterator i = attrs.begin(); i != attrs.end(); ++i)
names.insert(aterm2String(i->key)); names.insert(aterm2String(i->key));
for (StringSet::iterator i = names.begin(); i != names.end(); ++i) { for (StringSet::iterator i = names.begin(); i != names.end(); ++i) {
XMLOpenElement _(doc, "attr", singletonAttrs("name", *i)); ATerm attrRHS = attrs.get(toATerm(*i));
printTermAsXML(attrs.get(toATerm(*i)), doc, context, drvsSeen); ATerm attr;
Pos pos;
XMLAttrs xmlAttrs;
xmlAttrs["name"] = *i;
if(matchAttrRHS(attrRHS, attr, pos)) {
ATerm path;
int line, column;
if (matchPos(pos, path, line, column)) {
xmlAttrs["path"] = aterm2String(path);
xmlAttrs["line"] = (format("%1%") % line).str();
xmlAttrs["column"] = (format("%1%") % column).str();
}
} else
abort(); // Should not happen.
XMLOpenElement _(doc, "attr", xmlAttrs);
printTermAsXML(attr, doc, context, drvsSeen);
} }
} }
@ -97,9 +114,12 @@ static void printTermAsXML(Expr e, XMLWriter & doc, PathSet & context,
else if (matchAttrs(e, as)) { else if (matchAttrs(e, as)) {
ATermMap attrs; ATermMap attrs;
queryAllAttrs(e, attrs); queryAllAttrs(e, attrs, true);
Expr a = attrs.get(toATerm("type")); Expr aRHS = attrs.get(toATerm("type"));
Expr a = NULL;
if (aRHS)
matchAttrRHS(aRHS, a, pos);
if (a && matchStr(a, s, context) && s == "derivation") { if (a && matchStr(a, s, context) && s == "derivation") {
XMLAttrs xmlAttrs; XMLAttrs xmlAttrs;
@ -135,7 +155,15 @@ static void printTermAsXML(Expr e, XMLWriter & doc, PathSet & context,
} }
else if (matchFunction(e, pat, body, pos)) { else if (matchFunction(e, pat, body, pos)) {
XMLOpenElement _(doc, "function"); ATerm path;
int line, column;
XMLAttrs xmlAttrs;
if (matchPos(pos, path, line, column)) {
xmlAttrs["path"] = aterm2String(path);
xmlAttrs["line"] = (format("%1%") % line).str();
xmlAttrs["column"] = (format("%1%") % column).str();
}
XMLOpenElement _(doc, "function", xmlAttrs);
printPatternAsXML(pat, doc); printPatternAsXML(pat, doc);
} }