Added all of the MH sources, including RCS files, in
[mmh] / docs / historical / mh-6.8.5 / miscellany / libndir / closedir.c
1 static char sccsid[] = "@(#)closedir.c 4.2 3/10/82";
2
3 #include <sys/types.h>
4 #include <dir.h>
5
6 /*
7  * close a directory.
8  */
9 void
10 closedir(dirp)
11         register DIR *dirp;
12 {
13         close(dirp->dd_fd);
14         dirp->dd_fd = -1;
15         dirp->dd_loc = 0;
16         free(dirp);
17 }