blob: 41f35393848e6bd3cb1205c06d77af59c6048cc0 (
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
|
(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-modules-under-directory))
(define (all-modules-under-directory dir)
"Returns two values, all scm files in dir, and all top
level modules in those files"
(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))))
(values files
(filter identity
(map (lambda (file)
(match (call-with-input-file file read)
(('define-module (module ...) _ ...)
module)
(_ #f)))
files))))
|