raito/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Browse source
This commit is contained in:
Eelco Dolstra 2009-03-09 10:01:04 +00:00
parent 5c45661141
commit 322d907629
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/c/eval-jobs.cc
View file

@ -46,12 +46,13 @@ static void tryJobAlts(EvalState & state, XMLWriter & doc,
if ((values = (ATermList) argsLeft.get(name))) { if ((values = (ATermList) argsLeft.get(name))) {
for (ATermIterator i(ATreverse(values)); i; ++i) { int n = 0;
for (ATermIterator i(ATreverse(values)); i; ++i, ++n) {
ATermMap actualArgs2(actualArgs); ATermMap actualArgs2(actualArgs);
ATermMap argsUsed2(argsUsed); ATermMap argsUsed2(argsUsed);
ATermMap argsLeft2(argsLeft); ATermMap argsLeft2(argsLeft);
actualArgs2.set(name, makeAttrRHS(*i, makeNoPos())); actualArgs2.set(name, makeAttrRHS(*i, makeNoPos()));
argsUsed2.set(name, *i); argsUsed2.set(name, (ATerm) ATmakeList2(*i, (ATerm) ATmakeInt(n)));
argsLeft2.remove(name); argsLeft2.remove(name);
tryJobAlts(state, doc, argsUsed2, argsLeft2, attrPath, fun, ATgetNext(formals), actualArgs2); tryJobAlts(state, doc, argsUsed2, argsLeft2, attrPath, fun, ATgetNext(formals), actualArgs2);
} }
@ -70,7 +71,8 @@ static void showArgsUsed(XMLWriter & doc, const ATermMap & argsUsed)
foreach (ATermMap::const_iterator, i, argsUsed) { foreach (ATermMap::const_iterator, i, argsUsed) {
XMLAttrs xmlAttrs2; XMLAttrs xmlAttrs2;
xmlAttrs2["name"] = aterm2String(i->key); xmlAttrs2["name"] = aterm2String(i->key);
xmlAttrs2["value"] = showValue(i->value); xmlAttrs2["value"] = showValue(ATelementAt((ATermList) i->value, 0));
xmlAttrs2["altnr"] = int2String(ATgetInt((ATermInt) ATelementAt((ATermList) i->value, 1)));
doc.writeEmptyElement("arg", xmlAttrs2); doc.writeEmptyElement("arg", xmlAttrs2);
} }
} }