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

KindCoveredAll%
expression027 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; cli/clap/vars.lisp --- Clap Variables
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :cli/clap/vars)
7
 
8
 (declaim (simple-string *cli-group-separator*))
9
 (defparameter *cli-group-separator*
10
   "--"
11
   "A marker specifying the end of a unique group of CLI args.")
12
 
13
 (defparameter *no-exit* nil
14
   "Indicate whether the WITH-CLI-HANDLERS form should exit on completion.")
15
 
16
 (defparameter *no-debug* nil
17
   "Indicate whether the WITH-CLI-HANDLERS form should enable the debugger.")
18
 
19
 (defvar *default-cli-def* 'defparameter)
20
 
21
 (defvar *default-cli-class* 'cli
22
   "The name of the class of the top-level CLI object which will be
23
 generated by the DEFINE-CLI macro.")
24
 
25
 (declaim ((vector symbol) *cli-opt-kinds*))
26
 (defvar *cli-opt-kinds* ;; make sure to keep this in sync with the list of parsers above
27
   (let ((kinds '(boolean string form list symbol keyword number file directory pathname)))
28
     (make-array (length kinds) :element-type 'symbol :initial-contents kinds)))
29
 
30
 (defvar *cli* nil
31
   "Most recently used CLI object.
32
 This symbol is bound in the body of the WITH-CLI macro.")
33
 
34
 (defvar *args* nil
35
   "Current command arguments.
36
 Bound for the lifetime of a DEFCMD function.")
37
 
38
 (defvar *opts* nil
39
   "Current command options.
40
 Bound for the lifetime of a DEFCMD function.")
41
 
42
 (declaim (unsigned-byte *argc* *optc*))
43
 (defvar *argc* 0
44
   "Current count of command arguments.
45
 This value may be updated throughout the lifetime of a function defined with
46
 DEFCMD.")
47
 
48
 (defvar *optc* 0
49
   "Current count of command options.
50
 This value may be updated throughout the lifetime of a function defined with
51
 DEFCMD.")
52
 
53
 (defvar *arg* nil
54
   "Current option argument.
55
 Bound for the lifetime of a function defined with DEFOPT.")
56
 
57
 (defvar *cli-package-table* (make-hash-table)
58
   "A hash table containing a mapping of package names to a list containing a
59
 CLI object and two vectors: #(CLI CLI-CMDS CLI-OPTS).")