===================================================================
RCS file: /cvs/texi2mdoc/afl/mkdict.sh,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- texi2mdoc/afl/mkdict.sh	2015/02/18 16:37:25	1.1
+++ texi2mdoc/afl/mkdict.sh	2015/02/19 16:15:18	1.2
@@ -2,7 +2,9 @@
 
 rm -f dict/*
 
-for f in `cat words`
-do
-	printf "$f" > dict/$f
-done
+sed -n '/TEXICMD__BEGIN/,/TEXICMD__END/p' ../main.c | \
+	tail -n +2 | \
+	sed '$d' | \
+	awk '{print $3}' | \
+	sed -e 's!^\"!!' -e 's!\",$!!' | \
+	while read ln ; do [ ${#ln} -gt 1 ] && printf "$ln" >"dict/$ln" ; done