ack/lang/cem/libcc/gen/closedir.c

#include <sys/types.h>
#include <sys/dir.h>

/*
 * close a directory.
 */
closedir(dirp)
register DIR *dirp;
{
	close(dirp->dd_fd);
	dirp->dd_fd = -1;
	dirp->dd_loc = 0;
	free(dirp->dd_buf);
	free((char *)dirp);
}