From 4f26e0cbd3b56347b9dbbd4b6d2932e69b3b8b59 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 31 Jan 2022 20:39:56 +0100 Subject: Rename scripts/{all-symbols => module-import}.scm --- scripts/all-symbols.scm | 95 ---------------------------------------------- scripts/module-imports.scm | 95 ++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 95 insertions(+), 95 deletions(-) delete mode 100755 scripts/all-symbols.scm create mode 100755 scripts/module-imports.scm (limited to 'scripts') diff --git a/scripts/all-symbols.scm b/scripts/all-symbols.scm deleted file mode 100755 index 5ac1f215..00000000 --- a/scripts/all-symbols.scm +++ /dev/null @@ -1,95 +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")) - -(use-modules (hnh 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)) - stringstring))) - -(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)) diff --git a/scripts/module-imports.scm b/scripts/module-imports.scm new file mode 100755 index 00000000..5ac1f215 --- /dev/null +++ b/scripts/module-imports.scm @@ -0,0 +1,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 (hnh 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)) + stringstring))) + +(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)) -- cgit v1.2.3