49 lines
1.3 KiB
Racket
49 lines
1.3 KiB
Racket
#lang racket
|
|
(require setup/dirs)
|
|
|
|
(provide check-one)
|
|
|
|
;; Paths from the build location shouldn't show up in bytecode files
|
|
;; or documentation. Check ".zo", ".dep", and ".html" files in the
|
|
;; build on the assumption that the first three elements of the
|
|
;; build path are unique enough that they shouldn't appear anywhere.
|
|
|
|
(define rx:dir
|
|
(byte-regexp
|
|
(regexp-quote
|
|
(path->bytes
|
|
(apply build-path
|
|
(take (explode-path (find-collects-dir))
|
|
3))))))
|
|
|
|
(define (check-one file)
|
|
(call-with-input-file*
|
|
file
|
|
(lambda (in)
|
|
(when (regexp-match? rx:dir in)
|
|
(eprintf "Found ~s in ~s\n" rx:dir file)))))
|
|
|
|
(define ((check-content rx:name) name kind v)
|
|
(when (regexp-match? rx:name name)
|
|
(check-one name)))
|
|
|
|
(module+ main
|
|
(require pkg/lib)
|
|
|
|
(define zo/dep-content (check-content #rx"[.](?:zo|dep)$"))
|
|
|
|
(fold-files zo/dep-content
|
|
(void)
|
|
(find-collects-dir))
|
|
|
|
(define cache (make-hash))
|
|
(for ([pkg (in-list (installed-pkg-names #:scope 'installation))])
|
|
(fold-files zo/dep-content
|
|
(void)
|
|
(pkg-directory pkg #:cache cache)))
|
|
|
|
;; Check rendered docs, too:
|
|
(fold-files (check-content #rx"[.](?:html)$")
|
|
(void)
|
|
(find-doc-dir)))
|