From e0fa0b5c37e902b53b5482c20c54308920202f73 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 24 Jun 2025 23:29:21 +0100 Subject: workflow: Introduce optional fields in scheduler-proc constructor. * ravanan/workflow.scm (): Rename constructor to -scheduler-proc. (scheduler-proc): New function. --- ravanan/workflow.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm index 1d3578a..d1bee1b 100644 --- a/ravanan/workflow.scm +++ b/ravanan/workflow.scm @@ -63,7 +63,7 @@ (inputs job-failure-inputs)) (define-immutable-record-type - (scheduler-proc name cwl-or-propnet formal-inputs formal-outputs scatter scatter-method) + (-scheduler-proc name cwl-or-propnet formal-inputs formal-outputs scatter scatter-method) scheduler-proc? (name scheduler-proc-name) (cwl-or-propnet scheduler-proc-cwl-or-propnet) @@ -72,6 +72,11 @@ (scatter scheduler-proc-scatter) (scatter-method scheduler-proc-scatter-method)) +(define* (scheduler-proc name cwl-or-propnet formal-inputs formal-outputs + #:optional (scatter %nothing) (scatter-method %nothing)) + (-scheduler-proc name cwl-or-propnet formal-inputs formal-outputs + scatter scatter-method)) + (define-immutable-record-type (command-line-tool-state job-state formal-outputs) command-line-tool-state? @@ -281,9 +286,7 @@ object." (schedule (scheduler-proc name cwl-or-propnet (scheduler-proc-formal-inputs proc) - (scheduler-proc-formal-outputs proc) - %nothing - %nothing) + (scheduler-proc-formal-outputs proc)) ;; Replace scattered inputs with single ;; elements. (apply assoc-set -- cgit v1.2.3