--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/usr/src/lib/libc/port/gen/fdopendir.c	Tue Jun 14 00:00:00 2005 -0700
@@ -0,0 +1,87 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
+ * Use is subject to license terms.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+/*
+ * fdopendir -- C library extension routine
+ *
+ * We use lmalloc()/lfree() rather than malloc()/free() in
+ * order to allow opendir()/readdir()/closedir() to be called
+ * while holding internal libc locks.
+ */
+
+#pragma weak fdopendir = _fdopendir
+
+#include "synonyms.h"
+#include <mtlib.h>
+#include <sys/types.h>
+#include <dirent.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <errno.h>
+#include "libc.h"
+
+extern int __fcntl(int fd, int cmd, intptr_t arg);
+
+DIR *
+fdopendir(int fd)
+{
+	DIR *dirp = lmalloc(sizeof (DIR));
+	void *buf = lmalloc(DIRBUF);
+	int error = 0;
+	struct stat64 sbuf;
+
+	if (dirp == NULL || buf == NULL)
+		goto fail;
+	/*
+	 * POSIX mandated behavior
+	 * close on exec if using file descriptor
+	 */
+	if (__fcntl(fd, F_SETFD, FD_CLOEXEC) < 0)
+		goto fail;
+	if (fstat64(fd, &sbuf) < 0)
+		goto fail;
+	if ((sbuf.st_mode & S_IFMT) != S_IFDIR) {
+		error = ENOTDIR;
+		goto fail;
+	}
+	dirp->dd_buf = buf;
+	dirp->dd_fd = fd;
+	dirp->dd_loc = dirp->dd_size = 0;
+	return (dirp);
+
+fail:
+	if (dirp != NULL)
+		lfree(dirp, sizeof (DIR));
+	if (buf != NULL)
+		lfree(buf, DIRBUF);
+	if (error)
+		errno = error;
+	return (NULL);
+}