• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
        • Vl-warninglist->types
        • Vl-warning
        • Propagating-errors
        • Vl-reportcard
        • Vl-warning-sort
        • Lint-warning-suppression
        • Clean-warnings
        • Warn
        • Vl-some-warning-fatalp
        • Vl-print-warnings-with-header
        • Vl-print-warnings-with-named-header
        • Flat-warnings
        • Vl-keep-warnings
        • Vl-remove-warnings
        • Vl-print-warnings
        • Vl-some-warning-of-type-p
        • Vl-clean-warnings
        • Vl-warnings-to-string
        • Vl-warninglist
        • Vl-print-warning
        • Ok
        • Vl-trace-warnings
        • Fatal
      • Primitives
      • Use-set
      • Syntax
      • Getting-started
      • Utilities
      • Loader
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• Warnings

Vl-print-warnings-with-named-header

Signature

(vl-print-warnings-with-named-header modname x &key (ps 'ps)) 
  → 
ps

Arguments

modname — Guard (stringp modname).

x — Guard (vl-warninglist-p x).

Definitions and Theorems

Function: vl-print-warnings-with-named-header-fn

(defun
 vl-print-warnings-with-named-header-fn
 (modname x ps)
 (declare (xargs :stobjs (ps)))
 (declare (xargs :guard (and (stringp modname)
                             (vl-warninglist-p x))))
 (let
  ((__function__ 'vl-print-warnings-with-named-header))
  (declare (ignorable __function__))
  (b*
   ((htmlp (vl-ps->htmlp))
    (x (vl-clean-warnings x))
    (msg (cond ((atom x) "No Warnings")
               ((atom (cdr x)) "One Warning")
               (t (cat (natstr (len x)) " Warnings")))))
   (if
    (not htmlp)
    (if (atom x)
        ps
        (vl-ps-seq (vl-println "")
                   (vl-print-str modname)
                   (vl-print " -- ")
                   (vl-println msg)
                   (vl-print-warnings-aux x)))
    (vl-ps-seq
     (vl-println-markup "<div class=\"vl_module_warnings\">")
     (if (atom x)
         (vl-print-markup "<h3 class=\"vl_module_no_warnings\">")
         (vl-print-markup "<h3 class=\"vl_module_yes_warnings\">"))
     (vl-print-modname modname)
     (vl-print ": ")
     (vl-print msg)
     (vl-println-markup "</h3>")
     (if
       (atom x)
       ps
       (vl-ps-seq (vl-println-markup "<ul class=\"vl_warning_list\">")
                  (vl-print-warnings-aux x)
                  (vl-println-markup "</ul>")))
     (vl-println-markup "</div>"))))))

Theorem: vl-print-warnings-with-named-header-fn-of-str-fix-modname

(defthm
    vl-print-warnings-with-named-header-fn-of-str-fix-modname
    (equal (vl-print-warnings-with-named-header-fn (str-fix modname)
                                                   x ps)
           (vl-print-warnings-with-named-header-fn modname x ps)))

Theorem: vl-print-warnings-with-named-header-fn-streqv-congruence-on-modname

(defthm
 vl-print-warnings-with-named-header-fn-streqv-congruence-on-modname
 (implies
  (streqv modname modname-equiv)
  (equal
       (vl-print-warnings-with-named-header-fn modname x ps)
       (vl-print-warnings-with-named-header-fn modname-equiv x ps)))
 :rule-classes :congruence)

Theorem: vl-print-warnings-with-named-header-fn-of-vl-warninglist-fix-x

(defthm
     vl-print-warnings-with-named-header-fn-of-vl-warninglist-fix-x
     (equal (vl-print-warnings-with-named-header-fn
                 modname (vl-warninglist-fix x)
                 ps)
            (vl-print-warnings-with-named-header-fn modname x ps)))

Theorem: vl-print-warnings-with-named-header-fn-vl-warninglist-equiv-congruence-on-x

(defthm
 vl-print-warnings-with-named-header-fn-vl-warninglist-equiv-congruence-on-x
 (implies
  (vl-warninglist-equiv x x-equiv)
  (equal
       (vl-print-warnings-with-named-header-fn modname x ps)
       (vl-print-warnings-with-named-header-fn modname x-equiv ps)))
 :rule-classes :congruence)