DataMuseum.dk

top - metrics - download

    Length: 933 (0x3a5)
    Types: TextFile
    Names: »convert«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/mfdir/convert« 

TextFile

#!/bin/sh
awk '
BEGIN {
    dot=0
}
/\.$/ {
    if (dot) printf(".")
    dot=1
    print substr($0,1,length($0)-1)
    next
}
{
    if (dot) printf(".")
    print 
    dot=0
}
END {
    if (dot) printf(".\n")
}
' mf.defines mf.p | \
sed -e '
    s/\.hh/.hhfield/g
    s/\.lh/.lhfield/g
' | ../web2cdir/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
    / *read/ s/read *( *\([a-z]*\) *, *\([a-z]*\) *, *\([a-z]*\)/read (\1 , \2); read (\1, \3/g
' \
	| ../web2cdir/fixwrites \
	| ./fix \
	| (cd ../cmf; ../web2cdir/splitup mf)

cat coerce.h fixcoerce.h > ../cmf/coerce.h
cp mf.pool ../cmf/mf.pool
rm -f stack.stack coerce.h
cd ../cmf
cp mfd.h orig_mfd.h
../mfdir/ini_to_trap mfd.h trap_mfd.h