diff options
| author | Arun Isaac | 2023-09-28 22:48:59 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-09-28 22:59:49 +0100 |
| commit | a5fa8d018e650cf359e4ecd8774c600ccf7cade0 (patch) | |
| tree | bb854739c4121942d57950158b17e9d114c2d8ce | |
| parent | 8319713ba08ae0127d5018143012c0e6a4211cb3 (diff) | |
| download | ccwl-a5fa8d018e650cf359e4ecd8774c600ccf7cade0.tar.gz ccwl-a5fa8d018e650cf359e4ecd8774c600ccf7cade0.tar.lz ccwl-a5fa8d018e650cf359e4ecd8774c600ccf7cade0.zip | |
cwl: Add generic workflow or command serialization function.
* ccwl/cwl.scm (workflow-or-command->cwl): New public function.
| -rw-r--r-- | ccwl/cwl.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/ccwl/cwl.scm b/ccwl/cwl.scm index 30ec6ec..4c4fef0 100644 --- a/ccwl/cwl.scm +++ b/ccwl/cwl.scm @@ -29,10 +29,18 @@ #:use-module (ccwl utils) #:use-module (ccwl yaml) #:export (workflow->cwl - command->cwl)) + command->cwl + workflow-or-command->cwl)) (define %cwl-version "v1.2") +(define workflow-or-command->cwl + (match-lambda* + (((? workflow? workflow) port) + (workflow->cwl workflow port)) + (((? command? command) port) + (command->cwl command port)))) + (define (workflow->cwl workflow port) "Render WORKFLOW, a <workflow> object, to PORT as a CWL YAML specification." |