1da2e3ebdSchin /*********************************************************************** 2da2e3ebdSchin * * 3da2e3ebdSchin * This software is part of the ast package * 4*3e14f97fSRoger A. Faulkner * Copyright (c) 1985-2010 AT&T Intellectual Property * 5da2e3ebdSchin * and is licensed under the * 6da2e3ebdSchin * Common Public License, Version 1.0 * 77c2fbfb3SApril Chin * by AT&T Intellectual Property * 8da2e3ebdSchin * * 9da2e3ebdSchin * A copy of the License is available at * 10da2e3ebdSchin * http://www.opensource.org/licenses/cpl1.0.txt * 11da2e3ebdSchin * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 12da2e3ebdSchin * * 13da2e3ebdSchin * Information and Software Systems Research * 14da2e3ebdSchin * AT&T Research * 15da2e3ebdSchin * Florham Park NJ * 16da2e3ebdSchin * * 17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> * 18da2e3ebdSchin * David Korn <dgk@research.att.com> * 19da2e3ebdSchin * Phong Vo <kpv@research.att.com> * 20da2e3ebdSchin * * 21da2e3ebdSchin ***********************************************************************/ 22da2e3ebdSchin #pragma prototyped 23da2e3ebdSchin /* 24da2e3ebdSchin * opendir, closedir 25da2e3ebdSchin * 26da2e3ebdSchin * open|close directory stream 27da2e3ebdSchin * 28da2e3ebdSchin * POSIX compatible directory stream access routines: 29da2e3ebdSchin * 30da2e3ebdSchin * #include <sys/types.h> 31da2e3ebdSchin * #include <dirent.h> 32da2e3ebdSchin * 33da2e3ebdSchin * NOTE: readdir() returns a pointer to struct dirent 34da2e3ebdSchin */ 35da2e3ebdSchin 36da2e3ebdSchin #include "dirlib.h" 37da2e3ebdSchin 38da2e3ebdSchin #if _dir_ok 39da2e3ebdSchin 40da2e3ebdSchin NoN(opendir) 41da2e3ebdSchin 42da2e3ebdSchin #else 43da2e3ebdSchin 44da2e3ebdSchin static const char id_dir[] = "\n@(#)$Id: directory (AT&T Research) 1993-04-01 $\0\n"; 45da2e3ebdSchin 46da2e3ebdSchin static DIR* freedirp; /* always keep one dirp */ 47da2e3ebdSchin 48da2e3ebdSchin DIR* 49da2e3ebdSchin opendir(register const char* path) 50da2e3ebdSchin { 51da2e3ebdSchin register DIR* dirp = 0; 52da2e3ebdSchin register int fd; 53da2e3ebdSchin struct stat st; 54da2e3ebdSchin 55da2e3ebdSchin if ((fd = open(path, O_RDONLY)) < 0) return(0); 56da2e3ebdSchin if (fstat(fd, &st) < 0 || 57da2e3ebdSchin !S_ISDIR(st.st_mode) && (errno = ENOTDIR) || 58da2e3ebdSchin fcntl(fd, F_SETFD, FD_CLOEXEC) || 59da2e3ebdSchin !(dirp = freedirp ? freedirp : 60da2e3ebdSchin #if defined(_DIR_PRIVATE_) || _ptr_dd_buf 61da2e3ebdSchin newof(0, DIR, 1, DIRBLKSIZ) 62da2e3ebdSchin #else 63da2e3ebdSchin newof(0, DIR, 1, 0) 64da2e3ebdSchin #endif 65da2e3ebdSchin )) 66da2e3ebdSchin { 67da2e3ebdSchin close(fd); 68da2e3ebdSchin if (dirp) 69da2e3ebdSchin { 70da2e3ebdSchin if (!freedirp) freedirp = dirp; 71da2e3ebdSchin else free(dirp); 72da2e3ebdSchin } 73da2e3ebdSchin return(0); 74da2e3ebdSchin } 75da2e3ebdSchin freedirp = 0; 76da2e3ebdSchin dirp->dd_fd = fd; 77da2e3ebdSchin dirp->dd_loc = dirp->dd_size = 0; /* refill needed */ 78da2e3ebdSchin #if defined(_DIR_PRIVATE_) || _ptr_dd_buf 79da2e3ebdSchin dirp->dd_buf = (void*)((char*)dirp + sizeof(DIR)); 80da2e3ebdSchin #endif 81da2e3ebdSchin return(dirp); 82da2e3ebdSchin } 83da2e3ebdSchin 84da2e3ebdSchin void 85da2e3ebdSchin closedir(register DIR* dirp) 86da2e3ebdSchin { 87da2e3ebdSchin if (dirp) 88da2e3ebdSchin { 89da2e3ebdSchin close(dirp->dd_fd); 90da2e3ebdSchin if (!freedirp) freedirp = dirp; 91da2e3ebdSchin else free(dirp); 92da2e3ebdSchin } 93da2e3ebdSchin } 94da2e3ebdSchin 95da2e3ebdSchin #endif 96