diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-08-15T13·01+0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-08-15T13·01+0000 |
commit | 96c7b98bf0f852d7afee9251c4ce9492310e6a87 (patch) | |
tree | e2fc32f5ce2371ae7fb5d58f9866afa67de48bf8 | |
parent | 555347744d116b0152a04d4fdb08258276d34199 (diff) |
* Argument support in Fix. Arguments can be passed through the
builder using the `args' binding: ("args", ["bla", True, IncludeFix("aterm/aterm.fix")]) Note that packages can also be declared as inputs by specifying them in the argument list.
Diffstat (limited to '')
-rw-r--r-- | src/fix.cc | 63 | ||||
-rwxr-xr-x | testpkgs/args/args-build.sh | 11 | ||||
-rw-r--r-- | testpkgs/args/args.fix | 7 |
3 files changed, 61 insertions, 20 deletions
diff --git a/src/fix.cc b/src/fix.cc index 2a1c09c2a2cd..66ca5f1c2186 100644 --- a/src/fix.cc +++ b/src/fix.cc @@ -150,6 +150,30 @@ static Hash hashPackage(EvalState & state, FState fs) } +static string processBinding(EvalState & state, Expr e, FState & fs) +{ + char * s1; + + if (ATmatch(e, "FSId(<str>)", &s1)) { + FSId id = parseHash(s1); + Strings paths = fstatePathsCached(state, id); + if (paths.size() != 1) abort(); + string path = *(paths.begin()); + fs.derive.inputs.push_back(id); + return path; + } + + if (ATmatch(e, "<str>", &s1)) + return s1; + + if (ATmatch(e, "True")) return "1"; + + if (ATmatch(e, "False")) return ""; + + throw badTerm("invalid package binding", e); +} + + static Expr evalExpr2(EvalState & state, Expr e) { char * s1; @@ -274,30 +298,29 @@ static Expr evalExpr2(EvalState & state, Expr e) string key = it->first; ATerm value = it->second; - if (ATmatch(value, "FSId(<str>)", &s1)) { - FSId id = parseHash(s1); - Strings paths = fstatePathsCached(state, id); - if (paths.size() != 1) abort(); - string path = *(paths.begin()); - fs.derive.inputs.push_back(id); - fs.derive.env.push_back(StringPair(key, path)); - if (key == "build") fs.derive.builder = path; - } - else if (ATmatch(value, "<str>", &s1)) { - if (key == "name") name = s1; + if (key == "args") { + ATermList args; + if (!ATmatch(value, "[<list>]", &args)) + throw badTerm("list expected", value); + + while (!ATisEmpty(args)) { + Expr arg = evalExpr(state, ATgetFirst(args)); + fs.derive.args.push_back(processBinding(state, arg, fs)); + args = ATgetNext(args); + } + } + + else { + string s = processBinding(state, value, fs); + fs.derive.env.push_back(StringPair(key, s)); + + if (key == "build") fs.derive.builder = s; + if (key == "name") name = s; if (key == "id") { - outId = parseHash(s1); + outId = parseHash(s); outIdGiven = true; } - fs.derive.env.push_back(StringPair(key, s1)); - } - else if (ATmatch(value, "True")) { - fs.derive.env.push_back(StringPair(key, "1")); - } - else if (ATmatch(value, "False")) { - fs.derive.env.push_back(StringPair(key, "")); } - else throw badTerm("invalid package argument", value); bnds = ATinsert(bnds, ATmake("(<str>, <term>)", key.c_str(), value)); diff --git a/testpkgs/args/args-build.sh b/testpkgs/args/args-build.sh new file mode 100755 index 000000000000..1efcc17fedf3 --- /dev/null +++ b/testpkgs/args/args-build.sh @@ -0,0 +1,11 @@ +#! /bin/sh + +IFS= + +echo "printing list of args" + +for i in $@; do + echo "arg: $i" +done + +touch $out \ No newline at end of file diff --git a/testpkgs/args/args.fix b/testpkgs/args/args.fix new file mode 100644 index 000000000000..54a13ddba858 --- /dev/null +++ b/testpkgs/args/args.fix @@ -0,0 +1,7 @@ +Package( + [ ("name", "args") + , ("build", Relative("args/args-build.sh")) + + , ("args", ["1", "2", "3", IncludeFix("slow2/slow.fix")]) + ] +) |