1 /*
2 Code for manipulating files.
3 */
4 #include <petscsys.h>
5 #if defined(PETSC_HAVE_PWD_H)
6 #include <pwd.h>
7 #endif
8 #include <ctype.h>
9 #include <sys/stat.h>
10 #if defined(PETSC_HAVE_UNISTD_H)
11 #include <unistd.h>
12 #endif
13 #if defined(PETSC_HAVE_SYS_UTSNAME_H)
14 #include <sys/utsname.h>
15 #endif
16 #if defined(PETSC_HAVE_DIRECT_H)
17 #include <direct.h>
18 #endif
19 #if defined(PETSC_HAVE_SYS_SYSTEMINFO_H)
20 #include <sys/systeminfo.h>
21 #endif
22 #include <errno.h>
23
24 /*@C
25 PetscGetWorkingDirectory - Gets the current working directory.
26
27 Not Collective
28
29 Input Parameter:
30 . len - maximum length of `path`
31
32 Output Parameter:
33 . path - holds the result value. The string should be long enough to hold the path, for example, `PETSC_MAX_PATH_LEN`
34
35 Level: developer
36
37 .seealso: `PetscGetTmp()`, `PetscSharedTmp()`, `PetscSharedWorkingDirectory()`, `PetscGetHomeDirectory()`
38 @*/
PetscGetWorkingDirectory(char path[],size_t len)39 PetscErrorCode PetscGetWorkingDirectory(char path[], size_t len)
40 {
41 PetscFunctionBegin;
42 #if defined(PETSC_HAVE_GETCWD)
43 PetscCheck(getcwd(path, len), PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in getcwd() due to \"%s\"", strerror(errno));
44 #elif defined(PETSC_HAVE__GETCWD)
45 _getcwd(path, len);
46 #else
47 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "Could not find getcwd()");
48 #endif
49 PetscFunctionReturn(PETSC_SUCCESS);
50 }
51