|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T c
Length: 698 (0x2ba)
Types: TextFile
Names: »convert«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦c319c2751⟧ »unix3.0/TeX3.0.tar.Z«
└─⟦036c765ac⟧
└─⟦this⟧ »TeX3.0/mf/convert«
#!/bin/sh
# Convert Metafont to C.
#
/bin/sed -e '
: again
/\.$/{
N
s/\.\n/\
./
t again
}
s/\.hh/.hhfield/g
s/\.lh/.lhfield/g
' mf.defines mf.p \
| ../web2c/web2c -hmf.h -m \
| sed -e '
s/else write/else\
write/
s/ *\([A-Za-z0-9]*\) *= *\(".*"\) *;/ (void) strcpy(\1 + 1, \2) ;/
s/ *nameoffile *= *poolname/ (void) strncpy(nameoffile+1, poolname, sizeof poolname)/
s/ maxcoef\( *[^( ]\)/ lmaxcoef\1/g
s/ b1/ lb1/g
s/ b2/ lb2/g
s/ b3/ lb3/g
/ *read/ s/read *( *\([a-z]*\) *, *\([a-z]*\) *, *\([a-z]*\)/read (\1 , \2); read (\1, \3/g
' \
| ../web2c/fixwrites \
| ../web2c/splitup mf
cat coerce.h fixcoerce.h > xcoerce.h
mv xcoerce.h coerce.h