Return to :yyfix CVS log

Up to [Research Unix] / researchv10no / cmd / cpp

researchv10 Norman

#ident	"@(#)cpp:common/:yyfix	1.4"
#
#	standard out from this shell script produces the static tables files

grep 'typedef.*yytabelem;' y.tab.c
grep 'typedef.*yytoktype;' y.tab.c

#	assume that the arrays wanted are:
#	yyexca, yyact, yypact, yypgo, yyr1, yyr2, yychk, yydef,
#	and the debugging arrays and #if ... #endif pairs are
#	(in order):  yytoks, yyreds - optional, printed under g/.../

ed - y.tab.c <<DONE
/^\(.*\)yyexca[ 	]*\[]/s//extern \1 yyexca[];\\
\1 yyexca []/
.ka
/}/kb
'a,'bp
'a,'bd
/^\(.*\)yyact[ 	]*\[]/s//extern \1 yyact[];\\
\1 yyact []/
.ka
/}/kb
'a,'bp
'a,'bd
/^\(.*\)yypact[ 	]*\[]/s//extern \1 yypact[];\\
\1 yypact []/
.ka
/}/kb
'a,'bp
'a,'bd
/^\(.*\)yypgo[ 	]*\[]/s//extern \1 yypgo[];\\
\1 yypgo []/
.ka
/}/kb
'a,'bp
'a,'bd
/^\(.*\)yyr1[ 	]*\[]/s//extern \1 yyr1[];\\
\1 yyr1 []/
.ka
/}/kb
'a,'bp
'a,'bd
/^\(.*\)yyr2[ 	]*\[]/s//extern \1 yyr2[];\\
\1 yyr2 []/
.ka
/}/kb
'a,'bp
'a,'bd
/^\(.*\)yychk[ 	]*\[]/s//extern \1 yychk[];\\
\1 yychk []/
.ka
/}/kb
'a,'bp
'a,'bd
/^\(.*\)yydef[ 	]*\[]/s//extern \1 yydef[];\\
\1 yydef []/
.ka
/}/kb
'a,'bp
'a,'bd
g/^#[ 	]*ifndef[ 	][ 	]*YYDEBUG/.,;/^#[ 	]*endif/p
g/^#[ 	]*if[ 	][ 	]*YYDEBUG/p
g/^\(.*\)yytoks[ 	]*\[]/s//extern \1 yytoks[];\\
\1 yytoks []/\\
.ka\\
/^}/kb\\
'a,'bp\\
'a,'bd
g/^\(.*\)yyreds[ 	]*\[]/s//extern \1 yyreds[];\\
\1 yyreds []/\\
.ka\\
/^}/kb\\
'a,'bp\\
'a,'bd
g/^#[ 	]*ifndef[ 	][ 	]*YYDEBUG//^#[ 	]*endif/p
w
q
DONE

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.