########################################################################
##
## Copyright (C) 2014-2020 The Octave Project Developers
##
## See the file COPYRIGHT.md in the top-level directory of this
## distribution or <https://octave.org/copyright/>.
##
## This file is part of Octave.
##
## Octave is free software: you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## Octave is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with Octave; see the file COPYING.  If not, see
## <https://www.gnu.org/licenses/>.
##
########################################################################

## -*- texinfo -*-
## @deftypefn  {} {@var{filename} =} fullfile1 (@var{dir1}, @var{dir2}, @dots{}, @var{file})
## @deftypefnx {} {@var{filenames} =} fullfile1 (@dots{}, @var{files})
## Build complete filename from separate parts.
##
## Joins any number of path components intelligently.  The return value is
## the concatenation of each component with exactly one file separator
## between each non empty part and at most one leading and/or trailing file
## separator.
##
## If the last component part is a cell array, returns a cell array of
## filepaths, one for each element in the last component, e.g.:
##
## @example
## @group
## fullfile1 ("/home/username", "data", @{"f1.csv", "f2.csv", "f3.csv"@})
##   @result{}
##       @{
##         [1,1] = /home/username/data/f1.csv
##         [1,2] = /home/username/data/f2.csv
##         [1,3] = /home/username/data/f3.csv
##       @}
## @end group
## @end example
##
## On Windows systems, while forward slash file separators do work, they are
## replaced by backslashes; in addition drive letters are stripped of leading
## file separators to obtain a valid file path.
##
## Note: @code{fullfile1} does not perform any validation of the resulting full
## filename.
## @seealso{fileparts, filesep}
## @end deftypefn

function filename = fullfile1 (varargin)
    filename = "";
    if (nargin)
        unc=0;
        non_empty = cellfun ("isempty", varargin); 
        varargin = varargin(! non_empty);  
        if (ispc && ! isempty (varargin)) 
            varargin = strrep (varargin, '/', filesep);
            unc = strncmp (varargin{1}, '\\', 2);
            varargin(1) = regexprep (varargin{1}, '[\\/]*([a-zA-Z]:[\\/]*)', "$1");
        endif
        varargin(2,:) = {filesep};
        varargin(end) = "";
        filename = strcat(varargin{:});
        if (~iscell(filename))
            filename(unc + strfind (filename(1+unc : end), [filesep filesep])) = "";
        else
            for i=1:length(filename)
                filename{i}(unc + strfind (filename{i}(1+unc : end), [filesep filesep])) = "";
            endfor
        endif
    endif

endfunction


%!shared fs, fsx, xfs, fsxfs, xfsy, xfsyfs
%! fs = filesep ();
%! fsx = [fs "x"];
%! xfs = ["x" fs];
%! fsxfs = [fs "x" fs];
%! xfsy = ["x" fs "y"];
%! xfsyfs = ["x" fs "y" fs];

%!assert (fullfile (""), "")
%!assert (fullfile1 (fs), fs)
%!assert (fullfile1 ("", fs), fs)
%!assert (fullfile1 (fs, ""), fs)
%!assert (fullfile1 ("", fs), fs)
%!assert (fullfile1 ("x"), "x")
%!assert (fullfile1 ("", "x"), "x")
%!assert (fullfile1 ("x", ""), "x")
%!assert (fullfile1 ("", "x", ""), "x")
%!assert (fullfile1 ("x", "y"), xfsy)
%!assert (fullfile1 ("x", "", "y"), xfsy)
%!assert (fullfile1 ("x", "", "y", ""), xfsy)
%!assert (fullfile1 ("", "x", "", "y", ""), xfsy)
%!assert (fullfile1 (fs), fs)
%!assert (fullfile1 (fs, "x"), fsx)
%!assert (fullfile1 (fs, xfs), fsxfs)
%!assert (fullfile1 (fsx, fs), fsxfs)
%!assert (fullfile1 (fs, "x", fs), fsxfs)

%!assert (fullfile1 ("x/", "/", "/", "y", "/", "/"), xfsyfs)
%!assert (fullfile1 ("/", "x/", "/", "/", "y", "/", "/"), [fs xfsyfs])
%!assert (fullfile1 ("/x/", "/", "/", "y", "/", "/"), [fs xfsyfs])

## different on purpose so that "fullfile1 (c{:})" works for empty c
%!assert (fullfile1 (), "")

%!assert (fullfile1 ("x", "y", {"c", "d"}), {[xfsyfs "c"], [xfsyfs "d"]})

## Windows specific - drive letters and file sep type
%!test
%! if (ispc)
%!   assert (fullfile1 ('\/\/\//A:/\/\', "x/", "/", "/", "y", "/", "/"), ...
%!           ['A:\' xfsyfs]);
%! endif

## *nix specific - double backslash
%!test
%! if (isunix || ismac)
%!   assert (fullfile1 (fs, fs), fs);
%! endif

## Windows specific - drive letters and file sep type, cell array
%!test
%! if (ispc)
%!  tmp = fullfile1 ({"\\\/B:\//", "A://c", "\\\C:/g/h/i/j\/"});
%!  assert (tmp{1}, 'B:\');
%!  assert (tmp{2}, 'A:\c');
%!  assert (tmp{3}, 'C:\g\h\i\j\');
%! endif

%!assert <*57774> (fullfile1 ({'folder1','folder2'},'sub',{'f1.m','f2.m'}), ...
%!                  {'folder1/sub/f1.m', 'folder2/sub/f2.m'});
