DataMuseum.dk

top - metrics - download

    Length: 656 (0x290)
    Types: TextFile
    Names: »b_output.c«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/cmf/MFlib/b_output.c« 

TextFile

/*
 * Byte Output routines for Metafont
 *
 * Tim Morgan  4/8/88
 */

#include <stdio.h>
#define	EXTERN	extern
#include "../mfd.h"

#define	aputc(x, f)	if ((eightbits)putc(((x) & 255), f) != ((x)&255)) perror("putc"), exit(1)

zbwrite2bytes(f, b)
FILE *f;
integer b;
{
    aputc((b >> 8), f);
    aputc((b & 255), f);
}

zbwrite4bytes(f, b)
FILE *f;
integer b;
{
    aputc((b >> 24), f);
    aputc((b >> 16), f);
    aputc((b >> 8), f);
    aputc(b, f);
}

zbwritebuf(f, buf, first, last)
FILE *f;
eightbits buf[];
integer first, last;
{
    if (!fwrite((char *) &buf[first], sizeof(buf[0]), (int)(last-first+1), f)) {
	perror("fwrite");
	exit(1);
    }
}