• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Vwsim
    • Fgl
    • Vl
      • Syntax
      • Loader
      • Warnings
      • Getting-started
      • Utilities
      • Printer
      • Kit
        • Vl-lint
        • Vl-server
        • Vl-gather
          • Vl-gather-opts-p
          • Vl-modulelist-original-sources
          • Vl-module-original-source
          • Vl-gather-top
          • *vl-gather-help*
          • Vl-gather-main
          • Vl-design-original-source
        • Vl-zip
        • Vl-main
        • Split-plusargs
        • Vl-shell
        • Vl-json
      • Mlib
      • Transforms
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• Vl-gather

Vl-design-original-source

Signature

(vl-design-original-source x filemap) → original-source

Arguments

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

filemap — Guard (vl-filemap-p filemap).

Returns

original-source — Type (stringp original-source).

Definitions and Theorems

Function: vl-design-original-source

(defun
   vl-design-original-source (x filemap)
   (declare (xargs :guard (and (vl-design-p x)
                               (vl-filemap-p filemap))))
   (let ((__function__ 'vl-design-original-source))
        (declare (ignorable __function__))
        (b* ((x (vl-design-fix x))
             (mods (vl-design->mods x)))
            (str::join (vl-modulelist-original-sources mods filemap)
                       (implode '(#\Newline #\Newline))))))

Theorem: stringp-of-vl-design-original-source

(defthm
     stringp-of-vl-design-original-source
     (b* ((original-source (vl-design-original-source x filemap)))
         (stringp original-source))
     :rule-classes :type-prescription)