ack/lang/cem/libcc.ansi/misc/closedir.c

/*
	closedir -- close a directory stream

	last edit:	11-Nov-1988	D A Gwyn
*/

#include <errno.h>
#include <stdlib.h>
#include <sys/errno.h>
#include <sys/types.h>
#include <dirent.h>

typedef void* pointer; /* (void *) if you have it */

#ifndef NULL
#define NULL 0
#endif

int _close(int d);

int closedir(register DIR* dirp) /* stream from opendir */
{
	register int fd;

	if (dirp == NULL || dirp->dd_buf == NULL)
	{
		errno = EFAULT;
		return -1; /* invalid pointer */
	}

	fd = dirp->dd_fd; /* bug fix thanks to R. Salz */
	free((pointer)dirp->dd_buf);
	free((pointer)dirp);
	return _close(fd);
}