(define-module (click util)
+ #:use-module (ice-9 getopt-long)
#:use-module (ice-9 readline)
#:use-module (click constant)
#:export (getopt-long-option-spec
+ get-option-default-value
+ get-values
option-default-value
option-property
program-name
%program-name))
+
(define %program-name (make-fluid "guile"))
(define (program-name)
(fluid-ref %program-name))
(cadr property)
default)))
-(define* (option-default-value option #:optional (no-prompt #f))
- "Get default value for option, asking user if prompt property is set"
+(define (get-values option-spec values)
+ "Return an associated list with values for all the options in option-spec"
+ (cond ((null? option-spec)
+ '())
+ (else
+ (let* ((option (car option-spec))
+ (option-name (car option))
+ (value (or (option-ref values option-name #f)
+ (get-option-default-value option))))
+ (cons (cons option-name value)
+ (get-values (cdr option-spec) values))))))
+
+
+(define* (get-option-default-value option #:optional (no-prompt #f))
+ "Get value for option, asking user if prompt property is set"
(let ((default (option-property option 'default)))
(if (not default)
(let ((prompt (option-property option 'prompt)))