DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

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

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦e42b50c56⟧ TextFile

    Length: 340 (0x154)
    Types: TextFile
    Notes: UNIX file
    Names: »getw.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX Filesystem
        └─⟦this⟧ »libc/stdio/getw.c«

TextFile

/*
 * Standard I/O Library
 * Get word (int)
 * Routine rather than macro, for the aesthetically inclined
 */

#include <stdio.h>
#undef	getw

int
getw(fp)
register FILE	*fp;
{
	register int	c0, c1;

	if ((c0=getc(fp))==EOF)
		return (EOF);
	else if ((c1=getc(fp))==EOF) {
		fp->_ff |= _FERR;
		return (EOF);
	} else
		return (c0<<8|c1);
}