Actual source code: smatlab.c


  2: #include <petscsys.h>

  4: /*@C
  5:     PetscStartMatlab - starts up MATLAB with a MATLAB script

  7:     Logically Collective, but only MPI rank 0 in the communicator does anything

  9:     Input Parameters:
 10: +     comm - MPI communicator
 11: .     machine - optional machine to run MATLAB on
 12: -     script - name of script (without the .m)

 14:     Output Parameter:
 15: .     fp - a file pointer returned from `PetscPOpen()`

 17:     Level: intermediate

 19:     Notes:
 20:     This starts up a "regular" MATLAB interactive session, it does not start the MATLAB Engine, this is controlled with `PetscMatlabEngine`

 22:     Warning, this overwrites your `matlab/startup.m` file

 24:      The script must be in your MATLAB path or current directory

 26: .seealso: `PetscPOpen()`, `PetscPClose()`, `PetscMatlabEngine`
 27: @*/
 28: PetscErrorCode PetscStartMatlab(MPI_Comm comm, const char machine[], const char script[], FILE **fp)
 29: {
 30:   FILE *fd;
 31:   char  command[512];
 32: #if defined(PETSC_HAVE_UCBPS) && defined(PETSC_HAVE_POPEN)
 33:   char        buf[1024], *found;
 34:   PetscMPIInt rank;
 35: #endif

 37:   PetscFunctionBegin;
 38: #if defined(PETSC_HAVE_UCBPS) && defined(PETSC_HAVE_POPEN)
 39:   /* check if MATLAB is not already running */
 40:   PetscCall(PetscPOpen(comm, machine, "/usr/ucb/ps -ugxww | grep matlab | grep -v grep", "r", &fd));
 41:   PetscCallMPI(MPI_Comm_rank(comm, &rank));
 42:   if (rank == 0) found = fgets(buf, 1024, fd);
 43:   PetscCallMPI(MPI_Bcast(&found, 1, MPI_CHAR, 0, comm));
 44:   PetscCall(PetscPClose(comm, fd));
 45:   if (found) PetscFunctionReturn(PETSC_SUCCESS);
 46: #endif

 48:   if (script) {
 49:     /* the remote machine won't know about current directory, so add it to MATLAB path */
 50:     /* the extra \" are to protect possible () in the script command from the shell */
 51:     PetscCall(PetscSNPrintf(command, PETSC_STATIC_ARRAY_LENGTH(command), "echo \"delete ${HOMEDIRECTORY}/matlab/startup.m ; path(path,'${WORKINGDIRECTORY}'); %s  \" > ${HOMEDIRECTORY}/matlab/startup.m", script));
 52: #if defined(PETSC_HAVE_POPEN)
 53:     PetscCall(PetscPOpen(comm, machine, command, "r", &fd));
 54:     PetscCall(PetscPClose(comm, fd));
 55: #endif
 56:   }
 57: #if defined(PETSC_HAVE_POPEN)
 58:   PetscCall(PetscPOpen(comm, machine, "xterm -display ${DISPLAY} -e matlab -nosplash", "r", fp));
 59: #endif
 60:   PetscFunctionReturn(PETSC_SUCCESS);
 61: }