From 0c0142881f769b6c42a8a69bec490ba9e98ccf48 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 23 Sep 2022 21:01:17 +0200
Subject: Move all generally usable scripts to module dir.

---
 scripts/module-dependants.scm | 127 ------------------------------------------
 1 file changed, 127 deletions(-)
 delete mode 100755 scripts/module-dependants.scm

(limited to 'scripts/module-dependants.scm')

diff --git a/scripts/module-dependants.scm b/scripts/module-dependants.scm
deleted file mode 100755
index 2880446c..00000000
--- a/scripts/module-dependants.scm
+++ /dev/null
@@ -1,127 +0,0 @@
-#!/usr/bin/env bash
-GUILE=${GUILE:-guile}
-set -x
-exec $GUILE -e main -s "$0" "$@"
-!#
-
-;;; Commentary:
-;;;
-;;; For a given module in the project, finds all other modules who uses that
-;;; module, and break it down per symbol.
-;;;
-;;; Code:
-
-(define module-dir (string-append
-                    (dirname (dirname (current-filename)))
-                    "/module"))
-
-(add-to-load-path module-dir)
-(add-to-load-path (dirname (current-filename)))
-
-
-(use-modules (hnh util)
-             (hnh util path)
-             (srfi srfi-1)
-             (srfi srfi-71)
-             (ice-9 ftw)
-             (texinfo string-utils)
-             (module-introspection)
-             ((static-util) :select (get-forms)))
-
-(define cstat (make-object-property))
-
-
-(define (find-all-files-under directory)
-  (file-system-fold
-   ;; enter?
-   (lambda (path stat result) #t)
-   ;; leaf
-   (lambda (path stat result)
-     (set! (cstat path) stat)
-     (cons path result))
-   ;; down
-   (lambda (path stat result)
-     (set! (cstat path) stat)
-     (cons path result))
-   ;; up
-   (lambda (path state result) result)
-   ;; skip
-   (lambda (path stat result) result)
-   ;; error
-   (lambda (path stat errno result) result)
-   '() directory))
-
-(define (regular-file? filename)
-  (eq? 'regular (stat:type (cstat filename))))
-
-(define (filename-extension? ext)
-  (let ((re (make-regexp (string-append ((@ (texinfo string-utils)
-                                            escape-special-chars)
-                                         ext "^$[]()*." #\\)
-                                        "$") regexp/icase)))
-    (lambda (filename) (regexp-exec re filename))))
-
-
-(define (main args)
-  (define target-file (realpath (cadr args)))
-  (define target-forms
-    (reverse (call-with-input-file target-file get-forms)))
-  (define target-module
-    (find-module-declaration target-forms))
-  ;; (define target-symbols (unique-symbols target-forms))
-  ;; (write target-module) (newline)
-
-  (define edges
-   (concatenate
-    (map (lambda (file)
-           (define forms (call-with-input-file file get-forms))
-           (define module (and=> (-> forms find-module-declaration) resolve-module))
-           (define source-symbols (unique-symbols forms))
-
-           (when module
-             (awhen (find (lambda (module)
-                            (equal? target-module
-                                    (module-name module)))
-                          (module-uses module))
-                    (let ((module-symbols (module-map (lambda (key value) key) it)))
-                      ;; (display "    ")
-                      (map (lambda (symb)
-                             (cons file symb))
-                           (lset-intersection eq? source-symbols module-symbols))
-                      )))
-           )
-         (delete target-file
-                 (filter (filename-extension? ".scm")
-                         (filter regular-file?
-                                 (find-all-files-under module-dir)))))))
-
-
-  (define file-uses (make-hash-table))
-  (define symbol-used-by (make-hash-table))
-
-  (for-each (lambda (edge)
-              (hashq-set! symbol-used-by (cdr edge)
-                          (cons (car edge) (hashq-ref symbol-used-by (cdr edge) '())))
-              (hash-set! file-uses (car edge)
-                         (cons (cdr edge) (hash-ref file-uses (car edge) '()))))
-            edges)
-
-  (for-each (lambda (pair)
-              (let ((symb files (car+cdr pair)))
-                (display (center-string (format #f " ~a (~a uses)" symb (length files))
-                                        80 #\= #\=))
-                (newline)
-                (for-each (lambda (file) (format #t "• ~a~%" file)) files)
-                (newline)))
-            (sort*
-             (hash-map->list cons symbol-used-by)
-             string< (compose symbol->string car)))
-
-  (display (center-string " Unused (except possibly internally) " 80 #\= #\=)) (newline)
-  (for-each (lambda (symb) (format #t "• ~a~%" symb))
-            (lset-difference
-             eqv?
-             (module-map (lambda (k _) k) (resolve-interface target-module) )
-             (hash-map->list (lambda (k _) k) symbol-used-by)))
-
-  )
-- 
cgit v1.2.3