Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Report on symbols defined and used, but only once. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
4e9baf7538725eb556350a893c6db6a5 |
User & Date: | alaric 2013-07-13 12:55:50 |
Context
2019-11-10
| ||
22:52 | Rebuilt banterpixra.svg Leaf check-in: 8b7b07502c user: alaric tags: trunk | |
2013-07-13
| ||
12:55 | Report on symbols defined and used, but only once. check-in: 4e9baf7538 user: alaric tags: trunk | |
09:38 | Symbol usage reporting to stderr check-in: d3e21eafae user: alaric tags: trunk | |
Changes
Changes to banterpixra.scm.
︙ | ︙ | |||
77 78 79 80 81 82 83 | (make-symbol-stats #f 1)))) (define (report-on-symbols port) (let ((stats (hash-table-fold *symbols* (lambda (sym ss acc) | > | | | > > > > > > | | > | | | > | | | > | > | | | | > | 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 | (make-symbol-stats #f 1)))) (define (report-on-symbols port) (let ((stats (hash-table-fold *symbols* (lambda (sym ss acc) (let ((defined-used-once (vector-ref acc 0)) (defined-used (vector-ref acc 1)) (defined-unused (vector-ref acc 2)) (undefined-used (vector-ref acc 3))) (if (symbol-defined? ss) (cond ((> (symbol-uses ss) 1) (vector defined-used-once (cons sym defined-used) defined-unused undefined-used)) ((> (symbol-uses ss) 0) (vector (cons sym defined-used-once) defined-used defined-unused undefined-used)) (else (vector defined-used-once defined-used (cons sym defined-unused) undefined-used))) (vector defined-used-once defined-used defined-unused (cons sym undefined-used))))) (vector '() '() '() '())))) (let ((defined-used-once (vector-ref stats 0)) (defined-used (vector-ref stats 1)) (defined-unused (vector-ref stats 2)) (undefined-used (vector-ref stats 3))) (fprintf port "Defined and used repeatedly: ~A\n" defined-used) (fprintf port "Defined and used only once: ~A\n" defined-used-once) (fprintf port "Defined but not used: ~A\n" defined-unused) (fprintf port "Undefined, but used: ~A\n" undefined-used)))) ;; GRAPHICS FORMATTING STUFF (define *debug-mode* #f) |
︙ | ︙ |