diff options
author | Arun Isaac | 2021-03-22 01:41:20 +0530 |
---|---|---|
committer | Arun Isaac | 2021-03-22 01:43:39 +0530 |
commit | 6cc92d6fb0227fc0fd3fa640be709993e12f2952 (patch) | |
tree | 5da35dd68cae2aeaa0af6ba9ec07ebd696982957 | |
parent | d78030998a6af341254e7f50464b0e209f7137ff (diff) | |
download | ccwl-6cc92d6fb0227fc0fd3fa640be709993e12f2952.tar.gz ccwl-6cc92d6fb0227fc0fd3fa640be709993e12f2952.tar.lz ccwl-6cc92d6fb0227fc0fd3fa640be709993e12f2952.zip |
List additional-inputs while generating CWL.
* ccwl/ccwl.scm (command->cwl): List additional-inputs in inputs
array.
-rw-r--r-- | ccwl/ccwl.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 2385f91..9492812 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -304,6 +304,15 @@ re-matched." (prefix . ,(input-prefix input))))))) ,@(input-other input))))) elements) + (map (lambda (input) + `(,(input-id input) + ,@(filter-alist + `((type . ,(input-type input)) + (label . ,(input-label input)) + (default . ,(and (not (unspecified-default? (input-default input))) + (input-default input))))) + ,@(input-other input))) + (command-additional-inputs command)) (let ((stdin (command-stdin command))) (if stdin (list `(,(input-id stdin) |