Actual source code: ghome.c


  2: /*
  3:       Code for manipulating files.
  4: */
  5: #include <petscsys.h>

  7: /*@C
  8:    PetscGetHomeDirectory - Returns home directory name.

 10:    Not Collective

 12:    Input Parameter:
 13: .  maxlen - maximum length allowed

 15:    Output Parameter:
 16: .  dir - contains the home directory. Must be long enough to hold the name.

 18:    Level: developer

 20:    Notes:
 21:    If PETSc cannot determine the home directory it makes dir a null string

 23:    On Windows machines the environmental variable `HOME` specifies the home directory.

 25: .seealso: `PetscGetTmp()`, `PetscSharedTmp()`, `PetscGetWorkingDirectory()`
 26: @*/
 27: PetscErrorCode PetscGetHomeDirectory(char dir[], size_t maxlen)
 28: {
 29:   const char *d1;

 31:   d1 = getenv("HOME");
 32:   if (d1) {
 33:     PetscStrncpy(dir, d1, maxlen);
 34:   } else if (maxlen > 0) dir[0] = 0;
 35:   return 0;
 36: }

 38: /*@C
 39:     PetscFixFilename - Fixes a file name so that it is correct for both Unix and
 40:     Windows by using the correct / or \ to separate directories.

 42:    Not Collective

 44:    Input Parameter:
 45: .  filein - name of file to be fixed

 47:    Output Parameter:
 48: .  fileout - the fixed name. Should long enough to hold the filename.

 50:    Level: advanced

 52:    Note:
 53:    Call `PetscFixFilename()` just before calling fopen().
 54: @*/
 55: PetscErrorCode PetscFixFilename(const char filein[], char fileout[])
 56: {
 57:   size_t i, n;

 59:   if (!filein || !fileout) return 0;

 61:   PetscStrlen(filein, &n);
 62:   for (i = 0; i < n; i++) {
 63:     if (filein[i] == PETSC_REPLACE_DIR_SEPARATOR) fileout[i] = PETSC_DIR_SEPARATOR;
 64:     else fileout[i] = filein[i];
 65:   }
 66:   fileout[n] = 0;
 67:   return 0;
 68: }