• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
      • Crypto-hdwallet
      • Apt
      • Error-checking
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Soft
      • Bv
      • Imp-language
      • C
      • Event-macros
      • Java
      • Bitcoin
      • Ethereum
      • Yul
        • Transformations
        • Language
          • Abstract-syntax
          • Dynamic-semantics
          • Concrete-syntax
            • Lexer
            • Parser
              • Parse-keyword
              • Parse-variable-declaration
              • Parse-symbol
              • Parse-literal
              • Parse-identifier
              • 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-string-literal-content
              • Cst2ast-escape-sequence
              • Cst2ast-string-literal-contents
              • Cst2ast-quoted-printable
              • Parse-yul
              • Cst2ast-string-literal
              • Cst2ast-hex-string
              • Parse-yul-bytes
              • Hex-chars-to-hex-pair-list
              • Cst2ast-hex-number
              • Cst2ast-uhhhh
              • Cst2ast-literal-kind
              • Cst2ast-single-char
              • Cst2ast-decimal-number
              • Cst2ast-xhh
              • 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-new
            • Tokenizer
            • Grammar-old
          • Static-soundness
          • Static-semantics
          • Errors
        • Yul-json
      • Zcash
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Number-theory
      • Cryptography
      • Lists-light
      • Builtins
      • Axe
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Parser

Cst2ast-escape-sequence

Signature

(cst2ast-escape-sequence tree) → element

Arguments

tree — Guard (abnf::treep tree).

Returns

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

Definitions and Theorems

Function: cst2ast-escape-sequence

(defun cst2ast-escape-sequence (tree)
 (declare (xargs :guard (abnf::treep tree)))
 (let ((__function__ 'cst2ast-escape-sequence))
  (declare (ignorable __function__))
  (b*
   (((unless (and (abnf::treep tree)
                  (abnf::tree-case tree :nonleaf)
                  (equal (abnf::tree-nonleaf->rulename? tree)
                         (abnf::rulename "escape-sequence"))))
     (reserrf "unexpected input to cst2ast-escape-sequence"))
    ((unless (and (equal (len (abnf::tree-nonleaf->branches tree))
                         2)
                  (equal (car (abnf::tree-nonleaf->branches tree))
                         *list-leafterm-92*)))
     (reserrf "unexpected input to cst2ast-escape-sequence 2"))
    (second-branch (cadr (abnf::tree-nonleaf->branches tree)))
    ((unless (and (abnf::tree-listp second-branch)
                  (equal (len second-branch) 1)))
     (reserrf "unexpected input to cst2ast-escape-sequence 3"))
    (subtree (car second-branch))
    ((unless (and (abnf::treep subtree)
                  (abnf::tree-case subtree :nonleaf)
                  (null (abnf::tree-nonleaf->rulename? subtree))))
     (reserrf "unexpected input to cst2ast-escape-sequence 4"))
    (escape-sequence-contents
         (abnf::tree-nonleaf->branches subtree))
    ((unless (abnf::tree-list-listp escape-sequence-contents))
     (reserrf "unexpected input to cst2ast-escape-sequence 5"))
    (yul-escape-or-err
     (cond
      ((= (length escape-sequence-contents) 1)
       (cst2ast-single-char (car escape-sequence-contents)))
      ((and (= (length escape-sequence-contents) 2)
            (equal (first escape-sequence-contents)
                   *list-leafterm-u*))
       (cst2ast-uhhhh (second escape-sequence-contents)))
      ((and (= (length escape-sequence-contents) 2)
            (equal (first escape-sequence-contents)
                   *list-leafterm-x*))
       (cst2ast-xhh (second escape-sequence-contents)))
      (t
        (reserrf "unexpected input to cst2ast-escape-sequence 6"))))
    ((when (reserrp yul-escape-or-err))
     yul-escape-or-err))
   (make-string-element-escape :get yul-escape-or-err))))

Theorem: string-element-resultp-of-cst2ast-escape-sequence

(defthm string-element-resultp-of-cst2ast-escape-sequence
  (b* ((element (cst2ast-escape-sequence tree)))
    (string-element-resultp element))
  :rule-classes :rewrite)