blob: b435f8bffe5d5b688766042f7be8fabf9974999d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#! /usr/bin/env guile --no-auto-compile
!#
;;; ccwl --- Concise Common Workflow Language
;;; Copyright © 2021, 2022 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of ccwl.
;;;
;;; ccwl is free software: you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation, either version 3 of the License, or
;;; (at your option) any later version.
;;;
;;; ccwl is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with ccwl. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; This script is the command-line interface to ccwl.
;;; Code:
(use-modules (rnrs exceptions)
(srfi srfi-28)
(srfi srfi-37)
(ice-9 match)
(ccwl ccwl)
(ccwl conditions)
(ccwl cwl)
(ccwl graphviz)
(ccwl ui))
(define (invalid-option opt name arg result)
(error "Invalid option" name))
(define (invalid-operand arg result)
(error "Invalid argument" arg))
(define %help-option
(option (list "help") #f #t
(lambda (opt name arg result)
(acons 'help #t result))))
(define main
(match-lambda*
((program "compile" args ...)
(let* ((args (args-fold args
(list (option (list #\t "to") #t #f
(lambda (opt name arg result)
(let ((supported (list "cwl" "dot")))
(unless (member arg supported)
(scm-error 'misc-error
#f
"Invalid target ~A argument ~S. Supported targets are ~A."
(list (if (char? name)
(string #\- name)
(string-append "--" name))
arg
(string-join supported ", "))
#f)))
(acons 'to arg result)))
%help-option)
invalid-option
(lambda (arg result)
(acons 'source-file arg result))
'((to . "cwl")))))
(when (or (assq 'help args)
(not (assq-ref args 'source-file)))
(display (format "Usage: ~a compile [OPTIONS] SOURCE-FILE
Compile SOURCE-FILE.
-t, --to=TARGET compile SOURCE-FILE to TARGET language;
Supported targets are cwl (default) and dot.
"
program)
(current-error-port))
(exit (assq 'help args)))
;; We don't need to compile ccwl files. Loading is sufficient
;; for our purposes. Besides, compiling would fail since the
;; workflow macro cannot access command definitions.
(set! %load-should-auto-compile #f)
(let ((to (assq-ref args 'to)))
((cond
((string=? to "cwl") workflow->cwl)
((string=? to "dot") workflow->dot))
(guard (exception
;; Handle syntax violation exceptions by reporting
;; them and exiting.
((ccwl-violation? exception)
(report-ccwl-violation exception)
(exit #f)))
(load (canonicalize-path (assq-ref args 'source-file))
read-syntax))
(current-output-port)))))
((program args ...)
(let ((args (args-fold args
(list %help-option)
(lambda (opt name arg result)
result)
(lambda (arg result)
result)
'())))
(display (format "Usage: ~a COMMAND [OPTIONS] [ARGS]
COMMAND must be one of the sub-commands listed below:
compile compile a workflow
To get usage information for one of these sub-commands, run
~a COMMAND --help
"
program program)
(current-error-port))
(exit (assq 'help args))))))
(apply main (command-line))
|
