diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-09-23 21:01:17 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-09-23 22:23:47 +0200 |
commit | 0c0142881f769b6c42a8a69bec490ba9e98ccf48 (patch) | |
tree | 515f790266a701a590f04ea589436c54ed3c44b7 /scripts/module-imports.scm | |
parent | Move graphviz to main tree. (diff) | |
download | calp-0c0142881f769b6c42a8a69bec490ba9e98ccf48.tar.gz calp-0c0142881f769b6c42a8a69bec490ba9e98ccf48.tar.xz |
Move all generally usable scripts to module dir.
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)))) |