|
69 | 69 | % Matlab grabs the stdout, stderr, stdin handles of a Gfortran program, even when it's using Java. |
70 | 70 | % We must disable this behavior for the duration the running process. |
71 | 71 |
|
72 | | -outold = getenv("GFORTRAN_STDOUT_UNIT"); |
73 | | -setenv("GFORTRAN_STDOUT_UNIT", "6"); |
74 | | -errold = getenv("GFORTRAN_STDERR_UNIT"); |
75 | | -setenv("GFORTRAN_STDERR_UNIT", "0"); |
76 | | -inold = getenv("GFORTRAN_STDIN_UNIT"); |
77 | | -setenv("GFORTRAN_STDIN_UNIT", "5"); |
| 72 | +outold = getenv('GFORTRAN_STDOUT_UNIT'); |
| 73 | +setenv('GFORTRAN_STDOUT_UNIT', '6'); |
| 74 | +errold = getenv('GFORTRAN_STDERR_UNIT'); |
| 75 | +setenv('GFORTRAN_STDERR_UNIT', '0'); |
| 76 | +inold = getenv('GFORTRAN_STDIN_UNIT'); |
| 77 | +setenv('GFORTRAN_STDIN_UNIT', '5'); |
78 | 78 | %% start process |
79 | 79 | % https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/lang/ProcessBuilder.html#start() |
80 | 80 | h = proc.start(); |
|
126 | 126 | %% close process and restore Gfortran streams |
127 | 127 | h.destroy() |
128 | 128 |
|
129 | | -setenv("GFORTRAN_STDOUT_UNIT", outold); |
130 | | -setenv("GFORTRAN_STDERR_UNIT", errold); |
131 | | -setenv("GFORTRAN_STDIN_UNIT", inold); |
| 129 | +setenv('GFORTRAN_STDOUT_UNIT', outold); |
| 130 | +setenv('GFORTRAN_STDERR_UNIT', errold); |
| 131 | +setenv('GFORTRAN_STDIN_UNIT', inold); |
132 | 132 |
|
133 | 133 | if nargout < 2 && opt.stdout && ~stdlib.strempty(stdout) |
134 | 134 | disp(stdout) |
|
0 commit comments