1c6db04a5SJed Brown #include <petscsys.h> 2e5c89e4eSSatish Balay 3e5c89e4eSSatish Balay /*@C 4e3c5b3baSBarry Smith PetscStartMatlab - starts up MATLAB with a MATLAB script 5e5c89e4eSSatish Balay 6*21532e8aSBarry Smith Logically Collective, but only MPI rank 0 in the communicator does anything 7e5c89e4eSSatish Balay 8e5c89e4eSSatish Balay Input Parameters: 9e5c89e4eSSatish Balay + comm - MPI communicator 10e3c5b3baSBarry Smith . machine - optional machine to run MATLAB on 11e5c89e4eSSatish Balay - script - name of script (without the .m) 12e5c89e4eSSatish Balay 13e5c89e4eSSatish Balay Output Parameter: 14811af0c4SBarry Smith . fp - a file pointer returned from `PetscPOpen()` 15e5c89e4eSSatish Balay 16e5c89e4eSSatish Balay Level: intermediate 17e5c89e4eSSatish Balay 18e5c89e4eSSatish Balay Notes: 19*21532e8aSBarry Smith This starts up a "regular" MATLAB interactive session, it does not start the MATLAB Engine, this is controlled with `PetscMatlabEngine` 20*21532e8aSBarry Smith 21*21532e8aSBarry Smith Warning, this overwrites your `matlab/startup.m` file 22e5c89e4eSSatish Balay 23e3c5b3baSBarry Smith The script must be in your MATLAB path or current directory 24e5c89e4eSSatish Balay 25*21532e8aSBarry Smith .seealso: `PetscPOpen()`, `PetscPClose()`, `PetscMatlabEngine` 26e5c89e4eSSatish Balay @*/ 27d71ae5a4SJacob Faibussowitsch PetscErrorCode PetscStartMatlab(MPI_Comm comm, const char machine[], const char script[], FILE **fp) 28d71ae5a4SJacob Faibussowitsch { 29e5c89e4eSSatish Balay FILE *fd; 30e5c89e4eSSatish Balay char command[512]; 31e5c89e4eSSatish Balay #if defined(PETSC_HAVE_UCBPS) && defined(PETSC_HAVE_POPEN) 32e5c89e4eSSatish Balay char buf[1024], *found; 33e5c89e4eSSatish Balay PetscMPIInt rank; 34e5c89e4eSSatish Balay #endif 35e5c89e4eSSatish Balay 36e5c89e4eSSatish Balay PetscFunctionBegin; 37e5c89e4eSSatish Balay #if defined(PETSC_HAVE_UCBPS) && defined(PETSC_HAVE_POPEN) 38e3c5b3baSBarry Smith /* check if MATLAB is not already running */ 399566063dSJacob Faibussowitsch PetscCall(PetscPOpen(comm, machine, "/usr/ucb/ps -ugxww | grep matlab | grep -v grep", "r", &fd)); 409566063dSJacob Faibussowitsch PetscCallMPI(MPI_Comm_rank(comm, &rank)); 41dd400576SPatrick Sanan if (rank == 0) found = fgets(buf, 1024, fd); 429566063dSJacob Faibussowitsch PetscCallMPI(MPI_Bcast(&found, 1, MPI_CHAR, 0, comm)); 439566063dSJacob Faibussowitsch PetscCall(PetscPClose(comm, fd)); 443ba16761SJacob Faibussowitsch if (found) PetscFunctionReturn(PETSC_SUCCESS); 45e5c89e4eSSatish Balay #endif 46e5c89e4eSSatish Balay 47e5c89e4eSSatish Balay if (script) { 48e3c5b3baSBarry Smith /* the remote machine won't know about current directory, so add it to MATLAB path */ 49e5c89e4eSSatish Balay /* the extra \" are to protect possible () in the script command from the shell */ 50a364092eSJacob Faibussowitsch PetscCall(PetscSNPrintf(command, PETSC_STATIC_ARRAY_LENGTH(command), "echo \"delete ${HOMEDIRECTORY}/matlab/startup.m ; path(path,'${WORKINGDIRECTORY}'); %s \" > ${HOMEDIRECTORY}/matlab/startup.m", script)); 51e5c89e4eSSatish Balay #if defined(PETSC_HAVE_POPEN) 529566063dSJacob Faibussowitsch PetscCall(PetscPOpen(comm, machine, command, "r", &fd)); 539566063dSJacob Faibussowitsch PetscCall(PetscPClose(comm, fd)); 54e5c89e4eSSatish Balay #endif 55e5c89e4eSSatish Balay } 56e5c89e4eSSatish Balay #if defined(PETSC_HAVE_POPEN) 579566063dSJacob Faibussowitsch PetscCall(PetscPOpen(comm, machine, "xterm -display ${DISPLAY} -e matlab -nosplash", "r", fp)); 58e5c89e4eSSatish Balay #endif 593ba16761SJacob Faibussowitsch PetscFunctionReturn(PETSC_SUCCESS); 60e5c89e4eSSatish Balay } 61