From e67d3ff2f87c975e99a80bb8393f02086b3f00b4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 9 Dec 2016 21:12:18 +0000
Subject: [PATCH] regress: fuzzraw: Provide a dictionary suitable for AFL

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 regress/Makefile.in | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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
-- 
2.30.2