]> git.jsancho.org Git - guile-click.git/blob - click/util.scm
Nested commands
[guile-click.git] / click / util.scm
1 ;;; Click --- Command Line Interface Creation Kit for GNU Guile
2 ;;; Copyright © 2021 Javier Sancho <jsf@jsancho.org>
3 ;;;
4 ;;; This file is part of Click.
5 ;;;
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.
10 ;;;
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.
15 ;;;
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/>.
18
19
20 (define-module (click util)
21   #:use-module (click constant)
22   #:export (getopt-long-option-spec
23             option-property
24             option-type
25             program-name))
26
27
28 (define (getopt-long-option-spec option-spec)
29   "Transform click option spec into getopt-long format"
30   (map (lambda (option)
31          (cons (car option)
32                (cons (list 'value (not (option-property option 'flag)))
33                      (filter (lambda (property)
34                                (not (memq (car property) CLICK_PROPERTIES)))
35                              (cdr option)))))
36        option-spec))
37
38
39 (define* (option-property option property-name #:optional (default #f))
40   "Return the option property with a given name"
41   (let ((property (assq property-name (cdr option))))
42     (if property
43         (cadr property)
44         default)))
45
46
47 (define program-name (make-parameter #f))
48
49
50 ;; Types
51 (define TYPE-TEXT
52   `((description . "TEXT")
53     (convert . ,identity)))
54 (define TYPE-INTEGER
55   `((description . "INTEGER")
56     (convert . ,string->number)))
57 (define TYPE-NUMBER
58   `((description . "NUMBER")
59     (convert . ,string->number)))
60
61 (define (option-type option)
62   "Return allowed type for the value in the option"
63   (let ((default (option-property option 'default)))
64     (cond ((not default)
65            TYPE-TEXT)
66           ((integer? default)
67            TYPE-INTEGER)
68           ((number? default)
69            TYPE-NUMBER)
70           (else
71            TYPE-TEXT))))