library-has-module? 風にモジュールの export を取り出す

lib-exports.scm

(use util.match)

(define (library-exports path name)
  (match (guard (_ (else #f))
           (call-with-input-file path read
                                 :if-does-not-exist #f))
    (('define-module (? (cut eq? name <>)) . forms)
     (any (match-lambda
           (('export . names)
            names)
           (_ #f))
          forms))
    (_ #f)))

(library-fold '*.*
              (lambda (name path knil)
                (cond ((library-exports path name) =>
                       (lambda (exports)
                         (acons name exports knil)))
                      (else
                       knil)))
              '()
              :strict? #f)