#!/bin/rc
# Convert Bibtex to C.
# 
cat bibtex.defines $1 \
	| ../web2c/$cpuobjtype.web2c -hbib.h -a0 \
        | sed -e '1a\
jmp_buf jmp9998, jmp32; int lab31=0;
s/ int / inte /g
s/goto lab31 ; /{lab31=1; return;}/
s/goto lab32/longjmp(jmp32,1)/
s/goto lab9998/longjmp(jmp9998,1)/g
s/lab31://
s/lab32://
s/hack1 \(\) ;/if(setjmp(jmp9998)==1) goto lab9998;if(setjmp(jmp32)==0)while(true)/
s/hack2 \(\)/break/
/^void main_body/,$s/while \( true/while ( lab31==0/' \
	| ../web2c/$cpuobjtype.fixwrites > $2
sed -e 's/\(buftype\)//g' -e 's/\(pdstype\)//g' < coerce.h > xcoerce.h
mv xcoerce.h coerce.h