Added devel/ directory for junk that we don't want in the distribution,

but that we want in CVS.

1 files changed, 57 insertions, 0 deletions

diff --git a/devel/00EXTRACT-ALL-SYMS.sh b/devel/00EXTRACT-ALL-SYMS.sh
new file mode 100644
index 0000000..0f7d4ae
--- /dev/null
+++ b/devel/00EXTRACT-ALL-SYMS.sh
@@ -0,0 +1,57 @@
+# extract all table types from various scanners. We try to get the ones
+# that are declared outside '{'.
+# hopefully we'll hit them all.
+OUTFILE=/tmp/EXTRACT-FLEX-SYMS.$$
+echo > $OUTFILE
+
+for s in  \
+	yy_trans_info \
+	yy_NUL_trans \
+	yy_accept \
+	yy_base \
+	yy_chk \
+	yy_def \
+	yy_ec \
+	yy_meta \
+	yy_nxt \
+	yy_rule_can_match_eol \
+	yy_rule_linenum \
+	yy_start_state_list \
+	yy_state_type \
+	yy_transition
+do
+	perl -ne \
+	'
+		BEGIN{
+		   	$s = qq('$s');
+		}
+		s/\b(short|long)\s+int\b/$1/;
+		s/\b(static|(yy)?const)\b\s+//g;
+		next unless m/((?:struct\s*)?\w+)\W+$s\s*((?:\[\s*\d*\s*\])+)\s*=/;
+		$type=$1;
+		$arr = $2;
+		$arr =~ s/\d+//g;
+		$a{$s}->{$type . $arr}= $_;
+		
+		END{
+			for(sort keys %a){
+				print values %{$a{$_}}
+			}
+		}
+	' \
+	tests/test-*/*.c  >> $OUTFILE
+done
+
+grep -E 'typedef.*yy_state_type'  tests/test-*/*.c | 
+		gawk -F ':' '{print $2}' |
+		sort |
+		uniq >> $OUTFILE
+
+pcregrep  '(\w+)[\s*]*yy_(verify|nxt)\s*;'  tests/test-*/*.c |
+		perl -pe 's/^.*?\.c?[\-\:]//;' |
+		sort |
+		uniq >> $OUTFILE
+
+cat $OUTFILE
+rm -f $OUTFILE
+