blob: a200fb6c6e49d853997c8b86a261f7fb2f48af49 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#!/usr/bin/guile \
-e main -s
!#
;;; Commentary:
;;;
;;; Scripts which finds unused imports in each file.
;;; Uses Guile's module system reflection to find what is imported,
;;; but simple looks at all unique symbols in the source file for what
;;; is used, which might lead to some discrepancies.
;;;
;;; Code:
(add-to-load-path (string-append (dirname (dirname (current-filename))) "/module"))
(use-modules (calp util)
(srfi srfi-1))
(define (get-forms port)
(let loop ((done '()))
(let ((form (read port)))
(if (eof-object? form)
done
(loop (cons form done))))))
(define (flatten-tree tree)
(cond ((null? tree) '())
((pair? tree)
(append (flatten-tree (car tree))
(flatten-tree (cdr tree))))
(else (list tree))))
(define (uniq lst)
(cond ((null? lst) lst)
((null? (cdr lst)) lst)
((and (pair? lst)
(eqv? (car lst) (cadr lst)))
(uniq (cons (car lst) (cddr lst))))
(else (cons (car lst)
(uniq (cdr lst))))))
(define (unique-symbols tree)
(uniq
(sort* (filter symbol? (flatten-tree tree))
string<? symbol->string)))
(define (find-module-declaration forms)
(cadr
(find (lambda (form)
(cond ((null? form) #f)
((not (pair? form)) #f)
(else (eq? 'define-module (car form)))))
forms)))
;;; Module use high scores
;;; $ grop -Ho '#\?:use-module' -R module | uniq -c | sort -n
(define (main args)
(define filename (cadr args))
(define forms (reverse (call-with-input-file filename get-forms)))
(define symbs (unique-symbols forms))
;; (format #t "~y" (find-module-declaration forms))
;; (format #t "~a~%" symbs)
(format #t "=== ~a ===~%" filename)
(for-each (lambda (mod)
(define used-symbols
(map (lambda (symb)
(if (memv symb symbs)
#f symb))
(module-map (lambda (key value) key) mod)))
(define used-count (count not used-symbols))
(define total-count (length (module-map list mod)))
(format #t "~a/~a ~a~% used ~s~% unused ~s~%"
used-count total-count (module-name mod)
(lset-difference eq? (module-map (lambda (key value) key) mod) (filter identity used-symbols))
(filter identity used-symbols)
))
(remove (lambda (mod)
(member (module-name mod)
'((guile)
(guile-user)
(srfi srfi-1)
)))
(module-uses (resolve-module
(find-module-declaration
forms)))))
(newline))
|
