1 ;;; Click --- Command Line Interface Creation Kit for GNU Guile
2 ;;; Copyright © 2021 Javier Sancho <jsf@jsancho.org>
4 ;;; This file is part of Click.
6 ;;; Click is free software; you can redistribute it and/or modify it
7 ;;; under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 3 of the License, or
9 ;;; (at your option) any later version.
11 ;;; Click is distributed in the hope that it will be useful, but
12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;;; General Public License for more details.
16 ;;; You should have received a copy of the GNU General Public License
17 ;;; along with Click. If not, see <http://www.gnu.org/licenses/>.
20 (define-module (click display)
21 #:use-module (ice-9 format)
22 #:use-module (click util)
23 #:export (display-error
27 (define (get-option-type option)
28 "Return allowed type for the value in the option"
29 (let ((default (option-property option 'default)))
39 (define (display-help procedure option-spec)
40 (format #t "Usage: ~a [OPTIONS]
45 " (program-name) (procedure-documentation procedure))
47 (let* ((options (map (lambda (option)
52 (option-property option 'single-char)))
54 (format #f ", -~a" single-char)
57 (not (option-property option 'flag))))
59 (format #f " ~a" (get-option-type option))
61 (option-property option 'help "")))
63 (sep (+ 2 (apply max (map (lambda (option)
64 (string-length (car option)))
66 (for-each (lambda (option)
67 (format #t " ~a~v_~a~%" (car option) (- sep (string-length (car option))) (cdr option)))
70 (define (display-error wrong-option)
71 (format #t "Usage: ~a [OPTIONS]
72 Try '~a --help' for help.
74 Error: No such option: ~a
75 " (program-name) (program-name) wrong-option))