Basic constructor macro for vl-parsed-ports structures.
(make-vl-parsed-ports [:ansi-p <ansi-p>] [:ports <ports>] [:portdecls <portdecls>] [:vardecls <vardecls>])
This is the usual way to construct vl-parsed-ports structures. It simply conses together a structure with the specified fields.
This macro generates a new vl-parsed-ports structure from scratch. See also change-vl-parsed-ports, which can "change" an existing structure, instead.
This is an ordinary
Macro:
(defmacro make-vl-parsed-ports (&rest args) (std::make-aggregate 'vl-parsed-ports args '((:ansi-p) (:ports) (:portdecls) (:vardecls)) 'make-vl-parsed-ports nil))
Function:
(defun vl-parsed-ports (ansi-p ports portdecls vardecls) (declare (xargs :guard (and (booleanp ansi-p) (vl-portlist-p ports) (vl-portdecllist-p portdecls) (vl-vardecllist-p vardecls)))) (declare (xargs :guard t)) (let ((__function__ 'vl-parsed-ports)) (declare (ignorable __function__)) (b* ((ansi-p (mbe :logic (acl2::bool-fix ansi-p) :exec ansi-p)) (ports (mbe :logic (vl-portlist-fix ports) :exec ports)) (portdecls (mbe :logic (vl-portdecllist-fix portdecls) :exec portdecls)) (vardecls (mbe :logic (vl-vardecllist-fix vardecls) :exec vardecls))) (cons :vl-parsed-ports (std::prod-cons (std::prod-cons ansi-p ports) (std::prod-cons portdecls vardecls))))))