• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
      • Sv
      • Fgl
      • Vwsim
      • Vl
        • Syntax
        • Loader
          • Preprocessor
          • Vl-loadconfig
          • Vl-loadstate
          • Lexer
          • Parser
            • Parse-expressions
            • Parse-udps
            • Parse-statements
            • Parse-property
            • Vl-genelements
            • Parse-paramdecls
            • Parse-blockitems
            • Parse-utils
            • Parse-insts
            • Parse-functions
            • Parse-assignments
            • Parse-clocking
            • Parse-strengths
            • Vl-parse-genvar-declaration
            • Vl-parse
            • Parse-netdecls
            • Parse-asserts
              • Vl-parse-0+-assertion-variable-declarations
              • Vl-parse-property-formal-type-and-id
              • Vl-parse-assertion-item
              • Vl-parse-sequence-declaration
                • Vl-parse-property-declaration
                • Vl-parse-sequence-port-item
                • Vl-parse-property-port-item
                • Vl-parse-1+-sequence-port-items
                • Vl-parse-1+-property-port-items
                • Vl-make-assertion-vardecls
                • Vl-plausible-start-of-assertion-item-p
                • Vl-parse-assertion-item-looks-concurrent-p
              • Vl-maybe-parse-lifetime
              • Parse-dpi-import-export
              • Parse-ports
              • Parse-timeunits
              • Seq
              • Parse-packages
              • Parse-eventctrl
            • Vl-load-merge-descriptions
            • Vl-find-basename/extension
            • Vl-load-file
            • Vl-loadresult
            • Scope-of-defines
            • Vl-find-file
            • Vl-flush-out-descriptions
            • Vl-description
            • Vl-read-file
            • Vl-includeskips-report-gather
            • Vl-load-main
            • Extended-characters
            • Vl-load
            • Vl-load-description
            • Vl-descriptions-left-to-load
            • Inject-warnings
            • Vl-preprocess-debug
            • Vl-write-preprocessor-debug-file
            • Vl-read-file-report-gather
            • Vl-load-descriptions
            • Vl-load-files
            • Translate-off
            • Vl-load-read-file-hook
            • Vl-read-file-report
            • Vl-loadstate-pad
            • Vl-load-summary
            • Vl-collect-modules-from-descriptions
            • Vl-loadstate->warnings
            • Vl-iskips-report
            • Vl-descriptionlist
          • Warnings
          • Getting-started
          • Utilities
          • Printer
          • Kit
          • Mlib
          • Transforms
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Parse-asserts

    Vl-parse-sequence-declaration

    Parse sequence_declaration.

    Signature
    (vl-parse-sequence-declaration &key (tokstream 'tokstream) 
                                   (config 'config)) 
     
      → 
    (mv errmsg? value new-tokstream)
    Arguments
    config — Guard (vl-loadconfig-p config).
    sequence_declaration ::= 'sequence' sequence_identifier [ '(' [sequence_port_list] ')' ] ';'
                                 { assertion_variable_declaration }
                                 sequence_expr [ ';' ]
                             'endsequence' [ ':' sequence_identifier ]
    
    sequence_port_list ::= sequence_port_item { ',' sequence_port_item }
    sequence_identifier ::= identifier

    Definitions and Theorems

    Function: vl-parse-sequence-declaration-fn

    (defun vl-parse-sequence-declaration-fn (tokstream config)
      (declare (xargs :stobjs (tokstream)))
      (declare (xargs :guard (vl-loadconfig-p config)))
      (declare (ignorable config))
      (let ((__function__ 'vl-parse-sequence-declaration))
        (declare (ignorable __function__))
        (seq tokstream
             (:= (vl-match-token :vl-kwd-sequence))
             (name := (vl-match-token :vl-idtoken))
             (when (vl-is-token? :vl-lparen)
                   (:= (vl-match))
                   (when (not (vl-is-token? :vl-rparen))
                         (ports := (vl-parse-1+-sequence-port-items)))
                   (:= (vl-match-token :vl-rparen)))
             (:= (vl-match-token :vl-semi))
             (decls := (vl-parse-0+-assertion-variable-declarations))
             (expr := (vl-parse-property-expr))
             (when (vl-is-token? :vl-semi)
                   (:= (vl-match)))
             (:= (vl-match-token :vl-kwd-endsequence))
             (:= (vl-parse-endblock-name (vl-idtoken->name name)
                                         "sequence/endsequence"))
             (return (make-vl-sequence :name (vl-idtoken->name name)
                                       :ports ports
                                       :decls decls
                                       :expr expr
                                       :loc (vl-token->loc name))))))

    Theorem: vl-parse-sequence-declaration-fails-gracefully

    (defthm vl-parse-sequence-declaration-fails-gracefully
      (implies (mv-nth 0 (vl-parse-sequence-declaration))
               (not (mv-nth 1 (vl-parse-sequence-declaration)))))

    Theorem: vl-warning-p-of-vl-parse-sequence-declaration

    (defthm vl-warning-p-of-vl-parse-sequence-declaration
      (iff (vl-warning-p (mv-nth 0 (vl-parse-sequence-declaration)))
           (mv-nth 0 (vl-parse-sequence-declaration))))

    Theorem: vl-parse-sequence-declaration-result

    (defthm vl-parse-sequence-declaration-result
     (implies
       (and t)
       (equal (vl-sequence-p (mv-nth 1 (vl-parse-sequence-declaration)))
              (not (mv-nth 0 (vl-parse-sequence-declaration))))))

    Theorem: vl-parse-sequence-declaration-count-strong

    (defthm vl-parse-sequence-declaration-count-strong
     (and
      (<= (vl-tokstream-measure
               :tokstream (mv-nth 2 (vl-parse-sequence-declaration)))
          (vl-tokstream-measure))
      (implies
          (not (mv-nth 0 (vl-parse-sequence-declaration)))
          (< (vl-tokstream-measure
                  :tokstream (mv-nth 2 (vl-parse-sequence-declaration)))
             (vl-tokstream-measure))))
     :rule-classes ((:rewrite) (:linear)))