[make works] Search for TODOs in the makefile, so that they show up at each compilation. Let's try to fix them from time to time :) .

This commit is contained in:
Georges Dupéron 2015-12-04 22:43:48 +01:00
parent 353c2ff426
commit d10077dbde
2 changed files with 12 additions and 4 deletions

View File

@ -595,7 +595,7 @@
|# |#
;; New features (arrows and #:first) special-cased for now ;; New features (arrows and #:first) special-cased for now
;; todo: make these features more general. ;; TODO: make these features more general.
[(_ format:simple-format base:dotted #:first-base first-base) [(_ format:simple-format base:dotted #:first-base first-base)
#:with first (format-id #'first-base (syntax-e #'format) #'first-base) #:with first (format-id #'first-base (syntax-e #'format) #'first-base)
(let ([first-base-len (identifier-length #'first-base)]) (let ([first-base-len (identifier-length #'first-base)])

View File

@ -38,7 +38,7 @@
(run! (list (find-executable-path-or-fail "sh") (run! (list (find-executable-path-or-fail "sh")
"-c" "-c"
@string-append{ @string-append{
fond_long_lines=0 found_long_lines=0
for i in `find \ for i in `find \
\( -path ./lib/doc/bracket -prune -and -false \) \ \( -path ./lib/doc/bracket -prune -and -false \) \
-or \( -name compiled -prune -and -false \) \ -or \( -name compiled -prune -and -false \) \
@ -48,13 +48,21 @@
| awk '{if (length > 80) print NR "\t" length "\t" $0}' \ | awk '{if (length > 80) print NR "\t" length "\t" $0}' \
| sed -e 's/^\([0-9]*\t[0-9]*\t.\{80\}\)\(.*\)$/\1\x1b[0;30;41m\2\x1b[m/'` | sed -e 's/^\([0-9]*\t[0-9]*\t.\{80\}\)\(.*\)$/\1\x1b[0;30;41m\2\x1b[m/'`
if test -n "$x"; then if test -n "$x"; then
fond_long_lines=1 found_long_lines=1
printf '\033[1;31m%s:\033[m\n' "$i" && printf "%s\n" "$x" printf '\033[1;31m%s:\033[m\n' "$i" && printf "%s\n" "$x"
fi fi
done done
exit $fond_long_lines exit $found_long_lines
})) }))
(run! (list(find-executable-path-or-fail "sh")
"-c"
@string-append{
printf "\033[m"; grep -i TODO --with-filename --color=yes -- `find \
\( -path ./lib/doc/bracket -prune -and -false \) \
-or \( -name compiled -prune -and -false \) \
-or -name '*.rkt'`}))
;; TODO: should directly exclude them in find-files-by-extension. ;; TODO: should directly exclude them in find-files-by-extension.
(define excluded-dirs (list "docs/" (define excluded-dirs (list "docs/"
"bug/" "bug/"