• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
    • Io
    • Defttag
    • Sys-call
    • Save-exec
    • Quicklisp
    • Std/io
    • Oslib
    • Bridge
      • Json-encoding
        • Json-encode-main
        • Json-encode-weird-char
        • Json-encode-atom
        • Json-encode
        • Json-encode-chars
        • Json-encode-char
        • Json-encode-str
        • Json-simple-alist-p
        • Json-comma-and-maybe-newline
      • Security
      • Command
      • In-main-thread
      • Message
      • Start
      • Bindings
      • Stop
      • Try-in-main-thread
    • Clex
    • Tshell
    • Unsound-eval
    • Hacker
    • ACL2s-interface
    • Startup-banner
    • Command-line
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Json-encoding

Json-encode-char

Signature

(json-encode-char x acc) → new-acc

Returns

new-acc — Type (character-listp new-acc), given (and (characterp x) (character-listp acc)).

Definitions and Theorems

Function: json-encode-char$inline

(defun json-encode-char$inline (x acc)
  (declare (type character x))
  (let ((__function__ 'json-encode-char))
    (declare (ignorable __function__))
    (b* (((when (eql x #\\))
          (cons #\\ (cons #\\ acc)))
         ((when (eql x #\"))
          (cons #\" (cons #\\ acc)))
         ((the (unsigned-byte 8) code)
          (char-code x))
         ((when (or (<= code 31) (>= code 127)))
          (json-encode-weird-char code acc)))
      (cons x acc))))

Theorem: character-listp-of-json-encode-char

(defthm character-listp-of-json-encode-char
  (implies (and (characterp x)
                (character-listp acc))
           (b* ((new-acc (json-encode-char$inline x acc)))
             (character-listp new-acc)))
  :rule-classes :rewrite)