From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 9 Dec 2016 21:12:18 +0000 (+0000)
Subject: regress: fuzzraw: Provide a dictionary suitable for AFL
X-Git-Tag: adns-1.6.0~12
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=adns.git;a=commitdiff_plain;h=e67d3ff2f87c975e99a80bb8393f02086b3f00b4

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 4abc113..993c1af 100644
--- 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 -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