diff options
Diffstat (limited to 'scripts/module-imports.scm')
-rwxr-xr-x | scripts/module-imports.scm | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/scripts/module-imports.scm b/scripts/module-imports.scm deleted file mode 100755 index 6a0a5beb..00000000 --- a/scripts/module-imports.scm +++ /dev/null @@ -1,65 +0,0 @@ -#!/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")) -(add-to-load-path (dirname (current-filename))) - -(use-modules (hnh util) - ((srfi srfi-1) :select (lset-difference)) - (rnrs lists) - (module-introspection)) - - -;;; Module use high scores -;;; $ grop -Ho '#\?:use-module' -R module | uniq -c | sort -n - -(define (main args) - (define filename (cadr args)) - (define-values (module-declaration-lst forms) - (partition module-declaration? - (reverse (call-with-input-file filename get-forms)))) - ;; All symbols in source file, which are not in module declaration. - ;; Otherwise all explicitly imported symbols would be marked as - ;; used. - (define symbs (unique-symbols forms)) - ;; (format #t "~y" (find-module-declaration forms)) - ;; (format #t "~a~%" symbs) - - (format #t "=== ~a ===~%" filename) - (for-each (lambda (mod) - - ;; all symbols imported from module - (define all-symbols (module-map (lambda (key value) key) mod)) - - ;; Thes subset of all imported symbols from module which are used - (define used-symbols - (filter (lambda (symb) (memv symb symbs)) - all-symbols)) - - (define used-count (length 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) - used-symbols - (lset-difference eq? all-symbols used-symbols))) - - (remp (lambda (mod) - (member (module-name mod) - '((guile) - (guile-user) - (srfi srfi-1) - ))) - (module-uses (resolve-module - (cadr (car module-declaration-lst)))))) - (newline)) |