S390: Add new s390 platform.
[glibc.git] / sysdeps / mach / hurd / seekdir.c
blobd13561cf5e029f5ab6bec3822f45135475563828
1 /* Copyright (C) 1993-2015 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, see
16 <http://www.gnu.org/licenses/>. */
18 #include <errno.h>
19 #include <stddef.h>
20 #include <dirent.h>
21 #include <unistd.h>
22 #include "dirstream.h"
24 /* Seek to position POS in DIRP. */
25 /* XXX should be __seekdir ? */
26 void
27 seekdir (dirp, pos)
28 DIR *dirp;
29 long int pos;
31 __libc_lock_lock (dirp->__lock);
32 /* Change our entry index pointer to POS and discard any data already
33 read. The next `readdir' call will notice the empty block and read
34 anew from the location in DIRP->__entry_ptr and reset the other state
35 variables. */
36 dirp->__entry_ptr = pos;
37 dirp->__size = 0;
38 __libc_lock_unlock (dirp->__lock);