From 6cc92d6fb0227fc0fd3fa640be709993e12f2952 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 22 Mar 2021 01:41:20 +0530
Subject: List additional-inputs while generating CWL.

* ccwl/ccwl.scm (command->cwl): List additional-inputs in inputs
array.
---
 ccwl/ccwl.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

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)
-- 
cgit v1.2.3