Add write-cwl function to write generated CWL to a file.

* ccwl/ccwl.scm: Import (srfi srfi-26) and (ccwl yaml).
(write-cwl): New public function.

1 files changed, 8 insertions, 1 deletions

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index b1fa485..120edcd 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -7,13 +7,16 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
+  #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
+  #:use-module (ccwl yaml)
   #:export (command
             workflow
             input
             output
             step
-            pipeline))
+            pipeline
+            write-cwl))
 
 (define-immutable-record-type <input>
   (make-input id type label default source other)
@@ -252,3 +255,7 @@ re-matched."
                                      (input-id (command-stdin command))
                                      ".path)")))
           '())))
+
+(define (write-cwl step file)
+  (call-with-output-file file
+    (cut scm->yaml (step-run step) <>)))