/*
Copyright (C) 1997-2007 ZSNES Team ( zsKnight, _Demo_, pagefault, Nach )

http://www.zsnes.com
http://sourceforge.net/projects/zsnes
https://zsnes.bountysource.com

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
version 2 as published by the Free Software Foundation.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include <sys/stat.h>
#include <errno.h>
#include <stdbool.h>

int fstatat(int dirfd, const char *pathname, struct stat *buf, int flags)
{
  int success = -1;

  if ((!flags || (flags == AT_SYMLINK_NOFOLLOW)) && buf)
  {
    if (pathname && *pathname)
    {
      int current_dir = -1;
      bool good = true;
      if ((dirfd != AT_FDCWD) && (*pathname != '/'))
      {
        current_dir = open(".", O_RDONLY); //Backup CWD
        if (fchdir(dirfd))
        {
          good = false;
        }
      }

      if (good)
      {
        if (!flags)
        {
          success = stat(pathname, buf);
        }
        else //AT_SYMLINK_NOFOLLOW
        {
          success = lstat(pathname, buf);
        }
      }

      if (current_dir != -1)
      {
        fchdir(current_dir);
      }
    }
    else
    {
      if (dirfd == AT_FDCWD)
      {
        success = stat(".", buf);
      }
      else
      {
        success = fstat(dirfd, buf);
      }
    }
  }
  else
  {
    errno = EINVAL;
  }

  return(sucess);
}