np/verilog-playground
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Upcase signal values

Browse Source
This commit is contained in:
Nikolay Puzanov
2022-12-07 17:53:17 +03:00
parent ab5db7f6e8
commit 90905544d4
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
_web_server/server/playground-server.scm
View File

@@ -304,10 +304,10 @@
(- x1 x0 (* data-hw 2)) (- x1 x0 (* data-hw 2))
(- y1 y0)) (- y1 y0))
(format-inex "<text x=\"~a\" y=\"~a\">" 0 text-position) (format-inex "<text x=\"~a\" y=\"~a\">" 0 text-position)
(if (or (eq? sig-type 'real)
(< sig-width 4))
value
(string-upcase (string-upcase
(if (or (eq? sig-type 'real)
(<= sig-width 4))
value
(vcd-binary->hex value #t))) (vcd-binary->hex value #t)))
"</text></svg>")))) "</text></svg>"))))