lix-project/lix
20
58
Fork 31
Code Issues 359 Code Review (Gerrit) Projects 3 Releases Wiki Activity

* Allow lists in package bindings, e.g.,

Browse source 
("srcs", [Relative("foo/bar.c"), Relative("foo/baz.h")])

  The result is an environment variable that contains the path names of the
  inputs separated by spaces (so this is not safe for values containing
  spaces).
This commit is contained in:
Eelco Dolstra 2003-08-18 16:32:55 +00:00
parent ebbb6ce578
commit 31e4aa6439
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/fix.cc
View file

@ -170,6 +170,18 @@ static string processBinding(EvalState & state, Expr e, FState & fs)
if (ATmatch(e, "False")) return ""; if (ATmatch(e, "False")) return "";
ATermList l;
if (ATmatch(e, "[<list>]", &l)) {
string s;
bool first = true;
while (!ATisEmpty(l)) {
if (!first) s = s + " "; else first = false;
s += processBinding(state, evalExpr(state, ATgetFirst(l)), fs);
l = ATgetNext(l);
}
return s;
}
throw badTerm("invalid package binding", e); throw badTerm("invalid package binding", e);
} }