shithub: scc

ref: 25ee0a4512e705ff8017b87c8fc6ae6dc94732ce
dir: /cc2/generror/

View raw version 
#!/usr/bin/awk -f

BEGIN {
	print "char *errlist[] = {"
}
/^enum nerrors {/ {
	inhome = 1
}
/E[A-Z]*, / {
	if (inhome == 1) {
		sub(/,/, "", $1)
		printf("\t[%s] = \"", $1)
		for (i = 3; i < NF-1; ++i)
			printf("%s ", $i)
		printf("%s\",\n", $(NF-1));
	}
}
/^}/ {
	if (inhome)
		print "};"
	inhome = 0
}