• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
    • Apt
    • Zfc
    • Acre
    • Milawa
    • Smtlink
    • Abnf
    • Vwsim
    • Isar
    • Wp-gen
    • Dimacs-reader
    • Pfcs
    • Legacy-defrstobj
    • Proof-checker-array
    • Soft
    • C
    • Farray
    • Rp-rewriter
    • Instant-runoff-voting
    • Imp-language
    • Sidekick
    • Leftist-trees
    • Java
    • Taspi
    • Bitcoin
    • Riscv
    • Des
    • Ethereum
    • X86isa
    • Sha-2
    • Yul
      • Transformations
      • Language
        • Abstract-syntax
        • Dynamic-semantics
        • Concrete-syntax
          • Lexer
          • Parser
            • Parse-keyword
            • Parse-variable-declaration
            • Parse-symbol
            • Parse-literal
            • Parse-identifier
            • Hex-chars-and-uscores-to-hex-string-rest-element-list
            • Parse-assignment-statement
            • Parse-identifier-and-open-paren
            • Parse-*-comma-identifier
            • Parse-*-.-identifier
            • Parse-continue-statement
            • Parse-*-comma-path
            • Parse-path
            • Parse-leave-statement
            • Parse-break-statement
            • Cst2ast-hex-string
            • Cst2ast-string-literal-content
            • Cst2ast-escape-sequence
            • Cst2ast-string-literal-contents
            • Cst2ast-quoted-printable
            • Parse-yul
            • Cst2ast-string-literal
            • Parse-yul-bytes
            • Cst2ast-hex-number
            • Cst2ast-uhhhh
            • Cst2ast-literal-kind
            • Cst2ast-decimal-number
            • Cst2ast-xhh
            • Cst2ast-single-char
            • Cst2ast-boolean
            • Parse-*-case-clause
            • Looks-like-hex-string-fringe
            • Cst2ast-hex-digit-char-list
            • Parse-*-statement
            • Parse-*-comma-expression
            • Parse-switch-statement
            • Parse-if-statement
            • Parse-for-statement
            • Parse-expression
            • Parse-case-clause
            • Parse-fundef
            • Parse-function-call
            • Parse-block
            • *single-quote-tree-list*
            • *double-quote-tree-list*
            • *yul-keywords*
            • *single-quoted-content-rulenames*
            • *list-leafterm-x*
            • *list-leafterm-u*
            • *list-leafterm-92*
            • *double-quoted-content-rulenames*
            • *yul-symbols*
          • Grammar-old
          • Grammar
          • Tokenizer
        • Static-soundness
        • Static-semantics
        • Errors
      • Yul-json
    • Zcash
    • Proof-checker-itp13
    • Regex
    • ACL2-programming-language
    • Json
    • Jfkr
    • Equational
    • Cryptography
    • Poseidon
    • Where-do-i-place-my-book
    • Axe
    • Bigmems
    • Builtins
    • Execloader
    • Aleo
    • Solidity
    • Paco
    • Concurrent-programs
    • Bls12-377-curves
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Parser

Cst2ast-quoted-printable

Given a :nonleaf tree for rulename "single-quoted-printable" or "double-quoted-printable", returns a string-element-char.

Signature

(cst2ast-quoted-printable subtree double-quoted-p) → element

Arguments

subtree — Guard (abnf::treep subtree).

double-quoted-p — Guard (booleanp double-quoted-p).

Returns

element — Type (string-element-resultp element).

Definitions and Theorems

Function: cst2ast-quoted-printable

(defun cst2ast-quoted-printable (subtree double-quoted-p)
 (declare (xargs :guard (and (abnf::treep subtree)
                             (booleanp double-quoted-p))))
 (declare (ignorable double-quoted-p))
 (let ((__function__ 'cst2ast-quoted-printable))
  (declare (ignorable __function__))
  (b* (((unless (and (abnf::treep subtree)
                     (abnf::tree-case subtree :nonleaf)))
        (reserrf "unexpected input to cst2ast-quoted-printable"))
       (fringe (abnf::tree->string subtree))
       ((unless (and (equal (len fringe) 1)
                     (unsigned-byte-p 8 (car fringe))))
        (reserrf "unexpected input to cst2ast-quoted-printable 2")))
    (make-string-element-char :get (code-char (car fringe))))))

Theorem: string-element-resultp-of-cst2ast-quoted-printable

(defthm string-element-resultp-of-cst2ast-quoted-printable
  (b* ((element (cst2ast-quoted-printable subtree double-quoted-p)))
    (string-element-resultp element))
  :rule-classes :rewrite)