[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
graph

View File

@ -595,7 +595,7 @@
|#
;; 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)
#:with first (format-id #'first-base (syntax-e #'format) #'first-base)
(let ([first-base-len (identifier-length #'first-base)])

View File

@ -38,7 +38,7 @@
(run! (list (find-executable-path-or-fail "sh")
"-c"
@string-append{
fond_long_lines=0
found_long_lines=0
for i in `find \
\( -path ./lib/doc/bracket -prune -and -false \) \
-or \( -name compiled -prune -and -false \) \
@ -48,13 +48,21 @@
| 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/'`
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"
fi
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.
(define excluded-dirs (list "docs/"
"bug/"