Allow specifying a "skip" regexp on the command-line.

This commit is contained in:
Georges Dupéron 2017-04-09 17:24:41 +02:00
parent b5471b1383
commit 5fb60065b7

View File

@ -12,16 +12,16 @@
; do-ignore! : (U string symbol) regex -> boolean
(define (do-ignore! mod ignore)
(error "Ignore not implemented yet")
#f
#;(define missing
(with-output-to-string
(lambda ()
(parameterize ([current-error-port (current-output-port)])
(check-docs mod #:skip ignore)))))
#;(match missing
["" (printf "Module ~a is documented~n" a) #t]
[else (printf "Module ~a is missing documentation for ~a~n" a missing) #f]))
(define undoc
(filter-not (λ (name) (regexp-match ignore (symbol->string name)))
(module->undocumented-exported-names
(if (symbol? mod) mod (string->symbol mod)))))
(cond [(set-empty? undoc)
(printf "Module ~a is completely documented~n" mod)
#f]
[else
(printf "Module ~a is missing documentation for: ~a~n" mod undoc)
#t]))
; do-binding! : (U string symbol) symbol -> boolean
(define (do-binding! mod binding)
@ -95,7 +95,7 @@
(cond [(set-empty? undoc)
(printf "Module ~a is completely documented~n" mod)]
[else
(printf "Module ~a is missing documentation for: ~a~n" a undoc)
(printf "Module ~a is missing documentation for: ~a~n" mod undoc)
(error-on-exit? #t)])])))
(when (error-on-exit?)