diff options
| author | Arun Isaac | 2025-01-10 18:05:05 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-01-19 16:44:26 +0000 |
| commit | eadc0fadf1cb72fea9aa80aeaa59f952d9d66be4 (patch) | |
| tree | e07aba8c940cd1e05005de6cc087ff376502b398 | |
| parent | 91fec22fbe40a20dad26c48473517feb2e55b8cc (diff) | |
| download | ravanan-eadc0fadf1cb72fea9aa80aeaa59f952d9d66be4.tar.gz ravanan-eadc0fadf1cb72fea9aa80aeaa59f952d9d66be4.tar.lz ravanan-eadc0fadf1cb72fea9aa80aeaa59f952d9d66be4.zip | |
command-line-tool: Re-indent run-command-line-tool.
* ravanan/command-line-tool.scm (run-command-line-tool): Re-indent.
| -rw-r--r-- | ravanan/command-line-tool.scm | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index 096968c..ba9c181 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -438,41 +438,41 @@ path." (delete-file-recursively store-files-directory)) (mkdir store-files-directory) (cond - ((eq? batch-system 'single-machine) - (setenv "WORKFLOW_OUTPUT_DIRECTORY" store-files-directory) - (setenv "WORKFLOW_OUTPUT_DATA_FILE" store-data-file) - (format (current-error-port) - "Running ~a~%" - script) - (single-machine-job-state script - (zero? (with-output-to-file stdout-file - (lambda () - (with-error-to-file stderr-file - (cut system* script))))))) - ((slurm-api-batch-system? batch-system) - (format (current-error-port) - "Submitting job ~a~%" - script) - (let ((job-id (submit-job `(("WORKFLOW_OUTPUT_DIRECTORY" . - ,store-files-directory) - ("WORKFLOW_OUTPUT_DATA_FILE" . - ,store-data-file)) - stdout-file - stderr-file - cpus - name - script - #:api-endpoint (slurm-api-batch-system-endpoint batch-system) - #:jwt (slurm-api-batch-system-jwt batch-system) - #:partition (slurm-api-batch-system-partition batch-system) - #:nice (slurm-api-batch-system-nice batch-system)))) - (format (current-error-port) - "~a submitted as job ID ~a~%" - script - job-id) - (slurm-job-state script job-id))) - (else - (assertion-violation batch-system "Invalid batch system"))))))) + ((eq? batch-system 'single-machine) + (setenv "WORKFLOW_OUTPUT_DIRECTORY" store-files-directory) + (setenv "WORKFLOW_OUTPUT_DATA_FILE" store-data-file) + (format (current-error-port) + "Running ~a~%" + script) + (single-machine-job-state script + (zero? (with-output-to-file stdout-file + (lambda () + (with-error-to-file stderr-file + (cut system* script))))))) + ((slurm-api-batch-system? batch-system) + (format (current-error-port) + "Submitting job ~a~%" + script) + (let ((job-id (submit-job `(("WORKFLOW_OUTPUT_DIRECTORY" . + ,store-files-directory) + ("WORKFLOW_OUTPUT_DATA_FILE" . + ,store-data-file)) + stdout-file + stderr-file + cpus + name + script + #:api-endpoint (slurm-api-batch-system-endpoint batch-system) + #:jwt (slurm-api-batch-system-jwt batch-system) + #:partition (slurm-api-batch-system-partition batch-system) + #:nice (slurm-api-batch-system-nice batch-system)))) + (format (current-error-port) + "~a submitted as job ID ~a~%" + script + job-id) + (slurm-job-state script job-id))) + (else + (assertion-violation batch-system "Invalid batch system"))))))) (define (capture-command-line-tool-output script store) "Capture and return output of @code{CommandLineTool} class workflow that ran |