diff options
| author | Arun Isaac | 2021-10-07 00:25:33 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-07 00:25:33 +0530 |
| commit | f31f4e224bc94f2e4d0dcc96e77c8ea512fad433 (patch) | |
| tree | f7d3cd119e95d56f9785e11192a64f5fe09ea715 | |
| parent | dc2a4b0e1ca7d53c2d7bc5a76dc8f243ba1f59cb (diff) | |
| download | ccwl-f31f4e224bc94f2e4d0dcc96e77c8ea512fad433.tar.gz ccwl-f31f4e224bc94f2e4d0dcc96e77c8ea512fad433.tar.lz ccwl-f31f4e224bc94f2e4d0dcc96e77c8ea512fad433.zip | |
ccwl: Pass workflow inputs through every command.
We pass workflow inputs through all commands and constructs (pipe,
tee, etc.). Thus, these parameters are globally visible to all steps,
and are a kind of "global variable".
* ccwl/ccwl.scm (workflow-steps): Pass to the output, input keys that
correspond to workflow inputs.
| -rw-r--r-- | ccwl/ccwl.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 438f522..60472b2 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -394,9 +394,10 @@ by <step> objects." (list step-id value input-key-symbols) #f)))) (syntax->datum (pairify #'(args ...)))) - (values (map (lambda (output) - (key (output-id output) step-id)) - (command-outputs command-object)) + (values (append (remove key-step input-keys) + (map (lambda (output) + (key (output-id output) step-id)) + (command-outputs command-object))) (list (make-step step-id command-object (map (match-lambda |