ack/lang/cem/libcc.ansi/misc/closedir.c
2018-06-21 22:33:47 +02:00

36 lines
603 B
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);
}