		Search-engine friendly clone of the ACL2 documentation.

Parse-vl-server-opts

Parse-vl-server-opts-bundle

Signature
(parse-vl-server-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-server-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-server-opts-p getopt::acc), given (force (vl-server-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-server-opts-bundle

(defun parse-vl-server-opts-bundle
       (getopt::longnames args getopt::acc getopt::seen)
 (declare (xargs :guard (and (string-listp getopt::longnames)
                             (string-listp args)
                             (vl-server-opts-p getopt::acc)
                             (string-listp getopt::seen))))
 (let ((__function__ 'parse-vl-server-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-server-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-server-opts-bundle (cdr getopt::longnames)
                                 rest getopt::acc getopt::seen))))

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

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

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

(defthm string-listp-of-parse-vl-server-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-server-opts-bundle getopt::longnames
                                    args getopt::acc getopt::seen)))
     (string-listp getopt::seen)))
 :rule-classes :rewrite)

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

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

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

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