1  /* Copyright (C) 1991-2023 Free Software Foundation, Inc.
       2     This file is part of the GNU C Library.
       3  
       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.
       8  
       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.
      13  
      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     <https://www.gnu.org/licenses/>.  */
      17  
      18  #include <dirent.h>
      19  
      20  #include <dirstream.h>
      21  
      22  /* Return the current position of DIRP.  */
      23  long int
      24  telldir (DIR *dirp)
      25  {
      26    long int ret;
      27  
      28    __libc_lock_lock (dirp->lock);
      29    ret = dirp->filepos;
      30    __libc_lock_unlock (dirp->lock);
      31  
      32    return ret;
      33  }