diff options
Diffstat (limited to '')
-rwxr-xr-x | module/scripts/module-imports.scm (renamed from scripts/module-imports.scm) | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/scripts/module-imports.scm b/module/scripts/module-imports.scm index b7589950..0639715f 100755 --- a/scripts/module-imports.scm +++ b/module/scripts/module-imports.scm @@ -1,7 +1,3 @@ -#!/usr/bin/guile \ --e main -s -!# - ;;; Commentary: ;;; ;;; Scripts which finds unused imports in each file. @@ -11,22 +7,24 @@ ;;; ;;; Code: -(add-to-load-path (string-append (dirname (dirname (current-filename))) "/module")) -(add-to-load-path (dirname (current-filename))) - -(use-modules ((srfi srfi-1) :select (lset-difference)) - ((rnrs lists) :select (remp filter partition)) - ((module-introspection) :select (module-declaration? unique-symbols)) - ((static-util) :select (get-forms)) - ((module-uses) :select (module-uses*)) - ) +(define-module (scripts module-imports) + :use-module ((srfi srfi-1) :select (lset-difference)) + :use-module ((rnrs lists) :select (remp filter partition)) + :use-module ((hnh module-introspection) :select (module-declaration? unique-symbols)) + :use-module ((hnh module-introspection static-util) :select (get-forms)) + :use-module ((hnh module-introspection module-uses) :select (module-uses*)) + :export (main) + ) +;; (define %summary "") +(define %include-in-guild-list #t) +(define %synopsis "module-imports filename") ;;; Module use high scores ;;; $ grep -Ho '#\?:use-module' -R module | uniq -c | sort -n -(define (main args) - (define filename (cadr args)) +(define (main . args) + (define filename (car args)) (define-values (module-declaration-list forms) (partition module-declaration? (reverse (call-with-input-file filename get-forms)))) |