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

Fix signals sorting (put clock on the top)

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

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

@ -343,19 +343,18 @@
(let ((tstart (apply min (vcd-timestamps vcd))) (let ((tstart (apply min (vcd-timestamps vcd)))
(tend (apply max (vcd-timestamps vcd))) (tend (apply max (vcd-timestamps vcd)))
(signals (sort (signals (sort
(remove (vcd-signals vcd)
(lambda (sig) (< (length (vcd-signal-scope sig)) 2))
(vcd-signals vcd))
(lambda (a b) (lambda (a b)
(or (and (not (equal? (vcd-signal-name b) "clock"))
(and (equal? (vcd-signal-name a) "clock") (or
(not (equal? (vcd-signal-name b) "clock"))) (and (equal? (vcd-signal-name a) "clock")
(not (equal? (vcd-signal-name b) "clock")))
(< (length (vcd-signal-scope a)) (< (length (vcd-signal-scope a))
(length (vcd-signal-scope b))) (length (vcd-signal-scope b)))
(string-ci<? (vcd-signal-name a) (string-ci<? (vcd-signal-name a)
(vcd-signal-name b))))))) (vcd-signal-name b))))))))
(if (<= tend tstart) (if (<= tend tstart)
'() '()