		Search-engine friendly clone of the ACL2 documentation.

Json-encoders

Vl-jp-constint

Print the JSON encoding of a vl-constint-p to ps.

Signature
(vl-jp-constint x &key (ps 'ps)) → ps
Arguments: x — Guard (vl-constint-p x).

Note that we always encode the value as a string. This is because it is quite common for Verilog constants to run into the hundreds of bits, but the JSON standard doesn't really ever say how big of numbers must be supported and JSON implementations often use machine integers which could not hold such large values.

Definitions and Theorems

Function: vl-jp-constint-fn

(defun vl-jp-constint-fn (x ps)
  (declare (xargs :stobjs (ps)))
  (declare (xargs :guard (vl-constint-p x)))
  (let ((__function__ 'vl-jp-constint))
    (declare (ignorable __function__))
    (vl-ps-seq (vl-print "{\"tag\": ")
               (jp-sym ':vl-constint)
               (vl-print ", ")
               (vl-print-str "\"origwidth\": ")
               (jp-nat (vl-constint->origwidth x))
               (vl-println? ", ")
               (vl-print-str "\"value\": ")
               (jp-bignat (vl-constint->value x))
               (vl-println? ", ")
               (vl-print-str "\"origtype\": ")
               (vl-jp-exprtype (vl-constint->origtype x))
               (vl-println? ", ")
               (vl-print-str "\"wasunsized\": ")
               (jp-bool (vl-constint->wasunsized x))
               (vl-println? "}"))))