(define-module (click)
#:use-module (ice-9 getopt-long)
- #:use-module (srfi srfi-9)
- #:use-module (srfi srfi-9 gnu)
+ #:use-module (srfi srfi-1)
+ #:use-module (click args)
#:use-module (click command)
#:use-module (click constant)
#:use-module (click help)
#:use-module (click util)
- #:use-module (click value)
#:export (command
group))
(new-command (make-command name click-option-spec help procedure commands)))
(let ((click-manager
(lambda (args)
- (let ((values
- (getopt-long args (getopt-long-option-spec click-option-spec))))
- (if (option-ref values 'help #f)
- (let ((program-name (car args)))
- (display-help program-name new-command))
- (apply procedure (map cdr (get-values option-spec values))))))))
+ (when (not (program-name))
+ (program-name (car args)))
+ (let ((values (parse-args args click-option-spec)))
+ ;; Call current command
+ (cond ((option-ref values 'help #f)
+ (display-help new-command))
+ (else
+ (when procedure
+ (apply procedure (map cdr (get-values option-spec values))))
+ ;; Call nested command (if exists)
+ (call-nested-command commands values)))))))
+
(set-command-click-manager! new-command click-manager)
new-command)))
+
+
+(define (call-nested-command commands values)
+ (let ((next-command-args (cdar values)))
+ (when (not (null? next-command-args))
+ (let* ((next-command-name (car next-command-args))
+ (next-command (find (lambda (command)
+ (equal? (command-name command) next-command-name))
+ commands)))
+ (next-command next-command-args)))))