summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/ccwl.in24
1 files changed, 17 insertions, 7 deletions
diff --git a/scripts/ccwl.in b/scripts/ccwl.in
index 8093fa9..ec5aa32 100755
--- a/scripts/ccwl.in
+++ b/scripts/ccwl.in
@@ -25,18 +25,28 @@
;;; Code:
-(use-modules (ice-9 match)
+(use-modules (srfi srfi-37)
+ (ice-9 match)
(ccwl ccwl)
(ccwl cwl))
+(define (invalid-option opt name arg result)
+ (error "Invalid option" name))
+
(define main
(match-lambda*
- ((_ "compile" input-file)
- ;; FIXME: Compiling ccwl files fails since the workflow macro is
- ;; unable to access command definitions.
- (set! %load-should-auto-compile #f)
- (workflow->cwl (load (canonicalize-path input-file))
- (current-output-port)))
+ ((_ "compile" args ...)
+ (let* ((args (args-fold args
+ '()
+ invalid-option
+ (lambda (arg result)
+ (acons 'source-file arg result))
+ '())))
+ ;; FIXME: Compiling ccwl files fails since the workflow macro is
+ ;; unable to access command definitions.
+ (set! %load-should-auto-compile #f)
+ (workflow->cwl (load (canonicalize-path (assq-ref args 'source-file)))
+ (current-output-port))))
((program _ ...)
(format (current-error-port)
"Usage: ~a compile input-file~%"