changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/cli/clap/pkg.lisp

changeset 688: 517c65b51e6b
parent: 39170f311b8c
author: Richard Westhaver <ellis@rwest.io>
date: Tue, 01 Oct 2024 21:52:17 -0400
permissions: -rw-r--r--
description: clap tests 
     1 ;;; cli/clap/pkg.lisp --- Clap Package Definitions
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (defpackage :cli/clap/vars
     7   (:use :cl)
     8   (:export :*cli-group-separator* :*no-exit* :*default-cli-def*
     9    :*default-cli-class* :*cli-opt-kinds* :*cli* :*opts*
    10    :*args* :*argc* :*arg* :*optc*))
    11 
    12 (defpackage :cli/clap/util
    13   (:use :cl :std :log :sb-ext :cli/clap/vars)
    14   (:export :args :arg0 :long-opt-p
    15    :short-opt-p :opt-group-p :opt-string-prefix-eq :cli-opt-kind-p
    16    :default-thunk
    17    :long-opt-has-eq-p
    18    :opt-keyword-p))
    19 
    20 (defpackage :cli/clap/macs
    21   (:use :cl :std :log :sb-ext :cli/clap/util :cli/clap/vars)
    22   (:export :defopt :defcmd
    23    :make-opt-parser :with-cli-handlers :make-shorty
    24    :with-opt-restart-case))
    25 
    26 (defpackage :cli/clap/proto
    27   (:use :cl :std :log :sb-ext)
    28   (:import-from :cli/clap/util :args)
    29   (:export :proc-args :clap-error :find-short-opts
    30    :find-cmd :find-opts :parse-args :print-help
    31    :print-usage :print-version :do-cmds :do-cmd
    32    :active-cmds :active-opts :call-opt :do-opt
    33    :push-cmd :push-opt :cli-equal
    34    :do-opts
    35    :clap-simple-error
    36    :clap-simple-warning
    37    :clap-warning
    38    :clap-unknown-argument
    39    :handle-unknown-opt
    40    :handle-missing-opt
    41    :handle-invalid-opt
    42    :handle-unknown-arg
    43    :handle-missing-arg
    44    :handle-invalid-arg
    45    :clap-missing-argument
    46    :clap-invalid-argument
    47    :activate-cmd
    48    :activate-opt
    49    :find-opt
    50    :cli-args
    51    :opts
    52    :cmds))
    53 
    54 (defpackage :cli/clap/ast
    55   (:use :cl :std :log :dat/sxp)
    56   (:export :cli-node :make-cli-node :cli-ast
    57    :make-cli-ast :cli-node-kind :cli-node-form))
    58 
    59 (defpackage :cli/clap/obj
    60   (:use :cl :std :log
    61    :sb-ext :cli/clap/proto :cli/clap/macs :cli/clap/util
    62    :cli/clap/vars :cli/clap/ast :cli/clap/util)
    63   (:import-from :dat/sxp :ast)
    64   (:export :make-cli :define-cli :defmain
    65    :make-opts :make-cmds :parse-bool-opt :parse-string-opt
    66    :parse-form-opt :parse-list-op :parse-sym-op :parse-key-op
    67    :pasre-num-op :parse-file-op :parse-dir-op :cli
    68    :cli-cd :with-cli :debug-opts
    69    :cli-opt :cli-cmd :cli-opt-val :cli-opt-lock :cli-opt-name
    70    :active-cmds
    71    :%compose-keyword-opt
    72    :cli-cmd-args
    73    :cli-lock-p
    74    :cli-name))
    75 
    76 (defpackage :cli/clap/simple
    77   (:use :cl :std :log :sb-ext)
    78   (:import-from :cli/ansi :.ris)
    79   (:import-from :uiop :println)
    80   (:import-from :sb-ext :parse-native-namestring)
    81   (:shadowing-import-from :sb-ext :exit)
    82   (:export))
    83 
    84 (pkg:defpkg :cli/clap
    85   (:nicknames :clap)
    86   (:use-reexport :cli/clap/proto :cli/clap/obj :cli/clap/vars
    87    :cli/clap/simple :cli/clap/util :cli/clap/macs :cli/clap/ast
    88    :cli/clap/vars))