/* gstdio.c - wrappers for C library functions

 *

 * Copyright 2004 Tor Lillqvist

 * Portions copyright (c) 2006 Nokia Corporation.  All rights reserved.

 *

 * GLib is free software; you can redistribute it and/or modify it

 * under the terms of the GNU Lesser General Public License as

 * published by the Free Software Foundation; either version 2 of the

 * License, or (at your option) any later version.

 *

 * GLib 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

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with GLib; see the file COPYING.LIB.  If not,

 * write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 */

#include "config.h"

#define G_STDIO_NO_WRAP_ON_UNIX

#include "glib.h"

#include <sys/types.h>

#include <sys/stat.h>

#include <fcntl.h>

#ifdef HAVE_UNISTD_H

#include <unistd.h>

#endif

#ifdef G_OS_WIN32

#include <windows.h>

#include <errno.h>

#include <wchar.h>

#include <direct.h>

#include <io.h>

#endif

#include "gstdio.h"

#include "galias.h"

#if !defined (G_OS_UNIX) && !defined (G_OS_WIN32) && !defined (G_OS_BEOS)

#error Please port this to your operating system

#endif

/**

 * g_access:

 * @filename: a pathname in the GLib file name encoding (UTF-8 on Windows)

 * @mode: as in access()

 *

 * A wrapper for the POSIX access() function. This function is used to

 * test a pathname for one or several of read, write or execute

 * permissions, or just existence. On Windows, the underlying access()

 * function in the C library only checks the READONLY attribute, and

 * does not look at the ACL at all. Software that needs to handle file

 * permissions on Windows more exactly should use the Win32 API.

 *

 * See the C library manual for more details about access().

 *

 * Returns: zero if the pathname refers to an existing file system

 * object that has all the tested permissions, or -1 otherwise or on

 * error.

 * 

 * Since: 2.8

 */

EXPORT_C int

g_access (const gchar *filename,

	  int          mode)

{

#ifdef G_OS_WIN32

  if (G_WIN32_HAVE_WIDECHAR_API ())

    {

      wchar_t *wfilename = g_utf8_to_utf16 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (wfilename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = _waccess (wfilename, mode);

      save_errno = errno;

      g_free (wfilename);

      errno = save_errno;

      return retval;

    }

  else

    {    

      gchar *cp_filename = g_locale_from_utf8 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (cp_filename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = access (cp_filename, mode);

      save_errno = errno;

      g_free (cp_filename);

      errno = save_errno;

      return retval;

    }

#else

  return access (filename, mode);

#endif

}

/**

 * g_chmod:

 * @filename: a pathname in the GLib file name encoding (UTF-8 on Windows)

 * @mode: as in chmod()

 *

 * A wrapper for the POSIX chmod() function. The chmod() function is

 * used to set the permissions of a file system object. Note that on

 * Windows the file protection mechanism is not at all POSIX-like, and

 * the underlying chmod() function in the C library just sets or

 * clears the READONLY attribute. It does not touch any ACL. Software

 * that needs to manage file permissions on Windows exactly should

 * use the Win32 API.

 *

 * See the C library manual for more details about chmod().

 *

 * Returns: zero if the operation succeeded, -1 on error.

 * 

 * Since: 2.8

 */

EXPORT_C int

g_chmod (const gchar *filename,

	 int          mode)

{

#ifdef G_OS_WIN32

  if (G_WIN32_HAVE_WIDECHAR_API ())

    {

      wchar_t *wfilename = g_utf8_to_utf16 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (wfilename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = _wchmod (wfilename, mode);

      save_errno = errno;

      g_free (wfilename);

      errno = save_errno;

      return retval;

    }

  else

    {    

      gchar *cp_filename = g_locale_from_utf8 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (cp_filename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = chmod (cp_filename, mode);

      save_errno = errno;

      g_free (cp_filename);

      errno = save_errno;

      return retval;

    }

#else

  return chmod (filename, mode);

#endif

}

/**

 * g_open:

 * @filename: a pathname in the GLib file name encoding (UTF-8 on Windows)

 * @flags: as in open()

 * @mode: as in open()

 *

 * A wrapper for the POSIX open() function. The open() function is

 * used to convert a pathname into a file descriptor. Note that on

 * POSIX systems file descriptors are implemented by the operating

 * system. On Windows, it's the C library that implements open() and

 * file descriptors. The actual Windows API for opening files is

 * something different.

 *

 * See the C library manual for more details about open().

 *

 * Returns: a new file descriptor, or -1 if an error occurred. The

 * return value can be used exactly like the return value from open().

 * 

 * Since: 2.6

 */

EXPORT_C int

g_open (const gchar *filename,

	int          flags,

	int          mode)

{

#ifdef G_OS_WIN32

  if (G_WIN32_HAVE_WIDECHAR_API ())

    {

      wchar_t *wfilename = g_utf8_to_utf16 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (wfilename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = _wopen (wfilename, flags, mode);

      save_errno = errno;

      g_free (wfilename);

      errno = save_errno;

      return retval;

    }

  else

    {    

      gchar *cp_filename = g_locale_from_utf8 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (cp_filename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = open (cp_filename, flags, mode);

      save_errno = errno;

      g_free (cp_filename);

      errno = save_errno;

      return retval;

    }

#else

  return open (filename, flags, mode);

#endif

}

/**

 * g_creat:

 * @filename: a pathname in the GLib file name encoding (UTF-8 on Windows)

 * @mode: as in creat()

 *

 * A wrapper for the POSIX creat() function. The creat() function is

 * used to convert a pathname into a file descriptor, creating a file

 * if necessar. Note that on POSIX systems file descriptors are

 * implemented by the operating system. On Windows, it's the C library

 * that implements creat() and file descriptors. The actual Windows

 * API for opening files is something different.

 *

 * See the C library manual for more details about creat().

 *

 * Returns: a new file descriptor, or -1 if an error occurred. The

 * return value can be used exactly like the return value from creat().

 * 

 * Since: 2.8

 */

EXPORT_C int

g_creat (const gchar *filename,

	 int          mode)

{

#ifdef G_OS_WIN32

  if (G_WIN32_HAVE_WIDECHAR_API ())

    {

      wchar_t *wfilename = g_utf8_to_utf16 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (wfilename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = _wcreat (wfilename, mode);

      save_errno = errno;

      g_free (wfilename);

      errno = save_errno;

      return retval;

    }

  else

    {    

      gchar *cp_filename = g_locale_from_utf8 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (cp_filename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = creat (cp_filename, mode);

      save_errno = errno;

      g_free (cp_filename);

      errno = save_errno;

      return retval;

    }

#else

  return creat (filename, mode);

#endif

}

/**

 * g_rename:

 * @oldfilename: a pathname in the GLib file name encoding (UTF-8 on Windows)

 * @newfilename: a pathname in the GLib file name encoding

 *

 * A wrapper for the POSIX rename() function. The rename() function 

 * renames a file, moving it between directories if required.

 * 

 * See your C library manual for more details about how rename() works

 * on your system. Note in particular that on Win9x it is not possible

 * to rename a file if a file with the new name already exists. Also

 * it is not possible in general on Windows to rename an open file.

 *

 * Returns: 0 if the renaming succeeded, -1 if an error occurred

 * 

 * Since: 2.6

 */

EXPORT_C int

g_rename (const gchar *oldfilename,

	  const gchar *newfilename)

{

#ifdef G_OS_WIN32

  if (G_WIN32_HAVE_WIDECHAR_API ())

    {

      wchar_t *woldfilename = g_utf8_to_utf16 (oldfilename, -1, NULL, NULL, NULL);

      wchar_t *wnewfilename;

      int retval;

      int save_errno;

      if (woldfilename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      wnewfilename = g_utf8_to_utf16 (newfilename, -1, NULL, NULL, NULL);

      if (wnewfilename == NULL)

	{

	  g_free (woldfilename);

	  errno = EINVAL;

	  return -1;

	}

      if (MoveFileExW (woldfilename, wnewfilename, MOVEFILE_REPLACE_EXISTING))

	retval = 0;

      else

	{

	  retval = -1;

	  switch (GetLastError ())

	    {

#define CASE(a,b) case ERROR_##a: save_errno = b; break

	    CASE (FILE_NOT_FOUND, ENOENT);

	    CASE (PATH_NOT_FOUND, ENOENT);

	    CASE (ACCESS_DENIED, EACCES);

	    CASE (NOT_SAME_DEVICE, EXDEV);

	    CASE (LOCK_VIOLATION, EACCES);

	    CASE (SHARING_VIOLATION, EACCES);

	    CASE (FILE_EXISTS, EEXIST);

	    CASE (ALREADY_EXISTS, EEXIST);

#undef CASE

	    default: save_errno = EIO;

	    }

	}

      g_free (woldfilename);

      g_free (wnewfilename);

      errno = save_errno;

      return retval;

    }

  else

    {

      gchar *cp_oldfilename = g_locale_from_utf8 (oldfilename, -1, NULL, NULL, NULL);

      gchar *cp_newfilename;

      int retval;

      int save_errno;

      if (cp_oldfilename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      cp_newfilename = g_locale_from_utf8 (newfilename, -1, NULL, NULL, NULL);

      if (cp_newfilename == NULL)

	{

	  g_free (cp_oldfilename);

	  errno = EINVAL;

	  return -1;

	}

      retval = rename (cp_oldfilename, cp_newfilename);

      save_errno = errno;

      g_free (cp_oldfilename);

      g_free (cp_newfilename);

      errno = save_errno;

      return retval;

    }

#else

  return rename (oldfilename, newfilename);

#endif

}

/**

 * g_mkdir: 

 * @filename: a pathname in the GLib file name encoding (UTF-8 on Windows)

 * @mode: permissions to use for the newly created directory

 *

 * A wrapper for the POSIX mkdir() function. The mkdir() function 

 * attempts to create a directory with the given name and permissions.

 * 

 * See the C library manual for more details about mkdir().

 *

 * Returns: 0 if the directory was successfully created, -1 if an error 

 *    occurred

 * 

 * Since: 2.6

 */

EXPORT_C int

g_mkdir (const gchar *filename,

	 int          mode)

{

#ifdef G_OS_WIN32

  if (G_WIN32_HAVE_WIDECHAR_API ())

    {

      wchar_t *wfilename = g_utf8_to_utf16 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (wfilename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = _wmkdir (wfilename);

      save_errno = errno;

      g_free (wfilename);

      errno = save_errno;

      return retval;

    }

  else

    {

      gchar *cp_filename = g_locale_from_utf8 (filename, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (cp_filename == NULL)

	{

	  errno = EINVAL;

	  return -1;

	}

      retval = mkdir (cp_filename);

      save_errno = errno;

      g_free (cp_filename);

      errno = save_errno;

      return retval;

    }

#else

  return mkdir (filename, mode);

#endif

}

/**

 * g_chdir: 

 * @path: a pathname in the GLib file name encoding (UTF-8 on Windows)

 *

 * A wrapper for the POSIX chdir() function. The function changes the

 * current directory of the process to @path.

 * 

 * See your C library manual for more details about chdir().

 *

 * Returns: 0 on success, -1 if an error occurred.

 * 

 * Since: 2.8

 */

EXPORT_C int

g_chdir (const gchar *path)

{

#ifdef G_OS_WIN32

  if (G_WIN32_HAVE_WIDECHAR_API ())

    {

      wchar_t *wpath = g_utf8_to_utf16 (path, -1, NULL, NULL, NULL);

      int retval;

      int save_errno;

      if (wpath == NULL)

	{