• 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
        • Typo-detection
          • Typo-read-lowercase-part
          • Typo-read-part
          • Typo-read-uppercase-part
          • Typo-read-special
          • Typo-detect-aux
          • Typo-detect
          • Typo-find-plausible-typos1
          • Typo-mismatch-plausibly-typo-p
          • Typo-partitioning-alist
          • Typo-partition
          • Vl-typo-first-mismatch
          • Typo-partitions-plausibly-typo-p
          • Vl-typo-count-mismatches
          • Typo-numbers
          • *typo-special-substrings-chars*
          • *typo-numbers*
        • Vl-wireinfo-alistp
        • Vl-annotate-vardecllist-with-wireinfo
        • Vl-useset-report-entry-p
        • Vl-print-useset-report-entry
        • Vl-mark-wires-for-module
        • Vl-split-useset-report
        • Vl-annotate-vardecl-with-wireinfo
        • Vl-mark-wires-for-modinstlist
        • Vl-mark-wires-for-modinst
        • Vl-mark-wires-for-gateinstlist
        • Vl-mark-wires-for-gateinst
        • Vl-mark-wires-for-plainarg
        • Vl-wireinfo-p
        • Vl-mark-wires-for-modulelist
        • Vl-vardecllist-impexp-names
        • Vl-report-totals
        • Vl-mark-wires-for-plainarglist
        • Vl-collect-unused-or-unset-wires
        • Vl-clean-up-warning-wires
        • Vl-print-useset-report-top
        • Vl-mark-wires-for-arguments
        • Vl-useset-report-p
        • Vl-star-names-of-warning-wires
        • Vl-design-use-set-report
        • Vl-module-impexp-names
        • Vl-make-initial-wireinfo-alist
        • Vl-mark-wire-used
        • Vl-mark-wire-set
        • Vl-mark-wires-used
        • Vl-mark-wires-for-assignment
        • Vl-mark-wires-for-assignlist
        • Vl-mark-wires-set
        • Vl-print-useset-report-full-aux
        • Vl-print-typo-alist
        • Vl-print-typo-possibilities
      • Syntax
      • Getting-started
      • Utilities
      • Loader
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Fgl
    • Vwsim
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Typo-detection

Typo-mismatch-plausibly-typo-p

X and Y are single pieces that are mismatched. Do they satisfy our criteria for being considered "possibly a typo"?

Signature

(typo-mismatch-plausibly-typo-p x y) → *

Arguments

x — Guard (character-listp x).

y — Guard (character-listp y).

Definitions and Theorems

Function: typo-mismatch-plausibly-typo-p

(defun typo-mismatch-plausibly-typo-p (x y)
 (declare (xargs :guard (and (character-listp x)
                             (character-listp y))))
 (let ((__function__ 'typo-mismatch-plausibly-typo-p))
  (declare (ignorable __function__))
  (and
   (consp x)
   (consp y)
   (str::ichareqv (car x) (car y))
   (<=
    2
    (cardinality (difference (intersect (mergesort x) (mergesort y))
                             (typo-numbers))))
   (not (or (equal (append x (list #\b)) y)
            (equal (append x (list #\B)) y)
            (equal x (append y (list #\b)))
            (equal x (append y (list #\B)))))
   (not (or (equal (append x (list #\q)) y)
            (equal (append x (list #\Q)) y)
            (equal x (append y (list #\q)))
            (equal x (append y (list #\Q)))))
   (let ((xlast (car (last x)))
         (ylast (car (last y))))
     (and (not (and (same-lengthp x y)
                    (equal (butlast x 1) (butlast y 1))
                    (and (vl-typo-number-p xlast)
                         (vl-typo-number-p ylast))))
          (not (and (equal (butlast x 1) y)
                    (vl-typo-number-p xlast)))
          (not (and (equal (butlast y 1) x)
                    (vl-typo-number-p ylast))))))))