scripts: Use args-fold.

* scripts/ccwl.in: Import (srfi srfi-37).
(invalid-option): New function.
(main): Use args-fold to extract source filename.

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~%"