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/all-modules.scm | 55 -------------------------------------------------
 1 file changed, 55 deletions(-)
 delete mode 100644 scripts/all-modules.scm

(limited to 'scripts/all-modules.scm')

diff --git a/scripts/all-modules.scm b/scripts/all-modules.scm
deleted file mode 100644
index 23bbb32d..00000000
--- a/scripts/all-modules.scm
+++ /dev/null
@@ -1,55 +0,0 @@
-(define-module (all-modules)
-  :use-module (ice-9 regex)
-  :use-module (srfi srfi-1)
-  :use-module (ice-9 ftw)
-  :use-module (ice-9 match)
-  :use-module (hnh util path)
-  :use-module (module-introspection)
-  :use-module ((static-util) :select (get-forms))
-  :export (all-files-and-modules-under-directory
-           all-modules-under-directory
-           fs-find-base fs-find
-           module-file-mapping
-           ))
-
-(define (fs-find dir)
-  (define files '())
-  (ftw dir (lambda args (set! files (cons args files)) #t))
-  files)
-
-;; (define (fs-find proc dir)
-;;   (filter proc (fs-find-base dir)))
-
-(define (all-files-and-modules-under-directory dir)
-  (define re (make-regexp "\\.scm$"))
-
-  (define files
-    (map car
-         (filter (match-lambda ((filename _ 'regular)
-                                (and (regexp-exec re filename)
-                                     (not (file-hidden? filename))))
-                               (_ #f))
-                 (fs-find dir))))
-
-  (map (lambda (file)
-         (list file
-               (call-with-input-file file
-                 (compose find-module-declaration get-forms))))
-       files))
-
-(define (all-modules-under-directory dir)
-  "Returns two values, all scm files in dir, and all top
-level modules in those files"
-
-  (define pairs (all-files-and-modules-under-directory dir))
-  (values
-   (map car pairs)
-   (filter identity (map cadr pairs))))
-
-;; Returns an association list from module names the modules
-;; containing filename
-(define (module-file-mapping dir)
-  (filter
-   car
-   (map (lambda (pair) (cons (cadr pair) (car pair)))
-        (all-files-and-modules-under-directory dir))))
-- 
cgit v1.2.3