1da2e3ebdSchin /*********************************************************************** 2da2e3ebdSchin * * 3da2e3ebdSchin * This software is part of the ast package * 4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2012 AT&T Intellectual Property * 5da2e3ebdSchin * and is licensed under the * 6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 * 77c2fbfb3SApril Chin * by AT&T Intellectual Property * 8da2e3ebdSchin * * 9da2e3ebdSchin * A copy of the License is available at * 10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html * 11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) * 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 55*b30d1939SAndy Fiddaman if ((fd = open(path, O_RDONLY|O_cloexec)) < 0) return(0); 56da2e3ebdSchin if (fstat(fd, &st) < 0 || 57da2e3ebdSchin !S_ISDIR(st.st_mode) && (errno = ENOTDIR) || 58*b30d1939SAndy Fiddaman #if !O_cloexec 59da2e3ebdSchin fcntl(fd, F_SETFD, FD_CLOEXEC) || 60*b30d1939SAndy Fiddaman #endif 61da2e3ebdSchin !(dirp = freedirp ? freedirp : 62da2e3ebdSchin #if defined(_DIR_PRIVATE_) || _ptr_dd_buf 63da2e3ebdSchin newof(0, DIR, 1, DIRBLKSIZ) 64da2e3ebdSchin #else 65da2e3ebdSchin newof(0, DIR, 1, 0) 66da2e3ebdSchin #endif 67da2e3ebdSchin )) 68da2e3ebdSchin { 69da2e3ebdSchin close(fd); 70da2e3ebdSchin if (dirp) 71da2e3ebdSchin { 72da2e3ebdSchin if (!freedirp) freedirp = dirp; 73da2e3ebdSchin else free(dirp); 74da2e3ebdSchin } 75da2e3ebdSchin return(0); 76da2e3ebdSchin } 77da2e3ebdSchin freedirp = 0; 78da2e3ebdSchin dirp->dd_fd = fd; 79da2e3ebdSchin dirp->dd_loc = dirp->dd_size = 0; /* refill needed */ 80da2e3ebdSchin #if defined(_DIR_PRIVATE_) || _ptr_dd_buf 81da2e3ebdSchin dirp->dd_buf = (void*)((char*)dirp + sizeof(DIR)); 82da2e3ebdSchin #endif 83da2e3ebdSchin return(dirp); 84da2e3ebdSchin } 85da2e3ebdSchin 86da2e3ebdSchin void 87da2e3ebdSchin closedir(register DIR* dirp) 88da2e3ebdSchin { 89da2e3ebdSchin if (dirp) 90da2e3ebdSchin { 91da2e3ebdSchin close(dirp->dd_fd); 92da2e3ebdSchin if (!freedirp) freedirp = dirp; 93da2e3ebdSchin else free(dirp); 94da2e3ebdSchin } 95da2e3ebdSchin } 96da2e3ebdSchin 97da2e3ebdSchin #endif 98