summaryrefslogtreecommitdiff
path: root/src/lib/libast/dir/seekdir.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libast/dir/seekdir.c')
-rw-r--r--src/lib/libast/dir/seekdir.c56
1 files changed, 56 insertions, 0 deletions
diff --git a/src/lib/libast/dir/seekdir.c b/src/lib/libast/dir/seekdir.c
new file mode 100644
index 0000000..8113584
--- /dev/null
+++ b/src/lib/libast/dir/seekdir.c
@@ -0,0 +1,56 @@
+/***********************************************************************
+* *
+* This software is part of the ast package *
+* Copyright (c) 1985-2011 AT&T Intellectual Property *
+* and is licensed under the *
+* Eclipse Public License, Version 1.0 *
+* by AT&T Intellectual Property *
+* *
+* A copy of the License is available at *
+* http://www.eclipse.org/org/documents/epl-v10.html *
+* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
+* *
+* Information and Software Systems Research *
+* AT&T Research *
+* Florham Park NJ *
+* *
+* Glenn Fowler <gsf@research.att.com> *
+* David Korn <dgk@research.att.com> *
+* Phong Vo <kpv@research.att.com> *
+* *
+***********************************************************************/
+#pragma prototyped
+
+/*
+ * seekdir
+ *
+ * seek on directory stream
+ * this is not optimal because there aren't portable
+ * semantics for directory seeks
+ */
+
+#include "dirlib.h"
+
+#if _dir_ok
+
+NoN(seekdir)
+
+#else
+
+void
+seekdir(register DIR* dirp, long loc)
+{
+ off_t base; /* file location of block */
+ off_t offset; /* offset within block */
+
+ if (telldir(dirp) != loc)
+ {
+ lseek(dirp->dd_fd, 0L, SEEK_SET);
+ dirp->dd_loc = dirp->dd_size = 0;
+ while (telldir(dirp) != loc)
+ if (!readdir(dirp))
+ break; /* "can't happen" */
+ }
+}
+
+#endif