display-help))
-(define (get-option-type option)
+(define (get-type-description option)
"Return allowed type for the value in the option"
- (let ((default (option-property option 'default)))
- (cond ((not default)
- "TEXT")
- ((integer? default)
- "INTEGER")
- ((number? default)
- "NUMBER")
- (else
- "TEXT"))))
+ (assoc-ref (option-type option) 'description))
(define (display-help procedure option-spec)
(format #t "Usage: ~a [OPTIONS]
(let ((value
(not (option-property option 'flag))))
(if value
- (format #f " ~a" (get-option-type option))
+ (format #f " ~a" (get-type-description option))
"")))
(option-property option 'help "")))
option-spec))
(string-length (car option)))
options)))))
(for-each (lambda (option)
- (format #t " ~a~v_~a~%" (car option) (- sep (string-length (car option))) (cdr option)))
+ (format #t
+ " ~a~v_~a~%"
+ (car option)
+ (- sep (string-length (car option)))
+ (cdr option)))
options)))
(define (display-error wrong-option)