• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
      • Primitives
      • Use-set
      • Syntax
      • Getting-started
      • Utilities
      • Loader
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
        • Vl-model
        • Vl-json
          • Vl-json-opts-p
            • Parse-vl-json-opts
              • Parse-vl-json-opts-long
              • Parse-vl-json-opts-aux
              • Parse-vl-json-opts-bundle
              • Parse-vl-json-opts-short->long-list
              • Parse-vl-json-opts-short->long
            • Vl-json-opts
            • Make-vl-json-opts
            • Change-vl-json-opts
            • Honsed-vl-json-opts
            • Make-honsed-vl-json-opts
            • *vl-json-opts-usage*
            • Vl-json-opts->strict
            • Vl-json-opts->separate
            • Vl-json-opts->search-path
            • Vl-json-opts->readme
            • Vl-json-opts->outfile
            • Vl-json-opts->mem
            • Vl-json-opts->help
            • Vl-json-opts->edition
            • Vl-json-opts->debug
        • Vl-gather
        • Vl-server
        • Vl-pp
        • Vl-lint
        • Vl-main
        • Vl-toolkit-other-command
        • Vl-help
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Parse-vl-json-opts

Parse-vl-json-opts-bundle

Signature

(parse-vl-json-opts-bundle getopt::longnames 
                           args getopt::acc getopt::seen) 
 
  → 
(mv getopt::errmsg getopt::acc getopt::seen rest)

Arguments

getopt::longnames — The already-expanded out names of the bundled options, with no dashes.
    Guard (string-listp getopt::longnames).

args — Remaining arguments past longname.
    Guard (string-listp args).

getopt::acc — Structure we're updating.
    Guard (vl-json-opts-p getopt::acc).

getopt::seen — List of longnames that we've seen so far.
    Guard (string-listp getopt::seen).

Returns

getopt::errmsg — NIL on success or an error message.

getopt::acc — Type (vl-json-opts-p getopt::acc), given (force (vl-json-opts-p getopt::acc)).

getopt::seen — Type (string-listp getopt::seen), given (and (force (string-listp getopt::longnames)) (force (string-listp getopt::seen))) .

rest — Type (string-listp rest), given (force (string-listp args)).

Definitions and Theorems

Function: parse-vl-json-opts-bundle

(defun parse-vl-json-opts-bundle
       (getopt::longnames args getopt::acc getopt::seen)
 (declare (xargs :guard (and (string-listp getopt::longnames)
                             (string-listp args)
                             (vl-json-opts-p getopt::acc)
                             (string-listp getopt::seen))))
 (let ((__function__ 'parse-vl-json-opts-bundle))
  (declare (ignorable __function__))
  (b* (((when (atom getopt::longnames))
        (mv nil getopt::acc getopt::seen args))
       ((mv getopt::err getopt::acc rest)
        (parse-vl-json-opts-long (car getopt::longnames)
                                 nil args getopt::acc getopt::seen))
       ((when getopt::err)
        (mv getopt::err
            getopt::acc getopt::seen rest))
       (getopt::seen (cons (car getopt::longnames)
                           getopt::seen)))
    (parse-vl-json-opts-bundle (cdr getopt::longnames)
                               rest getopt::acc getopt::seen))))

Theorem: vl-json-opts-p-of-parse-vl-json-opts-bundle.acc

(defthm vl-json-opts-p-of-parse-vl-json-opts-bundle.acc
 (implies
   (force (vl-json-opts-p getopt::acc))
   (b* (((mv getopt::?errmsg getopt::?acc
             getopt::?seen common-lisp::?rest)
         (parse-vl-json-opts-bundle getopt::longnames
                                    args getopt::acc getopt::seen)))
     (vl-json-opts-p getopt::acc)))
 :rule-classes :rewrite)

Theorem: string-listp-of-parse-vl-json-opts-bundle.seen

(defthm string-listp-of-parse-vl-json-opts-bundle.seen
 (implies
   (and (force (string-listp getopt::longnames))
        (force (string-listp getopt::seen)))
   (b* (((mv getopt::?errmsg getopt::?acc
             getopt::?seen common-lisp::?rest)
         (parse-vl-json-opts-bundle getopt::longnames
                                    args getopt::acc getopt::seen)))
     (string-listp getopt::seen)))
 :rule-classes :rewrite)

Theorem: string-listp-of-parse-vl-json-opts-bundle.rest

(defthm string-listp-of-parse-vl-json-opts-bundle.rest
 (implies
   (force (string-listp args))
   (b* (((mv getopt::?errmsg getopt::?acc
             getopt::?seen common-lisp::?rest)
         (parse-vl-json-opts-bundle getopt::longnames
                                    args getopt::acc getopt::seen)))
     (string-listp rest)))
 :rule-classes :rewrite)

Theorem: parse-vl-json-opts-bundle-makes-progress

(defthm parse-vl-json-opts-bundle-makes-progress
 (<=
  (len
    (mv-nth
         3
         (parse-vl-json-opts-bundle getopt::longnames
                                    args getopt::acc getopt::seen)))
  (len args))
 :rule-classes ((:rewrite) (:linear)))