fullfile

(tmp_for_tar/mcompat/fullfile.m)

Function Synopsis

s = fullfile(...)

Help text

  barely tested *and* undocumented

 s = fullfile(...)

 Last modified: January 2000

Listing of function file tmp_for_tar/mcompat/fullfile.m

##  barely tested *and* undocumented
##
## s = fullfile(...)

## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: January 2000

function s = fullfile(...)
  filesep = "/" ;		# Change this for non-unix
  if nargin--, 
    s = va_arg(); 
  else 
    s=""; 
    return
  end
  while nargin--,
    s=[s,filesep,va_arg()];
  end 
  t='';
  while !strcmp(t,s), 
    t=s;
    s=strrep(t,"/./","/");
    s=strrep(s,"//","/");
  end
endfunction