diff options
| author | Arun Isaac | 2025-12-19 13:46:19 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-12-19 20:13:39 +0000 |
| commit | 449a75c9e067d383ed41309c6ac33416a2066f88 (patch) | |
| tree | 5a66917e8a294d0c4e1eeb424b8df67bf1ac3b52 | |
| parent | df96551cc82131be944dca1c8be765eba84b580e (diff) | |
| download | ccwl-449a75c9e067d383ed41309c6ac33416a2066f88.tar.gz ccwl-449a75c9e067d383ed41309c6ac33416a2066f88.tar.lz ccwl-449a75c9e067d383ed41309c6ac33416a2066f88.zip | |
ccwl: Add separator field to <input> constuctor.
| -rw-r--r-- | ccwl/ccwl.scm | 9 | ||||
| -rw-r--r-- | tests/cwl.scm | 2 |
2 files changed, 6 insertions, 5 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 3fc5364..cee6001 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -1,5 +1,5 @@ ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2021–2024 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2021–2025 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ccwl. ;;; @@ -93,7 +93,7 @@ unspecified-default?)) (define-immutable-record-type <input> - (make-input id type label default position prefix stage? other) + (make-input id type label default position prefix separator stage? other) input? (id input-id) (type input-type) @@ -206,7 +206,8 @@ compared using @code{equal?}." #,(if (unspecified-default? default) #'(make-unspecified-default) default) - #,position #,prefix #,stage? '#,other))) + #,position #,prefix #f + #,stage? '#,other))) #'(id args ...)))) (id (identifier? #'id) (input #'(id))) (_ (error "Invalid input:" (syntax->datum input-spec))))) @@ -600,7 +601,7 @@ identifiers defined in the commands." ((id . type) (with-syntax ((id (datum->syntax #f id)) (type (datum->syntax #f type))) - #`(make-input 'id 'type #f #f #f #f #f '())))) + #`(make-input 'id 'type #f #f #f #f #f #f '())))) (parameters->id+type (assoc-ref yaml "inputs")))) (list #,@(map (match-lambda ((id . type) diff --git a/tests/cwl.scm b/tests/cwl.scm index 8009a2e..f5eeb44 100644 --- a/tests/cwl.scm +++ b/tests/cwl.scm @@ -53,6 +53,6 @@ (default . #f) (label . "foo")) (input->cwl-scm - (make-input "foo" 'boolean "foo" #f #f #f #f '()))) + (make-input "foo" 'boolean "foo" #f #f #f #f #f '()))) (test-end "cwl") |