Coverage report: /home/ellis/comp/core/lib/cli/clap/pkg.lisp

KindCoveredAll%
expression016 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; cli/clap/pkg.lisp --- Clap Package Definitions
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :cli/int)
7
 (defparameter *cli-clap-packages* nil)
8
 (setq *defpkg-hook* (lambda (x) (pushnew (package-name x) *cli-clap-packages* :test 'string=)))
9
 
10
 (defpkg :cli/clap/vars
11
   (:use :cl)
12
   (:export :*cli-group-separator* :*no-exit* :*default-cli-def*
13
    :*default-cli-class* :*cli-opt-kinds* :*cli* :*opts*
14
    :*args* :*argc* :*arg* :*optc*
15
    :*cli-package-table*
16
    :*no-debug*))
17
 
18
 (defpkg :cli/clap/util
19
   (:use :cl :std :log :sb-ext :cli/clap/vars)
20
   (:export :args :arg0 :long-opt-p
21
    :short-opt-p :group-opt-p :opt-string-prefix-eq :cli-opt-kind-p
22
    :long-opt-has-eq-p
23
    :opt-keyword-p
24
    :short-opt-has-eq-p
25
    :default-cmd-thunk
26
    :default-opt-thunk))
27
 
28
 (defpkg :cli/clap/macs
29
   (:use :cl :std :log :sb-ext :cli/clap/util :cli/clap/vars)
30
   (:export :defopt :defcmd
31
    :make-opt-parser :with-cli-handlers :make-shorty
32
    :argp
33
    :parse-cli-lambda-list))
34
 
35
 (defpkg :cli/clap/proto
36
   (:use :cl :std :log :sb-ext)
37
   (:import-from :cli/clap/util :args)
38
   (:export :proc-args :clap-error :find-short-opts
39
    :find-cmd :find-opts :parse-args :print-help
40
    :print-usage :print-version :do-cmds :do-cmd
41
    :active-cmds :active-opts :call-opt :do-opt
42
    :push-cmd :push-opt
43
    :do-opts :clap-simple-error
44
    :clap-simple-warning :clap-warning
45
    :clap-unknown-argument :clap-missing-argument
46
    :clap-invalid-argument :activate-cmd
47
    :activate-opt :find-opt
48
    :cli-args :opts
49
    :cmds))
50
 
51
 (defpkg :cli/clap/ast
52
   (:use :cl :std :log :obj/ast)
53
   (:export :cli-node :make-cli-node :cli-ast
54
    :make-cli-ast :cli-node-kind :cli-node-form))
55
 
56
 (defpkg :cli/clap/obj
57
   (:use :cl :std :log
58
    :sb-ext :cli/clap/proto :cli/clap/macs :cli/clap/util
59
    :cli/clap/vars :cli/clap/ast :cli/clap/util)
60
   (:import-from :equiv :equiv)
61
   (:import-from :obj/ast :ast :form :*ast*)
62
   (:export :make-cli :define-cli :defmain
63
    :make-opts :make-cmds :parse-bool-opt :parse-string-opt
64
    :parse-form-opt :parse-list-op :parse-sym-op :parse-key-op
65
    :pasre-num-op :parse-file-op :parse-dir-op :cli
66
    :cli-cd :with-cli :debug-opts
67
    :cli-opt :cli-cmd :cli-opt-val :cli-opt-lock :cli-opt-name
68
    :active-cmds
69
    :%compose-keyword-opt
70
    :cli-cmd-args
71
    :cli-lock-p
72
    :cli-name
73
    :getopt
74
    :setopt
75
    :set-package-cli
76
    :add-package-cmd
77
    :add-package-opt
78
    :package-cli
79
    :package-cmds
80
    :package-opts
81
    :with-cli-args
82
    :load-package-cli
83
    :add-package-cmds
84
    :add-package-opts
85
    :help-opt
86
    :version-opt
87
    :level-opt
88
    :keep-ast-opt))
89
 
90
 (setq *defpkg-hook* nil)