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