Mercurial > core / lisp/lib/cli/clap/vars.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
571685ae64f1
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; cli/clap/vars.lisp --- Clap Variables 6 (in-package :cli/clap/vars) 8 (declaim (simple-string *cli-group-separator*)) 9 (defparameter *cli-group-separator* 11 "A marker specifying the end of a unique group of CLI args.") 13 (defparameter *no-exit* nil 14 "Indicate whether the WITH-CLI-HANDLERS form should exit on completion.") 16 (defvar *default-cli-def* 'defparameter) 18 (defvar *default-cli-class* 'cli 19 "The name of the class of the top-level CLI object which will be 20 generated by the DEFINE-CLI macro.") 22 (declaim ((vector symbol) *cli-opt-kinds*)) 23 (defvar *cli-opt-kinds* ;; make sure to keep this in sync with the list of parsers above 24 (let ((kinds '(boolean string form list symbol keyword number file directory pathname))) 25 (make-array (length kinds) :element-type 'symbol :initial-contents kinds))) 28 "Most recently used CLI object. 29 This symbol is bound in the body of the WITH-CLI macro.") 32 "Current command arguments. 33 Bound for the lifetime of a DEFCMD function.") 36 "Current command options. 37 Bound for the lifetime of a DEFCMD function.") 39 (declaim (unsigned-byte *argc* *optc*)) 41 "Current count of command arguments. 42 This value may be updated throughout the lifetime of a function defined with 46 "Current count of command options. 47 This value may be updated throughout the lifetime of a function defined with 51 "Current option argument. 52 Bound for the lifetime of a function defined with DEFOPT.")