• 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
        • Transforms
        • Lint
        • Mlib
        • Server
        • Kit
        • Printer
          • Ps
          • Basic-printing
          • Verilog-printing
          • Printing-locally
          • Formatted-printing
          • Accessing-printed-output
            • Vl-print-to-file
            • Vl-ps->chars
              • Vl-printedlist->chars
              • Vl-ps->string
              • With-ps-file
            • Vl-printedlist
            • Json-printing
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Vl-ps->chars

    Vl-printedlist->chars

    Convert a printed list (in reverse order) into characters (in proper order).

    Signature
    (vl-printedlist->chars x acc) → chars
    Arguments
    x — Guard (vl-printedlist-p x).
    Returns
    chars — Type (character-listp chars), given (character-listp acc).

    Definitions and Theorems

    Function: vl-printedlist->chars

    (defun vl-printedlist->chars (x acc)
      (declare (xargs :guard (vl-printedlist-p x)))
      (let ((__function__ 'vl-printedlist->chars))
        (declare (ignorable __function__))
        (b* (((when (atom x)) acc)
             (x1 (vl-printed-fix (car x)))
             ((when (characterp x1))
              (vl-printedlist->chars (cdr x)
                                     (cons x1 acc))))
          (vl-printedlist->chars (cdr x)
                                 (str::append-chars x1 acc)))))

    Theorem: character-listp-of-vl-printedlist->chars

    (defthm character-listp-of-vl-printedlist->chars
      (implies (character-listp acc)
               (b* ((chars (vl-printedlist->chars x acc)))
                 (character-listp chars)))
      :rule-classes :rewrite)