>rodata.c
for i in $*
do ex - y.tab.c <<!
/^\(.*\)$i[ 	]*\[]/s//extern \1 $i[];\\
\1 $i []/
.-ka
/}/kb
'ar rodata.c
'a+,'bw\! rodata.c
'a+,'bd
w
q
!
done
