DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T c

⟦7ca4c303c⟧ TextFile

    Length: 586 (0x24a)
    Types: TextFile
    Names: »convert«

Derivation

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦c6be2784f⟧ »web2c-5.84b.tar.Z« 
        └─⟦5800b1b62⟧ 
            └─⟦this⟧ »src-5.84b/bibtex/convert« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦63303ae94⟧ »unix3.14/TeX3.14.tar.Z« 
        └─⟦c58930e5c⟧ 
            └─⟦this⟧ »TeX3.14/bibtex/convert«

TextFile

#!/bin/sh
# Convert Bibtex to C.
# 
sed=/bin/sed

cat ../common/common.defines $1 \
	| ../web2c/web2c -h../common/fileio.h \
        | $sed -e '1a\
jmp_buf jmp9998, jmp32; int lab31=0;
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/fixwrites > $2

$sed -e 's/(buftype)//g' -e 's/(pdstype)//g' < coerce.h > xcoerce.h
mv -f xcoerce.h coerce.h