[Octave-bug-tracker] [bug #47807] run behaves differently from Matlab on function m-files

[Julien Bect]

Follow-up Comment #10, bug #47807 (project octave):

Here is a simple modification of the existing run.m that behaves properly on
the example of comment #8:


function run (script)

  if (nargin != 1)
    print_usage ();
  endif

  [d, f, ext] = fileparts (script);

  if (isempty (d))
    % Do not change directory if the input argument has no path
    evalin ("caller", f, "rethrow (lasterror ())");
  else
    if (exist (d, "dir"))
      startdir = pwd ();
      d = make_absolute_filename (d);
      unwind_protect
        cd (d);
        evalin ("caller", f, "rethrow (lasterror ())");
      unwind_protect_cleanup
        if (strcmp (d, pwd ()))
          cd (startdir);
        endif
      end_unwind_protect
    else
      error ("run: the path %s doesn't exist", d);
    endif
  endif
endfunction


What do you think?


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?47807>

_______________________________________________
  Message posté via/par Savannah
  http://savannah.gnu.org/