Recognize strings that start with lint-ignore or lint_ignore, case insensitive
(vl-lint-ignore-att-p x) → *
Function:
(defun vl-lint-ignore-att-p (x) (declare (xargs :guard (stringp x))) (let ((__function__ 'vl-lint-ignore-att-p)) (declare (ignorable __function__)) (b* ((x (string-fix x)) (x (str::strsubst "-" "_" x))) (str::istrprefixp "lint_ignore" x))))
Theorem:
(defthm vl-lint-ignore-att-p-of-str-fix-x (equal (vl-lint-ignore-att-p (str-fix x)) (vl-lint-ignore-att-p x)))
Theorem:
(defthm vl-lint-ignore-att-p-streqv-congruence-on-x (implies (streqv x x-equiv) (equal (vl-lint-ignore-att-p x) (vl-lint-ignore-att-p x-equiv))) :rule-classes :congruence)