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 - download

⟦85640d45f⟧ TextFile

    Length: 376 (0x178)
    Types: TextFile
    Notes: UNIX file
    Names: »fdopen.c«

Derivation

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

TextFile

/*
 * Standard I/O Library
 * get file structure for given file descriptor
 */

#include <stdio.h>

FILE *
fdopen(fd, type)
int	fd;
char	*type;
{
	register FILE	**fpp;
	extern	FILE	*_fopen();

	if (0<=fd && fd<_NFILE) for (fpp = &_fp[0]; fpp < &_fp[_NFILE]; fpp++)
		if (*fpp==NULL || !((*fpp)->_ff&_FINUSE))
			return (*fpp = _fopen(NULL, type, *fpp, fd));
	return (NULL);
}