1 
2 /*
3       Code for manipulating files.
4 */
5 #include <petscsys.h>
6 
7 /*@C
8    PetscGetHomeDirectory - Returns home directory name.
9 
10    Not Collective
11 
12    Input Parameter:
13 .  maxlen - maximum lengh allowed
14 
15    Output Parameter:
16 .  dir - contains the home directory. Must be long enough to hold the name.
17 
18    Level: developer
19 
20    Note:
21    If PETSc cannot determine the home directory it makes dir a null string
22 
23    On Windows machines the enviornmental variable HOME specifies the home directory.
24 
25 @*/
PetscGetHomeDirectory(char dir[],size_t maxlen)26 PetscErrorCode  PetscGetHomeDirectory(char dir[],size_t maxlen)
27 {
28   PetscErrorCode ierr;
29   const char     *d1;
30 
31   PetscFunctionBegin;
32   d1 = getenv("HOME");
33   if (d1) {
34     ierr = PetscStrncpy(dir,d1,maxlen);CHKERRQ(ierr);
35   } else if (maxlen > 0) dir[0] = 0;
36   PetscFunctionReturn(0);
37 }
38 
39 /*@C
40     PetscFixFilename - Fixes a file name so that it is correct for both Unix and
41     Windows by using the correct / or \ to separate directories.
42 
43    Not Collective
44 
45    Input Parameter:
46 .  filein - name of file to be fixed
47 
48    Output Parameter:
49 .  fileout - the fixed name. Should long enough to hold the filename.
50 
51    Level: advanced
52 
53    Notes:
54    Call PetscFixFilename() just before calling fopen().
55 @*/
PetscFixFilename(const char filein[],char fileout[])56 PetscErrorCode  PetscFixFilename(const char filein[],char fileout[])
57 {
58   PetscErrorCode ierr;
59   size_t         i,n;
60 
61   PetscFunctionBegin;
62   if (!filein || !fileout) PetscFunctionReturn(0);
63 
64   ierr = PetscStrlen(filein,&n);CHKERRQ(ierr);
65   for (i=0; i<n; i++) {
66     if (filein[i] == PETSC_REPLACE_DIR_SEPARATOR) fileout[i] = PETSC_DIR_SEPARATOR;
67     else fileout[i] = filein[i];
68   }
69   fileout[n] = 0;
70   PetscFunctionReturn(0);
71 }
72