Mercurial > hg > octave-nkf
comparison scripts/miscellaneous/run.m @ 6864:ab9a0ffee27f
[project @ 2007-09-05 10:13:42 by dbateman]
author | dbateman |
---|---|
date | Wed, 05 Sep 2007 10:13:42 +0000 |
parents | 3c64128e621c |
children | 93c65f2a5668 |
comparison
equal
deleted
inserted
replaced
6863:3c64128e621c | 6864:ab9a0ffee27f |
---|---|
25 ## change the directory to the directory where @var{f} is found. @code{run} | 25 ## change the directory to the directory where @var{f} is found. @code{run} |
26 ## then executes the script, and returns to the original directory. | 26 ## then executes the script, and returns to the original directory. |
27 ## @seealso{system} | 27 ## @seealso{system} |
28 ## @end deftypefn | 28 ## @end deftypefn |
29 | 29 |
30 ## PKG_ADD: mark_as_commnd run | 30 ## PKG_ADD: mark_as_command run |
31 | 31 |
32 function run (s) | 32 function run (s) |
33 [d, f, ext] = fileparts (s); | 33 [d, f, ext] = fileparts (s); |
34 if (! isempty (d)) | 34 if (! isempty (d)) |
35 if (exist (d, "dir")) | 35 if (exist (d, "dir")) |