xref: /petsc/src/sys/fileio/fwd.c (revision e8e8640d1cb9a3a2f50c0c0d7b26e5c4d521e2e4)

/*
      Code for manipulating files.
*/
#include <petscsys.h>
#if defined(PETSC_HAVE_PWD_H)
  #include <pwd.h>
#endif
#include <ctype.h>
#include <sys/stat.h>
#if defined(PETSC_HAVE_UNISTD_H)
  #include <unistd.h>
#endif
#if defined(PETSC_HAVE_SYS_UTSNAME_H)
  #include <sys/utsname.h>
#endif
#if defined(PETSC_HAVE_DIRECT_H)
  #include <direct.h>
#endif
#if defined(PETSC_HAVE_SYS_SYSTEMINFO_H)
  #include <sys/systeminfo.h>
#endif
#include <errno.h>

/*@C
  PetscGetWorkingDirectory - Gets the current working directory.

  Not Collective

  Input Parameter:
. len - maximum length of `path`

  Output Parameter:
. path - holds the result value. The string should be long enough to hold the path, for example, `PETSC_MAX_PATH_LEN`

  Level: developer

.seealso: `PetscGetTmp()`, `PetscSharedTmp()`, `PetscSharedWorkingDirectory()`, `PetscGetHomeDirectory()`
@*/
PetscErrorCode PetscGetWorkingDirectory(char path[], size_t len)
{
  PetscFunctionBegin;
#if defined(PETSC_HAVE_GETCWD)
  PetscCheck(getcwd(path, len), PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in getcwd() due to \"%s\"", strerror(errno));
#elif defined(PETSC_HAVE__GETCWD)
  _getcwd(path, len);
#else
  SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "Could not find getcwd()");
#endif
  PetscFunctionReturn(PETSC_SUCCESS);
}