regress: fuzzraw: Provide a dictionary suitable for AFL

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/regress/Makefile.in b/regress/Makefile.in
index 4abc11313e52ee078e18dad5c70458dc6e08f303..993c1af66e2fbda331aee965ac2bfc8d3665c43e 100644 (file)
--- a/regress/Makefile.in
+++ b/regress/Makefile.in
@@ -68,7 +68,11 @@ fuzzcat.d:   checkfuzz
                perl -ne 'print $$1,"\n" while m/\"([^"% ]{2,})\"/g' \
                        $(srcdir)/../src/*.[ch] $(srcdir)/../client/*.[ch] \
                | sort -u >fuzzcat.d/dictionary
                perl -ne 'print $$1,"\n" while m/\"([^"% ]{2,})\"/g' \
                        $(srcdir)/../src/*.[ch] $(srcdir)/../client/*.[ch] \
                | sort -u >fuzzcat.d/dictionary

-
+               perl -p -e 'chomp;' \
+                       -e 's/[^0-9a-z-_]/sprintf "\\x%02x", ord $$&/ige;' \
+                       -e 's/^/l$$.="/; ' \
+                       -e 's/$$/"\n/;' \
+                       fuzzcat.d/dictionary >fuzzcat.d/dictionary.afl

 
 check-%:       case-%.sys
                @srcdir=$(srcdir) $(srcdir)/r1test $* || test $$? = 5
 
 check-%:       case-%.sys
                @srcdir=$(srcdir) $(srcdir)/r1test $* || test $$? = 5