blob: 2d6b068c9effad475d91a11feab68b1bc68d877a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(define-module (all-modules)
:use-module (ice-9 regex)
:use-module (srfi srfi-1)
:use-module (ice-9 ftw)
:use-module (ice-9 match)
:export (all-files-and-modules-under-directory all-modules-under-directory))
(define (all-files-and-modules-under-directory dir)
(define re (make-regexp "\\.scm$"))
(define files '())
(ftw dir (lambda (filename statinfo flag)
(cond ((and (eq? flag 'regular)
(regexp-exec re filename))
=> (lambda (m)
(set! files (cons filename files))
#t
))
(else #t))))
(map (lambda (file)
(list file
(match (call-with-input-file file read)
(('define-module (module ...) _ ...)
module)
(_ #f))))
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))))
|
