• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
        • Warnings
        • Primitives
        • Use-set
        • Syntax
        • Getting-started
        • Utilities
        • Loader
          • Preprocessor
          • Vl-loadconfig
          • Lexer
          • Vl-loadstate
          • Parser
            • Parse-expressions
            • Parse-udps
            • Vl-genelements
            • Parse-paramdecls
            • Parse-blockitems
            • Parse-utils
            • Parse-insts
              • Special-note-about-blank-ports
              • Vl-parse-list-of-named-port-connections-2012
              • Vl-parse-udp-or-module-instantiation
              • Vl-parse-udp-instance
              • Vl-parse-list-of-ordered-port-connections
              • Vl-parse-list-of-ordered-parameter-assignments
              • Vl-parse-list-of-named-port-connections-2005
              • Vl-parse-list-of-named-parameter-assignments
              • Vl-parse-1+-udp-instances
                • Vl-parse-module-instance
                • Vl-parse-1+-module-instances
                • Vl-parse-udp-instantiation
                • Vl-parse-parameter-value-assignment
                • Vl-parse-named-port-connection
                • Vl-parse-named-parameter-assignment
                • Vl-parse-module-instantiation
                • Vl-parse-list-of-parameter-assignments
                • Vl-parse-list-of-named-port-connections
                • Vl-parse-param-expression
                • Vl-parse-list-of-port-connections
              • Parse-datatype
              • Parse-functions
              • Parse-datatypes
              • Parse-strengths
              • Vl-parse-genvar-declaration
              • Vl-parse
              • Parse-ports
              • Seq
              • Parse-packages
            • Vl-load-merge-descriptions
            • Scope-of-defines
            • Vl-load-file
            • Vl-flush-out-descriptions
            • Vl-description
            • Vl-loadresult
            • Vl-read-file
            • Vl-find-basename/extension
            • Vl-find-file
            • Vl-read-files
            • Extended-characters
            • Vl-load
            • Vl-load-main
            • Vl-load-description
            • Vl-descriptions-left-to-load
            • Inject-warnings
            • Vl-load-descriptions
            • Vl-load-files
            • Vl-load-summary
            • Vl-collect-modules-from-descriptions
            • Vl-descriptionlist
          • Transforms
          • Lint
          • Mlib
          • Server
          • Kit
          • Printer
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Parse-insts

    Vl-parse-1+-udp-instances

    Signature
    (vl-parse-1+-udp-instances loc modname str 
                               delay atts &key (tokstream 'tokstream) 
                               (config 'config)) 
     
      → 
    (mv errmsg? value new-tokstream)
    Arguments
    config — Guard (vl-loadconfig-p config).

    Definitions and Theorems

    Function: vl-parse-1+-udp-instances-fn

    (defun vl-parse-1+-udp-instances-fn
           (loc modname str delay atts tokstream config)
     (declare (xargs :stobjs (tokstream)))
     (declare (xargs :guard (vl-loadconfig-p config)))
     (declare (ignorable config))
     (declare (xargs :guard (and (vl-location-p loc)
                                 (stringp modname)
                                 (vl-maybe-gatestrength-p str)
                                 (vl-maybe-gatedelay-p delay)
                                 (vl-atts-p atts))))
     (let ((__function__ 'vl-parse-1+-udp-instances))
      (declare (ignorable __function__))
      (seq
       tokstream
       (first := (vl-parse-udp-instance loc modname str delay atts))
       (when
        (vl-is-token? :vl-comma)
        (:= (vl-match-token :vl-comma))
        (rest
             := (vl-parse-1+-udp-instances loc modname str delay atts)))
       (return (cons first rest)))))

    Theorem: vl-parse-1+-udp-instances-fails-gracefully

    (defthm vl-parse-1+-udp-instances-fails-gracefully
     (implies
      (mv-nth 0
              (vl-parse-1+-udp-instances loc modname str delay atts))
      (not
         (mv-nth
              1
              (vl-parse-1+-udp-instances loc modname str delay atts)))))

    Theorem: vl-warning-p-of-vl-parse-1+-udp-instances

    (defthm vl-warning-p-of-vl-parse-1+-udp-instances
     (iff
      (vl-warning-p
        (mv-nth 0
                (vl-parse-1+-udp-instances loc modname str delay atts)))
      (mv-nth 0
              (vl-parse-1+-udp-instances loc modname str delay atts))))

    Theorem: vl-parse-1+-udp-instances-result

    (defthm vl-parse-1+-udp-instances-result
     (implies
      (and (and (force (vl-location-p loc))
                (force (stringp modname))
                (force (vl-maybe-gatestrength-p str))
                (force (vl-maybe-gatedelay-p delay))
                (force (vl-atts-p atts))))
      (vl-modinstlist-p
         (mv-nth
              1
              (vl-parse-1+-udp-instances loc modname str delay atts)))))

    Theorem: vl-parse-1+-udp-instances-true-listp

    (defthm vl-parse-1+-udp-instances-true-listp
     (true-listp
        (mv-nth 1
                (vl-parse-1+-udp-instances loc modname str delay atts)))
     :rule-classes :type-prescription)

    Theorem: vl-parse-1+-udp-instances-count-strong

    (defthm vl-parse-1+-udp-instances-count-strong
     (and
      (<=
       (vl-tokstream-measure
        :tokstream
        (mv-nth 2
                (vl-parse-1+-udp-instances loc modname str delay atts)))
       (vl-tokstream-measure))
      (implies
       (not
        (mv-nth 0
                (vl-parse-1+-udp-instances loc modname str delay atts)))
       (<
        (vl-tokstream-measure
           :tokstream
           (mv-nth
                2
                (vl-parse-1+-udp-instances loc modname str delay atts)))
        (vl-tokstream-measure))))
     :rule-classes ((:rewrite) (:linear)))