1*7d0a6c19SBarry Smith 2e5c89e4eSSatish Balay /* 3e5c89e4eSSatish Balay Code for manipulating files. 4e5c89e4eSSatish Balay */ 5d382aafbSBarry Smith #include "petscsys.h" 6e5c89e4eSSatish Balay #if defined(PETSC_HAVE_PWD_H) 7e5c89e4eSSatish Balay #include <pwd.h> 8e5c89e4eSSatish Balay #endif 9e5c89e4eSSatish Balay #include <ctype.h> 10e5c89e4eSSatish Balay #include <sys/types.h> 11e5c89e4eSSatish Balay #include <sys/stat.h> 12e5c89e4eSSatish Balay #if defined(PETSC_HAVE_UNISTD_H) 13e5c89e4eSSatish Balay #include <unistd.h> 14e5c89e4eSSatish Balay #endif 15e5c89e4eSSatish Balay #if defined(PETSC_HAVE_STDLIB_H) 16e5c89e4eSSatish Balay #include <stdlib.h> 17e5c89e4eSSatish Balay #endif 18e5c89e4eSSatish Balay #if defined(PETSC_HAVE_SYS_UTSNAME_H) 19e5c89e4eSSatish Balay #include <sys/utsname.h> 20e5c89e4eSSatish Balay #endif 21e5c89e4eSSatish Balay #if defined(PETSC_HAVE_DIRECT_H) 22e5c89e4eSSatish Balay #include <direct.h> 23e5c89e4eSSatish Balay #endif 24e5c89e4eSSatish Balay #if defined(PETSC_HAVE_SYS_SYSTEMINFO_H) 25e5c89e4eSSatish Balay #include <sys/systeminfo.h> 26e5c89e4eSSatish Balay #endif 27e5c89e4eSSatish Balay 28e5c89e4eSSatish Balay #undef __FUNCT__ 29e5c89e4eSSatish Balay #define __FUNCT__ "PetscGetWorkingDirectory" 30e5c89e4eSSatish Balay /*@C 31e5c89e4eSSatish Balay PetscGetWorkingDirectory - Gets the current working directory. 32e5c89e4eSSatish Balay 33e5c89e4eSSatish Balay Not Collective 34e5c89e4eSSatish Balay 35e5c89e4eSSatish Balay Input Parameters: 36e5c89e4eSSatish Balay . len - maximum length of path 37e5c89e4eSSatish Balay 38e5c89e4eSSatish Balay Output Parameter: 39e5c89e4eSSatish Balay . path - use to hold the result value. The string should be long enough 40e5c89e4eSSatish Balay to hold the path. 41e5c89e4eSSatish Balay 42e5c89e4eSSatish Balay Level: developer 43e5c89e4eSSatish Balay 44e5c89e4eSSatish Balay Concepts: working directory 45e5c89e4eSSatish Balay 46e5c89e4eSSatish Balay @*/ 477087cfbeSBarry Smith PetscErrorCode PetscGetWorkingDirectory(char path[],size_t len) 48e5c89e4eSSatish Balay { 49167ada76SJed Brown PetscFunctionBegin; 50e5c89e4eSSatish Balay #if defined(PETSC_HAVE_GETCWD) 51167ada76SJed Brown if (!getcwd(path,len)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"getcwd()"); 52e5c89e4eSSatish Balay #elif defined(PETSC_HAVE__GETCWD) 53e5c89e4eSSatish Balay _getcwd(path,len); 54e5c89e4eSSatish Balay #elif defined(PETSC_HAVE_GETWD) 55e5c89e4eSSatish Balay getwd(path); 56e5c89e4eSSatish Balay #else 57e32f2f54SBarry Smith SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP_SYS, "Could not find getcwd() or getwd()"); 58e5c89e4eSSatish Balay #endif 59167ada76SJed Brown PetscFunctionReturn(0); 60e5c89e4eSSatish Balay } 61e5c89e4eSSatish Balay 62