(vl-print-modname x &key (ps 'ps)) prints a module's name.
(vl-print-modname x &key (ps 'ps)) → ps
When we are printing plain-text output, this function behaves the
same as vl-print except that we may escape
When we are printing HTML output, we print something like:
<a class="vl_modlink" href="javascript:showModule('foo')">foo</a>
This function is used in various warning messages, reports, and other
displays. The module browser's web pages are responsible for defining the
Function:
(defun vl-print-modname-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (stringp x))) (let ((__function__ 'vl-print-modname)) (declare (ignorable __function__)) (vl-ps-span "vl_id" (vl-when-html (vl-print-markup "<a class=\"vl_modlink\" href=\"javascript:void(0);\" onClick=\"showModule('") (vl-print-url (string-fix x)) (vl-print-markup "')\">")) (vl-print-str (vl-maybe-escape-identifier x)) (vl-when-html (vl-print-markup "</a>")))))
Theorem:
(defthm vl-print-modname-fn-of-str-fix-x (equal (vl-print-modname-fn (str-fix x) ps) (vl-print-modname-fn x ps)))
Theorem:
(defthm vl-print-modname-fn-streqv-congruence-on-x (implies (streqv x x-equiv) (equal (vl-print-modname-fn x ps) (vl-print-modname-fn x-equiv ps))) :rule-classes :congruence)